01. DADOS GERAIS
| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | Financeiro (SIGAFIN) |
| Função: | FINA401 |
| País: | Brasil |
02. VISÃO GERAL
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.
03. PARÂMETROS
Não há.
04. RETORNO
| Nome | Tipo | Descrição |
|---|---|---|
lRet | Lógico | Retorna se verificará ou não a gravação da tabela SR4 ou não. |
05. 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 |