Ademir P. Voigt

Entre outras correções, uma delas foi também algo relacionado ao que vc falou Italo. Tinha setado também versão 2.00

Resolvido: Para receber um retorno de versão de ACBrNFe1.Configuracoes.Geral.VersaoDF eu coloquei na procedure de consulta v300 e não v310. Ajustado e agora está OK.

Boa Tarde! Pesquisei pelo forum, mas não encontrei algo próximo ao meu problema: Retomei hj alguns ajustes do sistema para NFCe. Estamos desenvolvendo o mesmo na mesma interface da NFe para evitar retrabalhos. Nesse caso, tratamos alguns eventos específicos para cada caso. Estou conseguindo emitir sem problemas, porem, o cancelamento não está funcionando. Eu sempre consulto a NF e se retornar código 100 e continuo com o cancelamento if ACBrNFe1.WebServices.Consulta.cStat = 100 then begin aqui envio o evento de cancelamento e faço ajustes no banco de dados end; Pelo que vi, está retornando 239. Status Código : 239 Status Descrição : Rejeicao: Versao do arquivo XML nao suportada Já atualizei o schemas Quando eu consulto uma NFe: Versão Layout : 2.01 Identificador : 43141213795352000122550010000020041000020047 Ambiente : 2 Versão Aplicativo : RS201411131521 Status Código : 100 Status Descrição : Autorizado o uso da NF-e UF : RS Chave Acesso : 43141213795352000122550010000020041000020047 Recebimento : 16/12/2014 16:09:25 Protocolo : 143140002252693 Digest Value : f9ypHEN08QJyc5a1wrdMNbObV7o= Quando consulto a NFCe: Versão Layout : 2.00 Identificador : 43141213795352000122650010000020031000020034 Ambiente : 2 Versão Aplicativo : RS201411131521 Status Código : 239 Status Descrição : Rejeicao: Versao do arquivo XML nao suportada UF : RS Chave Acesso : 43141213795352000122650010000020031000020034 Recebimento : 30/12/1899 Protocolo : Digest Value :

