[Nfc-e off line]

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?

[Nfc-e off line]

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

[Nfc-e off line]

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.

[NFC-e não imprime logomarca]

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

[NFC-e não imprime logomarca]

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:

[OpenSSL/XMLSec ou CAPICOM, dependencia de bibliotecas externas]

Grato a todos.

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

[OpenSSL/XMLSec ou CAPICOM, dependencia de bibliotecas externas]

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.

[OpenSSL/XMLSec ou CAPICOM, dependencia de bibliotecas externas]

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.

 

[Trunk Ou Trunk2]

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.

[Compatibilidade com Delphi 10 Seattle]

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.

 

[Compatibilidade com Delphi 10 Seattle]

Grato pelas respostas Juliomar e Regys

[Compatibilidade com Delphi 10 Seattle]

Grato

[Compatibilidade com Delphi 10 Seattle]

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

 

[Novos webservice]

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;

 

[Novos webservice]

Grato amigão...

[Novos webservice]

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.

 

[NFC-e informacoes adicionais]

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

[NFC-e impressora Elgin i9]

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

 

 

[NFC-e impressora Elgin i9]

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.

 

[Arquivo Tdm Faltam Registros]

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

[Arquivo Tdm Faltam Registros]

Amigos, infelizmente ainda sem solucao.

O eECFc gera o arquivo completo.

Utilizei as dlls dele, mas ocorrer erro no Bematech_Fi_GeraRegistrosSpedFiscal

[Arquivo Tdm Faltam Registros]

grato Daniel Simoes

[Arquivo Tdm Faltam Registros]

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

[Arquivo Tdm Faltam Registros]

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

[Como recuperar um XML através apenas da chave ? [RESOLVIDO]]

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