PEGAR PESO BALAN?A TOLEDO

FUTURA 16/12/2016 15:32:38
#469799
Pessoal, estou informatizando um cliente novo, e ele tem nos caixas a balança toledo 9094c/5 , da pra pegar o peso por algum componente do vb6 ou existe alguma dll para tal ?, no sistema antigo ele usava ACBR.
SINCLAIR 17/12/2016 14:09:29
#469816
Colega FUTURA,

A forma de programar é a mesma, seja para balanças de caixa ou de chão.
Você envia o comando para ela CHR(5) pela serial e ela te devolve o peso,

Podes colocar um timer que de tempo em tempo verifique se algo foi posicionado em cima da balança.

Private Sub sPesa(ByRef pCOM As MSComm)
[ô]*******************************************************************************************
[ô]OBS: Ao alterar este módulo, ver a sub sAdicionaGrid(), pois lá controla os descontos.
[ô]*******************************************************************************************
On Error GoTo ControleErros
    Dim PesoX           As Variant
    If Not pCOM.PortOpen Then pCOM.PortOpen = True
    pCOM.Output = Chr(5)
    PesoX = pCOM.Input
    If PesoX = [Ô][Ô] Then Exit Sub
    PesoX = Mid$(PesoX, 2, 2) & [Ô],[Ô] & Mid$(PesoX, 4, 3)
    If FazFng = 1 Then PesoX = 10 * PesoX
    txtPeso.Text = Format(PesoX, [Ô]0.000[Ô])
    If FazFng = 1 Then
        If txtTara.Text <> [Ô][Ô] Then
            If CInt(txtTara.Text) > 0 Then
                lblPesoDescTara.Caption = Format(PesoX - (0.65 * CInt(txtTara.Text)), [Ô]0.000[Ô])
                Exit Sub
            End If
        End If
        lblPesoDescTara.Caption = [Ô]0,000[Ô]
    Else
        Select Case CDbl(PesoX)
            [ô]Alterado em 26/7/02 o peso bruto da caixinha, para adequar ao novo
            [ô] padrão de desconto. A cada 6kg 1 tara.
            Case 0 To 0.65
                txtTara.Text = 0: lblPesoDescTara.Caption = Format(PesoX, [Ô]0.000[Ô])
            Case 0.651 To 6.651
                txtTara.Text = 1: lblPesoDescTara.Caption = Format(PesoX - 0.65, [Ô]0.000[Ô])
            Case 6.652 To 12.652
                txtTara.Text = 2: lblPesoDescTara.Caption = Format(PesoX - (0.65 * 2), [Ô]0.000[Ô])
            Case 12.653 To 18.653
                txtTara.Text = 3: lblPesoDescTara.Caption = Format(PesoX - (0.65 * 3), [Ô]0.000[Ô])
            Case 18.654 To 24.654
                txtTara.Text = 4: lblPesoDescTara.Caption = Format(PesoX - (0.65 * 4), [Ô]0.000[Ô])
            Case 24.655 To 30.655
                txtTara.Text = 5: lblPesoDescTara.Caption = Format(PesoX - (0.65 * 5), [Ô]0.000[Ô])
            Case 30.656 To 36.656
                txtTara.Text = 6: lblPesoDescTara.Caption = Format(PesoX - (0.65 * 6), [Ô]0.000[Ô])
            Case 36.657 To 42.657
                txtTara.Text = 7: lblPesoDescTara.Caption = Format(PesoX - (0.65 * 7), [Ô]0.000[Ô])
            Case 42.658 To 48.658
                txtTara.Text = 8: lblPesoDescTara.Caption = Format(PesoX - (0.65 * 8), [Ô]0.000[Ô])
        End Select
    End If
    Exit Sub
ControleErros:
    MsgBox Err.Number & [Ô] - [Ô] & Err.Description, vbInformation, [Ô]sPesa[Ô]
End Sub


Fonte: http://comunidade.itlab.com.br/eve/forums/a/tpc/f/331603531/m/863606731

Em opção, podes usar o exemplo anexo. Tem para algumas linguagens de programação, incluindo VB6. Mas no caso do exemplo, usa DLL. Eu prefiro por envio e captura direta de dados na porta, mas mas há quem pense diferente.

PS: Como o tamanho do .ZIP excede o limite do VBMania, então coloquei no meu FTP, cujo link é:

www.sistemacomodoro.com.br/toledo.zip


Tudo de bom.
FUTURA 19/12/2016 15:15:14
#469850
Colega SINCLAIR, muito obrigado pelo exemplo, vou analisar aqui e ver se consigo ajustar ao meu sistema. Na vdd, não tenho comunicação direta com balança, o que faço é exportar da retaguarda para o mgv5, onde as balanças geram as etiquetas com os pesos, e meu pdv faz a leitura, e agora um cliente novo, tem a balança no caixa, e o sistema antigo dele ainda em clipper, fazia tudo pelo acbr ( cupom fiscal, balança e gaveta). Estou tentando fazer tudo direto pelo sistema.

Grato,
SINCLAIR 19/12/2016 18:15:11
#469855 Resposta escolhida
Colega FUTURA,

Não é difícil não.

é bem simples.

Podes usar o ACBr, se quiseres, mas dá para fazer direto pelas portas, sem maiores complicações.

Meus clientes também usam o MGV (na versão 6) e a balança também é de retaguarda.

Estou, também, colocando as opções para balança no caixa, em um cliente super bacana.

Te dou retorno posterior.

Tudo de bom.
FUTURA 21/12/2016 21:26:00
#469919
Uma empresa que presta serviços em balanças me cedeu uma de check-out para testes. Agora vou me divertir.. A dll p05 ja fez comunicação. Mas tem hora que não pega o peso.. Qq novidade compartilho..
LEANTRONIC 23/12/2016 15:11:17
#470008
Eu tenho uma dll chamada elgin.dll que funciona pra tudo q é balança
SINCLAIR 23/12/2016 15:24:19
#470009
Colega FUTURA,

Como era o previsto, volto para dar notícias sobre o resultado dos meus testes.

Inicialmente, o MGV atrapalhou porque bloqueava a porta. Fechei o MGV e o CargaRemota.exe (processo do MGV 6, que fica na memória).

Balança Toledo Prix 4, Bauds 2400, paridade Par, 8 bits, porta COM5.

Funcionou tanto por comandos diretos, quanto pela P05.DLL (no meu caso a P05.DLL não foi intermitente, funcionou sempre).

Tudo de bom.
FUTURA 24/12/2016 08:22:26
#470030
Aqui tbm Sinclair.. Tive pequenos problemas com a versão antiga, liguei na Toledo me passaram a última versão, se comunica muito bem, a P05 é muito estável com um bom timer . Estou analisando a lógica para disparar a busca do peso ao digitar o código do produto. Vamos conversando.. Um bom natal.
SINCLAIR 24/12/2016 09:27:29
#470033
Colega FUTURA,

Combinado então.

Boas festas para você também.

Tudo de bom.
FUTURA 29/12/2016 09:10:16
#470163
Sinclair, tudo 100% e rodando no cliente, estou fechando o tópico, caso precise trocar informações, me manda mensagem interna.
Tópico encerrado , respostas não são mais permitidas
Voltar