J Pereira

Desculpe, ainda em tempo... Quanto a cancelamento. Esta nota pode ser cancelada antes de transmitir para o sefaz, ou precisa transmitir e depois então cancelar? O prazo de cancelamento é após a impressão off line, ou 24 horas depois da autorização sefaz?

Grato leandroaoa pela pronta resposta. 2-Se é obrigatória a via do estabelecimento, vc sabe em que que o estabelecimento usa esta via, já que possue os dados e o xml? 2.1 - comi mosca no geral.formaemissao. Outra coisa: Qual a diferença de EM CONTIGENCIA e OFF LINE? Emitindo off line, sai impresso EMITIDA EM CONTINGENCIA Grato

Boa tarde a todos. Desejo um 2016 excelente para a equipe do AcBr e assinantes deste forum. Me ajudem numa coisa: Para emitir nfc-e Off Line li que precisa ser impresso em Via do Consumidor a informação de EMITIDA EM OFF LINE, e imprimir em duas vias. 1-É isso mesmo que entendi? 2-Estou usando trunk2 e no ESCPOS só encontrei a propriedade viaconsumidor=true ou false. Como informar este texto? Uso informações adicionais? 2.1-Como informar CONSULTA NO SEFAZ DISPONIVEL DENTRO DE 24HS? 3-É obrigatória a impressão da via do estabelecimento? Grato pela ajuda.

Grato Regys pela resposta. e.t. Como vcs estão aí em MG, afetado pela lama? Precisa de alguma coisa? Posso ajudar em algo? Minha igreja tem orado pelas pessoas nesta calamidade. Abcs

Boa tarde amigos. Eu de novo por aqui, tenham paciencia comigo kkkk Estou conseguindo compilar trunk2 com Seattle, depois de uma cansativa migração do Delphi 7 com trunk1, mas com a ajuda dos amigos estou evoluindo. Não consigo a impressão do logo ACBrNFe1.DANFE := ACBrNFeDANFeESCPOS1; ACBrNFe1.DANFE.Name := 'ACBrNFeDANFeESCPOS1'; ACBrNFe1.DANFE.Logo := frm_nfe2.edtLogoMarca.Text; ACBrNFeDANFeESCPOS1.Logo := frm_nfe2.edtLogoMarca.Text; ACBrNFeDANFeESCPOS1.PosPrinter := ACBrPosPrinter1 Alguém tem uma dica:

Grato a todos. Consegui compilar informando {$DEFINE DFE_SEM_OPENSSL} NO ACBR.INV

Desculpe Juliomar pela repetição do post. Infelizmente é o desespero de resolver a questão, pois ainda não consegui sucesso seguindo as instruções colhidas em diversos posts. Grato.

Boa noite a todos. Atualizei meu aplicativo para o truck2 com delphi 10 seattle. Ao compilar, ocorre o seguintes erro: [dcc32 Error] OpenSSLExt.pas(69): E1030 Invalid compiler directive: 'MODE' [dcc32 Error] OpenSSLExt.pas(70): E1030 Invalid compiler directive: 'Packrecords' [dcc32 Fatal Error] OpenSSLExt.pas(82): F2613 Unit 'DynLibs' not found. Já configurei conforme instrucao acima configuracoes.gerais.ssllib := LibCapicom coloquei o acbr.inc (pasta AcBr\Fontes\ACBrComum) como: {$DEFINE DFE_SEM_OPENSSL} {.$DEFINE DFE_SEM_CAPICOM} Recompilei com o installtrunk2 e nada de sucesso. O que mais preciso fazer? Grato pela ajuda.

Boa tarde Estou tendo problemas pra compilar meu aplicativo no Delphi 10 Seattle em windows 10. Acontece o mesmo dos amigos acima: [dcc32 Error] OpenSSLExt.pas(69): E1030 Invalid compiler directive: 'MODE' [dcc32 Error] OpenSSLExt.pas(70): E1030 Invalid compiler directive: 'Packrecords' [dcc32 Fatal Error] OpenSSLExt.pas(82): F2613 Unit 'DynLibs' not found. Eu usava trunck1 com delphi 7. desinstalei tudo, removi o acbr. nao encontrei esse dynlibs em nenhum lugar das pastas acbr. Como vcs resolveram isto? Grato pela ajuda.

Gratos pelas dicas. Instalei Seattle e trunck2 sem problemas. Ao compilar meu aplicativo, ocorrer o seguinte erro: synautil.pas(609) E2003 Undeclared indentifier: 'TimeSeparator' synautil.pas(2062) E2003 Undeclared indentifier: 'ShortMonthNames'' Este fonte está na pasta de terceiros\synalist, e pelo que entendi, estas variaveis não são encontradas no system.SysUtil, mas na verdade estão lá. Estou tendo problemas tb com o Indy10 do Seattle. Grato pela ajuda.

Grato pelas respostas Juliomar e Regys

