Histórico da Página

...

A regra de quebra de 9.999 guias é feita no lote de intercambio.

02. SEQUENCIAL PTU

Na versão 1.0 do XML foi adicionado o conceito de sequencial e id único do procedimento seguindo o padrão tiss, para isto foram criados os campos BX6_SEQPTU, B43_SEQPTU, BX6_IDUNIC, B43_IDUNIC.

...

Tag	Regra Protheus
nrVerTra_PTU	Pergunte de exportação "Versão Atual?" Se Sim: "2.2", Senão "2.1"
cd_Uni_Destino	BTO_OPEORI
cd_Uni_Origem	BTO_CODOPE
dt_Geracao	Data do servidor
nr_Competencia	BTO_ANOINI + BTO_MESINI
tp_Cobranca	BTO_TPMOV

...

contratadoExecutante e dadosExecutante

Tag	Regra Protheus
nome	BD5/BE4_NOMRDA
cd_Uni_Prest	BAU_CODOPE ou Operadora padrão do sistema
cd_Prest	BD6_RDAEDI ou BD5/BE4_CODRDA
CPF_CNPJ	BAU_CPFCGC
CNES	1º BB8_CNES 2º BAU_CNES 3º "9999999"
cd_MunicipioCont	BB8_CODMUN
tp_RedeMin	BAU_TIPRED
tp_Prestador	BAG_CODPT(Utilizando BAU_TIPPRE para chegar no registro)
id_RecProprio	BAU_RECPRO

...

Tag	Regra Protheus
CNPJ_Fornecedor	1º BX6_CNPJFO 2º A2_CGC (Chave BD6_NFE → SF1_FORNECE) 3º BD6_CPFRDA Não exportará na versão 2.1
nm_FornecedorMaterial	1º BX6_NOMFOR 2º A2_NOME (Chave BD6_NFE → SF1_FORNECE) 3º BD5/BE4_NOMRDA Não exportará na versão 2.1
nr_NotaFiscalFornecedor	1º BX6_NNFFOR 2º F1_DOC(Chave BD6_NFE ) Não exportará na versão 2.1
det_RegistroAnvisa	1º BX6_DREANV 2º BA8_DETANV Não exportará na versão 2.1
nr_RegistroAnvisa	1º BX6_REGANV 2º BA8_RGANVI
cd_ReferenciaMat_Fab	BD6_REFFED Não exportará na versão 2.1

procedimentos

Tag	Regra Protheus
seq_item	BX6_SEQPTU
id_itemUnico	BX6_IDUNIC
tp_Tabela	De-para BTU_CODTAB, Chave: BD6_CODPAD+BD6_CODPRO Obs: Em caso de itens de pacote, é feito o mesmo processo utilizando B43_CODPAD+B43_CODPRO Em casos de PACOTE nas exportações de cobrança PEA O sistema envia os dados do campo BD6_CODPAD
cd_Servico	1º BR8_CODEDI 2º De-para BTU_CDTERM, Chave: BD6_CODPAD+BD6_CODPRO Obs: Em caso de itens de pacote, é feito o mesmo processo utilizando B43_CODPAD+B43_CODPRO Obs2: Para procedimentos de tabela própria devemos indicar nos dois primeiros caracteres o tipo de tabela(Material, Diária, Medicamento ou procedimento), isso é identificado pelo BR8_TPPROC, se for 3,4,7,8 envia "18", se for 1,5 envia 19, se for 2 envia 20, nenhuma das opções envia 22. Em casos de PACOTE nas exportações de cobrança PEA O sistema envia os dados do campo BD6_CD_PAC (que contem o pacote recebido na importação da Cobrança)
ds_Servico	1º BD6_DESPRO 2º Se for item de pacote B43_DESPRO

...

