ADVPL – Ponto de Entrada F050MDVC: Cálculo da Data de Vencimento de Impostos

Salve, salve pessoal! 👋

Hoje vamos falar sobre o ponto de entrada F050MDVC, utilizado no módulo Financeiro – Manutenção de Contas a Pagar do TOTVS Protheus. Esse ponto é responsável pelo cálculo da data de vencimento de impostos como PIS, CSLL e COFINS.

📘 Detalhes da Rotina

O código abaixo demonstra como ajustar a data de vencimento desses impostos para o dia 20 do próximo mês, validando o dia útil correto de pagamento.

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} F050MDVC
Cálculo da data de vencimento de impostos

@type       function
@author     Eurai Rapelli
@since      2023.01.01
/*/
User Function F050MDVC()
Local dNextDay := ParamIxb[1] as date // data calculada pelo 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 mês
    dNextDay := CTOD("20/" + Iif(nNextMes == 13, "01", StrZero(nNextMes, 2)) + "/" + ;
        Substr(Str(Iif(nNextMes == 13, Year(dVencRea) + 1, Year(dVencRea))), 2))
    dNextDay := DataValida(dNextDay, .F.)
EndIf 
 
Return dNextDay

🧩 Quando usar

Esse ponto de entrada é útil quando há necessidade de ajustar automaticamente o vencimento dos impostos calculados no financeiro, garantindo conformidade com as datas legais de recolhimento.

💡 Dica

Você pode adaptar a lógica para outros tributos, como IRPJ ou ISS, alterando apenas as condições no IF e a regra de cálculo da data conforme a necessidade da empresa.

Gostou da dica? Compartilhe com seus colegas e deixe um comentário abaixo! 😎

Um abraço e até a próxima!