English
Español
GERALISTADVV
Essa função recebe a identificação de um item de pedido ou nota fiscal de saída para que sejam gerados e calculados os DVVs para esse item. Os DVVs são gerados e calculados e é montada internamente uma lista para todos os DVVs gerados e calculados para o item. A leitura para o gerador de relatórios dessa lista dos DVVs gerados é feita através de outra função de programador definida conforme exemplos abaixo.
Sintaxe: GeraListaDvv(Alfa TipDoc, Numero CodEmp, Numero CodFil, Alfa CodSnf, Alfa NumDoc, Alfa ProSer, Numero SeqIte, Numero TaxFin, Numero PerDv1, Numero PerDv2).
Parâmetros:
| Nome | Tipo | Descrição |
|
TipDoc |
Alfa |
Tipo do Documento a verificar : P Pedido, N Nota Fiscal de Saída |
|
CodEmp |
Numero |
Código da Empresa do Documento |
|
CodFil |
Numero |
Código da Filial do Documento |
|
CodSnf |
Alfa |
Série da Nota Fiscal de Saída (Somente para Nota Fiscal de Saída, Tipo do documento N) |
|
NumDoc |
Alfa |
Número do Documento Número do Pedido ou Número da Nota Fiscal |
|
ProSer |
Alfa |
Indicativo se o item de Pedido ou Nota Fiscal a ser analisado é Produto (P) ou Serviço (S) |
|
SeqIte |
Numero |
sequência do Item de Produto ou Serviço do Pedido ou da Nota Fiscal a ser analisado |
|
TaxFin |
Numero |
Taxa Financeira para calcular o valor do DVV a valor presente (o valor deve estar entre 0 e 100) |
|
PerDv1 |
Numero |
Primeiro Percentual para cálculos do DVV1 a ser gerado sobre o líquido do item a ser analisado |
|
PerDv2 |
Numero |
Segundo Percentual para cálculo do DVV2 a ser gerado sobre o líquido do item a ser analisado |
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
