Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 51

changes.mady.by.user Thiago Rodrigues da Silva

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Renan Marinho Espindula

Gravado em

Chave

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

...

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.

...

TagRegra 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

BD5/BE4_NOMRDA
TagRegra Protheus

nome

cd_Uni_PrestBAU_CODOPE ou Operadora padrão do sistema
cd_PrestBD6_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

...

TagRegra 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

TagRegra 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

...

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.
TagRegra 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.



09. MENU

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

...