Total contas

[pmv1980]

Tenho uma tela de consulta, onde eu quero exibir em um text o total das contas, na procedure abaixo, q coloquei no posto query, é exibido o valor de uma conta e depois de outra, mas eu quero o total.

Selecionar tudo

Procedure Prc_Total_Contas is

nValorConta Pagamento.valor%type;
nTotal Pagamento.valor_total%type;

  Cursor TotalContas is Select Valor
                        From Pagamento
                       Where Cd_Conta = :Pagamento.Cd_Conta;

Begin

    nTotal := 0;

  Open TotalContas;
    Loop
      Fetch TotalContas Into nValorConta;
      Exit When TotalContas%NotFound;

      nTotal := nTotal + nValorConta;
    End Loop;
    
    :Controle.Text_Total := Nvl(nTotal,0);
    
End;

[RodrigoValentim]

Tenta por no final dessa rotina (post_query) q o field recebe os dois valores somados. Assim você tem o total das duas contas.