18909143 DSAUPC-19820 DT Problema importação XML

01. DADOS GERAIS

Produto:	TOTVS Saúde Planos
Linha de Produto:	Linha Protheus
Segmento:	Saude
Módulo:	PROCESSAMENTO DE CONTAS
Função:	IMPORTAÇÃO XML TISS
Ticket:	18909143
Requisito/Story/Issue (informe o requisito relacionado) :	DSAUPC-19820

02. SITUAÇÃO/REQUISITO

Ao efetuar a importação do arquivo XML a tag numero_carteira sofre tratamento para retirar caracteres especiais.

03. SOLUÇÃO

Foi ajustado o ponto de entrada PLSXMLMAT incluindo o 4º parâmetro, onde é enviado o numero_carteira sem nenhum tratamento.

04. DEMAIS INFORMAÇÕES

Não se aplica

05. ASSUNTOS RELACIONADOS

Não se aplica

06. EXEMPLO DE UTILIZAÇÃO

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

21
22
23
24
25
26
27
28
29
30
31
32
33
34

#INCLUDE "PROTHEUS.CH"

User function PLSXMLMAT()


    local cMatXML := ParamIXB[1] //matricula protheus localizada
    local cNomUsr := ParamIXB[2] //nome usuario
    local cMatOrig := ParamIXB[3] //matricula recebida sem caracter especial
    local cMatXMLPt := ParamIXB[4] //matricula recebida original

    //codigo do usuario aqui - inicio
    If !Empty(cMatXMLPt) .And. (cMatOrig <> cMatXMLPt)
       cMatXML:= cMatXMLPt
       BA1->(DbSetOrder(2)) //BA1_FILIAL+BA1_CODINT+BA1_CODEMP+BA1_MATRIC+BA1_TIPREG+BA1_DIGITO
       If !BA1->(MsSeek(xFilial("BA1")+cMatXML))
          BA1->(DbSetOrder(5)) //BA1_FILIAL+BA1_MATANT+BA1_TIPANT
          IF BA1->(MsSeek(xFilial("BA1")+cMatXML)) .And. alltrim(BA1->BA1_MATANT) == cMatXML
             cMatXML := BA1->(BA1_CODINT + BA1_CODEMP + BA1_MATRIC + BA1_TIPREG + BA1_DIGITO )
          Else
             BA1->(DbSetOrder(6)) //BA1_FILIAL+BA1_MATEMP
             If (BA1->(MsSeek(xFilial("BA1")+cMatXML))) .and. (AllTrim(BA1->BA1_MATEMP) == AllTrim(cMatXML))
                cMatXML := BA1->(BA1_CODINT + BA1_CODEMP + BA1_MATRIC + BA1_TIPREG + BA1_DIGITO )
             Else
                BA1->(DbSetOrder(5)) //BA1_FILIAL+BA1_MATANT+BA1_TIPANT
                If !Empty(cMatXMLPt) .and. BA1->(MsSeek(xFilial("BA1")+cMatXMLPt))
                   cMatXML := BA1->(BA1_CODINT + BA1_CODEMP + BA1_MATRIC + BA1_TIPREG + BA1_DIGITO )
                Endif
             Endif
          EndIf
       EndIf
    EndIf

    //codigo do usuario aqui - fim

return cMatXML

Árvore de páginas