Search the Community
Showing results for tags 'arquivo'.
Found 1 result
-
Prezados, Bom dia. Estou criando um arquivo xml e não estou conseguindo alterar o cabeçalho com a codificação desejada. Já pesquisei e não encontrei uma solução. Segue o código: * Cria novo documento xml oXml:= TXMLDocument():New() * Cabecalho oXml:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_PI , 'xml',, 'version="1.0" encoding="UTF-8"' )) * comentario oXml:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_COMMENT ,,, 'Evento S-1020 - Tabela de Lotacao' )) * Tag Principal do arquivo oNode:= TxmlNode():New( HBXML_TYPE_TAG , 'eSocial' ) oNode2:= TxmlNode():New( HBXML_TYPE_TAG , 'evtTabLotacao' ) oNode3:= TxmlNode():New( HBXML_TYPE_TAG , 'id' ) oNode3:cData:= ::nID oNode2:AddBelow(oNode3) oNode:AddBelow(oNode2) oXml:oRoot:AddBelow(oNode) // Add a tag eSocial * Cria o arquivo hFile := FCREATE( ".\evS-1020.xml" ) IF hFile != -1 oXml:Write( hFile , HBXML_STYLE_INDENT + HBXML_STYLE_THREESPACES ) Fclose( hFile ) ELSE MsgInfo("Falha ao criar o arquivo de envio do evento S-1020", "Atenção") ENDIF ****************************************************** Resultado: <?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?> <eSocial> <evtTabLotacao> <id>0001</id> </evtTabLotacao> </eSocial>
