Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus
Segmento:Saúde
Módulo:

Plano de Saúde - SIGAPLS

Função:

Layout PTU A1300 (PLSUA1300)

Ticket:

8735574

Requisito/Story/Issue (informe o requisito relacionado) :DSAUBE-11177 

02. DESCRIÇÃO

O ponto de entrada PL1300TAG permite manipular Tag´s na geração do arquivo PTU A1300.

03. OBSERVAÇÃO

O ponto de entrada recebe dois parâmetros: a tag a ser analisada e o Recno do registro BA1 posicionado.

Tags passado pelo parâmetro:

  • CD_ECIVIL (Código do Estado Civil)
  • TP_ACOMOD (Tipo de acomodação)

  • cVIA_CARTAO (Via do Cartão)

  • nm_empr_comp (Nome completo da Empresa - Razão Social)
  • nm_empr_abre (Nome da Empresa Abreviado)
  • nm_fantasia_empr (Nome fantasia da Empresa)
  • nm_contr (Nome do Contratante)
  • dt_val_carteira (Data de Validade da Cartão)
  • NM_PRODUTO (Nome do Produto - Produto Saúde)

Caso o P.E. não retorne dado, será mantido o valor original.

04. EXEMPLO DE USO


Ponto de Entrada
#include "PROTHEUS.CH"

User Function PL1300TAG

Local cRet 	  := ""
Local cTag 	  := paramixb[1] // Tag a ser alterada
Local nRecno  := paramixb[2] // Recno do Beneficiario
Local nOrdBA1 := BA1->(IndexOrd())
Local nRecBA1 := BA1->(Recno())

BA1->(DbGoto(nRecno))

Do Case
	Case cTag == "CD_ECIVIL"
   		// Tratamento para a tag 
	Case cTag == "TP_ACOMOD"
   		// Tratamento para a tag 
	Case cTag == "cVIA_CARTAO"
   		// Tratamento para a tag 
	Case cTag == "nm_empr_comp"
   		// Tratamento para a tag 
	Case cTag == "nm_empr_abre"
   		// Tratamento para a tag 
	Case cTag == "nm_fantasia_empr"
   		// Tratamento para a tag 
	Case cTag == "nm_contr"
   		// Tratamento para a tag 
	Case cTag == "dt_val_carteira"
   		// Tratamento para a tag 
	Case cTag == "NM_PRODUTO"
        // Tratamento para a tag 
EndCase

BA1->(DbSetOrder(nOrdBA1))
BA1->(DbGoto(nRecBA1))
 
Return(cRet)