FRANCISCO908

WriteLn(F,'[iCMS' + FormatFloat('000',Registros) + ']'); if DTModule.QrEmpresaCRT.Text = '1' then //É Simples Nacional begin WriteLn(F,'CSOSN=' + QrItemCod_CST_CSOSN.Text);

Amigo Essa Epson ai é 100%.... 80% dos meus clientes vendi esta impressora super rápida imprime sim NFCe, abre gaveta corta papel em uma super Impressora Uso e Recomendo a Todos.

Amigos remova o caminho do Menu/Tools do library path, depois remova o caminho do menu Component/Install Pakages... informe novamente o caminho no Menu/Tools do library path Veja Abaixo como Instalei: Adicione ao Library Path do Delphi as pastas do SVN Local "C:\ACBR\code\trunk\Fontes" Na IDE do Delphi acione "Tools, Enviroment Options" selecione a guia "Library", clique no botão elíptico (...) de "Library Path", Fontes\ACBRrComun Fontes\ACBRrNFe2 Fontes\PCN2 Fontes\ACBRrCapicom Fontes\synalist Fontes\ACBRrCTE Fontes\ACBRrPAF Fontes\ACBRrBoleto Fontes\ACBRrDiversos Fontes\ACBRrSerial Fontes\ACBRrSintegra Fontes\ACBRrSPED Fontes\ACBRrTCP Fontes\ACBRr\SintegraSultan +......Restantes Pronto Agora Comece a Instalar os Componentes. ...Pacotes\synapse.dpk COMPILE ...Pacotes\ACBrComum.dpk COMPILE ...Pacotes\ACBrDiversos.dpk COMPILE e Instale ...Pacotes\ACBrCapicom.dpk COMPILE ...Pacotes\PCN2.dpk COMPILE ...Pacotes\ACBr_NFe2.dpk COMPILE e Instale ...Pacotes\ACBrSerial.dpk COMPILE e Instale ...Pacotes\ACBrTCP.dpk COMPILE e Instale ...Pacotes\ACBr_Boleto COMPILE e Instale ...Pacotes\ACBr_BoletoFC_Fortes COMPILE e Instale

Amigo vc removeu os antigos endereços da paleta "Component"....Install Pakages

Há Tá... Entendi obrigado - juaumkiko, Juliomar Marchetti

Olá estou olhando mais não entendi como resolver estou com o mesmo problema, já atualizei os fontes aparentemente está tudo perfeito. DT_NFe.ACBRNFE1.Configuracoes.Geral.ModeloDF := moNFe; // moNFe ou moNFCe DT_NFe.ACBRNFE1.Configuracoes.Geral.VersaoDF := ve310; // Versão 3.10 só que a propriedade Ide.dhSaiEnt "Essa opção nao mostra". o que devo fazer?????

procure essa pessoa no Skype, ele terá fará tudo que precisar> Alisson Marques - HOMOLOGACAO

Kara adicione esse contato no seu skyp..: (Alisson Marques) - esse rapaz mandou um orçamento pra mim gostei do método de trabalho dele

Olá André Fiz o procedimento mostrado em seu link mais nao funcionou...

Na linha abaixo, isso só acontece com o "Rave_bex_11_0_7", no Rave 5.1 nao dar esse erro mais só tenho ele na versao demo, ai na versao demo nao dar pra instalar nos clientes. DT_NFe.ACBrNFe1.NotasFiscais.Imprimir;

