Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: F050MDVC - Cálculo da data de vencimento de impostos


Versões:Microsiga Protheus 8.11 , Microsiga Protheus 10
Idiomas:Espanhol , Inglês


Descrição:
O ponto de entrada F050MDVC possibilita que o cliente calcule sua própria data de vencimento de impostos.
Eventos

É chamado na rotina que calcula a data de vencimento dos impostos.

Programa Fonte
FINA050.PRW
Sintaxe

F050MDVC - Cálculo da data de vencimento de impostos ( [ ParamIxb[1] ], [ ParamIxb[2] ], [ ParamIxb[3] ], [ ParamIxb[4] ], [ ParamIxb[5] ] ) --> Vencimento

Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência

ParamIxb[1]

Data

Data Calculada pelo sistema










ParamIxb[2]

Caracter

Imposto - (IRRF, PIS, COFINS, ...)










ParamIxb[3]

Data

Data de emissão do título principal










ParamIxb[4]

Data

E2_EMIS1 do título principal










ParamIxb[5]

Data

Data de vencimento do título










Retorno
Vencimento
    (data)
  • Data de vencimento para o título de imposto.
Exemplo 1 

#INCLUDE "RWMAKE.CH"
#INCLUDE "PROTHEUS.CH"
USER FUNCTION F050MDVC
Local dVencPR  := ParamIXB[1]
Local cImposto := ParamIXB[2]
Local dEmissao := ParamIXB[3]
Local dEmis1   := ParamIXB[4]
Local dVencRea := ParamIXB[5]
Local dDtVenc  := CToD("30/07/2009")
RETURN dDtVenc

Exemplo 2
#INCLUDE "PROTHEUS.CH"
User function F050MDVC()
Local dNextDay := ParamIxb[1] //data calculada pelo sistema
Local cIMposto := ParamIxb[2]
Local dEmissao := ParamIxb[3]
Local dEmis1   := ParamIxb[4]
Local dVencRea := ParamIxb[5]
Local nNextMes := Month(dVencRea)+1
If cImposto $ "PIS,CSLL,COFINS"//Calcula data 20 do próximo mes 
    dNextDay := CTOD("20/"+Iif(nNextMes==13,"01",StrZero(nNextMes,2))+"/"+; 
    Substr(Str(Iif(nNextMes==13,Year(dVencRea)+1,Year(dVencRea))),2))//Acho o ultimo dia util do periodo desejado 
    dNextday := DataValida(dNextday,.F.)
EndIf  
Return dNextDay