Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Saúde Planos

Linha de Produto:

Linha Protheus

Segmento:

Saúde

Módulo:

FATURAMENTO

Função:LOTE DE COBRANÇA
País:Brasil
Ticket:14318449
Requisito/Story/Issue (informe o requisito relacionado) :DSAUBE-18639


02. SITUAÇÃO/REQUISITO

Necessidade de alterar o código do grau de parentesco e tipo de usuário padrão do sistema (BA1_GRAUPA e BA1_TIPUSU respectivamente) ao validar os beneficiários que tem direito a cobrança de reembolso patronal (Lançamento 186).

03. SOLUÇÃO

Implementado ponto de entrada PLCPATRO para alterar o código do grau de parentesco do beneficiário e o tipo de usuário que está sendo validado se tem direito a cobrança de reembolso patronal. Além disso através do ponto de entrada poderá definir se o beneficiário tem direito ao reembolso patronal, caso retorne que falso, o sistema não irá seguir com as validações do padrão.

04. DEMAIS INFORMAÇÕES

Ponto de Entrada: PLCPATRO

Parâmetros: PARAMIXB com 1 posição

    • PARAMIXB[1]: Matricula completa do Beneficiário que está sendo validado (BA1_CODINT+BA1_CODEMP+BA1_MATRIC+BA1_TIPREG+BA1_DIGITO). (Tipo Caracter)

Retorno: Array com 3 Posições

    • 1: Código do Grau de Parentesco (Tipo Caracter) - Obrigatório
    • 2: Tipo de Usuário (Tipo Caracter) - Obrigatório
    • 3: Valida Reembolso Patronal (Tipo Lógico) - Obrigatório - Para seguir com as validações do padrão, esse campo deverá retornar .T.


Exemplo de Uso
#Include "PROTHEUS.CH"

User Function PLCPATRO()

    Local cMatricBeneficiaro := PARAMIXB[1]
    Local cGrauCustomizado := ""
    Local cTipoUsuario := ""
	Local lDireito := .T.
    Local aAreaBA1 := BA1->(GetArea())

    BA1->(DbSetOrder(2))
    If BA1->(MsSeek(xFilial("BA1")+cMatricBeneficiaro))
        cGrauCustomizado := BA1->BA1_GRAUPA
        cTipoUsuario := BA1->BA1_TIPUSU
		
		// Regra especifica pra definir que o beneficiário não tem direito, com isso não será verifica pelo padrão
	  	lDireito := .F.
    EndIf

    RestArea(aAreaBA1)

Return {cGrauCustomizado, cTipoUsuario,  lDireito}

05. ASSUNTOS RELACIONADOS