O que acontece é o seguinte: Tinha o campo pagina de codigo como 80. E dai olhando todas as funcionalidades que envolviam o campo descrição, encontramos: fsECF.VendeItem( Codigo, CodificarPaginaDeCodigoECF( Descricao ), Dai vimos que tinha algo relacionado quando a pagina de codigos fosse > 0. Ajustei no sistema e agora funciona normalmente. O que seria essa função PAGINA DE CODIGO? Quando devo colocar algum valor?

Sim, mesmo colocando o nome fixo: 'teste de produto' Eu coloquei uns showmessage na unit ACBrECFFiscNET AddParamInteger('CodAliquota', CodAliq); AddParamString('CodProduto', LeftStr(Codigo, 48)); AddParamString('NomeProduto', LeftStr(Descricao, 200)); AddParamDouble('PrecoUnitario', ValorUnitario); AddParamDouble('Quantidade', Qtd); AddParamString('Unidade', Unidade); ShowMessage(IntToStr(CodAliq)); ShowMessage(Descricao); Onde Descrição sempre retorna vazia. O CodAliq retorna -4 corretamente

analisando essa linha: TX -> {18;VendeItem;CodAliquota=-4 CodProduto="85" PrecoUnitario=11,5 Quantidade=1 Unidade="UN";89} Falta o Nome do produto Coisa que o ECFteste.exe está mandando. TX -> {13;VendeItem;CodAliquota=-4 CodProduto="111222333" NomeProduto="TESTE DE PRODUTO" PrecoUnitario=1 Quantidade=1 Unidade="UN";124}

O Mesmo que o ecfteste.exe: NN

Parece não estar indo o nome no produto, mas no VendeItem tem o nome

-- 16:19:59:557 AbreCupom( , , ) TX -> {98;AbreCupomFiscal;;20} 16:19:59:988 RX <- {98;0;;6} -- 16:19:59:991 NumCCF TX -> {99;LeInteiro;NomeInteiro="CCF";31} 16:20:00:129 RX <- {99;0;ValorInteiro=27;21} -- 16:20:00:133 NumCupom TX -> {100;LeInteiro;NomeInteiro="COO";32} 16:20:00:257 RX <- {100;0;ValorInteiro=71;22} -- 16:20:00:314 Estado TX -> {101;LeInteiro;NomeInteiro="EstadoFiscal";41} 16:20:00:450 RX <- {101;0;ValorInteiro=2;21} -- 16:20:00:454 VendeItem( 85 , CUCA QUALITY 1 , NN , 1 , 11,5 , 0 , UN , $ , D , -1 ) TX -> {102;LeInteiro;NomeInteiro="Arredondamento";43} 16:20:00:595 RX <- {102;0;ValorInteiro=0;21} -- 16:20:00:598 TX -> {103;VendeItem;CodAliquota=-4 CodProduto="85" PrecoUnitario=11,5 Quantidade=1 Unidade="UN";90} 16:20:00:652 RX <- {103;11005;NomeErro="ErroProtParamIndefinido" Circunstancia="ao verificar parametros do comando";96} ----------------- ERRO ----------------- Erro retornado pela Impressora: FiscNET: ELGIN - K Erro: 11005 - ErroProtParamIndefinido ao verificar parametros do comando ---------------------------------------- -------------------------------------------------------------------------------- ATIVAR - 26/11/14 16:48:59:761 - Modelo: FiscNET - Porta: COM3 - TimeOut: 3 Device: BAUD=115200 DATA=8 PARITY=E STOP=1 HANDSHAKE=RTS/CTS HARDFLOW MAXBANDWIDTH=0 -------------------------------------------------------------------------------- -- 16:48:59:809 TX -> {1;LeTexto;NomeTexto="VersaoSW";31} 16:48:59:950 RX <- {1;0;ValorTexto="01.00.05";26} -- 16:48:59:954 TX -> {2;LeTexto;NomeTexto="TextoLivre";33} 16:49:00:098 RX <- {2;0;ValorTexto="MD-5:AXAXAXAXAXAXAXAXAXAXAXAXAXAXAXAX[LF]Demo ACBrECF";68} -- 16:49:00:102 TX -> {3;LeTexto;NomeTexto="Marca";28} 16:49:00:243 RX <- {3;0;ValorTexto="ELGIN";23} -- 16:49:00:246 TX -> {4;LeTexto;NomeTexto="Modelo";29} 16:49:00:387 RX <- {4;0;ValorTexto="K";19} -- 16:49:00:425 Estado TX -> {5;LeInteiro;NomeInteiro="EstadoFiscal";39} 16:49:00:563 RX <- {5;0;ValorInteiro=1;19} -- 16:49:00:567 TX -> {6;LeInteiro;NomeInteiro="Indicadores";38} 16:49:00:708 RX <- {6;0;ValorInteiro=14400;23} -- 16:49:00:712 Estado TX -> {7;LeInteiro;NomeInteiro="EstadoFiscal";39} 16:49:00:852 RX <- {7;0;ValorInteiro=1;19} -- 16:49:00:855 TX -> {8;LeInteiro;NomeInteiro="Indicadores";38} 16:49:00:996 RX <- {8;0;ValorInteiro=14400;23} -- 16:49:00:999 TestaPodeAbrirCupom TX -> {9;LeInteiro;NomeInteiro="EstadoFiscal";39} 16:49:01:140 RX <- {9;0;ValorInteiro=1;19} -- 16:49:01:143 TX -> {10;LeInteiro;NomeInteiro="Indicadores";39} 16:49:01:268 RX <- {10;0;ValorInteiro=14400;24} -- 16:49:01:306 Estado TX -> {11;LeInteiro;NomeInteiro="EstadoFiscal";40} 16:49:01:445 RX <- {11;0;ValorInteiro=1;20} -- 16:49:01:448 TX -> {12;LeInteiro;NomeInteiro="Indicadores";39} 16:49:01:589 RX <- {12;0;ValorInteiro=14400;24} -- 16:49:08:215 AbreCupom( , , ) TX -> {13;AbreCupomFiscal;;20} 16:49:08:646 RX <- {13;0;;6} -- 16:49:08:651 NumCCF TX -> {14;LeInteiro;NomeInteiro="CCF";31} 16:49:08:784 RX <- {14;0;ValorInteiro=28;21} -- 16:49:08:788 NumCupom TX -> {15;LeInteiro;NomeInteiro="COO";31} 16:49:08:928 RX <- {15;0;ValorInteiro=72;21} -- 16:49:09:240 Estado TX -> {16;LeInteiro;NomeInteiro="EstadoFiscal";40} 16:49:09:377 RX <- {16;0;ValorInteiro=2;20} -- 16:49:09:381 VendeItem( 85 , CUCA QUALITY 1 , NN , 1 , 11,5 , 0 , UN , $ , D , -1 ) TX -> {17;LeInteiro;NomeInteiro="Arredondamento";42} 16:49:09:523 RX <- {17;0;ValorInteiro=0;20} -- 16:49:09:526 TX -> {18;VendeItem;CodAliquota=-4 CodProduto="85" PrecoUnitario=11,5 Quantidade=1 Unidade="UN";89} 16:49:09:588 RX <- {18;11005;NomeErro="ErroProtParamIndefinido" Circunstancia="ao verificar parametros do comando";95} ----------------- ERRO ----------------- Erro retornado pela Impressora: FiscNET: ELGIN - K Erro: 11005 - ErroProtParamIndefinido ao verificar parametros do comando ----------------------------------------

Boa Tarde! Recebemos uma impressora fiscal Elgin K para testes. finalmente... Porem, a mesma não impreme o item. Faz varias operações: Redução Leitura X Cancela Cupom Abre Cupom Mas não vende Item. Fiz um teste pelo demo do acbr ECFTeste.exe e vendeu normalmente dessa forma: Form1.ACBrECF1.VendeItem( edCodigo.Text, edDescricao.Text, edICMS.Text, StrToFloatDef( edQtd.Text, 0 ), StrToFloatDef( edPrecoUnita.Text,0 ), StrToFloatDef( edDesconto.Text,0 ), edUN.Text, Desc ); Log do ECFTeste.exe -- 16:17:23:767 VendeItem( 111222333 , TESTE DE PRODUTO , NN , 1 , 1 , 0 , UN , $ , D , -1 ) TX -> {13;VendeItem;CodAliquota=-4 CodProduto="111222333" NomeProduto="TESTE DE PRODUTO" PrecoUnitario=1 Quantidade=1 Unidade="UN";124} 16:17:24:121 RX <- {13;0;;6} -- 16:17:24:124 Arredonda TX -> {14;LeInteiro;NomeInteiro="Arredondamento";42} 16:17:24:265 RX <- {14;0;ValorInteiro=0;20} Nosso Sistema: ACBrECF1.VendeItem(MyQrItensproduto_id.AsString, MyQrItensproduto_nome.AsString, MyQrItensaliquota.AsString, StrToFloatDef(MyQrItensquantidade.AsString, 0), StrToFloatDef(MyQrItensvalor.AsString, 0), StrToFloatDef(EditDesconto.Text, 0), MyQrItensun.AsString, Desc ); Log: -- 16:20:00:454 VendeItem( 85 , CUCA QUALITY 1 , NN , 1 , 11,5 , 0 , UN , $ , D , -1 ) TX -> {102;LeInteiro;NomeInteiro="Arredondamento";43} 16:20:00:595 RX <- {102;0;ValorInteiro=0;21} Percebi que falta a linha: TX -> {13;VendeItem;CodAliquota=-4 CodProduto="111222333" NomeProduto="TESTE DE PRODUTO" PrecoUnitario=1 Quantidade=1 Unidade="UN";124} Se usar o emulador da Sweda não tenho problemas nenhum. Inclusive, em um cleinte nosso tem uma impressora igual a que recebemos para testes.

Eu envio para o acbr CPF: 999.999.999-99 E CNPJ: 99.999.999/9999-99. Pelo fato do PDf estar correto, pode ter algo na geração do preview. Mas enfim, resolvi da seguinte forma: Implementei uma função que remove os caracteres texto do documento e por hora está resolvido. function SomenteNumeros(Texto: String): String; var I: Integer; s: string; begin s := ''; for I := 1 To Length(Texto) Do begin if (Texto in ['0' .. '9']) then begin s := s + Copy(Texto, I, 1); end; end; result := s; end; Dest.CNPJCPF := SomenteNumeros(MyQrNFedest_cnpj.AsString);

Bom dia a Todos! Estou usando o ACBrNFeDANFeRL para impressão da danfe. Em anexo, tenho o print da visualização e da emissão com erro na mascara do CPF do destinatario. O que está aparecendo é a mascara do CNPJ e dai da uma truncada na informação. Então, se for imprimir vai sair com o cpf com problemas, porem, se gerar o pdf sai formatado corretamente. Em anexo arquivos para analise. 43141113795352000122550010000002821000002825-nfe.pdf

Sim... Já consegui resolver e entender melhor. ACBrECF1.AbreRelatorioGerencial(2); // que irei informar de acordo com cada modelo de impressora ACBrECF1.LinhaRelatorioGerencial(MemoVinculado.Text, 1); // tudo o que preciso que seja impresso dentro de 40 colunas ACBrECF1.FechaRelatorio; // fechamento

Bom dia! Estou usando o ACBrECF1.CupomVinculado para emitir, apos o fechamento do cupom, um relatorio com as parcelas da venda: COO do documento vinculado: 000599 Valor da compra: R$ 11,50 Valor do pagamento: R$ 11,50 ------------------------------------------------------------- ID VENCIMENTO VALOR SALDO ------------------------------------------------------------- 000001306 20/11/2014 3,83 0,00 000001307 20/12/2014 3,83 3,83 000001308 19/01/2015 3,84 3,84 ------------------------------------------------------------ 11,50 7,67 Envio o comando da seuinte forma: ACBrECF1.CupomVinculado(VinculadoNumCupom, VinculadoIDpagamento, 3,83, MemoVinculado.Lines, 1); Onde 3,83, é o valor que o cliente já pagou nessa compra. Isso não afeta o Valor do pagamento? Gostaria de saber se tem como influenciar onde diz: Valor do pagamento: R$ 11,50, pois nesse lugar eu não estou conseguindo alterar. Já fiz buscas no forum, mas não encontrei respostar para essa questão específica. Espero a ajuda de vcs. Se não for o caso de usar vinculado, pq li que serve para cartão de debito ou credito, se tento enviar como RelatorioGerencial, recebo mensagem que tal relatório não está cadastrado. ACBrECF1.RelatorioGerencial(MemoVinculado.Lines, 1, StrToIntDef(VinculadoNumCupom, 0))

André, acredito que me expressei mal. Sobre a data realmente é em março, porem, sobre a a compatibilização do sistema, preciso saber se o componente ACBRNfe dará suporte a essa nova versão e se teremos algum material no demo do ACBR para nos adequar.

A partir de 01/12/2014 entra em vigor a Nota Fiscal Eletrônica, versão 3.0 é necessária alguma mudança no sistema ou somente atualizar a pasta Schemas? Desculpe se a pergunta estiver em topico errado...

Deu certo. Procurei por DCUs e BPL novamente. Apaguei pelo .bat e deu certo. Apenas tive que copiar as BPLs para a pasta C:\Users\Public\Documents\RAD Studio\9.0\Bpl. Pena o ACR install não fazer isso. Mas é o de menos. Já recompilei o nosso sistema e não apresentou erros. Sobre a versão 3.0 da NFe, é necessária alguma mudança no sistema ou somente atualizar a pasta Schemas? Desculpe se a pergunta estiver em topico errado...

Irei verificar e retorno aqui com os resultados.

Boa Tarde! 1 - Executei o .bat em todas a unidades, onde foram eliminados arquivos. 2 - Conferi o library path do delphi etudo OK. 3 - Apaguei a pasta PCN2 e fiz um update no SVN 4 - Apaguei o acbrintall.exe Meu repositório é esse: svn://svn.code.sf.net/p/acbr/code/trunk Embarcadero Delphi for Win32 compiler version 23.0 Copyright © 1983,2011 Embarcadero Technologies, Inc. C:\ACBr\Fontes\PCN2\pcnAdmCSCNFCe.pas(62) Error: E2003 Undeclared identifier: 'TpcnIndOperacao' C:\ACBr\Fontes\PCN2\pcnAdmCSCNFCe.pas(75) Error: E2005 'TpcnIndOperacao' is not a type identifier C:\ACBr\Fontes\PCN2\pcnAdmCSCNFCe.pas(121) Error: E2003 Undeclared identifier: 'IndOperacaoToStr' C:\ACBr\Fontes\PCN2\pcnAdmCSCNFCe.pas(124) Error: E2003 Undeclared identifier: 'ioRevogaCSC' C:\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1938) Fatal: F2063 Could not compile used unit 'pcnAdmCSCNFCe.pas' Compilation failure

Boa tarde! Estou tentando de todas as formas atualizar o compomente ACBR no delphi xe 2, mas sempre retorna erro ao compilar acbrnfe. Log do ACBR Install: Copyright © 1983,2011 Embarcadero Technologies, Inc. C:\ACBr\Fontes\PCN2\pcnAdmCSCNFCe.pas(62) Error: E2003 Undeclared identifier: 'TpcnIndOperacao' C:\ACBr\Fontes\PCN2\pcnAdmCSCNFCe.pas(75) Error: E2005 'TpcnIndOperacao' is not a type identifier C:\ACBr\Fontes\PCN2\pcnAdmCSCNFCe.pas(121) Error: E2003 Undeclared identifier: 'IndOperacaoToStr' C:\ACBr\Fontes\PCN2\pcnAdmCSCNFCe.pas(124) Error: E2003 Undeclared identifier: 'ioRevogaCSC' C:\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1938) Fatal: F2063 Could not compile used unit 'pcnAdmCSCNFCe.pas' Compilation failure Já executei o arquivo apagarAcbr.bat, porem não adiantou. Devo desinstalar pelo delphi e depois tentar a instalação pelo acbr install?

