JRICARTE

strWorkDir ="C:\APLIC\GERANFE" -> Local onde esta a aplicação strAppPath = "C:\APLIC\GERANFE\GERANFE.EXE" -> Aplicaçâo strIconPath = "%SystemRoot%\system32\SHELL32.dll,5" Set objShell = CreateObject("WScript.Shell") objDesktop = objShell.SpecialFolders("Desktop") Set objLink = objShell.CreateShortcut(objDesktop & "\GERANFE.lnk") -> Nome do atalho objLink.Description = "NOTA FISCAL ELETRÔNICA" -> Descrição objLink.HotKey = "CTRL+SHIFT+X" -> Teclas para atalho objLink.IconLocation = "C:\APLIC\GERANFE\GERANFE.ICO" -> Caminho onde esta o ícone objLink.TargetPath = strAppPath objLink.WindowStyle = 3 objLink.WorkingDirectory = strWorkDir objLink.Save WScript.Quit OBS: Ao entrar na aplicação, eu verifico se já existe na área de trabalho o atalho, caso não existe, eu executo esse script, ou seja RUN CRIAATALHO.VBS. Coloco ele dentro da pasta da aplicação.

EU UTILIZO UM SCRIPT VBS , PARA CRIAR O ATALHO COM O ICONE. SEGUE ABAIXO: strWorkDir ="C:\APLIC\GERANFE" strAppPath = "C:\APLIC\GERANFE\GERANFE.EXE" strIconPath = "%SystemRoot%\system32\SHELL32.dll,5" Set objShell = CreateObject("WScript.Shell") objDesktop = objShell.SpecialFolders("Desktop") Set objLink = objShell.CreateShortcut(objDesktop & "\GERANFE.lnk") objLink.Description = "NOTA FISCAL ELETRÔNICA" objLink.HotKey = "CTRL+SHIFT+X" objLink.IconLocation = "C:\APLIC\GERANFE\GERANFE.ICO" objLink.TargetPath = strAppPath objLink.WindowStyle = 3 objLink.WorkingDirectory = strWorkDir objLink.Save WScript.Quit

ELE INSTALA OUTRO EMISSOR, SEM AFETAR A VERSÃO ANTEIOR.

So tera acesso a esse forum, quem atualizar a classe ou quem tem a classe anterior ja pode ter acesso?

Gilmer, gostaria de saber se o forum só será liberado, após a contratação da atualização?

OLA, EU UTILIZO ASSIM: BUFFER="ECF.LeituraMemoriaFiscal("+DToC(MDTINI)+","+DToC(MDTFIM)+")" buffer:= buffer + Chr(13) + Chr(10) iarquivo:= fcreate("C:\ACBRMonitor\ENT.TMP") fwrite(iarquivo, @buffer, Len(buffer)) fclose(iarquivo) Frename("C:\ACBRMonitor\ENT.TMP","C:\ACBRMonitor\ENT.TXT")

O ERRO É ESSE: java.lang.NoSuchFieldError: DATE_IMPORTACAO_FORMAT at br.gov.sp.fazenda.dsen.model.business.importacao.ImportacaoNotaFiscalBusiness$NotaFiscalConverter.b(ImportacaoNotaFiscalBusiness.java:1201) at br.gov.sp.fazenda.dsen.model.business.importacao.ImportacaoNotaFiscalBusiness$NotaFiscalConverter.(ImportacaoNotaFiscalBusiness.java:1163) at br.gov.sp.fazenda.dsen.model.business.importacao.ImportacaoNotaFiscalBusiness.a(ImportacaoNotaFiscalBusiness.java:350) at br.gov.sp.fazenda.dsen.model.business.importacao.ImportacaoNotaFiscalBusiness.a(ImportacaoNotaFiscalBusiness.java:198) at br.gov.sp.fazenda.dsen.model.business.importacao.ImportacaoNotaFiscalBusiness.importar(ImportacaoNotaFiscalBusiness.java:125) at br.gov.sp.fazenda.dsen.model.business.importacao.ImportacaoBusiness.importarNotaFiscalComVinculados(ImportacaoBusiness.java:94) at br.gov.sp.fazenda.dsen.model.business.importacao.ImportacaoBusiness$$EnhancerByCGLIB$$497814cc.CGLIB$importarNotaFiscalComVinculados$5() at br.gov.sp.fazenda.dsen.model.business.importacao.ImportacaoBusiness$$EnhancerByCGLIB$$497814cc$$FastClassByCGLIB$$eac9c690.invoke() at net.sf.cglib.proxy.MethodProxy.invokeSuper(MethodProxy.java:167) at br.gov.sp.fazenda.dsge.model.dao.util.DSGEDAOInterceptorHelper.intercept(DSGEDAOInterceptorHelper.java:55) at br.gov.sp.fazenda.dsen.model.business.importacao.ImportacaoBusiness$$EnhancerByCGLIB$$497814cc.importarNotaFiscalComVinculados() at br.gov.sp.fazenda.dsen.model.business.importacao.ImportacaoBusiness.importarArquivo(ImportacaoBusiness.java:62) at br.gov.sp.fazenda.dsen.model.business.importacao.ImportacaoBusiness$$EnhancerByCGLIB$$497814cc.CGLIB$importarArquivo$0() at br.gov.sp.fazenda.dsen.model.business.importacao.ImportacaoBusiness$$EnhancerByCGLIB$$497814cc$$FastClassByCGLIB$$eac9c690.invoke() at net.sf.cglib.proxy.MethodProxy.invokeSuper(MethodProxy.java:167) at br.gov.sp.fazenda.dsge.model.dao.util.DSGEDAOInterceptorHelper.intercept(DSGEDAOInterceptorHelper.java:66) at br.gov.sp.fazenda.dsen.model.business.importacao.ImportacaoBusiness$$EnhancerByCGLIB$$497814cc.importarArquivo() at br.gov.sp.fazenda.dsen.model.facade.SistemaFacade.importarArquivo(SistemaFacade.java:184) at br.gov.sp.fazenda.dsen.controller.InformacaoImportacaoController$1.a(InformacaoImportacaoController.java:74) at br.gov.sp.fazenda.dsen.controller.InformacaoImportacaoController$1.doInBackground(InformacaoImportacaoController.java:66) at javax.swing.SwingWorker$1.call(Unknown Source) at java.util.concurrent.FutureTask$Sync.innerRun(Unknown Source) at java.util.concurrent.FutureTask.run(Unknown Source) at javax.swing.SwingWorker.run(Unknown Source) at java.util.concurrent.ThreadPoolExecutor$Worker.runTask(Unknown Source) at java.util.concurrent.ThreadPoolExecutor$Worker.run(Unknown Source) at java.lang.Thread.run(Unknown Source)

