DOWNLOAD P05.DLL BALANCA TOLEDO

IDELVAN 14/10/2013 09:00:40
#429991
Consegui baixar no site DLLFILES. Vou tentar aqui qq coisa te falo..

Obrigado
FOXMAN 14/10/2013 09:44:39
#429995
Citação:

:
Bom dia amigo.. há qto tempo heimmm..


Então é fácil baixar essas dll's complementares ? Coloca aqui no post caro.


Forte abraço.



é bastante tempo....

Segue link para download inclusive com exemplo de utilização.

http://www.satfiscal.net/downloads/suporte/TOLEDO.rar
IDELVAN 14/10/2013 14:53:52
#430013
Caro FOX.


Link não existe..
FOXMAN 14/10/2013 17:56:25
#430027
Citação:

:
Caro FOX.


Link não existe..



Já corrigi o link.
IDELVAN 14/10/2013 18:03:03
#430028
Amigo,


No EasyLink apresentou um erro no método PegarPeso(0, peso, [Ô]c:\)

No aplicativo p05.exe atribuo a abertura da porta e consigo capturar o peso com os parâmetros abaixo.

Porta - COM1
BAUD - 9600
Paridade - Impar
Bits Dados - 8 Bits

Como faço para os Método AbrirPorta e PegarPeso ?

Segue uma tela do P05.EXE na execução com sucesso.
FOXMAN 15/10/2013 19:18:25
#430055
Idelvan, num primeiro momento meu código ficou assim.....


  Dim Ver As String * 4
            VersaoDLL (Ver)
            Dim Retorno As Long
            Dim Peso As String * 5
            
            Retorno = AbrePorta(1, 0, 0, 2)
            If Retorno <> 1 Then
              Retorno = MsgBox([Ô]Erro de leitura de Peso, verifique a balança!!![Ô], vbOKOnly, [Ô]BsCheckOut[Ô], 0, 0)
              Exit Sub
            End If
            Retorno = PegaPeso(0, Peso, [Ô]C:\[Ô])
            
            If Retorno <> 1 Then
                Retorno = MsgBox([Ô]Erro de leitura de Peso, verifique a balança!!![Ô], vbOKOnly, [Ô]BsCheckOut[Ô], 0, 0)
                Exit Sub
            End If
            
            Retorno = FechaPortaP05()
            
            sOperacao = Empty
            txtQtde.Visible = True
            
            If (Peso / 1000) <= 0 Then
                lblDescProduto.ForeColor = vbRed
                lblDescProduto.Caption = [Ô]O produto não está na balança!!![Ô]
                txtCodProduto.SetFocus
                SelecionaTudo
                Exit Sub
            End If
            
            txtQtde.Text = Peso / 1000
            txtCodProduto.Visible = True
            txtCodProduto.SetFocus
            txtCodProduto.Text = Mid(txtCodProduto.Text, 2, Len(txtCodProduto.Text))


IDELVAN 05/11/2013 08:30:57
#430732
Bom dia.


Caro FoxMan,


Vou tentar esse código mas, eu fiz um teste com o MsComm e deu certo.


Muito obrigado querido.
Página 2 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar