8706769 DSAUBE-11178 DT Ponto de Entrada para Manipular a Tag de Abrangências no PTU A1300

01. DADOS GERAIS

02. REQUISITO

O ponto de entrada que permita manipular a Tag de abrangências do beneficiário, caso o cliente utilize outras tabelas para cadastrar o grupo de município(B9B) e o grupo de estados(B9C).

03. SOLUÇÃO

Ponto de entrada PL1300ABRA criado, que enviará quatro parâmetros: 

• Cód. EDI (BF7_CODEDI)
• Cód. Abrang (BF7_CODORI)
• Recno da BA1
• Recno da BI3.

Retorno: Array com todas as abrangência do beneficiário: Sendo com duas posições o array, onde a primeira é para estados e a segunda para município.

• Para Grupo de Municípios: { " ", "1234567" } - Precisa ser preenchido a primeira posição em branco e a segunda com o código do Município com o tamanho de 7.
• Para Grupo de Estados: { "SP" , " " } - Precisa ser preenchido a primeira posição com o Estado e a segunda em branco.

Observação: Caso o beneficiário não tenha abrangências, precisará ser retornado um array vazio: {}

04. EXEMPLO DE USO

#include "PROTHEUS.CH"
 
User Function PL1300ABRA()

Local cCodEdi   := paramixb[1] // Campo BF7_CODEDI
Local cCodOri   := paramixb[2] // Campo BF7_CODORI
Local nRecBA1   := paramixb[3] // Recno do Beneficiário
Local nRecBI3   := paramixb[4] // Recno do Produto Saúde
Local aRet      := {}          // Retorno
Local aAreaBA1  := BA1->(GetArea())
Local aAreaBI3  := BI3->(GetArea())

// Tratamento para a abrangência:

// Quando for Grupo de Municpio
	aAdd(aRet,{"","1234567"})

// Quando for Grupo de Estado
	aAdd(aRet,{"SP",""})

RestArea(aAreaBA1)
RestArea(aAreaBI3)
    
Return aRet