jbinfo

Bom dia Pessoal, Estou tentando usar a Bematech 2100th 64 bits.....ja tentei de tudo e não aciona....posso usar a BEMAFI32.DLL ou tenho que trocar mesmo...qdo uso da erro de comunicação da porta USB. xdll:=LoadLib32("Bemafi64.dll") ret:=dllcall(Xdll,32,"Bematech_DI_LeituraX") Obrigado Leandro Bassiquette JB Informatica

Boa noite Pessoal, Veja como estou usando...funciona beleza e rapido, uso a configuração pelo Zebra Design do tamanho da etiqueta, depois o codigo: ferase('PPLB.txt') xval1= [R$ ]+transform(val,[@E 99,999.99]) xbarra='9'+alltrim(cod.barra)+'0' // LIMPA O BUFFER DA IMPRESSORA etiq_txt= [N]+chr(13)+chr(10) etiq_txt= etiq_txt +[Q800,100]+chr(13)+chr(10) // DETERMINA A TEMPERATURA DA CABEÇA DE IMPRESSÃO / ACIMA DE 15 DANIFICA etiq_txt= etiq_txt +[D7]+chr(13)+chr(10) etiq_txt= etiq_txt +[A330,45,2,3,1,2,N,"]+xval1+["]+enter etiq_txt= etiq_txt +[b340,110,2,E30,2,2,38,B,"]+xbarra+["]+enter etiq_txt= etiq_txt +[A370,130,2,2,1,1,N,"]+alltrim(tam)+["]+enter etiq_txt= etiq_txt +[A370,150,2,2,1,1,N,"]+subs(des,1,30)+["]+enter etiq_txt= etiq_txt +[A340,200,2,2,1,1,N,"]+alltrim(tam)+["]+enter etiq_txt= etiq_txt +[A340,230,2,2,1,1,N,"]+alltrim(pro)+["]+enter etiq_txt= etiq_txt +[b340,300,2,E30,2,2,45,B,"]+xbarra+["]+enter if len(alltrim(des))>30 etiq_txt= etiq_txt +[A370,320,2,2,1,1,N,"]+subs(des,1,30)+["]+enter etiq_txt= etiq_txt +[A370,340,2,2,1,1,N,"]+subs(des,31,20)+["]+enter else etiq_txt= etiq_txt +[A370,330,2,2,1,1,N,"]+alltrim(des)+["]+enter endif etiq_txt= etiq_txt +[A360,370,2,3,1,1,N,"]+"__________________________"+["]+enter etiq_txt= etiq_txt +[A380,385,2,2,1,1,N,"]+emens+["]+enter etiq_txt= etiq_txt +[A360,416,2,3,1,1,N,"]+"__________________________"+["]+enter etiq_txt= etiq_txt +[A380,486,2,2,2,3,N,"]+xloja+["]+enter etiq_txt= etiq_txt +[P1] + chr(10) if file(dire_rede+'JBUSB.JBI') // se impressora usb memowrit("PPLB.txt", etiq_txt) xprn:=PrintFileRaw( locnf , "PPLB.txt" , "JB Etiquetas" ) else if file(dire_rede+"JBCOM") nH := FOpen("COM1",2) else nH := FOpen("LPT1",2) endif Fwrite(nH,etiq_txt) Fclose(nH) endif Valeu e qq duvida estou a disposição, Leandro Bassiquette JB Informatica

Boa noite Yuri, Tambem estou tendo este problema em alguns clientes, algumas rotinas qdo acessado por mais de 1 usuario fica muito lenta....veja se consegue algum teste funcionar e retorne por favor... Abraços Leandro Bassiquette JB Informatica

Amigos, Estou com um problema de desconto na venda na Epson, estou usando a rotina de DESCONTO_ACRESCIMO_SUBTOTAL, que mando o valor, casa decimal, TRUE, FALSE, mas não faz nada...não sei o que esta errado...alguem usa esta rotina? Obrigado Leandro JB Informática [ xHarbour1.10 || FWh10.1 ]

