メキシコ用残高試算表レポートのXML形式への変換

財務レポート・センターから、メキシコ用残高試算表レポートを表示できます。レポートを表示した後で、XML形式に変換して、税務当局(SAT)のインターネット・ポータルにアップロードできます。

メキシコ用残高試算表レポートの表示

財務レポート・センターから、メキシコ用残高試算表レポートを表示できます。

次のステップに従います。

Oracle Fusion Cloud Applicationsにサインインします。
一般会計マネージャのホーム・ページで、「一般会計: 財務レポート・センター」、「マイ・フォルダ」、「メキシコ用残高試算表レポート」を選択します。
レポートをHTMLで表示します。
ページの先頭にある「HTMLプレビュー」リストをクリックし、「Excelにエクスポート」を選択します。

レポートがMicrosoft Excelで開きます。
ローカル・フォルダのレポートをExcelマクロ対応ワークブックとして保存します。

メキシコ用残高試算表レポートのXML形式への変換

レポートをSATポータルにアップロード可能なXML形式に変換できます。

次のステップに従います。

Microsoft Excelでレポートを開き、「表示」タブをクリックします。
「マクロ」、「マクロの表示」をクリックします。
「マクロ名」フィールドにGenerateXMLと入力し、「作成」をクリックします。

Microsoft Visual Basicエディタが開きます。

次のレポート変換コードをMicrosoft Visual Basicエディタにコピーして貼り付けます。

