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:
| Nome |
|
| Tipo |
|
| Descrição |
|
| Default |
|
| Obrigatório |
|
| Referência |
|
| ParamIxb[1] |
|
| Data |
|
| Data Calculada pelo sistema |
|
|
|
|
|
|
|
|
|
|
| ParamIxb[2] |
|
| Caracter |
|
| Imposto - (IRRF, PIS, COFINS, ...) |
|
|
|
|
|
|
|
|
|
|
| ParamIxb[ |
2| 3] |
|
| Data |
|
| Data de emissão do título principal |
|
|
|
|
|
|
|
|
|
|
| ParamIxb[ |
3| 4] |
|
| Data |
|
| E2_EMIS1 do título principal |
|
|
|
|
|
|
|
|
|
|
| ParamIxb[ |
4| 5] |
|
| Data |
|
| Data de vencimento do título |
principalParamIxb[5]Data | Data de vencimento do imposto calculada pelo sistema. |
RetornoVencimento(data)- Data de vencimento para o título de imposto.
Exemplo 1 Exemplos
#INCLUDE "RWMAKE.CH"
#INCLUDE "PROTHEUS.CH"
USER FUNCTION
F050MDVC
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 sistema
Local cIMposto := ParamIxb[2]
Local dEmissao := ParamIxb[3]
Local dEmis1 := ParamIxb[4]
Local dVencRea := ParamIxb[5]
Local nNextMes := Month(dVencRea)+1
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
