Nesse vídeo demonstraremos a utilização da classe TXMLViewer, que serve para abrir e expandir um XML em uma tela.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe517
Realiza a abertura de um XML para ser navegável em uma Dialog
@type  Function
@author Atilio
@since 05/04/2023
@see https://tdn.totvs.com/display/tec/TXMLViewer
@obs 
    
    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe517()
    Local aArea         := FWGetArea()
    Local nCorFundo     := RGB(238, 238, 238)
    Local nJanAltura    := 500
    Local nJanLargur    := 500
    Local cJanTitulo    := 'Exemplo TXMLViewer'
    Local cArquiXML     := 'C:\spool\teste.xml'
    Local lDimPixels    := .T. 
    Local lCentraliz    := .T. 
    Local oXMLView
    Private oDialogPvt

    //Cria a dialog
    oDialogPvt := TDialog():New(0, 0, nJanAltura, nJanLargur, cJanTitulo, , , , , , nCorFundo, , , lDimPixels)

        //Cria o visualizador do XML
        nObjLinha := 3
        nObjColun := 3
        nObjLargu := (nJanLargur / 2) - 3
        nObjAltur := (nJanAltura / 2) - 6
        oXMLView := TXMLViewer():New(nObjLinha, nObjColun, oDialogPvt, cArquiXML, nObjLargu, nObjAltur, lDimPixels)
        oXMLView:SetXML(cArquiXML)
    
    //Ativa e exibe a janela
    oDialogPvt:Activate(, , , lCentraliz)
    
    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até próxima.

Tags: AdvPLMaratonaProtheusTL++