Utilizo o codigo abaixo, mas ao executar esta rotina, aparece o erro: "DsLanccorT : field 'CODIGO_LANCCOR not found'". Este campo esta definido na Tabela LanccorT O que estarça ocorrendo ? Grato Adolfo
procedure Tfrm_corre222.datamenorExit(Sender: TObject); var soma_debitos : currency; soma_creditos : currency; begin soma_debitos :=0; soma_creditos :=0; with Dmodule.DsLanccorT do begin close; SelectSQL.Text := 'select sum(DEBITO_LANCCOR) as soma_debitos, sum(CREDITO_LANCCOR) as soma_creditos from LANCCORT where corrent_lanccor = :conta_aux and data_lanccor <= :datamenos'; paramByName('conta_aux').asString := codigo.Text; paramByName('datamenos').asDate := datamenor.DateTime; open; end; saldo_inicial := soma_debitos - soma_creditos; saldo.Text := currtostr(saldo_inicial); end; [As partes desta mensagem que não continham texto foram removidas]