ARQUIVO TXT PARA BALANCA TOLEDO

  Public Function Gera_Balanca(Optional Arquivo As String)
Dim Linha As String
Dim DescricaoFilizola As String * 22
On Error GoTo Erro
Set TbProduto = Banco.Execute([Ô]Select * From Produto Where Referencia=[ô][Ô] & [Ô]1[Ô] & [Ô][ô][Ô])
If TbProduto.EOF And TbProduto.BOF Then
    MsgBox [Ô]Não foi possivel localizar nenhum produto com o campo Balança = 1. Para criar o arquivo correto, altere os produto desejados.[Ô], vbCritical, [Ô]PROGma[Ô]
Else
    TbProduto.MoveFirst
    Open Arquivo For Output As #1
    Do While TbProduto.EOF = False
    
        
        Linha = [Ô][Ô]
        Departamento = [Ô]01[Ô]
        Etiqueta = [Ô]00[Ô]
        Tipo = [Ô]0[Ô]
        If Not IsNull(TbProduto([Ô]CODIGO[Ô])) Then CodProduto = CCur(TbProduto([Ô]CODIGO[Ô]))
        If Not IsNull(TbProduto([Ô]VVenda[Ô])) Then preco = Replace(Replace(Format(TbProduto([Ô]VVenda[Ô]), [Ô]##,##0.00[Ô]), [Ô],[Ô], [Ô][Ô]), [Ô].[Ô], [Ô][Ô])
        Validade = [Ô]000[Ô]
        If Not IsNull(TbProduto([Ô]DESCRICAO[Ô])) Then Descricao01 = Mid(TbProduto([Ô]DESCRICAO[Ô]), 1, 25)
        If Not IsNull(TbProduto([Ô]DESCRICAO[Ô])) Then Descricao02 = Mid(TbProduto([Ô]DESCRICAO[Ô]), 26, 25)
        If Not IsNull(TbProduto([Ô]DESCRICAO[Ô])) Then DescricaoFilizola = Mid(TbProduto([Ô]DESCRICAO[Ô]), 1, 22)
    
        If TipBalanca = [Ô]TOLEDO[Ô] Then
            Linha = Format(Mid(Departamento, 1, 2), [Ô]00[Ô])
            Linha = Linha & Format(Mid(Etiqueta, 1, 2), [Ô]00[Ô])
            Linha = Linha & Format(Mid(Tipo, 1, 1), [Ô]0[Ô])
            Linha = Linha & Format(Mid(CodProduto, 1, 6), [Ô]000000[Ô])
            Linha = Linha & Format(Mid(preco, 1, 6), [Ô]000000[Ô])
            Linha = Linha & Format(Mid(Validade, 1, 3), [Ô]000[Ô])
            Linha = Linha & Mid(Descricao01, 1, 25)
            Linha = Linha & Mid(Descricao02, 1, 25)
            Linha = Linha & Mid(Extra01, 1, 50)
            Linha = Linha & Mid(Extra02, 1, 50)
            Linha = Linha & Mid(Extra03, 1, 50)
            Linha = Linha & Mid(Extra04, 1, 50)
            Linha = Linha & Mid(Extra05, 1, 50)
            Print #1, Linha
        
        
        ElseIf TipBalanca = [Ô]FILIZOLA[Ô] Then
            Linha = Linha & Format(Mid(CodProduto, 1, 6), [Ô]000000[Ô])
            Linha = Linha & [Ô]p[Ô]
            Linha = Linha & Mid(DescricaoFilizola, 1, 22)
            Linha = Linha & Format(Mid(preco, 1, 7), [Ô]0000000[Ô]) & [Ô]000[Ô]
            Print #1, Linha
        End If
        TbProduto.MoveNext
    Loop
    Close #1
    MsgBox [Ô]Arquivo de balança gerado com sucesso no: [Ô] & Arquivo, vbInformation, [Ô]PROGma[Ô]
End If
Exit Function
Erro:
MsgBox [Ô]Erro no sistema: [Ô] & Err.number & [Ô] - [Ô] & Err.Description, vbCritical, [Ô]PROGma[Ô]: Exit Function
End Function
 

  On Error GoTo Erro
If TipBalanca = [Ô]TOLEDO[Ô] Then
    Call Gera_Balanca([Ô]C:\Arquivos de programas\TOLEDO\MGV5\TXITENS.TXT[Ô])
ElseIf TipBalanca = [Ô]FILIZOLA[Ô] Then
    Call Gera_Balanca([Ô]C:\Filizola\CADTXT.TXT[Ô])
End If
Exit Sub
Erro:
MsgBox [Ô]Erro no sistema: [Ô] & Err.number & [Ô] - [Ô] & Err.Description, vbCritical, [Ô]PROGma[Ô]: Exit Sub