PM260CLS- Classificação da DMED

Ponto de entrada que substitui a função de classificação das informações geradas na tabela B5A. 

O ponto de entrada é chamado durante a classificação da tabela B5A. Sua chamada ocorre para cada um dos registros filtrados da tabela.

PLSM260

PM260CLS- Classificação da DMED ( [ nRecB5A ] ) --> lRet

lRet(logico)
• O valor de retorno do ponto de entrada sempre será .T.

 O principal objetivo da função de classificação da DMED é atribuir valores para os registros da tabela B5A no campo BA1_TIPREG (Ide. registr).
  A geração do arquivo enviado para a receita federal é diretamente relacionado a atualização do campo acima, portanto, deve sempre ser preenchido.
  Outras informações como nome do usuário, cpf do titular e dependente, data de nascimento entre outros podem ser atualizados.

#Include "Protheus.ch"User Function PM260CLS(nRecB5A)Local aPtoArea := GetArea()dbSelectArea("B5A")B5A->(dbGoto(nRecB5A))B5A->(RecLock("B5A",.F.))If B5A->B5A_CPFTIT == B5A->B5A_CPFDEP	B5A->B5A_IDEREG := '1'Else	B5A->B5A_IDEREG := '3'EndIfB5A->(msUnLock())RestArea(aPtoArea)Return .T.