Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

01. 

...

DATOS GENERALES

Linha

Línea de

Produto

producto:

Microsiga Protheus®

Segmento:

Backoffice

Módulo:

Financeiro

Financiero

Função

Función:

FINA050

– Contas a Pagar

- Cuentas por pagar

02. 

...

DESCRIPCIÓN

O ponto El punto de entrada F050MDVC possibilita permite que o cliente calcular sua própria data de vencimento de impostosel cliente calcule su propia fecha de vencimiento de impuestos.

03.

...

PARÁMETROS

Nome

Nombre

Tipo

Descrição

Descripción

PARAMIXB[1]

Data

Fecha

Fecha calculada por el

Data Calculada pelo

sistema.

PARAMIXB[2]

Caracter

Carácter

Imposto

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

PARAMIXB[3]

Data

Fecha

Data

Fecha de

emissão do

emisión del título principal.

PARAMIXB[4]

Data

Fecha

E2_EMIS1

do

del título principal.

PARAMIXB[5]

Data

Fecha

Data

Fecha de

vencimento do

vencimiento del título

04.

...

DEVOLUCIÓN

Tipo

Descrição

Descripción

Data

Fecha

Data

Fecha de

vencimento

vencimiento para

o

el título de

imposto

impuesto.

05.

...

EJEMPLO DE

...

UTILIZACIÓN

Bloco de código
themeMidnight
titleF370E5MBX
#INCLUDE "TOTVS.CH"

User function F050MDVC() as date
Local dNextDay := ParamIxb[1] as date//datafecha calculada pelopor 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))//AchoEncuentro oel ultimoúltimo diadía utilhábil dodel periodo desejadodeseado 
    dNextday := DataValida(dNextday,.F.)
EndIf  

Return dNextDay