Grato

Boa tarde amigos. Tenho um sistema em Delphi 7 com firebird 2.5 usando os componentes do Acbr. Declaro aqui a minha total satisfação com o AcBr e o atendimento desta equipe de excelencia. Vou migrar para um Delphi mais atualizado. O que os amigos sugerem para uso com o AcBr: XE3, XE8 ou o 10 que saiu agora junto com o Windows10? Já que vou ralar nesta transição, prefiro já fazer fazer de uma vez só. Grato pelas indicações e sugestões. Abcs

Eu de novo... rsrsrsrsrs, desculpe ser chato, é falta de conhecimento mesmo... Verificando o Util, vi que consta no historico das versoes até 2012, mas pelo que pesquisei a url está atualizada. É isso mesmo? realmente preciso saber se são as urls corretas no trunk1. Grato pela paciencia... Historico: {******************************************************************************* |* Historico |* |* 16/12/2008: Wemerson Souto |* - Doação do componente para o Projeto ACBr |* 10/02/2009: André Ferreira de Moraes |* - Adicionado URL de todos os estados |* 18/02/2009: André Ferreira de Moraes |* - Criado Assinatura baseado em código passado por Daniel Simões |* - Criado Validação do XML da NFE baseado em código passado por Daniel Simões |* 24/09/2012: Italo Jurisato Junior |* - Alterações para funcionamento com NFC-e *******************************************************************************} Urls: class function NotaUtil.GetURLRS(AAmbiente: Integer; ALayOut: TLayOut; AModeloDF: TpcnModeloDF = moNFe; AVersaoDF: TpcnVersaoDF = ve200): WideString; begin if AModeloDF = moNFe then begin case ALayOut of LayNfeAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/NfeAutorizacao/NFeAutorizacao.asmx', 'https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeAutorizacao/NFeAutorizacao.asmx'); LayNfeRetAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/NfeRetAutorizacao/NfeRetAutorizacao.asmx', 'https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeRetAutorizacao/NfeRetAutorizacao.asmx'); LayNfeInutilizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/nfeinutilizacao/nfeinutilizacao2.asmx', 'https://nfe-homologacao.sefazrs.rs.gov.br/ws/nfeinutilizacao/nfeinutilizacao2.asmx'); LayNfeConsulta : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta2.asmx', 'https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta2.asmx'); LayNfeStatusServico : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx', 'https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx'); LayNFeCCe, LayNFeEvento : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx', 'https://nfe-homologacao.sefazrs.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx'); // LayNfeConsNFeDest : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/nfeConsultaDest/nfeConsultaDest.asmx', 'https://nfe-homologacao.sefazrs.rs.gov.br/ws/nfeConsultaDest/nfeConsultaDest.asmx'); // LayNfeDownloadNFe : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/nfeDownloadNF/nfeDownloadNF.asmx', 'https://nfe-homologacao.sefazrs.rs.gov.br/ws/nfeDownloadNF/nfeDownloadNF.asmx'); LayNfeCadastro : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro2.asmx', 'https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro2.asmx'); end; end else begin case ALayOut of LayNfeAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/NfeAutorizacao/NFeAutorizacao.asmx', 'https://nfce-homologacao.sefazrs.rs.gov.br/ws/NfeAutorizacao/NFeAutorizacao.asmx'); LayNfeRetAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/NfeRetAutorizacao/NfeRetAutorizacao.asmx', 'https://nfce-homologacao.sefazrs.rs.gov.br/ws/NfeRetAutorizacao/NfeRetAutorizacao.asmx'); LayNfeInutilizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/nfeinutilizacao/nfeinutilizacao2.asmx', 'https://nfce-homologacao.sefazrs.rs.gov.br/ws/nfeinutilizacao/nfeinutilizacao2.asmx'); LayNfeConsulta : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta2.asmx', 'https://nfce-homologacao.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta2.asmx'); LayNfeStatusServico : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx', 'https://nfce-homologacao.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx'); LayNFeCCe, LayNFeEvento : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx', 'https://nfce-homologacao.sefazrs.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx'); LayAdministrarCSCNFCe: Result := DFeUtil.SeSenao(AAmbiente=1, '', ''); end; end; end;

Grato amigão...

Bom dia amigos. Em qual fonte verifico que se já estou com a webservice atualizada para out/15? Como saber se meu acbr do trunk1 está com a versão atualizada? onde vejo esse numero de versão? Aos poucos estarei atualizando para o trunk2.

