Luiz Fernando Posted December 14, 2018 Report Share Posted December 14, 2018 Colegas será que alguém pode me dar uma luz para abrir um gaveta de dinheiro da marca bematech, impressora mp4200, tentei com a sequencia abaixo mais não vai. chr(27)+chr(117)+chr(140) obg Quote Link to comment Share on other sites More sharing options...
rochinha Posted December 14, 2018 Report Share Posted December 14, 2018 Amiguinhos, Tente CHR(27) + CHR(119) + CHR(140) ou CHR(27) + CHR(119) + CHR(0) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 18, 2018 Report Share Posted December 18, 2018 // http://fivewin.com.br/index.php?/topic/27415-abertura-de-gaveta-em-impressora-não-fiscal/ Uso com a TDOSPRN STATIC FUNCTION ABREGAV() IF ConfigV->gaveta cFile:= LPORTA oPrng:= TDosPrn():New( cFile ) oPrng:StartPage() oPrng:Command( "27, 119, 140" ) oPrng:SAY(00,00," ") oPrng:END(1) // oImpr:=FCREATE("LPT1.PRN") // Imp(oImpr,CHR(27)+"v2") // FCLOSE(oImpr) // Para as outras: CHR(27)+"p" ENDIF RETURN nil cTextoAbreGaveta := "" nModeloComandoLocal := 1 IF "MP" $ UPPER(PrnGetName()) // Bematech cTextoAbreGaveta := CHR(29) +CHR(249) +CHR(32) +CHR(0) +CHR(27) +CHR(116) +CHR(8) +CHR(27) +CHR(118) +CHR(140) ENDIF * IF "DARUMA" $ UPPER(PrnGetName()) cTextoAbreGaveta := CHR(27) +CHR(112) ENDIF * IF "EPSON" $ UPPER(PrnGetName()) cTextoAbreGaveta := chr(027)+chr(112)+chr(000)+chr(010)+chr(100) nModeloComandoLocal := 2 ENDIF * *cCaminhoTXT := CurDrive()+":\"+CurDir()+"\GAVETA.TXT" cCaminhoTXT := "C:\SISTEMA\GAVETA.TXT" MemoWrit(cCaminhoTXT,cTextoAbreGaveta) cDestinoComando := "" if left(cImpressoraPadraoAbertura,2) == "\\" cDestinoComando := '"'+cImpressoraPadraoAbertura+'"' else do case case nModeloComandoLocal == 1 cDestinoComando := PrnGetPort() case nModeloComandoLocal == 2 cDestinoComando := '"'+"\\127.0.0.1\"+alltrim(PrnGetName())+'"' endcase endif * cComandoGaveta := 'CMD.EXE /C COPY '+cCaminhoTXT+' '+cDestinoComando WaitRun(cComandoGaveta,0) * // **PS: A EPSON PRECISA ESTA COMPARTILHADA Quote Link to comment Share on other sites More sharing options...
frkiko Posted December 18, 2018 Report Share Posted December 18, 2018 Colegas será que alguém pode me dar uma luz para abrir um gaveta de dinheiro da marca bematech, impressora mp4200, tentei com a sequencia abaixo mais não vai. chr(27)+chr(117)+chr(140) obg Tentou Chr(27)+Chr(118)+Chr(140) Está utilizando a Dll Mp2032 ? Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted December 18, 2018 Author Report Share Posted December 18, 2018 Tentou Chr(27)+Chr(118)+Chr(140) Está utilizando a Dll Mp2032 ? Colega estou usando sim, veja como estou fazendo a chamada, consegue enxergar algo de errado no codigo abaixo. function gaveta() abremp4000() bm_iniciaporta('COM7') bm_configuramodeloimpressora(7) syswait(0.01) Bm_BematechTX( chr( 27 ) + chr( 118 ) + chr( 140 ) ) bm_fechaporta() closemp4000() return Rochinha e Kapiaba obg pelo retorno vou testar os comandos de vcs no cliente para ver se dar certo, e retorno aqui para dizer se deu certo. Quote Link to comment Share on other sites More sharing options...
frkiko Posted December 19, 2018 Report Share Posted December 19, 2018 Colega estou usando sim, veja como estou fazendo a chamada, consegue enxergar algo de errado no codigo abaixo. function gaveta() abremp4000() bm_iniciaporta('COM7') bm_configuramodeloimpressora(7) syswait(0.01) Bm_BematechTX( chr( 27 ) + chr( 118 ) + chr( 140 ) ) bm_fechaporta() closemp4000() return Rochinha e Kapiaba obg pelo retorno vou testar os comandos de vcs no cliente para ver se dar certo, e retorno aqui para dizer se deu certo. Eu faço assim: cComando:=chr(27)+chr(118)+chr(140) Ret:=Bematech_ComandoTX(cComando,Len(cComando)) No Help da DLL Esta função é utilizada no envio de comandos para a impressora, como por exemplo: comandos de Autenticação, comando para Acionamento de Gaveta, comandos para Habilitar Tabelas de Caracteres, etc . Parâmetros: Comando: STRING com o comando que deseja executar. Tamanho do Comando: INTEIRO com o tamanho do comando que será enviado. Exemplo: ' Exemplo em Visual Basic ' Comando para Acionar a Gaveta de Dinheiro sComando = chr( 27 ) + chr( 118 ) + chr( 140 ) iRetorno = ComandoTX( sComando, Len( sComando ) Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted December 21, 2018 Author Report Share Posted December 21, 2018 Eu faço assim: cComando:=chr(27)+chr(118)+chr(140) Ret:=Bematech_ComandoTX(cComando,Len(cComando)) No Help da DLL Esta função é utilizada no envio de comandos para a impressora, como por exemplo: comandos de Autenticação, comando para Acionamento de Gaveta, comandos para Habilitar Tabelas de Caracteres, etc . Parâmetros: Comando: STRING com o comando que deseja executar. Tamanho do Comando: INTEIRO com o tamanho do comando que será enviado. Exemplo: ' Exemplo em Visual Basic ' Comando para Acionar a Gaveta de Dinheiro sComando = chr( 27 ) + chr( 118 ) + chr( 140 ) iRetorno = ComandoTX( sComando, Len( sComando ) Colega usando a forma que postei e usando a sua forma da este erro aqui https://ibb.co/rMStWRH tem algum ideia do que pode ser obg Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 21, 2018 Report Share Posted December 21, 2018 Não seria: DLL32 Function BComandoTX(Comando AS STRING, nTam AS _INT) AS _INT PASCAL; FROM "ComandoTX" LIB XDLL Quote Link to comment Share on other sites More sharing options...
frkiko Posted December 27, 2018 Report Share Posted December 27, 2018 Colega usando a forma que postei e usando a sua forma da este erro aqui https://ibb.co/rMStWRH tem algum ideia do que pode ser obg Boa tarde Luiz. Essa dll vem junto com a mp2032. Você não tem ela? Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted December 27, 2018 Author Report Share Posted December 27, 2018 Boa tarde Luiz. Essa dll vem junto com a mp2032. Você não tem ela? Ola, colega esta DLL e a sintaxe que estou usando foi um colega que me passou, nas compra das impressoras mp4200 não vem nada, nem cd de instalação. Obs: estes terminais antes tinha impressora fiscal, usava a dll BEMAFI32.DLL, e funcionava normal, agora colocou SAT e foi trocado para impressoras não fiscais. Obg Quote Link to comment Share on other sites More sharing options...
msdn Posted December 30, 2018 Report Share Posted December 30, 2018 Eu faço assim no meu sistema : STATIC FUNCTION Abrir_Gaveta_Dinheiro() s_comando = fcreate( "COM5",0 ) fwrite( s_comando, Chr(27)+Chr(112)+Chr(0)+Chr(25)+Chr(250) ) fclose( s_comando ) RETURN( Nil ) Quote Link to comment Share on other sites More sharing options...
frkiko Posted January 3, 2019 Report Share Posted January 3, 2019 Bom dia Luiz, Resolveu? 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.