Tag	Regra Protheus	Observação
dt_Execucao	BD6_DATPRO
hr_Inicial	BD6_HORPRO
hr_Final	BD6_HORFIM
via_Acesso	1º BGR_CODEDI 2º BGR_CODVIA
tc_Utilizada	Se BD6_TECUTI = 'C' envia '1' Se BD6_TECUTI = 'V' envia '2' Se BD6_TECUTI = 'R' envia '3' Se BD6_TECUTI não for C,V e R' envia o próprio conteudo	Somente se BD6_PROCCI = '1'
id_Acrescimo	Se BD6_PERHES for maior que 1 envia 'S'.
vl_ServCobrado	BD7_VLRBPR	BD7_CODUNM diferente ('COR,COP,UCO,FIL') / Unidades manipuláveis no PE PLS500UNM
vl_FilmeCobrado	BD7_VLRBPR	BD7_CODUNM igual 'FIL' / Unidades manipuláveis no PE PLS500UNM
vl_CO_Cobrado	BD7_VLRBPR	BD7_CODUNM igual ('COR,COP,UCO') / Unidades manipuláveis no PE PLS500UNM
tx_AdmServico	BD7_VLRTAD	BD7_CODUNM diferente ('COR,COP,UCO,FIL') / Unidades manipuláveis no PE PLS500UNM
tx_AdmFilme	BD7_VLRTAD	BD7_CODUNM igual 'FIL' / Unidades manipuláveis no PE PLS500UNM
tx_AdmCO	BD7_VLRTAD	BD7_CODUNM igual ('COR,COP,UCO') / Unidades manipuláveis no PE PLS500UNM
un_Medida	1º BX6_CODUNM 2º BA8_UNMEDI
ft_MultiplicadorServico	1º BD6_PERHES 2º Se BR8_QTDPER ='1' calcula pelo BD6_PERC1 3º Senão calcula pelo BGR_PERC
id_AvisadoItem	Existência na tabela B6S
id_Pacote	Existência na tabela B43
cd_Pacote	BD6_CODPRO dependendo da existência na tabela B43
cd_PorteAnestesico	Se BD4_PORMED= '3A' envia '1' Se BD4_PORMED= '3C' envia '2' Se BD4_PORMED= '4C' envia '3' Se BD4_PORMED= '6B' envia '4' Se BD4_PORMED= '7C' envia '2' Se BD4_PORMED= '9B' envia '6' Se BD4_PORMED= '10C' envia '7' Se BD4_PORMED= '12A' envia '8' Senão BKF_CODEDI	Se o procedimento tiver PA na composição.
cd_Ato	Se BAU_TIPPRE = "MED","ANE" envia "1"

equipe_Profissional

Se BR8_EQUIPE = 1 1 ou em branco o sistema irá realizar a exportação da equipe mesmo se BD7_CODTPA for vazio.
Se a participação do evento ficar como O - Não se aplica participação, a tag equipe_Profissional não será exportada para o evento em questão;
Se BR8_EQUIPE = Não, não será exportada a equipe
Se BR8_EQUIPE = Em branco, Só será exportado a equipe se a guia for de honorários.

Tag	Regra Protheus
tp_Participacao	1° Se BD7_CODTPA for diferente de vazio, de-para BTU Tabela 35 . 2° Se for vazio e BD7_CODUNM = 'PAP,PA,PAR' envia '06' 3° Se for vazio e BD7_CODUNM = 'AUX' envia BD7_NLANC
nm_Profissional	1º BB0_NOME → Chave de busca: BD7_CDPFPR 2º Se BAU_TIPPE for igual a 'F' BAU_NOME, se não BAU_DIRTEC.
cd_cpf	1º BB0_CGC → Chave de busca: BD7_CDPFPR 2º Se BAU_TIPPE for igual a 'F' BAU_CPFCGC, se não envia vazio.
sg_Conselho	1º BD7_SIGLA 2º Se BAU_TIPPE for igual a 'F' BAU_SIGLCR, se não BAU_SIGDIR.
nr_Conselho	1º BD7_REGPRE 2º Se BAU_TIPPE for igual a 'F' BAU_CONREG, se não BAU_DIRREG.
UF	1º BD7_ESTPRE de-para BTU tabela 59 2º Se BAU_TIPPE for igual a 'F' BAU_ESTCR, se não BAU_UFCDIR.
CBO	1° BAQ_CBOS → Chave de Busca: BD7_ESPEXE 2° BAQ_CBOS → Chave de Busca: BD7_CODESP

