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:

Nome	Tipo	Descrição	Obrigatório
cXml	Caractere	Xml com as TAGs que deseja acrescentar ao XML enviado ao RM.	Sim

...

//-------------------------------------------------------------------
/*/{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

Árvore de páginas

Versões comparadas

Versão antiga 23

Nova versão Atual

Chave