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:

Eu uso o WGET pra fazer download:

mCOMANDO:= "wget http://site.com/arquivo.zip -b -q"

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