GP590FUN - Validação de funcionários para a DIRF

Descrição

Este Ponto de Entrada refaz a validação para funcionários que tem dados para a DIRF.

Observações

Este ponto de entrada, por meio da validação, permite que funcionários que na validação padrão não teriam seus dados enviados para a DIRF passem a ter.

A situação inversa não é verdadeira, ou seja, funcionários que na validação padrão tenham seus dados enviados para a DIRF, ao utilizar este Ponto de Entrada e seu retorno for .F., os dados do funcionário não deixarão de ser enviados.

Ou seja, este ponto de entrada serve para incluir funcionários na DIRF mas não para excluir.

Exemplos

#INCLUDE 'PROTHEUS.CH'

USER FUNCTION GP590FUN()

Local aArea := GetArea() 
Local lRet := .F.
Local cMat := "000100"

DbSelectArea("SRA")
SRA->( dbSetOrder(1) )

If SRA->RA_MAT < cMat
lRet := .T.
Endif

RestArea( aArea )

Return lRet

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Retorno

Lógico (.T. ou .F.)

Programa Fonte

GPEM590.PRX