Ponto-de-Entrada: F050MDVC - Cálculo da data de vencimento de impostos
| Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
| Idiomas: | Espanhol , Inglês |
Descrição:O ponto de entrada F050MDVC possibilita que o cliente calcule sua própria data de vencimento de ímpostosimpostos.
EventosÉ chamado na rotina que calcula a data de vencimento dos impostos.
SintaxeF050MDVC - Cálculo da data de vencimento de impostos ( [ ParamIxb[1] ], [ ParamIxb[2] ], [ ParamIxb[3] ], [ ParamIxb[4] ], [ ParamIxb[5] ] ) --> Vencimento
Parâmetros:
| | | | | | | | | | | | | Caracter | | |
|
| Data |
|
| Data Calculada pelo sistema |
|
|
|
|
|
|
|
|
|
|
| ParamIxb[2] |
|
| Caracter |
|
|
| Imposto - (IRRF, PIS, COFINS, ...) |
| | | | | | | | | | 2 | | |
|
| Data de emissão do título principal |
| | | | | | | | | | 3 | | | | do título principal | | | | | | | | | | | ParamIxb[4] | | | Data | | | Data de vencimento | | | | | | | | | | | | imposto calculada pelo sistema. | | | | | | | | | |
RetornoVencimento(data)- Data de vencimento para o título de imposto.
Exemplo 1
#INCLUDE "RWMAKE.CH"
#INCLUDE "PROTHEUS.CH"
USER FUNCTION F050MDVCLocalF050MDVC
Local dVencPR := ParamIXB[1]
Local cImposto := ParamIXB[2]
Local dEmissao := ParamIXB[3]
Local dEmis1 := ParamIXB[4]
Local dVencRea := ParamIXB[5]
Local dDtVenc := CToD("30/07/2009")
RETURN dDtVenc
#INCLUDE "PROTHEUS.CH"
User function F050MDVC()
Local dNextDay := ParamIxb[1] //data calculada pelo sistemaLocalsistema
Local cIMposto := ParamIxb[2]
Local dEmissao := ParamIxb[3]
Local dEmis1 := ParamIxb[4]
Local dVencRea := ParamIxb[5]
Local nNextMes := Month(dVencRea)+1If1
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))//Acho o ultimo dia util do periodo desejado
dNextday := DataValida(dNextday,.F.)
EndIf
Return dNextDay
