Histórico da Página
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
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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) |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas