Solução sobre rotina

[megafsem]

Ola
Suporte ou Gustavo
tenho um pequeno problema em rotina se for possível ajuda

as minhas variavesi locais são:
CamposResultado: Variant;
Produto_fil: String;

Arotina de Lançamento Avulso é conforme abaixo:

Begin
Produto_fil := TabGlobal.DITVENDA.PRO_CODIGO.Conteudo;
end;
TabGlobal.DITECOMPPROD.filtro.Clear;
tabGlobal.DITECOMPPROD.filtro.Add('CPRO_CODIGO ='+(Produto_fil));
TabGlobal.DITECOMPPROD.AtualizaSql;
tabglobal.DITECOMPPROD.First;
TabGlobal.DITECOMPPROD.CPRO_CODIGO.Conteudo := Produto_fil;
try
while not tabglobal.DITECOMPPROD.Eof do
begin
if Ptabela(TabGlobal.DITECOMPPROD, ['CPRO_CODIGO'], [tabglobal.DITVENDA.PRO_CODIGO.Conteudo], ['CPPRO_CODIGO', 'CP_QUANT'],CamposResultado) then
begin
TabGlobal.DGRADPROD.ECF_NUMERO.Conteudo:= TabGlobal.DITVENDA.ECF_NUMERO.Conteudo ;
TabGlobal.DGRADPROD.PRO_CODIGOGR.Conteudo:= CamposResultado[0];
TabGlobal.DGRADPROD.PRO_QUANTIDADE.Conteudo:= TabGlobal.DGRADPROD.PRO_QUANTIDADE.Conteudo + (CamposResultado[1] * TabGlobal.DITVENDA.PRO_QUANTIDADE.Conteudo) ;
TabGlobal.DGRADPROD.salva;
Screen.Cursor := crHourGlass;
end;
TabGlobal.DITECOMPPROD.next;
end;
except
showmessage('Erro de Leitura...');
end;

está dando o seguinte erro de compilação:** DTIVENDA.Pas(linha)Error Undeclared identifer:'Screen'DTIVENDA *** na linha: Screen.Cursor := crHourGlass;
mas seu isolo a mesma não ocorre erro, ão ocorre erro de compilação, mas os dados não são gravados na tabela DGRADPROD. Se vc Puder Ajudar Agradeço.
caso queira masis infromações sobre meu problema avisar.

grato
Francisco Mendonça

[Gustavo]

Olá,

a linha Screen.Cursor := crHourGlass; serve apenas para aparecer uma ampulheta enquanto salva os registros, e não influi no salvamento dos registros.
Por algum motivo que desconhemos o screen.cursor não está funcionando em sua máquina.

Talvez até esteja salvando, porém, você não vê pois faltou dar um refresh na tabela.
Coloque abaixo do end :

TabGlobal.DGRADPROD.Refresh;