...
| Linha Línea de Produtoproducto: | Microsiga Protheus® |
|---|---|
Segmento: | Backoffice |
Módulo: | Financeiro Financiero |
| Função Función: | FINA050 – Contas a Pagar- Cuentas por pagar |
...
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.
...
| Nome Nombre | Tipo | Descrição Descripción | |
|---|---|---|---|
PARAMIXB[1] | Data | Fecha | Fecha calculada por el Data Calculada pelosistema. |
PARAMIXB[2] | Caracter Carácter | Imposto Impuesto - (IRRF, PIS, COFINS, ...) | |
PARAMIXB[3] | Data Fecha | Data Fecha de emissão doemisión del título principal. | |
PARAMIXB[4] | Data Fecha | E2_EMIS1 dodel título principal. | |
PARAMIXB[5] | Data Fecha | Data Fecha de vencimento dovencimiento del título |
...
Tipo | Descrição Descripción |
|---|---|
| Data Fecha | Data Fecha de vencimentovencimiento para oel título de impostoimpuesto. |
...
...
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#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 |