Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Viviane Alves Bolivar

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Rogerio Nagy

Gravado em

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 ímpostosimpostos.
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 


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
principal
 











Retorno
          ParamIxb[5]  Data  Data de vencimento do imposto calculada pelo sistema.          

 

Retorno
Vencimento
    (data)
  • Data de vencimento para o título de imposto.
Vencimento
    (data)
  • Data de vencimento para o título de imposto.
Exemplo 1 

#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

Exemplo 2
Exemplo 1
 
#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
#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