Árvore de páginas

Versões comparadas

Chave

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

...

Portuguese

Pagetitle
F050MDVC - Cálculo da data de vencimento de impostos
F050MDVC - Cálculo da data de vencimento de impostos

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 ímpostos.
Eventos

É chamado na rotina que calcula a data de vencimento dos impostos.

Programa Fonte
FINA050.PRW
Sintaxe

F050MDVC - 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]  Caracter  Imposto - (IRRF, PIS, COFINS, ...)          
 ParamIxb[2]  Data  Data de emissão do título principal          
 ParamIxb[3]  Data  E2_EMIS1 do título principal          
 ParamIxb[4]  Data  Data de vencimento do título principal          
 ParamIxb[5]  Data  Data de vencimento do imposto calculada pelo sistema.          

 

Retorno
Vencimento
    (data)
  • Data de vencimento para o título de imposto.
Exemplo 1
 
#INCLUDE "RWMAKE.CH"#INCLUDE "PROTHEUS.CH"USER FUNCTION F050MDVCLocal 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  

Exemplo 2

#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