Bom dia Tentei gerar uma nfc-e com informações adicionais no item com ESCPOS, mas não imprimiu. Verifiquei que esta linha não estava disponivel no fonte, então pergunto se não é permitido por lei esta informação por item, já que também na consulta da nfc-e emitida na receita não exibe esta informação no cupom, somente nos dados detalhados. Na unit ACBrNFeDANFeESCPOS, linha 945, na procedure TACBrNFeDANFeESCPOS.GerarItens inclui o seguinte código: if FpNFe.Det.Items.infAdProd <> '' then begin FLinhaCmd := FpNFe.Det.Items.infAdProd; if Length(FLinhaCmd) > 40 then begin FBuffer.Add(cCmdAlinhadoEsquerda + cCmdFontePequena + ' ' + Copy(FpNFe.Det.Items.infAdProd,1,40)); FBuffer.Add(cCmdAlinhadoEsquerda + cCmdFontePequena + ' ' + Copy(FpNFe.Det.Items.infAdProd,41,40)); end else FBuffer.Add(cCmdAlinhadoEsquerda + cCmdFontePequena + FLinhaCmd); end Então, se for viável, solicito que sejam atualizados seus fontes para futuras atualizações. Grato pela disponibilidade de todos do AcBr. ACBrNFeDANFeESCPOS.pas

Bom dia. Desculpe a ignorância, mas o que são Trunk ou Trunk2? Baixei os fontes de svn://svn.code.sf.net/p/acbr/code

Bom dia a todos. A nível de ajuda: Usei pela primeira vez impressora Elgin i9 para impressão da nfc-e. Tudo ok, mas o corte do papel pegava o qr code. Verificando o código, e depois de alguns testes, observei que o numero de linhas entre cupons não funcionava, pois a elgin ignora o nulo ('') do rodape. troquei o nulo por espaço (' ') e funcionou. Observei também que daruma, bematech e elgin terminam com alturas diferentes de final de impressao, então acrescentei no meu sistema uma configuração para definir o numero de linhas entre cupons. abaixo modificações: procedure TACBrNFeDANFeESCPOS.PulaLinhas(NumLinhas: Integer); var i: Integer; begin if NumLinhas = 0 then NumLinhas := LinhasEntreCupons; for i := 0 to NumLinhas do begin FBuffer.Add(' ') end; end; ------------------------------------------------- if LinhasPosCupom <> 0 then ACBrNFeDANFeESCPOS1.LinhasEntreCupons := LinhasPosCupom; Abcs e parabens novamente pelos excelentes componentes.

Amigos, até que por fim consegui agora agora a solução. Sem muitos resultados, orei ao meu Senhor Jesus, e ele me deu uma luz: Removi o componente ECF e coloquei de novo. Simples assim. Mesmo tendo reinstalado e recompilado os componentes, nao tive sucesso, mas removendo o componente funcionou. Validei com o eECFc e passou: 201504 Em alguns arquivos ocorreram erros de totais, e estes nao sei mesmo como resolver, como no caso o 201503, mas os registros 04,10,19 e 20 foram gravados. Grato pela atenção de todos. Vcs estão de parabens pela excelente ferramenta. TDM_ECF-0002_201504_GR KRAFT.txt TDM_ECF-0002_201503_GR KRAFT.txt TDM_ECF-0002_201503_GR KRAFT-log.txt TDM_ECF-0002_201504_GR KRAFT-log.txt

Amigos, infelizmente ainda sem solucao. O eECFc gera o arquivo completo. Utilizei as dlls dele, mas ocorrer erro no Bematech_Fi_GeraRegistrosSpedFiscal

grato Daniel Simoes

Bom dia Juliomar o ECF é Bematech MP-2100 FI Fiz update pelo svn e o ecfdemo dá o mesmo resultado. As dlls estão atualizadas, usando a do acbr quanto da propria bematech. Observei que os registros E04, E19 e E20 gerados pelo eecfc estão zerados, mas o validador diz que está faltando esses regs gerados pelo acbr

Boa noite Estou tendo dificuldades em gerar os arquivos MFD e TDM, onde faltam registros. Mensagem do contador: não consta os Registros E02,E12,E13,E14,E15 e E16, Executando o eECFc realmente apontam estes erros. executei as seguintes linhas de comando: (assim como no EcfTeste) frm_principal.ACBrECF1.ArquivoMFD_DLL(StrToDate(Edit3.Text), StrToDate(Edit4.Text),cArquivo,[docTodos],finTDM); frm_principal.ACBrECF1.ArquivoMFD_DLL(StrToDate(Edit3.Text), StrToDate(Edit4.Text),cArquivo,[docTodos],finMFD); Alguém pode me dar uma luz??? Estou a tempos com isto e os clientes estão com urgencia. Anexo arquivos gerados pelo acbr e pelo eECFc versao v3.28 de 09/10/2012 O acbr fiz update pelo SVN e ocorre a mesma coisa. Grato pela atenção e ajuda. ArquivoMFDDATA-PAF20150611204839.txt ArquivoMFDDATA-PAF20150611204839log.txt eecfc.TXT eecfclog.txt

Olá Regis Veja na pasta "\Projetos\RecuperarXML", tem um demo funcional de como fazer isso. Não encontro esta pasta. Como fazer para pegar este xml do sefaz? Abcs