Sub GenerateXML()
    '
    ' GenerateXML Macro
    Dim Version As String
    Dim RFC As String
    Dim Mes As String
    Dim Anio As String
    Dim TipoEnvio As String
    Dim FechaModBal As String
    Dim Sello As String
    Dim noCertificado As String
    Dim BalanzaCertificado As String
    Dim XML As String
    Dim XML2 As String
    Dim Row As String
    Dim Row2 As String
    Dim ColumnName As String
    Dim ColumnValue As String
    Dim MesP1 As String
    Dim MesP2 As String
    Dim Pos As Integer
    Dim Pos2 As Integer
    Dim Pos3 As Integer
    Dim MidStr As String
    Dim MidStr2 As String
    Dim Arr

    Sheets(1).Select
    Version = Replace(ActiveSheet.Cells(1, 1).Value, " ", "")
    RFC = Replace(ActiveSheet.Cells(2, 1).Value, " ", "")
    Mes = Replace(ActiveSheet.Cells(3, 1).Value, " ", "")
    Anio = Replace(ActiveSheet.Cells(4, 1).Value, " ", "")
    TipoEnvio = Replace(ActiveSheet.Cells(5, 1).Value, " ", "")
    FechaModBal = Replace(ActiveSheet.Cells(6, 1).Value, " ", "")
    Sello = Replace(ActiveSheet.Cells(7, 1).Value, " ", "")
    noCertificado = Replace(ActiveSheet.Cells(8, 1).Value, " ", "")
    BalanzaCertificado = Replace(ActiveSheet.Cells(9, 1).Value, " ", "")
    
    Arr = Array("Version", "RFC", "Mes", "Anio", "TipoEnvio", "FechaModBal", "Sello", "noCertificado", "Certificado")
                    
    MesP1 = Mid(Mes, 6, 3)
	
	If MesP1 = "Jan" Then
	Mes = "Mes=" & Chr(34) & "01" & Chr(34)
	ElseIf MesP1 = "Feb" Then
	Mes = "Mes=" & Chr(34) & "02" & Chr(34)
	ElseIf MesP1 = "Mar" Then
	Mes = "Mes=" & Chr(34) & "03" & Chr(34)
	ElseIf MesP1 = "Apr" Then
	Mes = "Mes=" & Chr(34) & "04" & Chr(34)
	ElseIf MesP1 = "May" Then
	Mes = "Mes=" & Chr(34) & "05" & Chr(34)
	ElseIf MesP1 = "Jun" Then
	Mes = "Mes=" & Chr(34) & "06" & Chr(34)
	ElseIf MesP1 = "Jul" Then
	Mes = "Mes=" & Chr(34) & "07" & Chr(34)
	ElseIf MesP1 = "Aug" Then
	Mes = "Mes=" & Chr(34) & "08" & Chr(34)
	ElseIf MesP1 = "Sep" Then
	Mes = "Mes=" & Chr(34) & "09" & Chr(34)
	ElseIf MesP1 = "Oct" Then
	Mes = "Mes=" & Chr(34) & "10" & Chr(34)
	ElseIf MesP1 = "Nov" Then
	Mes = "Mes=" & Chr(34) & "11" & Chr(34)
	ElseIf MesP1 = "Dec" Then
	Mes = "Mes=" & Chr(34) & "12" & Chr(34)
	Else
	Mes = "Mes=" & Chr(34) & "13" & Chr(34)
	End If
                    
       'XML = XML & "<BCE:Balanza xmlns:BCE=" & Chr(34) & "http://www.sat.gob.mx/esquemas/ContabilidadE/1_1/BalanzaComprobacion" & Chr(34) & " xmlns:xsi=" & Chr(34) & "http://www.w3.org/2001/XMLSchema-instance" & Chr(34) & " xsi:schemaLocation=" & Chr(34) & "http://www.sat.gob.mx/esquemas/ContabilidadE/1_1/BalanzaComprobacion http://www.sat.gob.mx/esquemas/ContabilidadE/1_1/BalanzaComprobacion/BalanzaComprobacion_1_1.xsd" & Chr(34) & " " & Version & " " & RFC & " " & Mes & " " & Anio & " " & TipoEnvio & " " & FechaModBal & " " & Sello & " " & noCertificado & " " & BalanzaCertificado & ">" & vbNewLine
       XML = XML & "<BCE:Balanza xmlns:BCE=" & Chr(34) & "http://www.sat.gob.mx/esquemas/ContabilidadE/1_1/BalanzaComprobacion" & Chr(34) & " xmlns:xsi=" & Chr(34) & "http://www.w3.org/2001/XMLSchema-instance" & Chr(34) & " xsi:schemaLocation=" & Chr(34) & "http://www.sat.gob.mx/esquemas/ContabilidadE/1_1/BalanzaComprobacion http://www.sat.gob.mx/esquemas/ContabilidadE/1_1/BalanzaComprobacion/BalanzaComprobacion_1_1.xsd" & Chr(34)
       XML2 = XML
       Row2 = ""
                    
       For I = 1 To 9
           Pos = (InStr(1, Replace(ActiveSheet.Cells(I, 1).Value, " ", ""), Chr(34))) + 1
           Pos2 = InStr(Pos, Replace(ActiveSheet.Cells(I, 1).Value, " ", ""), Chr(34))
           Pos2 = Pos2 - Pos
           Pos3 = 3
                    
           MidStr = Mid(Replace(ActiveSheet.Cells(I, 1).Value, " ", ""), Pos, Pos2)
           MidStr2 = Mid(Replace(ActiveSheet.Cells(I, 1).Value, " ", ""), 1, Pos3)
                    
           If MidStr <> "" Then
               If MidStr2 = "Mes" Then
                    Row2 = Row2 & " " & Mes
                  Else
                    Row2 = Row2 & " " & Replace(ActiveSheet.Cells(I, 1).Value, " ", "")
               End If
           End If
                    
       Next I
                    
       XML2 = XML2 & Row2
	
	XML = XML2 & ">" & vbNewLine
	
	ActiveSheet.Range("A10").Select
	Selection.End(xlDown).Select
	SheetLastRow = ActiveCell.Row
	
	ActiveSheet.Range("A10").Select
	Selection.End(xlToRight).Select
	SheetLastColumn = ActiveCell.Column
	
	For I = 11 To SheetLastRow
           Row = vbTab & "<BCE:Ctas "
           For J = 1 To SheetLastColumn
               ColumnName = Replace(ActiveSheet.Cells(10, J).Value, " ", "")
               ColumnValue = ActiveSheet.Cells(I, J).Value
               Row = Row & ColumnName & "=" & Chr(34) & ColumnValue & Chr(34) & " "
               Next J
               Row = Row & "/>" & vbNewLine
                    
               XML = XML & Row
       Next I
                    
       XML = XML & "</BCE:Balanza>"
	
	fileSaveName = Application.GetSaveAsFilename(ActiveSheet.Name, fileFilter:="XML Files (*.xml), *.xml")
	
	Open fileSaveName For Output As #1
	Print #1, "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "UTF-8" & Chr(34) & "?>"
	Print #1, XML
	Close #1
	'
End Sub

「ファイル」→「保存」の順にクリックします。

ファイルをローカル・フォルダに保存して、Microsoft Visual Basicを閉じます。
GenerateXMLマクロを選択して、Microsoft Excelの「マクロ」ダイアログ・ボックスに表示される「実行」をクリックします。
XMLファイルをローカル・フォルダに保存します。
XMLファイルを開き、出力を確認します。