Bematech_FI_InfoBalanca |
Retorna informações da balança pela serial.
Parâmetro:
Porta: STRING com a porta serial onde na qual a balança está conectada (Ex: "COM1", "COM2", etc).
Modelo: INTEGER com o modelo da balança, onde: 1: Modelo BP6 2: Modelo CS15 3: SA-110 com protocolo da balança igual a 0 (zero) 4: SA-110 com protocolo da balança igual a 4 (quatro)
Peso: STRING iniciada com 6 espaços para o retorno do peso medido pela balança no formato "KKggg" (Ex: "01200" igual à 1Kg e 200g) + 1 posição para o NULL. Para as balanças da família BP é "SKKggg" (Ex: "013200" igual à 13Kg e 200g e "-00020" igual à &endash;20g).
PrecoKilo: STRING iniciada com 6 espaços para o retorno do preço por kilo, configurado na balança, no formato "RRRCC" (Ex: "01234" igual à R$12,34/Kg) + 1 posição para o NULL. Informação não retornada pelas balanças da família BP.
Total: STRING iniciada com 6 espaços para o retorno do preço total do produto no formato "RRRCCC" + 1 posição para o NULL. Informação NÂO retornada pelas balanças da família BP.
Possíveis retornos da Função (INTEIRO):
0 - Erro de comunicação. 1 - Ok. -1 - Erro de execução. -2 - erro de parametros. -33 - Condição de alívio de prato (para modelos CS) ou peso negativo (para modelos BP). -34 - Peso instável. -35 - Peso excedido.
Observações:
Exemplo:
' Exemplo em Visual Basic cPeso = Space(7) cPrecoKilo = Space(7) cTotal = Space(7) iRetorno = Bematech_FI_InfoBalanca("COM3", 1, cPeso, cPrecoKilo, cTotal)
// Exemplo em Delphi for iConta := 1 to 7 do begin cPeso := cPeso + ' '; cPrecoKilo := cPrecoKilo + ' '; cTotal := cTotal + ' '; end; cPorta := 'COM3'; iRetorno := Bematech_FI_InfoBalanca( pchar( cPorta ), 1, cPeso, cPrecoKilo, cTotal ); |