English
Español
LELISTADVV
Após a utilização da função GeraListaDVV, efetua a leitura da lista dos DVVs gerados.
Sintaxe: Funcao LeListaDvv(Numero Pos, Numero End FimLis, Alfa End NomDvv, Numero End VlrBas, Numero End VlrCal, Numero End VlrAvp, Numero End PrzCal)
Parâmetros :
| Nome | Tipo | Descrição | Retorna Valor |
|
Pos |
Numero |
Posição do registro a ser lido na lista. |
Não |
|
FimLis |
Numero |
Indicador de Fim da Lista (0 Não término, 1 - Término). |
Sim |
|
NomDvv |
Alfa |
Nome do DVV gerado. |
Sim |
|
VlrBas |
Numero |
Valor Base do DVV. |
Sim |
|
VlrCal |
Numero |
Valor Calculado do DVV. |
Sim |
|
VlrAvp |
Numero |
Valor Presente do DVV. |
Sim |
|
PrzCal |
Número |
Prazo (em dias) usado para o cálculo do valor presente. |
Sim |
Exemplo:
definir Numero Posicao;
definir Numero Finaliza;
definir Numero VBaseDvv;
definir Numero VCalcDvv;
definir Numero VPresDvv;
definir Numero VPrazDvv;
GeraListaDvv("P", E120Ipd.CodEmp, E120Ipd.CodFil, " ", E120Ipd.NumPed, "P", E120Ipd.SeqIpd, 10, 5, 5);
Posicao = 0;
Finaliza = 0;
LeListaDvv(Posicao, Finaliza, NomeDvv, VBaseDvv, VCalcDvv, VPresDvv, VPrazDvv);
enquanto (Finaliza = 0)
{
IntParaStr(VBaseDvv, BaseDvv);
IntParaStr(VCalcDvv, CalcDvv);
IntParaStr(VPresDvv, PresDvv);
IntParaStr(VPrazDvv, PrazDvv);
ListaSecao("SDVV"); @seção onde podem ser listados os dados dos dvvs@
Posicao = Posicao + 1;
LeListaDvv(Posicao, Finaliza, NomeDvv, VBaseDvv, VCalcDvv, VPresDvv, VPrazDvv);
}
English
Español
