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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas