Integracao com Balanca

Framework - Linha Protheus Ferramentas
, ,
1

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,

2

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 porta
3

Valeu, muito obrigado.