function TfmCadProduto.AtivarACBrETQ: string; Var eAvanco :string; begin if vImpressoraEtiqueta = 'Argox OS 214-Plus' then begin eAvanco := 300; ACBrETQ.Desativar; with ACBrETQ do begin DPI := TACBrETQDPI(dpi203); //dpi203, dpi300, dpi600 Modelo := TACBrETQModelo(etqPpla); //etqNenhuma, etqPpla, etqPPlb, etqZPLII,etqEpl2 Porta := vCompatilhamento; LimparMemoria := True; Ativar; end; end; end; /////////////////////////////////////// //Modelo de Etiqueta para Gondulas Tam 110x30mm with ACBrETQ do begin if Modelo = etqPpla then begin ImprimirTexto(orNormal, 2, 2, 2, 200, 55, vNomeProduto); ImprimirTexto(orNormal, 2, 2, 1, 170, 55, vComplemento); ImprimirBarras(orNormal, 'F', '2', '2', 32, 55, QrCadastrocodigo_barra.Text, 90, becSIM); ImprimirTexto(orNormal, 3, 3, 2, 15, 350, 'R$'); ImprimirTexto(orNormal, 3, 4, 4, 15, 500, FormatFloat(',0.00', QrCadastrovalor.Value)); end else begin ImprimirTexto(orNormal, 2, 2, 2, 15, 55, vNomeProduto); ImprimirTexto(orNormal, 2, 2, 1, 65, 55, vComplemento); ImprimirBarras(orNormal, 'E30', '2', '2', 95, 55, QrCadastrocodigo_barra.Text, 90, becSIM); ImprimirTexto(orNormal, 3, 3, 2, 110, 355, 'R$'); ImprimirTexto(orNormal, 3, 4, 5, 90, 500, FormatFloat(',0.00', QrCadastrovalor.Value)); end ; Imprimir(1,600); //Imprimir 1 Copia e Avancar 600 Desativar; end; end; /////////////////////////////////////// //Modelo de Etiqueta para Produtos 3 Colunas Tam 33x21mm with ACBrETQ do begin if Modelo = etqPpla then begin ImprimirTexto(orNormal, 2, 1, 2, 150, 35, vNomeProduto); ImprimirTexto(orNormal, 2, 1, 1, 120, 35, vComplemento); ImprimirBarras(orNormal, 'F', '2', '2', 20, 35, QrCadastrocodigo_barra.Text, 70); ImprimirTexto(orNormal, 2, 1, 2, 150, 400, vNomeProduto); ImprimirTexto(orNormal, 2, 1, 1, 120, 400, vComplemento); ImprimirBarras(orNormal, 'F', '2', '2', 20, 400, QrCadastrocodigo_barra.Text, 70); ImprimirTexto(orNormal, 2, 1, 2, 150, 730, vNomeProduto); ImprimirTexto(orNormal, 2, 1, 1, 120, 730, vComplemento); ImprimirBarras(orNormal, 'F', '2', '2', 20, 730, QrCadastrocodigo_barra.Text, 70); end else begin ImprimirTexto(orNormal, 2, 1, 3, 15, 55, vNomeProduto); ImprimirTexto(orNormal, 2, 1, 1, 80, 55, vComplemento); ImprimirBarras(orNormal, 'E30', '2', '2', 120, 55, QrCadastrocodigo_barra.Text, 080, becSIM); ImprimirTexto(orNormal, 2, 1, 3, 15, 365, vNomeProduto); ImprimirTexto(orNormal, 2, 1, 1, 80, 365, vComplemento); ImprimirBarras(orNormal, 'E30', '2', '2', 120, 365, QrCadastrocodigo_barra.Text, 080, becSIM); ImprimirTexto(orNormal, 2, 1, 3, 15, 670, vNomeProduto); ImprimirTexto(orNormal, 2, 1, 1, 80, 670, vComplemento); ImprimirBarras(orNormal, 'E30', '2', '2', 120, 670, QrCadastrocodigo_barra.Text, 080, becSIM); end; Imprimir(1,600); Desativar; end;

ola uso o Delphi7 e Rave_bex_11_0_7 estou usando o AcbrMonitor, quanto tenho timprimir a NFe dar o seguinte Erro. Project ACBrNFe_demo.exe raised exception class EAccessViolation with message 'Access violation at address 00401f7b in module 'ACBrNFe_Demo.exe' Write of address 6F725024". Processo stopped. use Step or Run to continue.

