Histórico da Página

...

...

//-------------------------------------------------------------------
/*/{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>"
            aXML := {"<FLAN>", cFLan}

        CASE cTagPai == "<FLANRATCCU>"
            cFLanRatCC := "<CODTB1FLX>CRIS</CODTB1FLX><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
Return cXml