Bom dia,
Estamos com uma balança Prix 800 instalada na empresa e conseguimos pegar a pesagem pelo Hyperterminal para validar se a informação está vindo até o computador. Queremos integrar ela diretamente com o Protheus, alguém tem essa balança integrada com Protheus ? Utilizar ADVPL puro ?
Agradeço a atenção,
Opa, segue abaixo. depois você precisa fazer umas validações para garantir o peso.
cTesteX := ""
If !MSOpenPort(@nHdll,cConfPort)//abre porta
oSMsgBal:SetText("Sem conexão com a balança, configurar corretamente, saia da tela e entre novamente")
Return lEnd
Endif
cLeitura := ""
aPesBal := {}
oReguaL:Set(0)
oReguaL:SetTotal(MV_PAR04)
For nI := 1 TO nQtdVerif
cTesteX := ""
oReguaL:Set(nI)
sleep(50)
MsRead(nHdll,@cTesteX) //les
aLeitN := StrTokArr(cTesteX,chr(13),.F.)
If Len(aLeitN)>0
oSPesBal:SetText(val(substr(aLeitN[1],2,len(aLeitN[1]))))
If substr(cTesteX,1,1) == "D" .OR. substr(cTesteX,1,1) == "F"
aadd(aPesBal,val(substr(aLeitN[1],2,len(aLeitN[1]))))
EndIf
EndIF
Next
msClosePort(nHdll) //fecha portaValeu, muito obrigado.
— Marcio Barreto 05 de Jun de 2020