FRANCISCO908

Renato - a Mensagem do Erro é Esta Mesmo "Erro de Certificado" ou é "Certificado Não Localizado", para os Certificados A1 tive um cliente recente que renovou seu certificado e o número de série passou dos 30 dígitos e na minha tabela tinha limitado em 30 dígitos... verifique na propriedade do seu certificado e e compare com as informações gravadas em seu banco, talvez seja apenas isso... confesso que isso deu muita dor de cabeça pra mim....

//amigo vc tem que fazer um laço... //nao sei se vai lhe ajudar segue abaixo o codigo que uso no meu sistema. vNomeProduto := ''; vComplemento := ''; if vCompatilhamento <> '' then begin CdsProduto.First; while not CdsProduto.Eof do begin AtivarACBrETQ; vNomeProduto := Copy(CdsProdutonome.Text, 1,19); if CdsProdutoComplemento.Text = '' then begin vComplemento := Copy(DTModule.QrEmpresanomeFantasia.Text, 1,12) + ' R$'+ FormatFloat('#.00', CdsProdutovalor.Value); end; if CdsProdutoComplemento.Text <> '' then begin vComplemento := Copy(CdsProdutoComplemento.Text, 1,12) + ' R$'+ FormatFloat('#.00', CdsProdutovalor.Value); end; 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, Copy(CdsProdutocodigobarra.Text,1,12), 70); CdsProduto.Next; vNomeProduto := Copy(CdsProdutonome.Text, 1,20); if CdsProdutoComplemento.Text = '' then begin vComplemento := Copy(DTModule.QrEmpresanomeFantasia.Text, 1,12) + ' R$'+ FormatFloat('#.00', CdsProdutovalor.Value); end; if CdsProdutoComplemento.Text <> '' then begin vComplemento := Copy(CdsProdutoComplemento.Text, 1,12) + ' R$'+ FormatFloat('#.00', CdsProdutovalor.Value); end; ImprimirTexto(orNormal, 2, 1, 2, 150, 380, vNomeProduto); ImprimirTexto(orNormal, 2, 1, 1, 120, 380, vComplemento); ImprimirBarras(orNormal, 'F', '2', '2', 20, 380, CdsProdutocodigobarra.Text, 70); CdsProduto.Next; vNomeProduto := Copy(CdsProdutonome.Text, 1,20); if CdsProdutoComplemento.Text = '' then begin vComplemento := Copy(DTModule.QrEmpresanomeFantasia.Text, 1,12) + ' R$'+ FormatFloat('#.00', CdsProdutovalor.Value); end; if CdsProdutoComplemento.Text <> '' then begin vComplemento := Copy(CdsProdutoComplemento.Text, 1,12) + ' R$'+ FormatFloat('#.00', CdsProdutovalor.Value); end; ImprimirTexto(orNormal, 2, 1, 2, 150, 730, vNomeProduto); ImprimirTexto(orNormal, 2, 1, 1, 120, 730, vComplemento); ImprimirBarras(orNormal, 'F', '2', '2', 20, 730, CdsProdutocodigobarra.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, CdsProdutocodigobarra.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, CdsProdutocodigobarra.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, CdsProdutocodigobarra.Text, 080, becSIM); end; Imprimir(1, StrToInt(vAvanco)); Desativar; end; CdsProduto.Next; end;

para boletos sem registro nao precisa fazer homologação junto a agencia nao.... basta apenas que vc tenha as informações de seu cliente como carteira, convenio... pelo menos para o Banco do Brasil pois tenho cliente que usam nosso sistema para gerar boletos sem registro.....

Lembrando que seu certificado deverá Esta Instalado e Configurado Corretamente e para os certificados A3 é preciso que o mesmo esteja conectado a sua leitora. Se os Referidos Certificados Seja A1 ou A3, Estiverem Instalado Corretamente e mesmo assim vc continuar recebendo essa mensagem de "Classe não Registrada", faça o seguinte baixe no link abaixo esta versão do capicom. https://wwws.prodemge.gov.br/images/stories/exe/capicom.exe Instale e depois reinicie seu computador e tudo funcionará normalmente.

Verdade - Régys Silveira - Eu Também Tenho Daruma inclusive eles revendem para programadores no boleto Bancário...

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

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

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.