Línea de producto: | Microsiga Protheus® |
|---|---|
Segmento: | Backoffice |
Módulo: | Financiero |
Función: | FINA050 - Cuentas por pagar |
El punto de entrada F050MDVC permite que el cliente calcule su propia fecha de vencimiento de impuestos.
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 |
Tipo | Descripción |
|---|---|
Fecha | Fecha de vencimiento para el título de impuesto. |
#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 |