Histórico da Página

...

Tag	Regra Protheus
nrVerTra_PTU	"0104"
cd_Uni_Destino	BRJ_OPEORI
cd_Uni_Origem
dt_Geracao	Data do servidor
tp_Cobranca	BRJ_TPCOB
tp_Arquivo	1
nr_Doc_1_A500	BRJ_NUMFAT
vl_Tot_Cont_Doc_1	BRJ_VLRFAT
vl_Tot_Pago_Doc_1	E2_SALDO
Nr_NDC_1	"0"
dt_Venc_NDC_1	""
nr_Doc_2_A500	BRJ_NRNDC
vl_Tot_Cont_Doc_2	BRJ_VLRNDC
Nr_NDC_2	"0"
dt_Venc_NDC_2	""

...

Ponto de Entrada

PLS500UNM

Descrição

O Ponto de Entrada (P.E.) PLS500UNM está localizado no fonte PLSUA550X, ele é acionado uma única vez quando a tela inicial da rotina é aberta.

Ele permite a manipulação das variáveis que indicam o tipo de unidade (BD7_CODUNM) a serem exportados e importados de acordo com a regra do PTU A500.(vl_Reconh_Serv, vl_Reconh_CO, vl_Reconh_Filme)

Fonte

PLSP500X,PLSUA500X,PLSUA550X

Parâmetros

O P.E. recebe os seguintes parâmetros:

Parâmetro	Tipo	Default	Descrição
cServ	Caractere	PPM,HM,HMR	Unidades de honorário médico
cAux	Caractere	AUX,AUR	Unidades de auxiliar
cAnest	Caractere	PAP,PA,PAR	Unidades de porta anestésico
cCusOpe	Caractere	UCO,COR,VMT,VMD,REA,COP,VTX,VDI	Unidades de custo operacional
cFilm	Caractere	FIL	Unidades de filme

Retorno

O P.E. deve retornar uma string, contendo os códigos de unidade.

Parâmetro	Variável	Descrição	Obrigatório
cServ	Caractere	Unidades de honorário médico	Sim
cAux	Caractere	Unidades de auxiliar	Sim
cAnest	Caractere	Unidades de porta anestésico	Sim
cCusOpe	Caractere	Unidades de custo operacional	Sim
cFilm	Caractere	Unidades de filme	Sim

Exemplo

#INCLUDE "PROTHEUS.CH"

USER FUNCTION PLS500UNM()
local aParam := paramixb
local cServ := aParam[1]
local cAux := aParam[2]
local cAnest := aParam[3]
local cCusOpe := aParam[4]
local cFilm := aParam[5]

cAnest += "XPA"

Return {cServ,cAux,cAnest,cCusOpe,cFilm}

Nome:

PTUDEPARA

Descrição:

Este Ponto de Entrada permite a manipulação do código de tabela e procedimento a serem exportados.

Localização:

Exportação PTU A500/A550

Programa Fonte:

PLSUA500X/PLSUA550X

Função:

dePara

Parâmetros:

BD6_CODPAD,BD6_CODPRO,BD6_DATPRO,BD6_CODRDA

Retorno:

aRet

aRet[1] - lAchou - Variável lógica, se retornar .T. irá considerar o retorno do PE e não fará o de-para padrão na BTU, se retornar .F. irá realizar o de-para padrão do sistema.

aRet[2]- cCodPad - Código da tabela padrão tiss (00,18,19,20,22 e etc)

aRet[3] - cCodPro - Código de procedimento.

Exemplo:

user function PTUDEPARA()

cCodPad := paramixb[1]
cCodPro := paramixb[2]
cDatPro := paramixb[3]

return {.t.,"22","10101012"}

06. ALTERAÇÕES DA VERSÃO 2.1

Será necessário a criação da subpasta V2_

...

2 dentro da pasta de schemas, já existente em: Protheus_data\plsptu\schemas, para armazenar os novos schemas. Portanto, para funcionamento correto da versão 2.

...

2, os novos schemas devem ficar no diretório: Protheus_data\plsptu\schemas\V2_

...

2.

Ao selecionar o arquivo e clicar no botão exportar, será exibido uma janela de parâmetros para selecionar o caminho que o arquivo será salvo e qual é a Versão do PTU.

Se escolhido : 1- PTU 2.

...

2 , o sistema irá validar a versão 2.

...

2, saindo na tag <nrVerTra_PTU> o valor "

...

04", validando com o schema novo, que deve estar no diretório: Protheus_data\plsptu\schemas\V2_

...

2. Se for necessário exportar na versão anterior (2- PTU 2.

...

1), mantenha selecionado no combo Versão do PTU a versão PTU 2.

...

1 e o sistema irá validar o schema na pasta Protheus_data\plsptu\schemas\V2_

...

1.

Informações

title	Campos obrigatórios

A rotina utiliza campos da rotina A500, os detalhes estão disponíveis na seção 09 da documentação, clique aqui para acessa-la.

...

Árvore de páginas

Versões comparadas

Versão antiga 20

Nova versão 21

Chave

06. ALTERAÇÕES DA VERSÃO 2.1