Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Usuário desconhecido (jose.romano)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Vinicius Queiros Teixeira

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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:

...

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

04. EXEMPLO DE USO


Bloco de código
languagec#
themeMidnight
firstline1
titlePonto de Entrada
linenumberstrue
#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)