...

Nome:

PLSR506

Descrição:

Este Ponto de Entrada permite adicionar dados de NFE ao PTU para exportação das tags nr_NotaFiscalDoc e link_NFeDoc.

Localização:

Exportação PTU A500

Programa Fonte:

PLSUA500X

Função:

processa

Parâmetros:

cTipo - Carácter - Indica o tipo de documento que está chamando o ponto. Caso seja "1" é para o bloco documento1 caso seja "2" é o bloco documento2. Além deste parametro as tabelas BTO e SE1 estão posicionadas.

Retorno:

aRet

aRet[1] - Dado da tag nr_NotaFiscalDoc.

aRet[2] - Dado da tag link_NFeDoc.

aRet[3] - Dado da tag nr_Documento e doc_Fiscal.

Exemplo:

user function PLSR506()
local aParam:= paramixb[1]
local aRet := {'',''}

ZAA->(dbsetorder(1))
if ZAA->(msSeek(xfilial('ZAA')+SE1->E1_NUM))
aRet[1] := ZAA->ZAA_NUM

aRet[2] := ZAA->ZAA_URL

endif

return aRet

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"}

Nome:

PLU5CNES

Descrição:

O Ponto de Entrada permite manipular o CNES, que será exportado nas tags quando "honorário" e "contratadoexecutante"

Localização:

Exportação PTU A500/A550

Programa Fonte:

PLSUA500X

Função:

Honorário() e contratadoexecutante()

Parâmetros:

cCnes (CNES localizado pelo sistema), cCodRDA (código RDA do cabeçalho da guia), cAlias (alias da query que manipula os dados da exportação)

Retorno:

cCNESPE (Caractere)

Deve retornar obrigatoriamente um valor do tipo caractere, que deve conter o valor do CNES desejado.

Exemplo:

USER FUNCTION PLU5CNES()

local cCNESPLS := paramixb[1] //CNES encontrado pelo SIGAPLS
local cCodRDA := paramixb[2] //Código da RDA
local aAliSis := paramixb[3] //Alias da query de dados
local lOrigCham := iif( IsInCallStack("contratadoExecutante"), .t., .f. ) //verifico se CNES da função contratadoExecutante ou Honorario
local cCnesPE := iif( lOrigCham, "ABC963147", "HON760" ) //se função contratadoExecutante, retorna "ABC963147", se não - honorários - HON760"

RETURN cCnesPE

07. LOG DE ERROS

Foi implementado na rotina um sistema de validação do XML gerado com o schema disponibilizado pela Unimed do Brasil, sendo assim garantimos que o XML gerado está dentro do mínimo esperado pelo padrão.

...

"is not a valid value of the atomic": Neste caso a tag possui a limitação de somente números e tamanho 10, mas estão enviando uma string no campo causando erro.

08. ALTERAÇÕES DA VERSÃO 2.

...

1

Será necessário a criação da subpasta V2_02 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.02, os novos schemas devem ficar no diretório: Protheus_data\plsptu\schemas\V2_02.

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.02 , o sistema irá validar a versão 2.02, saindo na tag <nrVerTra_PTU> o valor "0305", validando com o schema novo, que deve estar no diretório: Protheus_data\plsptu\schemas\V2_02. Se for necessário exportar na versão anterior (2- PTU 12.1), mantenha selecionado no combo Versão do PTU a versão PTU 12.1 e o sistema irá validar o schema na pasta Protheus_data\plsptu\schemas\V1V2_1.

No Configurador (SIGACFG), acesse Ambientes/Cadastro/Menu (CFGX013). Informe a nova opção de menu do SIGAPLS, conforme instruções a seguir:

...

Árvore de páginas

Versões comparadas

Versão antiga 51

Nova versão Atual

Chave

02. SEQUENCIAL PTU

contratadoExecutante e dadosExecutante

procedimentos

equipe_Profissional

07. LOG DE ERROS

08. ALTERAÇÕES DA VERSÃO 2.

1

09. MENU