Histórico da Página
...
- As melhorias aqui descritas também estão disponiveis na rotina Garatias(JURA098) no Protheus.
- Todos os dados utilizados, nos exemplos abaixo, são meramentes ilustrativos.
- Importante que seja liberado acesso a URLS de uso interno do Protheus para que o objeto de troca de mensagens de XML possa fazer os parses. A lista de URLS que precisam ser liberadas estão no endereço (URLs acessadas pela TWsdlManager).
- Para mais detalhes de como habilitar o dataserver no RM, consultar documento (Como Expor os Web Services do RM através do Host (recomendado)#-2064216139)
Incluindo uma Despesa:
- No módulo Gestão Jurídica (SIGAJURI), acesse Atualizações / Assunto Jurídico / Pesquisa;
...
Nome: | JRMCOXML | ||||||||
Descrição: | Ponto de entrada para inserir campos opcionais ou tags pcionais ao XML enviado ao RM dentro da entidade FLAN do das entidades o XML. | ||||||||
Localização: | Gestão Jurídica em Atualizações \ Assuntos Jurídicos \ Garantias e Alvarás ou Despesas e Custas | ||||||||
Programa Fonte: | JURIRM.prw | ||||||||
Função: | JiRmInTiPg() | ||||||||
Momento: | Este ponto de entrada é executado logo após a integração do módulo Gestão Jurídica (SIGAJURI) com o módulo do Financeiro (SIGAFIN). | ||||||||
Retorno: |
|
...
//-------------------------------------------------------------------
/*/{Protheus.doc} JRMCOXML()
Ponto de entrada para inserir campos ou tags opcionais ao XML enviado ao RM
dentro da entidade FLAN.
@param aSE2 - Campos utilizados para gerar o título.
@param cTagPai - Tag à qual será adicionado o(s) campo(s) ou tag(s) opcional(is).
@return cXml - Campos opcionais que serão inseridos no XML
@author Rafael Tenorio da CostaSIGAJURI
@since 17/05/02/18
@version 1.0
2020
/*/
//-------------------------------------------------------------------User Function JRMCOXML
User Function JRMCOXML()
Local aSE2 Local aSE2 := ParamIxb ParamIxb[1]
Local cXml :=
Local cTagPai := ParamIxb[2]
Local cFLan := ""
Local cFinLan := ""
Local cFLanRatCC := ""
Local aXML := {}
Do CASE
CASE cTagPai == "<FLAN>"
cFLan := "<CODTB1FLX>01.99</CODTB1FLX>"
Return cXml"
aXML := {"<FLAN>", cFLan}
CASE cTagPai == "<FLANRATCCU>"
cFLanRatCC := "<CMPOPC>X</CMPOPC>"
aXML := {"<FLANRATCCU>", cFLanRatCC}
CASE cTagPai == "<FinLAN>"
cFinLan := " <TAGNOVA> "
cFinLan += " <CAMPO1>1</CAMPO1> "
cFinLan += " <CAMPO2>2</CAMPO2> "
cFinLan += " <CAMPO3>3</CAMPO3> "
cFinLan += " </TAGNOVA> "
aXML := {"<FinLAN>", cFinLan}
End
Return aXML