Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Guilherme Carreiro da Silva

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

Produto:

TOTVS Saúde Planos

Solucoes_totvs
Solucao

Solucoes_totvs_cross
SolucaoCross

Solucoes_totvs_parceiros
SolucaoParceiros

Solucoes_totvs_parceirosexptotvs
SolucaoParcsExpsTOTVS

Linha de Produto:

Linha Protheus 

Linhas_totvs

Segmento:

Saude 

Segmentos_totvs
Segmento

Módulo:PTU
Função:A100PTU ONLINE
Ticket:15190649
Requisito/Story/Issue (informe o requisito relacionado) :DSAUBE-19864


02. SITUAÇÃO/REQUISITO

Implementar o ponto de entrada PLSTRTLAY para tornar possível a manipulação do array (Cabeçalho "aDados" e Itens "aItens") antes da geração do

...

XML das transações de PTU Online.

03. SOLUÇÃO

Implementado Ponto de Entrada PLSTRTLAY.

Ponto de Entrada PLSTRTLAY

Programa fonte:

PLSTRTLAY

Função:

Manipulação dos arrays de montagem do

layout

xml ( [ aDados], [ aItens], [ cTipoProc] ) --> Array (aDados, aItens)


Parâmetros:

Nome

TipoaDadosArray

Descrição

Obrigatório

aDados: Array de Cabeçalho

Sim

aItens

: Array

Array

de Itens

Sim

cTipoProc

Caractere

: Caractere identificando se a origem é Recebimento ou Envio (Recebimento = 1 / Envio = 2)

Não


Retorno:

Array

Nome

Tipo

Descrição

Obrigatório

Tipo Array

aDados

Array

: Array de Cabeçalho

Sim

(Obrigatório)

aItens

: Array

Array

de Itens

Sim

Funcionamento:

O Ponto de Entrada permite a manipulação do array (Cabeçalho "aDados" e Itens "aItens") antes da geração do layout.

Exemplo de Implementação PLSTRTLAY:

...

1
2
3
4
5
6
7
8
9
10
11
12

...

(Obrigatório)


Caso não precise alterar os dados, retornar os mesmos aDados e aItens recebidos no ponto de entrada.



Bloco de código
languagec#
themeRDark
titleExemplo de Uso
linenumberstrue
#Include "PROTHEUS.CH"

User Function PLSTRTLAY()
    
    Local aDados := PARAMIXB[1]
	Local aItens := PARAMIXB[2]
    Local cTipoProc := PARAMIXB[3]
	
	If cTipoProc == "1" // Recebimento
		Do Case
			Case Alltrim(PlsPtuGet("CD_TRANS", aDados)) == "00600"
				// Tratamento para a transação 00600

			Case Alltrim(PlsPtuGet("CD_TRANS", aDados)) == "00605"
				// Tratamento para a transação 00605
		EndCase
	Else // 2 = Envio
		Do Case
			Case Alltrim(PlsPtuGet("CD_TRANS", aDados)) == "00600"
				// Tratamento para a transação 00600

			Case Alltrim(PlsPtuGet("CD_TRANS", aDados)) == "00605"
				// Tratamento para a transação 00605
		EndCase
	EndIf

	// Dica: Para alterar os dados do array poderá ser utilizado a função PlsPtuPut

Return {aDados,

...

aItens}

04. DEMAIS INFORMAÇÕES

Não se aplica12675232 DSAUBE-16554 DT PTU ONLINE 9.0

05. ASSUNTOS RELACIONADOS

        Não se aplica



Templatedocumentos

...