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 impostos.

03. PARÂMETROS

el cliente calcule su propia fecha de vencimiento de impuestos.


Informações
titleAtenció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

NomeTipoDescrição

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