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]

Responder a