01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Backoffice

Módulo:

Financiero (SIGAFIN)

Función:

FINA401

País:

Brasil

02. VISIÓN GENERAL

Verifique si ya se ha grabado el rendimiento en la tabla SR4, evitando valores duplicados si los impuestos de IRRF y PCC tuvieran el mismo código de retención.

03. PARÁMETROS

 No existen.

04. DEVOLUCIÓN

Nombre

Tipo

Descripción

lRet

Lógico

Responde si verificará o no la grabación de la tabla SR4 o no.


05. EJEMPLO


#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