Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. DATOS GENERALES

Línea de producto:

Microsiga Protheus®

Segmento:

Backoffice

Módulo:

Financiero

Función:

FINA050 - Cuentas por pagar

02. DESCRIPCIÓN

El punto de entrada F050MDVC permite que el cliente calcule su propia fecha de vencimiento de impuestos.


Atención

Este punto de entrada solamente se activará si el parámetro MV_CRTVENC estuviera configurado como 2. 

Para más información sobre el parámetro: Código de pago vs. Vencimiento - FINA790

03. PARÁMETROS

Nombre

Tipo

Descripción

PARAMIXB[1]

Fecha

Fecha calculada por el sistema.

PARAMIXB[2]

Carácter

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

PARAMIXB[3]

Fecha

Fecha de emisión del título principal.

PARAMIXB[4]

Fecha

E2_EMIS1 del título principal.

PARAMIXB[5]

Fecha

Fecha de vencimiento del título

04. DEVOLUCIÓN

Tipo

Descripción

Fecha

Fecha de vencimiento para el título de impuesto.

05. EJEMPLO DE UTILIZACIÓN

F370E5MBX
#INCLUDE "TOTVS.CH"

User function F050MDVC() as date
Local dNextDay := ParamIxb[1] as date//fecha calculada por el 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))//Encuentro el último día hábil del periodo deseado 
    dNextday := DataValida(dNextday,.F.)
EndIf  

Return dNextDay