Fórum funciona no delphi 5 mais não no 6 pq ???? #196705

:?: :?:
este codigo funciona so no delphi 5 não n o delphi 6


if messagedlg(´Confirma Inclusão deste item nesta Entrada ? ´,mtconfirmation,[mbyes,mbno],0) = mryes then
begin
if dtm.tblItensEntrada.Locate(´codEntrada;codProd´,VarArrayOf([dbcodigo.text,edit1.text]),[]) then
begin
showmessage(´Item já cadastrado para esta Entrada !!!´);
end
else
begin
with dtm do
begin
try
if tblitensEntrada.locate(´codProd´,edit1.text,[]) then
begin
tblitensEntrada.edit;
tblitensEntradacodEntrada.Value:=dbcodigo.text; {nao esta aceitando esta linha no delphi 6}
tblitensEntradaCodProd.Value:=edit1.text;{nao esta aceitando esta linha no delphi 6}
tblitensEntradaquantidade.Value:=tblitensEntradaquantidade.Value + strtoint(edit3.text);
end
else
begin
tblitensEntrada.insert;
tblitensEntradacodEntrada.Value:=dbcodigo.text;{nao esta aceitando esta linha no delphi 6}
tblitensEntradaCodProd.Value:=edit1.text;{nao esta aceitando esta linha no delphi 6}
tblitensEntradaquantidade.Value:=strtoint(edit3.text);
end;
tblitensEntrada.post;
except on EDBEngineError do {este excepion nao funciona no d6}
showmessage(´Erro ao atualizar tabela´);

end;
tblitensEntrada.Refresh;
tblitensEntrada.Close;
tblitensEntrada.Open;
panel4.Caption:=formatfloat(´0.00´,(strtofloat(panel4.caption) + tblitensvendaitensubtotal.Value));
end;
end;
end;