Bematech_FI_InfoBalanca

BemaFI32

Bematech_FI_InfoBalanca

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:

·É importante verificar o tipo de protocolo que se encontra a balança SA-110 Bematech para que a função possa retornar corretamente as informações.
·O recomendado é usar o protocolo 4 configurado na balança SA-110 Bematech.

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 );