Na hora de importar os dados da nfe do arquivo texto, aparece essa mensagem "erro inesperado". Alguem ja passou por isso? tem alguma ideia de como resolver esse programa? desde ja agradeço a ajuda.

Na hora de importar os dados da nfe do arquivo texto, aparece essa mensagem "erro inesperado". Alguem ja passou por isso? tem alguma ideia de como resolver esse programa? desde ja agradeço a ajuda.

Gostaria que se fosse possível, me enviasse tbm. Desde ja agradeço. email: jucelio.ricarte@bol.com.br

Ola, eu tenho em DBF, estou tentando colocar em Dicas...

Ola, segue um exemplo de como utilizo. function ZIPFILE() LOCAL odlg,obsair,obconfirma cNarq:="ARQDES.ZIP" // Arquivo destino aTmpArray:={"ARQ1.DBF","ARQ2.DBF","ARQ3.DBF"} // Arquivos a serem compactados DEFINE DIALOG odlg FROM 01,01 TO 07, 40 TITLE "Transferindo dados (Internet)" @ 01.5,01 BUTTON obconfirma PROMPT "&Confirma" OF odlg SIZE 50, 12 ACTION ; (obconfirma:disable(),obsair:disable(),HB_ZIPFILE("C:\APLIC\"+cnarq,atmparray,,{|CFILE| ; strumsg( "Compactando... ",odlg) }),obsair:enable()) @ 01.5,15 BUTTON obsair PROMPT "&Sair" OF odlg SIZE 50, 12 ACTION (odlg:End()) ACTIVATE DIALOG odlg centered RETURN nil

Vc TEM QUE ENTRAR DE REGEDIT E MODIFICAR HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\WOW LPT_timeout, PARA 1.

Eu carrego os dados antes para os pockets, como cadastro de produtos. Alimento os pedidos e depois envio para o servidor, na rede tenho uma maquina verificando se chegou pedido. Ao chegar trato os dados. Para copiar do servidor para o pocket: LOCAL MDIR:="\\SERVIDOR-LINUX\SISTEMAS" COPY FILE (MDIR+"\PRODUTOS.DBF") TO (CURDIR()+"\PRODUTOS.DBF") Para enviar o arquivo para o servidor: COPY FILE (CURDIR()+"\COMANDA.DBF") TO (MDIR+"\COMANDA.DBF") Um abraço, Jucelio

Eu fiz um programa para colher o pedido dos clientes e depois envio para servidor através da rede wireless. Eu utilizo o HP 1950 com wifi. Funciona Bem.

Os comandos que vc utilizava na matricial, tb funciona na termica. Eu utilizo com bemafi.exe, e funciona normal...

Eu utilizo dessa forma, e funciona normal: CHR(27)+CHR(251)+"32|d|00000000000100|"+CHR(27)

Alguem teria uma rotina de boleto bancario para Caixa, Carteira SR? Desde ja agradeço a ajuda...

Alguem teria uma rotina de boleto bancario para Caixa, Carteira SR? Desde ja agradeço a ajuda...

up

Baixei em dicas, um exemplo para emissão de boleto, no caso para Caixa, só que ao verificar o dígito do nosso número, esta retornando o digito errado. Enviei o nosso número 8005593519, e me retornou 1, em vez de 0. Alguem teria uma funcão que calculasse o digito corretamente? Desde ja , agradeço a ajuda...

Baixei em dicas, um exemplo para emissão de boleto, no caso para Caixa, só que ao verificar o dígito do nosso número, esta retornando o digito errado. Enviei o nosso número 8005593519, e me retornou 1, em vez de 0. Alguem teria uma funcão que calculasse o digito corretamente? Desde ja , agradeço a ajuda...

Eu fiz um teste aqui com sua função, e ela compilou normal, e executou normal, só q para compilar sem erro eu retirei o [r]...

Tente modificar a linha em vermelho, para: LOCAL CVALOR:=OCTRL:VarGet()

No exemplo da calculadora, postado em dicas, tem uma referência ao uso dessa função: if lRet IF OCTRL:CLASSNAME()="TGET" // JRICARTE TIPVAR:=OCTRL:VarGet() IF VALTYPE(TIPVAR)="N" oCtrl:VarPut( nMemo ) ELSEIF ValType(TIPVAR)="C" oCtrl:VarPut( str(nMemo,10,2) ) ENDIF oCtrl:Refresh() ENDIF end Return( .T. )