Histórico da Página

...

Portuguese

Pagetitle

	F050MDVC - Cálculo da data de vencimento de impostos
	F050MDVC - Cálculo da data de vencimento de impostos

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 ímpostos.

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]

Caracter

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

ParamIxb[2]

Data

Data de emissão do título principal

ParamIxb[3]

Data

E2_EMIS1 do título principal

ParamIxb[4]

Data

Data de vencimento do título principal

ParamIxb[5]

Data

Data de vencimento do imposto calculada pelo sistema.

Retorno

Vencimento

Data de vencimento para o título de imposto.

Exemplo 1

#INCLUDE "RWMAKE.CH"#INCLUDE "PROTHEUS.CH"USER FUNCTION F050MDVCLocal 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

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão 4

Chave