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