Amigos, Estou com um problema de desconto na venda na Epson, estou usando a rotina de DESCONTO_ACRESCIMO_SUBTOTAL, que mando o valor, casa decimal, TRUE, FALSE, mas não faz nada...não sei o que esta errado...alguem usa esta rotina? Obrigado Leandro JB Informática [ xHarbour1.10 || FWh10.1 ]

Este comando funciona beleza....obrigado....pode usar pessoal JB Informática [ xHarbour1.10 || FWh10.1 ]

Alguem sabe como imprimir o codigo 2D na impressora Zebra? Obrigado Leandro JB Informática [ xHarbour1.10 || FWh10.1 ]

Alguem sabe como imprimir o codigo 2D na impressora Zebra? Obrigado Leandro JB Informática [ xHarbour1.10 || FWh10.1 ]

citação:Olá. O código abaixo é para ler a digital com o leitor biométrico Hamster da Nitgem. Basta instalar o Driver e o SDK, que vem no CD de instalação do Leitor. Na minha opinião, é o melhor leitor que testei até o momento. Adapte o código para sua real necessidade. FUNCTION TestSDK() local aFiles := Array( ADir( CurDrive()+":\"+GetCurDir()+"\DIGITAL\D*.TXT" ) ) local ADir := ADir( CurDrive()+":\"+GetCurDir()+"\DIGITAL\D*.TXT", aFiles ) IF cFReader != "Fingkey Hamster - Nitgen" MsgAlert("Configure a biometria no menu 'Configurações' -> 'Gerais'","Erro de configuração") RETURN " " ENDIF TRY objNBioBSP := CreateObject('NBioBSPCOM.NBioBSP') objDevice := objNBioBSP:Device objExtraction := objNBioBSP:Extraction objMatching := objNBioBSP:Matching objExtraction:WindowStyle := 0; objDevice:Open(255) objExtraction:DefaultTimeout := SECS("02:00:00") * 1000 // Duas horas converticas para milliseconds objExtraction:Capture() cTempl := objExtraction:TextEncodeFIR() cDedo := "" IF LEN(aFiles) > 0 FOR nDedo := 1 TO LEN(aFiles) cTxtFile := CurDrive()+":\"+GetCurDir()+"\DIGITAL\"+aFiles[nDedo] objMatching:VerifyMatch(cTempl, MEMOREAD(cTxtFile)) if objMatching:ErrorCode <> 0 *msginfo("error") else if objMatching:MatchingResult = 1 cDedo := aFiles[nDedo] EXIT endif endif NEXT ENDIF cCodigo := "0" IF ! EMPTY(cTempl) SELECT 3 // Pessoal PESSOAL->(DBSETORDER(1)) nRec := SUBSTR(cDedo,5,4) cCodigo := "0" IF ! PESSOAL->(DBSEEK(VAL(nRec))) PESSOAL->(DBGOTOP()) ELSE cCodigo := ALLTRIM(STR(PESSOAL->CODIGO)) ENDIF ELSE cCodigo := " " ENDIF objDevice:Close(255) CATCH MsgAlert( "ERRO! O leitor biométrico não está instalado em seu computador.", "Aviso") cCodigo := " " END RETURN( cCodigo ) id=code>id=code> Conheça o Pacote Fivewin em http://www.arsoft-ap.com.br - "Leia a Bíblia diariamente" id=quote>id=quote>MUITO OBRIGADO DR....vou testar e qq coisa grito...rsrs Sabe onde comprar este leitor mais em conta? Valeu Leandro - JB Informatica JB Informática [ xHarbour1.10 || FWh10.1 ]

E ai pessoal....alguem esta trabalhando com leitor biometrico?...me pediram esta semana e lembro que em algum dos encontros falamos disso....mas não achei nada no site...alguem pode ajudar...que marcar comprar.....se ja temos um programa no fivewin... Valeu Leandro - JB JB Informática [ xHarbour1.10 || FWh10.1 ]

E ai pessoal....alguem esta trabalhando com leitor biometrico?...me pediram esta semana e lembro que em algum dos encontros falamos disso....mas não achei nada no site...alguem pode ajudar...que marcar comprar.....se ja temos um programa no fivewin... Valeu Leandro - JB JB Informática [ xHarbour1.10 || FWh10.1 ]

Temos 3 inscrições da JBInformática mas não estamos na lista????? JB Informática [ xHarbour1.10 || FWh10.1 ]

Tb temos sistemas de Imobiliarias e fazemos o DIMOB...veja o que precisa amigo.... Abraços Leandro Bassiquette JB Informatica JB Informática [ xHarbour1.10 || FWh10.1 ]

Amigos....alguem usa esta impressora Brother de etiquetas...qual a linguagem dele...ppla ou pplb... Obrigado Leandro Bassiquette JB Informatica JB Informática [ xHarbour1.10 || FWh10.1 ]

Amigos....alguem usa esta impressora Brother de etiquetas...qual a linguagem dele...ppla ou pplb... Obrigado Leandro Bassiquette JB Informatica JB Informática [ xHarbour1.10 || FWh10.1 ]

Vou testar...achei umas dicas.... Obrigado amigo.... JB Informática [ xHarbour1.10 || FWh10.1 ]

Amigos...alguem sabe o que muda na bematech 2100 termica qdo for usada USB, so muda no BEMAFI32.INI?...o que coloco...USB em vez de COM1? Obrigado Leandro - JB JB Informática [ xHarbour1.10 || FWh10.1 ]

Amigos...alguem sabe o que muda na bematech 2100 termica qdo for usada USB, so muda no BEMAFI32.INI?...o que coloco...USB em vez de COM1? Obrigado Leandro - JB JB Informática [ xHarbour1.10 || FWh10.1 ]

Alguem ja fex o Sped Fiscal para NFe?....vi alguma coisa sobre uma dll paga...é esse o caminho mesmo? Obrigado Leandro JB Informatica JB Informática [ xHarbour1.10 || FWh10.1 ]

Segue o que uso hj amigo: ************************************** FUNCTION ZEBRA local oDlg, oBnt1, oBnt2 private enter enter:=chr(13)+chr(10) ******** 2 Etiquetas por impressao xloja="NOME LOJA" xdias='30' emens="Troca ate "+alltrim(xdias)+" dias c/etiqueta" ******** Primeira Etiqueta xbarra='789123456789' xval=100,00 xval1= [R$ ]+str(xval,9,2) xtam='P Preto' xdes='Descricao do Produto' xpro='JB-Teste' // LIMPA O BUFFER DA IMPRESSORA etiq_txt= [N]+chr(13)+chr(10) // TAMANHO DA ETIQUETA etiq_txt= etiq_txt +[Q800,100]+chr(13)+chr(10) // DETERMINA A TEMPERATURA DA CABEÇA DE IMPRESSÃO / ACIMA DE 15 DANIFICA etiq_txt= etiq_txt +[D7]+chr(13)+chr(10) //LINHA IMPRESSA etiq_txt= etiq_txt +[A330,45,2,3,1,2,N,"]+xval1+["]+enter //CODIGO DE BARRAS etiq_txt= etiq_txt +[b340,110,2,E30,2,2,38,B,"]+xbarra+["]+enter etiq_txt= etiq_txt +[A370,130,2,2,1,1,N,"]+alltrim(xtam)+["]+enter etiq_txt= etiq_txt +[A370,150,2,2,1,1,N,"]+subs(xdes,1,30)+["]+enter etiq_txt= etiq_txt +[A340,200,2,2,1,1,N,"]+alltrim(xtam)+["]+enter etiq_txt= etiq_txt +[A340,230,2,2,1,1,N,"]+alltrim(xpro)+["]+enter etiq_txt= etiq_txt +[b340,300,2,E30,2,2,45,B,"]+xbarra+["]+enter if len(alltrim(des))>30 etiq_txt= etiq_txt +[A370,320,2,2,1,1,N,"]+subs(xdes,1,30)+["]+enter etiq_txt= etiq_txt +[A370,340,2,2,1,1,N,"]+subs(xdes,31,20)+["]+enter else etiq_txt= etiq_txt +[A370,330,2,2,1,1,N,"]+alltrim(xdes)+["]+enter endif etiq_txt= etiq_txt +[A360,370,2,3,1,1,N,"]+"__________________________"+["]+enter etiq_txt= etiq_txt +[A380,385,2,2,1,1,N,"]+emens+["]+enter etiq_txt= etiq_txt +[A360,416,2,3,1,1,N,"]+"__________________________"+["]+enter //NOME DA LOJA EM TAMANHO MAIOR etiq_txt= etiq_txt +[A380,486,2,2,2,3,N,"]+xloja+["]+enter ******** Segunda Etiqueta xbarra2='789123456789' xval=200,00 xval2= [R$ ]+str(xval,9,2) xtam2='P Branco' xdes2='Descricao do Produto' xpro2='JB-Teste2' etiq_txt= etiq_txt +[A720,45,2,3,1,2,N,"]+xval2+["]+enter etiq_txt= etiq_txt +[b720,110,2,E30,2,2,38,B,"]+xbarra2+["]+enter etiq_txt= etiq_txt +[A770,130,2,2,1,1,N,"]+alltrim(xtam2)+["]+enter etiq_txt= etiq_txt +[A770,150,2,2,1,1,N,"]+subs(xdes2,1,30)+["]+enter etiq_txt= etiq_txt +[A720,200,2,2,1,1,N,"]+alltrim(xtam2)+["]+enter etiq_txt= etiq_txt +[A720,230,2,2,1,1,N,"]+xpro2+["]+enter etiq_txt= etiq_txt +[b720,300,2,E30,2,2,45,B,"]+xbarra2+["]+enter if len(alltrim(des))>30 etiq_txt= etiq_txt +[A770,320,2,2,1,1,N,"]+subs(xdes2,1,30)+["]+enter etiq_txt= etiq_txt +[A770,340,2,2,1,1,N,"]+subs(xdes2,31,20)+["]+enter else etiq_txt= etiq_txt +[A770,330,2,2,1,1,N,"]+alltrim(xdes2)+["]+enter endif etiq_txt= etiq_txt +[A780,370,2,3,1,1,N,"]+"__________________________"+["]+enter etiq_txt= etiq_txt +[A780,385,2,2,1,1,N,"]+emens+["]+enter etiq_txt= etiq_txt +[A780,416,2,3,1,1,N,"]+"__________________________"+["]+enter etiq_txt= etiq_txt +[A780,486,2,2,2,3,N,"]+xloja+["]+enter ******** // IMPRIME A QUANTIDADE DE ETIQUETAS etiq_txt= etiq_txt +[P1] + chr(10) // DIRECIONA A PORTA DE IMPRESSAO nH := FOpen("LPT1",2) Fwrite(nH,etiq_txt) Fclose(nH) // COMANDO PARA ESPERAR A IMPRESSAO syswait() sysrefresh() return Qualquer duvida estamos a disposição ok....boa sorte... Outra coisa é como configurar o tamanho da etiqueta, vc precisa desligar a impressora, segurar o botão de FEED e qdo ligar, na primeira piscada em vermelho solte o botão, ela automaticamente vai configurar o tamanho da etiqueta, depois no termino da impressão da configuração, aperte o FEED e esta pronta para imprimir...ok Valeu Leandro JB Informatica JB Informática [ xHarbour1.10 || FWh10.1 ]

Faltou o Abrir_dia no cupom e o abrir_portaEX...passado pelo Robson....valeu Dr... JB Informática [ xHarbour1.10 || FWh10.1 ]

Acho que funcionou, com o comando de tirar e colocar o feed automatico, JB e JF....valeu JB Informática [ xHarbour1.10 || FWh10.1 ]

Vejam como estou fazendo....o que falta? xdll:=LoadLibrary( "InterfaceEpson.dll" ) ret:=dllcall(xdll,32,"Epson_Serial_Abrir_Porta",9600,1) ret:=dllcall(xdll,32,"Epson_RelatorioFiscal_LeituraX") FreeLib32( xDll ) SysRefresh() xDll := NIL Obrigado JB Informática [ xHarbour1.10 || FWh10.1 ]

Ninguem usa essa porcaria...rsrs....so preciso saber onde encontro as configurações, .INI.... JB Informática [ xHarbour1.10 || FWh10.1 ]

como vc colocou o espaço entre elas, realmente so qdo é pequena isso ocorre....tirou o GAP?...colocou o comando QXXX,YY com yy=0? Valeu leandrp JB Informática [ xHarbour1.10 || FWh10.1 ]