Voce pode compartilhar a Impressora. e na hora de gerar o arquivo para imprimir fassa assim. use o nome do compartilhamento no lugar da porta exemplo..: AssignFile(F,'\\NomeDoSeuPc\ElginVox'); Rewrite(F);

amigo eu tenho clientes que usam essa impressora vc pode usar a impressora generic do Windows ou instalar ela normalmente, meus cupoes feitos em report builder imprimi todos normal sem precisar fazer nada.....

Olá Amigos eu Fiz um Vídeo para Epson... mais a logica é a mesma ja que vcs tem uma impressora USB siga, entao o problema de vcs tá na porta ok... Assistam ao video e dê um retorno aqui se resolveu o problema de vcs. link-https://www.youtube.com/watch?v=cwTCsp7BrLY

Toda Vez que Tento imprimir uma NFe recebo a mensagem abaixo e o sistema aborta. Pelo que vi trata-se de uma versao Demo do Rav Reports, queria saber como consigo uma versao sem este problema. This application contais a demo version of Rav Reports and will only run shile of the development enviroment.

Amigo... Gostaria de Saber se é USB??? Eu Tenho Clientes que usam esta impressora quando é USB faço assim, no sistema criei um botao onde o cliente mesmo clica lá e automaticamente o spooler é parado... excluido as impressoes pendentes... e depois o espooler é iniciado novamente. Veja Abaixo o a Ação do Botao. var SR: TSearchRec; I: integer; begin WinExec('C:\GoodSystem\ImpStop.BAT',sw_Normal); ShowMessage('Aguarde 10 Segundos e Clique em OK.'); I := FindFirst('C:\WINDOWS\system32\spool\PRINTERS\*.*', faAnyFile, SR); while I = 0 do begin if (SR.Attr and faDirectory) <> faDirectory then if not DeleteFile('C:\WINDOWS\system32\spool\PRINTERS\' + SR.Name) then ShowMessage('Não Foi Possível Reconectar Sua Impressora - Repita o Processo Novamente' + SR.Name); I := FindNext(SR); end; ShowMessage('Aguarde 5 Segundo e Clique em OK'); WinExec('C:\GoodSystem\ImpIniciar.BAT',sw_Normal); ----------------------------------------------------------------------------------------------------------------------------------- Lembrando que vc deverá criar 2 arquivos de lotes caso precise dos arquivo posso mandar pra vc....

Assista esse video que eu fiz, e vc vai achar uma forma melhor para tratar sua impressao e também abrir a gaveta... esse video fiz com impressora Epson TM-T20, mas para o seu caso troque apenas o comando da Epson pelo da Bematech. Copie o Link abaixo e Cole em Seu Nevegador, se resolveu deixe sua resposta. Video Em:https://www.youtube.com/watch?v=cwTCsp7BrLY

sim é o mesmo... a única diferênça é na rotina que vc vai informar se vai pegar pela chave ou pelo xml....

WriteLn(F,'proEmi=' + '2'); // 2 emissao de NF-e avulsa, pelo contribuinte com seu certificado digital, atravez do site do fisco Veja a Linha Acima... se não resolver anexe ai seu xml pra eu dar uma olhada e vê se consigo lhe ajudar...

Boa Noite amigo por padrao a data na nfe é representada da seguinte maneira 2013-10-17 ou seja aaaa-mm-dd faça a alteracao e veja se resolve...

amigo anexe o xml ai que vejo se consigo ajudar...

olha eu tive um problema parecido e resolvi da seguinte forma.... baixei a ultima versao do acbrmonitor fornecido para usuarios do SAC e atualizei o capicom e deu tudo nomal... ei poste a linha de comando que vc ta unindo estas informacoes para formar o cst...

karo amigo se nao conseguir colocar em coluna.... crie uma variavel passe o valor pra ela e coloque na frente do nome do produto exemplo..: QrProdutoDescicao,text +' Subst : ' + vSubstitucao;

Amigo estava olha a tabela de CST para tirar sua duvia mas nao vi esse CST 200 e nem 260 nao..... tem certeza que esse código mesmo.