INTEGRACAO COM BALANCA TOLEDO

ANDPAG 30/09/2013 13:59:56
#429414
Olá boa tarde a todos! Alguém por acaso já fez integração com balanças Toledo? Precisava de esclarecer algumas dúvidas, como por exemplo se é por troca de arquivos, ou se alguém pode fornecer um manual. Ja entrei em contato com o fabricante mas por enquanto sem resposta. Obrigado pela atenção e abs a todos.
AJSO 30/09/2013 15:48:18
#429418
Caro ANDPAG

Na maioria dos modelos de Balanças TOLEDO são feito por conexão Serial ou USB
Transmissão por RX e TX..........

Qual o modelo da balança Toledo que vc esta utilizando.............

Para cada modelo tem um manual genérico de operações...........

Boa Sorte.......
LOOZE 30/09/2013 17:38:49
#429424
Ja adiantando o problema, se for aqueles modelo PRIX 4, enfim que comunica e imprime etiqueta, vc envia carga pra balança atravez de arquivos TXT.

Segue função que utilizo pra criar o arquivo TXTItens para TOledo e para filizola.


  
Public Function Gera_Balanca(ByVal Arquivo As String)
On Error GoTo Erro
Dim Linha As String
Dim DescricaoFilizola As String * 22
Set TbProduto = Banco.Execute([Ô]Select Codigo, Descricao, VVenda, VPromocao, Unidade, Inicio, Fim, Prazo From Produto Where Balanca=[Ô] & Val([Ô]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 = [Ô][Ô]
        Etiqueta = [Ô]00[Ô]
        Validade = [Ô]000[Ô]
        If Not IsNull(TbProduto([Ô]Codigo[Ô])) Then CodProduto = TbProduto([Ô]Codigo[Ô]) Else CodProduto = [Ô]0[Ô]
        If Not IsNull(TbProduto([Ô]Unidade[Ô])) Then Unidade = TbProduto([Ô]Unidade[Ô]) Else Unidade = [Ô]UND[Ô]
        If Not IsNull(TbProduto([Ô]Prazo[Ô])) Then Validade = Format(TbProduto([Ô]Prazo[Ô]), [Ô]000[Ô]) Else Validade = [Ô]000[Ô]
        If Not IsNull(TbProduto([Ô]VVenda[Ô])) Then Preco = Replace(Replace(Format(TbProduto([Ô]VVenda[Ô]), [Ô]##,##0.00[Ô]), [Ô],[Ô], [Ô][Ô]), [Ô].[Ô], [Ô][Ô])
        
        If Funcao.Configurar([Ô]Tabela[Ô], [Ô]TabPromocao[Ô]) = [Ô]1[Ô] Then
            If Not IsNull(TbProduto([Ô]Inicio[Ô])) And Not IsNull(TbProduto([Ô]Fim[Ô])) Then
                If CDate(TbProduto([Ô]Inicio[Ô])) <= Date And CDate(TbProduto([Ô]Fim[Ô])) >= Date Then
                    If Not IsNull(TbProduto([Ô]VPromocao[Ô])) Then Preco = Replace(Replace(Format(TbProduto([Ô]VPromocao[Ô]), [Ô]##,##0.00[Ô]), [Ô],[Ô], [Ô][Ô]), [Ô].[Ô], [Ô][Ô])
                End If
            End If
        End If

        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 Funcao.Configurar([Ô]Balanca[Ô], [Ô]Modelo[Ô]) = [Ô]TOLEDO[Ô] Then
            Linha = [Ô]01[Ô]
            Linha = Linha & Format(Mid(Etiqueta, 1, 2), [Ô]00[Ô])
            If Mid(Unidade, 1, 2) = [Ô]UN[Ô] Or Unidade = [Ô]UND[Ô] Or Unidade = [Ô]UN[Ô] Then
                Linha = Linha & [Ô]1[Ô]
            Else
                Linha = Linha & [Ô]0[Ô]
            End If
            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 Funcao.Configurar([Ô]Balanca[Ô], [Ô]Modelo[Ô]) = [Ô]FILIZOLA[Ô] Then
            Linha = Linha & Format(Mid(CodProduto, 1, 6), [Ô]000000[Ô])
            If Mid(Unidade, 1, 2) = [Ô]UN[Ô] Or Unidade = [Ô]UND[Ô] Or Unidade = [Ô]UN[Ô] Then
                Linha = Linha & [Ô]u[Ô]
            Else
                Linha = Linha & [Ô]p[Ô]
            End If
            Linha = Linha & Mid(DescricaoFilizola, 1, 22)
            Linha = Linha & Format(Mid(Preco, 1, 7), [Ô]0000000[Ô])
            Linha = Linha & Format(Mid(Validade, 1, 3), [Ô]000[Ô])
            Print #1, Linha
        End If
        TbProduto.MoveNext
    Loop
    Close #1
    MsgBox [Ô]Envio de DADOS PRA BALANÇA...!!![Ô] & Chr(13) & Chr(13) & [Ô]Arquivo de balança gerado com sucesso no: [Ô] & Chr(13) & Chr(13) & Arquivo, vbInformation, [Ô]PROGma[Ô]
End If
Exit Function
Erro:
Close #1
MsgBox [Ô]Alerta de ERRO...!!![Ô] & Chr(13) & Chr(13) & [Ô]Erro Número: [Ô] & Err.number & Chr(13) & Chr(13) & [Ô]Erro Descrição: [Ô] & Err.Description, vbCritical, [Ô]PROGma[Ô]: Exit Function
End Function



Para toledo voce instala o software deles mesmo que é o MGV no pc do cliente ai fazer a configuração da balança com pc é mas complicadinho explicar por aqui rs.


Segue link do aplicativo mgv

LINK DO MGV

Tópico encerrado , respostas não são mais permitidas
Voltar