SISTEMASIT

Um QRCODE pode ter varias finalidades: ULR, VCARD, TEXT, E-MAIL, SMS, WIFI, BITCOIN, TWITTER, FACEBOOK, PDF, MP3, APP STORES, IMAGES. Cada uma tem um comportamento diferente quando é lido pelo aplicativo

Alguem sabe como criar um QRCODE do tipo URL usando a QRCodelib.Dll. Eu só to conseguindo gerar do tipo TEXT

A função TIPClientHTTP ta travando o Sistema, o que pode ser? temp.bmp

#include "barcode.ch" printer oprn DOC "COD BARRAS" oprn:startpage() @ L,C int25 "12345678" of oprn oprn:endpage()

Sendo mais suscinto: function FECHAR ComandosBAT := "@ECHO OFF"+CRLF+; 'echo set WshShell = WScript.CreateObject("WScript.Shell") > %tmp%\tmp.vbs'+CRLF+; 'echo WScript.Quit (WshShell.Popup( "Aguarde enquanto o sistema encerra a seção anterior" ,'+alltrim(str(mTEMPOESPERA,10))+' ,"DOWNLOAD", 48)) >> %tmp%\tmp.vbs'+CRLF+; "cscript /nologo %tmp%\tmp.vbs"+CRLF+; "if %ERRORLEVEL% EQU 1 (timeout /t "+alltrim(str(mTEMPOESPERA,10))+" >nul)"+CRLF+; "del %tmp%\tmp.vbs"+CRLF+; "start executavel.exe"+CRLF+; "exit" MeuMemoWrite( "atualiza.bat", ComandosBAT ) winexec("atualiza.bat",0) quit return function MeuMemoWrite(xMRARQ,xMRTXT) FC_NORMAL := 0 nOutfileMR := FCREATE(xMRARQ, FC_NORMAL) cBUFFERMR=xMRTXT cLENBUF:=LEN(cBUFFERMR) FWRITE(nOutfileMR, cBUFFERMR, cLENBUF) FCLOSE(nOutfileMR) return

Eu uso o WGET pra fazer download: mCOMANDO:= "wget http://site.com/arquivo.zip -b -q" waitrun( mCOMANDO ,0)

Eu fiz isso há 15 anos atras pra aparecer os horarios das viagens em um terminal de passageiros (Na época em DELPHI), utilizei uma placa PC-TV com saidas RCA para TVs de tubo de imagem. Mas hoje a grande maioria dos PCs vem com saida HDMI. Vc não precisa mais dessas placas

Quanto ao RPV - Se eu usar o RPV pra imprimir uma NFe? nesse caso eu devo proceder a impressão e o cancelamento desse RPV no final do dia já que eu não tenho o COO do ECF? Rubem Jr http://sistemasit.com.br Belem/PA

