erro em rotina

[megafsem]

Ola

Gustavo

Efetuei as alterações em rotina que você me orientou mas na compilação ocorreu o seguinte erro:
Incompatible type: 'Exteded' and 'TDITECOMPROD_PRO_CODIGO'DITVENDA.Pas(LINHA DO ERRO) Erro Undeclared identifier: 'Screen'
é na linha que esta o seguinte comando


begin
TabGlobal.DITECOMPPROD.filtro.Clear;
tabGlobal.DITECOMPPROD.filtro.Add('ITECOMPPROD.PRO_CODIGO ='+floattostr(tabGlobal.DITECOMPPROD.PRO_CODIGO));
TabGlobal.DITECOMPPROD.AtualizaSql;
tabglobal.DITECOMPPROD.First;
try
while not tabglobal.DITECOMPPROD.Eof do
begin
if Ptabela(TabGlobal.DPRODUTO, ['PRO_CODIGO'], [tabglobal.DITECOMPPROD.PRO_CODIGO.Conteudo], ['CPPRO_CODIGO', 'CP_QUANT'],CamposResultado) then
begin
TabGlobal.DGRADPROD.ECF_NUMERO.Conteudo:= TabGlobal.DITVENDA.ECF_NUMERO.Conteudo ;
TabGlobal.DGRADPROD.CPPRO_CODIGO.Conteudo:= CamposResultado[0];
TabGlobal.DGRADPROD.QUANTPROD.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;
end;
poderia orientar-me
grato desde ja
e agradeço a rotina a mim enviada
francisco mendonça

[Gustavo]

Olá,
verifique que tipo de campo é o tabGlobal.DITECOMPPROD.PRO_CODIGO, pois no exemplo foi usado um campo do tipo fracionário, por isso utilizamos a função floattostr.

Quanto ao screen.cursor comente, pois ele não irá interferir na sua rotina.