Jump to content
Fivewin Brasil

Comunicação com Balanças Toledo


Mossane

Recommended Posts

Olá Pessoal

Primeira postagem aqui...

Achei uma rotina de como pegar peso usando a Balança Toledo, respondida pelo andersol.OL, achei de grande valia, mas não foi o suficiente pra mim.

Obrigado Anderson.OL

Preciso de dll e explicação de como posso inserir produtos e gerar etiquetas pelo sistema.

Exemplo: em mercado tem a sessão de frios, pesa-se o produto, gera a etiqueta e no caixa passa pelo leitor de códigos de Barra.

Trabalho com o delphi e Firebird.

No aguarde da Solução para meu problema desde já agradeço

Ademir Mossane

Cuiabá - MT

Link to comment
Share on other sites

Olá Pessoal

Primeira postagem aqui...

Achei uma rotina de como pegar peso usando a Balança Toledo, respondida pelo andersol.OL, achei de grande valia, mas não foi o suficiente pra mim.

Obrigado Anderson.OL

Preciso de dll e explicação de como posso inserir produtos e gerar etiquetas pelo sistema.

Exemplo: em mercado tem a sessão de frios, pesa-se o produto, gera a etiqueta e no caixa passa pelo leitor de códigos de Barra.

Trabalho com o delphi e Firebird.

No aguarde da Solução para meu problema desde já agradeço

Ademir Mossane

Cuiabá - MT

Link to comment
Share on other sites

Boa Tarde , amigo

primeiro qual o modelo da balança se for a prix 3

ela so pesa

pra emissao de etiquetas o modelo e a prix 4 e prix5

e a carga dos produtos , precos , informação nutricional

so e feita pelo sistema que a propria toledo fornece o msgv5

vc gera um aqruivo no formato txt que o programa deles le e da carga nas balanças.

a comunicacao com a balança pode ser feita por 2 modos via wirelles ou cabo. nos dois modos necessita de um aparelho que e vendido pela toledo que custa em media r$ 400.00

o software msgv5 vc pode baixar em

www.toledobrasil.com.br

fwh705/xhb9971/bcc56/xdev

Link to comment
Share on other sites

Obrigado pela dica amigo, mas a toledo não disponibiliza douwload para pesssao fisica, que é meu caso, tentei baixar mas pedem cadastro e precisao do CNPJ por isso continuo na mesma, mas pedi dlls e instruções no Fale Conosco da Toledo, vou aguardar pra ver se obtenho respostas deles

Abraços

Ademir Mossane

Link to comment
Share on other sites

Olá Dorneles...

Na verdade não sei o modelo da impressora mas que já está instalada e funcionando com geração de etiquetas personalizadas.

mas para um sistema ser eficiente, tem que se comunicar com todas as balanças e modelos, por isso preciso de tudo que estiver disponível pra aprendizado e implantação...

Abraços Ademir Mossane

Cuiabá MT

Link to comment
Share on other sites

Sim, concordo, mas para ser eficiente mesmo, tem que saber com qual balanca vai se comunicar, sem isto não é possivel.

Como seu sistema vai se comunicar com uma balancça, se nem sabe marca, modelo, protocolo de comunicação e outras coisas.

Aí realmente fica duro.

Oliveira, Sérgio A.

PERSONAL Comp. e Sitemas.id=green>

tt2.jpg

Link to comment
Share on other sites

Ola Mossane! Seja bem vindo!

Olha, a uns 3 anos atras, fiz a função abaixo que lia uma

balança Toledo ligada a Com1:

oGet = Objeto GET do Peso Bruto

oPes = Objeto GET do Peso Líquido (Bruto-Tara)

nTara = Tara (informada pelo usuário)

oDlg = Dialog que chamou a função e onde estão os GETS acima

@ 0,0 Get nTara

@ 0,0 Get oGet var nPesoLido

@ 0,0 Get oPes var nPesoCalc

@ 0,0 Button "Leitura" Action fLeitura(oGet,oPes,nTara,oDlg)

Return Nil

*--------------------------------------

Function fLeitura(oGet,oPes,nTara,oDlg)

*--------------------------------------

local cDcb, nBytes

local nComm := OpenComm( "COM1", 1024, 128 )

local nError, nI

if ! BuildCommDcb( "COM1:9600,n,8,1", @cDcb )

nError = GetCommError( nComm )

MsgInfo( "BuildCommDcb Error: " + Str( nError ) )

endif

if ! SetCommState( cDcb )

nError = GetCommError( nComm )

MsgInfo( "SetCommState Error: " + Str( nError ) )

endif

if ( nBytes := WriteComm( nComm, Chr(5) ) ) < 0

nError = GetCommError( nComm )

MsgInfo( "WriteComm Error: " + Str( nError ) )

End

Inkey(1.5)

cBuffer:=Space(20)

ReadComm( nComm , @cBuffer)

If At(".",Upper(cBuffer))#0

cBuffer:=Str(Val(Subs(cBuffer,At(".",Upper(cBuffer))-2,5)),6,2)+"KG"

nPesoLido:=Val(cBuffer)

End

MemoWrit("retorno.txt",cBuffer)

oGet:Refresh()

nPesoCalc:=nPesoLido-nTara

oPes:Refresh()

if FlushComm( nComm, 0 ) != 0

nError = GetCommError( nComm )

MsgInfo( "FlushComm Error: " + Str( nError ) )

endif

if ! CloseComm( nComm )

nError = GetCommError( nComm )

MsgInfo( "CloseComm Error: " + Str( nError ) )

endif

return(Nil)

*-----------

Fim

Note: nPesoCalc é a variável STATIC e inicia zerada.

nPesoLido também é STATIC e inicia zerada.

A função grava também um arquivo retorno.txt com

a última leitura.

Espero ter ajudado.

Alberto Zamai

FW24 + xHb 99.50

S.Paulo - SP

Link to comment
Share on other sites

Valeu pessoal pela força...

Realmente não estou muito por dentro da balança do meu cliente, mas deu pra se ter uma idéia, das dificuldades

que vou enfrentar.

A princípio um sistema pra ser eficiente tem que se comunicar com todas as balanças.

Por isso postei aqui, pra obter o máximo de conhecimento que vcs puderem me passar...

Abraços

Mossane

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...