01. DADOS GERAIS

Linha de Produto:

Microsiga Protheus®

Segmento:

Backoffice

Módulo:

Financeiro

Função:

FINA050 – Contas a Pagar

02. DESCRIÇÃO

O ponto de entrada F050MDVC possibilita que o cliente calcular sua própria data de vencimento de impostos.

03. PARÂMETROS

NomeTipoDescrição
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

04. RETORNO

TipoDescrição

Data

Data de vencimento para o título de imposto.

05. EXEMPLO DE UTILIZAÇÃO

#INCLUDE "TOTVS.CH"

User function F050MDVC() as date
Local dNextDay := ParamIxb[1] as date//data calculada pelo sistema
Local cIMposto := ParamIxb[2] as character
Local dEmissao := ParamIxb[3] as date
Local dEmis1   := ParamIxb[4] as date
Local dVencRea := ParamIxb[5] as date
Local nNextMes := Month(dVencRea)+1 as numeric

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