nSerialHD("C:\") Rubem Jr http://sistemasit.com.br Belem/PA

Deve ser passado o parâmetro como "Caractere" http://www.fivewin.com.br/exibedicas.asp?id=1112 Rubem Jr http://sistemasit.com Belem/PA

Deve ser passado o parâmetro como "Caractere" http://www.fivewin.com.br/exibedicas.asp?id=1112 Rubem Jr http://sistemasit.com Belem/PA

Poxa, é uma pena, em vez de darmos boas vindas a um novo membro, temos que nos despedir e desejar boa sorte Rubem Jr http://sistemasit.com Belem/PA

coloque a mascara assim: "@R 99.9999.99999/9" Rubem Jr http://sistemasit.com Belem/PA

Valeu Judson, era isso mesmo!! Agradeço também Gilmar, troquei o comando pra Bematech_FI_RelatorioGerencial e não tive mais problemas Infelizmente a gente tem que contar mais com a ajuda dos amigos que da própria BEMATECH. Como citou o DANIEL, eles não estão muito interessados na gente, já que são nossos concorrentes. Mais uma vez obrigado a todos Rubem Jr http://sistemasit.com Belem/PA

Bom dia Gilmar, e quanto ao comando: Bematech_FI_NumeroSerieMFD Em cada CPU ele retorna um tamanho diferente para esta função, as vezes 10, as vezes 15, as vezes 20, e como eu disse: isso depende da CPU, impressionante. E a gente nao consegue resposta la na BEMATECH Rubem Jr http://sistemasit.com Belem/PA

Eu consegui a homologação do PAF-ECF com a BEMATECH, mas na minha CPU ele se comporta direitinho, e se comportou corretamente com o homologador, porém com o 1o cliente que eu fui instalar já pegou o NUMERO DE SERIE pela metade, e não imprime o RELATORIO GERENCIAL de jeito nenhum entre outras coisas, onde será que eu consigo essa DLL corrigida? Desde já agradeço a todos Rubem Jr http://sistemasit.com Belem/PA

Em algumas CPUs o comando funciona, em outras não, alguem já passou por isso? NDLLBemafi32:=LoadLibrary("Bemafi32.dll") iRetorno = DLLCALL(NDLLBemafi32,32,"Bematech_FI_AbreRelatorioGerencialMFD","02") iRetorno = DLLCALL(NDLLBemafi32,32,"Bematech_FI_UsaRelatorioGerencialMFD","TESTE") iRetorno = DLLCALL(NDLLBemafi32,32,"Bematech_FI_FechaRelatorioGerencial") Rubem Jr http://sistemasit.com Belem/PA Editado por - sistemasit on 30/03/2012 15:31:32

Em algumas CPUs o comando funciona, em outras não, alguem já passou por isso? NDLLBemafi32:=LoadLibrary("Bemafi32.dll") iRetorno = DLLCALL(NDLLBemafi32,32,"Bematech_FI_AbreRelatorioGerencialMFD","02") iRetorno = DLLCALL(NDLLBemafi32,32,"Bematech_FI_UsaRelatorioGerencialMFD","TESTE") iRetorno = DLLCALL(NDLLBemafi32,32,"Bematech_FI_FechaRelatorioGerencial") Rubem Jr http://sistemasit.com Belem/PA Editado por - sistemasit on 30/03/2012 15:31:32

Se são impressoras do mesmo modelo você não tem que mexer nada no código. certamente é defeito na impressora. Rubem Jr http://sistemasit.com Belem/PA

Faz assim: pega o 1o caractere (7) que ta na variavel nKey da função KeyDownVND e soma som o resultado do seu get externo UPOS_CURSOR (896706014902), o resultado (7896706014902) vc faz a busca na sua tabela. Coloca um VALID pra fechar a DIALOG e assim fica transparente pro usuario Rubem Jr http://sistemasit.com Belem/PA

Eu tive esse problema, resolvi tirando a entrada de dados do LISTBOX e colocando num GET EXTERNO, mais ou menos assim: function main oBrw:bKeyDown = { | nKey | GetExterno(nKey) , nil } static Function GetExterno(xKey) mVARGET:=padr(chr(xKey),20) ... get mVARGET ... Rubem Jr http://sistemasit.com Belem/PA

citação:O software que controla a máquina de tinta automotiva chama-se TINTOMÉTRICO. Obrigado, Oscar Ribeiroid=size4> OASyS Informáticaid=blue>id=size4> Fwh2.6+xHb1.0.0+BCC551+WorkShopid=size1> id=quote>id=quote>É essa mesmo Rubem Jr http://sistemasit.com Belem/PA

Você pode descrever os itens da formula no seu cupom, ou entao fazer uma baixa como uma ordem de producao e destacar somente o produto final no cupom do cliente. Na 2a maneira vc precisa dar entrada no produto produzido e saida nos insumos de producao Rubem Jr http://sistemasit.com Belem/PA

Se for LAZZURIL pode tentar entender o codigo: static function LAZUMIX1P Abre_Arq("SFELINH","SFELINH") if ! dbseek("EMB") Replace(,{{"LICODI" ,"EMB"},; {"LIDESC" ,"EMBALAGEM"}},.T.) end if ! dbseek("TIA") Replace(,{{"LICODI" ,"TIA"},; {"LIDESC" ,if(empty(mDESCRI),"TINTA AUTOMOTIVA",mDESCRI)}},.T.) end if ! dbseek("BAS") Replace(,{{"LICODI" ,"BAS"},; {"LIDESC" ,"BASE"}},.T.) end dbclosearea() Abre_Arq("SFECON2") mDIRLAZU:=alltrim(RD_LAZU) dbclosearea() Abre_Arq("SFECASA","SFECASA") Abre_Arq("SFEINDU","SFEINDU") Abre_Arq("SFEPRCO","SFEPRCO") Abre_Arq("SFEPROD","SFEPROD") xARQ1:=mDIRLAZU+"PRODUTO.TXT" xARQ2:=mDIRLAZU+"BASE.TXT" xARQ3:=mDIRLAZU+"EMBALAGE.TXT" xARQ4:=mDIRLAZU+"FORMULA.TXT" if ! file(xARQ1) Exib_Alert("Sem arquivo de importação LAZZUMIX",xARQ1) return end mOQueTaFazendo:="" MsgProcessamento("Importação Produtos LAZZUMIX") Processamento:SetText("Importando Produtos... Aguarde...") mtemp:= " " arq_temp:= fopen(xarq1, 2) fim:= NOVO := .F. CAMPO:="01" Do While (Asc(mtemp) != 0) mtemp:= " " reg:= "" passou:= 0 Do While (mtemp != Chr(13)) fread(arq_temp, @mtemp, 1) reg:= reg + mtemp If (passou > 2000) fim:= .T. Exit EndIf passou++ EndDo Campo&CAMPO:=REG CAMPO:=strzero(val(CAMPO)+1,2) if val(CAMPO)>12 POSPERS:=at("P",CAMPO01) if POSPERS # 0 CAMPO01:=left(CAMPO01,POSPERS-1)+str(asc("P"),2)+right(CAMPO01,len(CAMPO01)-POSPERS) end if val(CAMPO01)=0 exit end TEMPU:=(alltrim(tiraacento(CAMPO03))="POLIURETANO") for QTDCAD=1 to if(TEMPU,2,1) POSPERS:=at("P",CAMPO01) if POSPERS # 0 CAMPO01:=left(CAMPO01,POSPERS-1)+str(asc("P"),2)+right(CAMPO01,len(CAMPO01)-POSPERS) end if QTDCAD=2 CAMPO01:=alltrim(tiraacento(CAMPO01))+"6" end selectsit("SFEPRCO") if ! dbseek(str(val(CAMPO01),16)) dbappend() end LOCK_REG() replace PRCODI with val(CAMPO01) ,; PRAPLIC with alltrim(tiraacento(CAMPO07))+" "+alltrim(tiraacento(CAMPO04)) ,; PRFRACAO with "S" ,; PRMARCA with "LAZZUMIX" LIB_REG() selectsit("SFEPROD") if ! dbseek(str(val(CAMPO01),16)) dbappend() end LOCK_REG() if mPRECO .or. PRP_COMPRA=0 if padr(alltrim(tiraacento(CAMPO03)),10)="LAZZUDUR " replace PRP_COMPRA with val(CAMPO09) else replace PRP_COMPRA with val(CAMPO08) end end mPRECOVenda:=if(QTDCAD=1,val(CAMPO10),val(CAMPO11)) if padr(alltrim(tiraacento(CAMPO03)),10)="LAZZUDUR " mPRECOVenda:=val(CAMPO11) end mPRNOME:=alltrim(alltrim(mDESCRI)+" "+alltrim(tiraacento(CAMPO02))+" "+alltrim(tiraacento(CAMPO03))+" "+alltrim(tiraacento(CAMPO06))) replace PRLINHA with if(empty(PRLINHA),"TIA",PRLINHA) ,; PRCODI with val(CAMPO01) ,; PRREF with alltrim(tiraacento(CAMPO06)) ,; PRNOME with mPRNOME+" "+if(TEMPU,if(QTDCAD=1,"CONCENTRADO","DILUIDO"),"") ,; PRUNID with "QRT" if mPRECO .or. PRP_VENDA=0 replace PRP_VENDA with mPRECOVenda+(mPRECOVenda*mPERC/100) ,; PRP_VENDAT with mPRECOVenda+(mPRECOVenda*mPERC/100) end LIB_REG() mOQueTaFazendo:=alltrim(mPRNOME) oOQueTaFazendo:Refresh() sysrefresh() CAMPO:="01" selectsit("SFECASA") if ! dbseek(str(val(CAMPO01),16)) dbappend() LOCK_REG() replace CAPROD with val(CAMPO01) ,; CALINHA with "EMB" ,; CAOBRIG with .T. LIB_REG() end next end end FCLOSE(xArq1) Processamento:SetText("Importando Bases... Aguarde...") mtemp:= " " arq_temp:= fopen(xarq2, 2) fim:= NOVO := .F. CAMPO:="01" Do While (Asc(mtemp) != 0) mtemp:= " " reg:= "" passou:= 0 Do While (mtemp != Chr(13)) fread(arq_temp, @mtemp, 1) reg:= reg + mtemp If (passou > 2000) fim:= .T. Exit EndIf passou++ EndDo Campo&CAMPO:=alltrim(REG) CAMPO:=strzero(val(CAMPO)+1,2) if val(CAMPO)>3 POSPERS:=at("P",CAMPO01) if POSPERS # 0 CAMPO01:=left(CAMPO01,POSPERS-1)+str(asc("P"),2)+right(CAMPO01,len(CAMPO01)-POSPERS) end if empty(CAMPO01) exit end mPRCODI:=strzero(asc(subs(CAMPO01,1,1)),2) mPRCODI+=strzero(asc(subs(CAMPO01,2,1)),2) mPRCODI+=subs(CAMPO01,3,2) mPRCODI+=strzero(asc(subs(CAMPO01,5,1)),2) selectsit("SFEPROD") if ! dbseek(str(val(mPRCODI),16)) dbappend() end mPRQTD_ARMA:=if(PRQTD_ARMA=0,850,PRQTD_ARMA) LOCK_REG() mPRNOME:=if(alltrim(tiraacento(CAMPO01))#"THINNER","BASE ","")+alltrim(tiraacento(CAMPO01))+" "+alltrim(CAMPO02) replace PRLINHA with if(empty(PRLINHA),"BAS",PRLINHA) ,; PRCODI with val(mPRCODI) ,; PRREF with left(tiraacento(CAMPO01),5) ,; PRNOME with mPRNOME ,; PRUNID with "GR" ,; PRARMAZEN with "QRT" ,; PRP_VENDA with val(CAMPO03)/mPRQTD_ARMA ,; PRP_VENDAT with val(CAMPO03)/mPRQTD_ARMA ,; PRQTD_ARMA with mPRQTD_ARMA if mPRECO .or. PRP_COMPRA=0 replace PRP_COMPRA with val(CAMPO03)/mPRQTD_ARMA end LIB_REG() selectsit("SFEPRCO") if ! dbseek(str(val(mPRCODI),16)) dbappend() end LOCK_REG() replace PRCODI with val(mPRCODI),; PRFRACAO with "S" ,; PRMARCA with "LAZZUMIX" LIB_REG() mOQueTaFazendo:=alltrim(mPRNOME) oOQueTaFazendo:Refresh() sysrefresh() CAMPO:="01" end end Processamento:SetText("Importando Embalagens... Aguarde...") mtemp:= " " arq_temp:= fopen(xarq3, 2) fim:= NOVO := .F. CAMPO:="01" Do While (Asc(mtemp) != 0) mtemp:= " " reg:= "" passou:= 0 Do While (mtemp != Chr(13)) fread(arq_temp, @mtemp, 1) reg:= reg + mtemp If (passou > 2000) fim:= .T. Exit EndIf passou++ EndDo Campo&CAMPO:=alltrim(REG) CAMPO:=strzero(val(CAMPO)+1,2) if val(CAMPO)>3 POSPERS:=at("P",CAMPO01) if POSPERS # 0 CAMPO01:=left(CAMPO01,POSPERS-1)+str(asc("P"),2)+right(CAMPO01,len(CAMPO01)-POSPERS) end if empty(CAMPO01) exit end mPRCODI:=strzero(val(CAMPO01),10) selectsit("SFEPRCO") if ! dbseek(str(val(mPRCODI),16)) dbappend() end LOCK_REG() replace PRCODI with val(mPRCODI) ,; PRMARCA with "LAZZUMIX" LIB_REG() selectsit("SFEPROD") if ! dbseek(str(val(mPRCODI),16)) dbappend() end LOCK_REG() if mPRECO .or. PRP_COMPRA=0 replace PRP_COMPRA with val(CAMPO03) end mPRNOME:="EMBALAGEM "+alltrim(CAMPO02) replace PRLINHA with if(empty(PRLINHA),"EMB",PRLINHA) ,; PRCODI with val(mPRCODI) ,; PRNOME with mPRNOME ,; PRUNID with "UN" if mPRECO .or. PRP_VENDA=0 replace PRP_VENDA with val(CAMPO03) ,; PRP_VENDAT with val(CAMPO03) end LIB_REG() mOQueTaFazendo:=alltrim(mPRNOME) oOQueTaFazendo:Refresh() sysrefresh() CAMPO:="01" end end Processamento:SetText("Importando Fórmulas... Aguarde...") mtemp:= " " arq_temp:= fopen(xarq4, 2) fim:= NOVO := .F. CAMPO:="01" NAOFOI:=0 Do While (Asc(mtemp) != 0) mtemp:= " " reg:= "" passou:= 0 Do While (mtemp != Chr(13)) fread(arq_temp, @mtemp, 1) reg:= reg + mtemp If (passou > 2000) fim:= .T. Exit EndIf passou++ EndDo Campo&CAMPO:=alltrim(REG) CAMPO:=strzero(val(CAMPO)+1,2) if val(CAMPO)>6 if alltrim(CAMPO03)="660 ml" .or. alltrim(CAMPO03)="1 Quarto" POSPERS:=at("P",CAMPO01) if POSPERS # 0 CAMPO01:=left(CAMPO01,POSPERS-1)+str(asc("P"),2)+right(CAMPO01,len(CAMPO01)-POSPERS) end if empty(CAMPO01) exit end if alltrim(CAMPO03)="660 ml" CAMPO01:=alltrim(tiraacento(CAMPO01))+"6" end mPRCODI:=strzero(asc(subs(CAMPO05,1,1)),2) mPRCODI+=strzero(asc(subs(CAMPO05,2,1)),2) mPRCODI+=subs(CAMPO05,3,2) mPRCODI+=strzero(asc(subs(CAMPO05,5,1)),2) mPRECOUNI:=0 selectsit("SFEPROD") dbseek(str(val(mPRCODI),16)) mPRECOUNI:=PRVALATAC selectsit("SFEINDU") if ! dbseek(str(val(CAMPO01),16)+str(val(mPRCODI),16)) dbappend() end LOCK_REG() replace ITCODI with CAMPO01 ,; ITPROD with val(mPRCODI) ,; ITQTD with val(CAMPO06) ,; ITVALOR with mPRECOUNI LIB_REG() mOQueTaFazendo:=sfeprod->PRNOME oOQueTaFazendo:Refresh() sysrefresh() NAOFOI:=0 else NAOFOI++ end CAMPO:="01" end if NAOFOI>100 exit end end PROCESSAMENTO:end() clos data Exib_mens("Processo concluído com sucesso") fclose(arq_temp) Rubem Jr http://sistemasit.com Belem/PA

Podemos conversar, tenho um banco de dados com 182 mil codigos EAN, Infelizmente estao sem o NCM http://sistemasit.com.br/bancoean.htm'>http://sistemasit.com.br/bancoean.htm Rubem Jr http://sistemasit.com Belem/PA