rosa Posted July 8, 2009 Report Share Posted July 8, 2009 NÃO CONSIGO PASSAR O PARAMETRO PARA ABRIR A PORTA PARA COMUNICAÇÃO DA BALANCA TOLEDO SENDO QUE A VELOCIDADE 9600 E A COMUNICAÇÃO NA COM1. Quote Link to comment Share on other sites More sharing options...
rosa Posted July 8, 2009 Author Report Share Posted July 8, 2009 NÃO CONSIGO PASSAR O PARAMETRO PARA ABRIR A PORTA PARA COMUNICAÇÃO DA BALANCA TOLEDO SENDO QUE A VELOCIDADE 9600 E A COMUNICAÇÃO NA COM1. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 8, 2009 Report Share Posted July 8, 2009 MOSTRE COMO VOCE ESTA CHAMANDO A P05.DLL João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
rosa Posted July 8, 2009 Author Report Share Posted July 8, 2009 xDllBal := LoadLibrary( "P05.DLL" ) msgstop( AbrePorta( 1,"9600",8,0, 2 ), "Abre Porta" ) Quote Link to comment Share on other sites More sharing options...
dorneles Posted July 8, 2009 Report Share Posted July 8, 2009 Olá Rosa. FUNCTION Lepeso() ///////////////////////////////////////////////////////////////////////////// LOCAL RETORNO, PESO := SPACE(5), XVEL LOCAL XQTD := 0 //xDllB := LoadLibrary( "P05.DLL" ) //Porta : 1=com 1 2=com2 3=com 3 //Baudrate: 0=2400 1=4800 2=9600 //Databits: 0=7 1=8 //Paridade: 0=nenhum 1=impar 2=par 3=espaço RETORNO:= ABREPORTA( 3, 0, 0, 2 ) // COM1 //testei ate com4 IF RETORNO # 1 MsgInfo( OemtoAnsi( "Erro na abertura da porta COM da Balan‡a!" ), ; OemtoAnsi( "Erro na Porta da Balan‡a Pesadora" ) ) RETORNO := FECHA_PORTA() RETURN( 0 ) ENDIF TRY RETORNO:= PEGAPESO( 0, @PESO, "" ) CATCH MsgInfo( OemToAnsi("ATEN€ÇO: *** ERRO NA LEITURA DO PESO DA BALAN€A *** "), ; OemToAnsi( "Mensagem de Erro" ) ) xqtd := 0 RETORNO := FECHA_PORTA() RETURN( 0 ) END XQTD := VAL(PESO) XQTD := ROUND(XQTD/1000,3) IF XQTD <= 0 MsgInfo( OemToAnsi("ATEN€ÇO: *** ERRO NA LEITURA DO PESO DA BALAN€A *** "), ; OemToAnsi( "Mensagem de Erro" ) ) xqtd := 0 RETORNO := FECHA_PORTA() RETURN( 0 ) ENDIF RETORNO := FECHA_PORTA() RETURN( XQTD ) id=code>id=code>FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio Quote Link to comment Share on other sites More sharing options...
rosa Posted July 8, 2009 Author Report Share Posted July 8, 2009 OLA DORNELES neste comando RETORNO:= ABREPORTA( 1,2,1,0) erro e sai do sistema o BORLAND WINDOWS CUSTOM CONTROL LIBRARY ENCONTROU UM PROBLEMA E PRECISA SER FECHADO . . . ENVIAR RELATORIO DE ERROS NAO ENVIAR Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 10, 2009 Report Share Posted July 10, 2009 citação:OLA DORNELES neste comando RETORNO:= ABREPORTA( 1,2,1,0) erro e sai do sistema o BORLAND WINDOWS CUSTOM CONTROL LIBRARY ENCONTROU UM PROBLEMA E PRECISA SER FECHADO . . . ENVIAR RELATORIO DE ERROS NAO ENVIAR id=quote>id=quote>VERIFIQUE SEUS CONTROLES BORLAND ROSA. OU RETIRE-OS DA ROTINA DE VENDAS. OU FAÇA A CHAMADA CORRETA DA BWCC32.DLL Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.