Linha Microsiga Protheus

Árvore de páginas

Descrição

Ponto de entrada criado para verificar se já foi gravado rendimento na tabela SR4, evitando valores duplicados em casos dos impostos de IRRF e PCC possuírem o mesmo código de retenção.


Atenção

Este ponto de entrada é válido apenas para TopConnect.

 

Ponto de Entrada

Descrição:

F401VLDPAI - Valida se o rendimento já foi gravado

Localização:

Financeiro

Eventos:

FINA401

Programa Fonte:

FINA401

Função:

FINA401

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

Logico

Retorna se verificará a gravação da tabela SR4 ou não.

Sim

 

Exemplo:

#Include 'Protheus.ch'

#include 'totvs.ch'

User Function F401VldPai()

Local nRecPai := PARAMIXB[1]
Local aArea := GetArea()
Local lRet := .F.

dbSelectArea("SE2")
dbGoTo(nRecPai)

If SE2->E2_PIS+SE2->E2_COFINS+SE2->E2_CSLL+SE2->E2_IRRF > 0
lRet := .T.
EndIf

RestArea(aArea)

Return lRet