Descrição:
O ponto de entrada MT461VCT permite alterar o valor e o vencimento do título gerado no momento de geração da nota fiscal.
MATA461.PRX
Sintaxe:
MT461VCT( aVencto, aTitulo ) ---> aVencto
Parâmetros:
Nome | Tipo | Descrição |
aVencto | Array of Record | Array contendo data de vencimento e valor de cada parcela. Vide Observação |
aTitulo | Array of Record | Array contendo valores dos títulos que serão gravados. Vide Observação |
Estrutura do array aVencto:
[1] - Título
[1][1] - Data do Vencimento
[1][2] - Valor da Parcela
Estrutura do array aTitulo:
[1] - Valor do Título
[2] - Valor do IRF
[3] - Valor do INSS
[4] - Valor do ISS
[5] - Valor do PIS
[6] - Valor do CSLL
[7] - Valor do COFINS
[8] - Valor do IPI
[9] - Valor do Solidário
[10] - Valor da Nota na Moeda
[11] - Valor da Nota em Real
[12] - Valor do Acréscimo
[13] - Valor das Despesas Acessórias na Moeda
[14] - Valor das Despesas Acessórias em Real
[15] - Diferença no Valor do Título na Moeda do Título
[16] - Taxa da NDF
[17] - Moeda da NDF
[18] - Valor do FETHAB
[19] - Diferença no Rateio das Despesas Acessórias em Dólar
[20] - Valor do FABOV
[21] - Valor do FACS
[22] - Valor do TPDP
[23] - Valor do FUMIPEQ
[24] - Valor do IMA
[25] - Valor do ISS Bi Tributado
[26] - Valor do FAMAD
Importante
Caso a soma das parcelas seja diferente do total da nota fiscal, a rotina irá ajustar o valor na última parcela ou na única parcela gerada.
Exemplo:
User Function MT461VCT() Local aVencto := PARAMIXB[1] Local aTitulos := PARAMIXB[2] //Neste exemplo foi utilizado uma Condição de Pagamento a vista (parcela única), //no valor total de R$ 51.200,00 e será alterada para 2 parcelas, onde a somatória //do valor das parcelas, tem que ser o mesmo valor total da nota fiscal. If Len(aVencto) == 1 //Monta a primeira parcela a vista no valor de R$ 10.000,00 aVencto[1][1] := dDataBase aVencto[1][2] := 10000 //Monta a segunda parcela para 30 dias no valor de R$ 41.200,00 //totalizando os R$ 51.200,00 do valor total da nota fiscal. aAdd(aVencto,{ dDataBase + 30,; 41200 }) EndIf Return aVencto