Perguntas Comunicação com balança na versão Protheus 12

Mais
8 anos 3 meses atrás - 8 anos 3 meses atrás #29960 por joaocarlos
Boa tarde! estou migrando o sistema do 11 p/ o 12, porem algumas rotinas que uso no ambiente de produção onde os operadores pesam a produção e lancam no sistema, isso é feito usando comunicação via portal serial, porem recebo um erro que vou enviar em anexo. Segue a função e a linha onde ocorre o erro.

Static Function LeBalanca

_lRet := .F.
nHdll := 0
_nPeso := 0
cText := ""
lCfg = MSOpenPort(nHdll,"COM1:4800,P,7,1")

if(!lCfg)

Alert("Falha ao conectar com a porta serial")
Return .F.
EndIf


Alert("Aperte o Botão ENTER da Balança")

While cText == ""
MsRead(nHdll,@cText)
ERRO AQUI-
If (cText == "",Alert("Aperte o Botão ENTER da Balança"),)
Enddo

Return(_lRet)
Anexos:
Ultima edição: 8 anos 3 meses atrás por joaocarlos.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.084 segundos
Joomla templates by a4joomla