Passei todas essas informações ao tecnico. E nesse momento, concordou que a falha pode ser na impressora.

Enfrentamos o mesmo problema, e realmente deve ser instabilidade do sefaz devido a mudança de horário. Voltamos ao horario velho e deu certo.

Então a impressora trancou por alguma falha mesmo. Ela recebeu os comandos e retornou que "recebeu", porem não fez a impressão corretamente. Minha conclusão está correta?

Bom dia! Aconteceu em um cliente nosso algo que nunca vimos. A impressora Abriu um cupom novo, aceitou o item, efetua pagamento, fechacupom, valor recebido, calculo do troco etc, porem, não fez a impressão do item. Somente no final de tudo, quando foi enviado o comando do rodapé para o Valor Aprox. dos tributos é que retornou como não respondendo. Após esse erro, a impressora ficou totalmente incomunicável e teve que ser feita uma intervenção com a equipe técnica autorizada para efetuar um reset. O técnico que auxiliou no destravamento disse que o erro foi do nosso sistema que acumulou comandou na impressora. Acredito que não foi bem dessa forma, pois o sistema enviou comando após comando e só retornou erro no final. Em anexo, log e copia do cupom. LOG CCF 030178.txt

Na verdade me expressei mal, quis dizer quando um um dos itens abaixo for menor que uma grama: Nutricional.Codigo:=I; Nutricional.ValorEnergetico := 20; Nutricional.Carboidrato := 0.350; Nutricional.Proteina := 3; Nutricional.GorduraTotal:= 4; Nutricional.GorduraSaturada:=5; Nutricional.GorduraTrans := 6; Nutricional.Fibra := 7; Nutricional.Sodio :=8;