- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Funções AdvPL
- Comunicação com balança na versão Protheus 12
Perguntas Comunicação com balança na versão Protheus 12
- joaocarlos
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 1
- Obrigados Recebidos: 0
8 anos 10 meses atrás - 8 anos 10 meses atrás #29960
por joaocarlos
Comunicação com balança na versão Protheus 12 foi criado 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)
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)
Ultima edição: 8 anos 10 meses atrás por joaocarlos.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Funções AdvPL
- Comunicação com balança na versão Protheus 12
Tempo para a criação da página:0.088 segundos