Open Saida_ini_Str & "\" & "Terminal2-Venda-resp.ini" For Input As #1
            Arquivo_Texto = Input(LOF(1), #1)
        Close #1
        'Remove texto OK: do arquivo ini
        Arquivo_Texto = Replace(Arquivo_Texto, "OK: ", "")
        'Pega o XML venda para impressao
        lPos1 = InStr(1, Arquivo_Texto, "Arq")
        Do While lPos1 > 0
        lPos2 = InStr(lPos1 + 1, Arquivo_Texto, "XML")
        If lPos2 > 0 Then
          sSubString = Mid$(Arquivo_Texto, lPos1 + 8, lPos2 - lPos1 - 10)
            ' txt do xml
            txtFields(2).Text = sSubString
        Else
          Exit Do
        End If
        lPos1 = InStr(lPos2 + 1, Arquivo_Texto, "Arq")
        Loop
        'Imprimi nota
        Criterio = "SAT.ImprimirExtratoVenda(" & Chr(34) & txtFields(2).Text & Chr(34) & "," & Chr(34) & txtFields(3).Text & Chr(34) & ")"
        Open Entrada_ini_Str & "\" & GetIPHostName & "-Imprimir.ini" For Output As #1
        Print #1, Criterio


        'Mensagem de INI
        lPos1 = InStr(1, Arquivo_Texto, "|")
        i = 0
        Do While lPos1 > 0 And lPos1 < 120
        lPos2 = InStr(lPos1 + 1, Arquivo_Texto, "|")
        If lPos2 > 0 Then
          sSubString = Mid$(Arquivo_Texto, lPos1 + 1, lPos2 - lPos1 - 1)
          If i = 1 Then
            txtFields(4).Text = sSubString
            End If
        Else
          Exit Do
        End If
        lPos1 = InStr(lPos2 + 1, Arquivo_Texto, "|")
        i = i + 1
        Loop
        Close #1