[Correção para Bancoob]

Na linha 474  do arquivo "ACBrBancoBancoob.pas" eu tive que alterar de:

Cedente.Conta := PadLeft(IntToStr(StrToInt(Cedente.Conta)), 7, '0');

Para:

Cedente.Conta := PadLeft(IntToStr(StrToIntDef(Cedente.Conta, 0)), 7, '0');

Assim o componente lê o arquivo corretamente quando a opção "LeCedenteRetorno" está marcada como verdadeira e os campos do cendente não estão préviamente preenchidos.

[Qual método vocês adotaram para comparação dos dados do Registros do PAF-ECF?]

Julimar, hoje meu software possui um banco de dados gerencial e um do PDV (pois ele funciona 100% offline e quando detecta conexão envia para o gerencial, então praticamente fica online pois é raro não ter conexão ) por isso falei em compara os 2, pois os dados necessários para geração deste arquivo também ficam armazenadas no PDV, mas gostaria de saber qual o método a galera tem mais adotado, porque eu tenho que acabar criando as tabelas de DAV no PDV e replica-los pra lá o que não é legal.

Pensei em criar várias tabelas com os registos necessários, por ex: REG_PAFECF_A2, REG_PAFECF_D2, REG_PAFECF_D3... e duplicar a informação nessas tabelas, o que vocês tem a me dizer?

 

Cleber, não achei seu texto, foi aqui no forum do ACBr mesmo? pois procurei pelos tópicos que estão no seu perfil e não achei.

[Qual método vocês adotaram para comparação dos dados do Registros do PAF-ECF?]

• Comparação de dados entre o banco do PDV e o do SG;
• Duplicação de tabelas;
• MD5.

Em fim, qual o método que vocês estão usando para a comparação dos dados?

[Erro estranho no ambiente de produção do ES]

Creio que esteja falando das URLs abaixo:

URL-QRCode=http://app.sefaz.es.gov.br/ConsultaNFCe/qrcode.aspx
URL-ConsultaNFCe=http://app.sefaz.es.gov.br/ConsultaNFCe

Caso queira atualizar no componente, ai está.
 

[Erro estranho no ambiente de produção do ES]

Como forma de contribuição, segue URL oficiais, porém não uso este arquivo INI (a não ser que ele seja embutido no componente ao compilar), mas olhei nele e lá tem "Usar=NFe_SVRS_P" o que me faz entender que ele utiliza os dados do RS, e ai?

 

Webservices - Produção:

NFC-e SVRS - Endereços (URL) do Ambiente de Produção
Serviço	Versão	URL
NFeAutorizacao	3.10	https://nfce.svrs.rs.gov.br/ws/ NfeAutorizacao/NFeAutorizacao.asmx
NFeRetAutorizacao	3.10	https://nfce.svrs.rs.gov.br/ws/ NfeRetAutorizacao/NFeRetAutorizacao.asmx
NfeInutilizacao	3.10	https://nfce.svrs.rs.gov.br/ws/ nfeinutilizacao/nfeinutilizacao2.asmx
NfeConsultaProtocolo	3.10	https://nfce.svrs.rs.gov.br/ws/ NfeConsulta/NfeConsulta2.asmx
NfeStatusServico	3.10	https://nfce.svrs.rs.gov.br/ws/ NfeStatusServico/NfeStatusServico2.asmx
RecepcaoEvento	1.00	https://nfce.svrs.rs.gov.br/ws/ recepcaoevento/recepcaoevento.asmx

[Erro estranho no ambiente de produção do ES]

Já procurei aqui no forum e no Google, mas não obtive resposta sobre o erro abaixo:

FALHA NA VALIDAÇÃO DOS DADOS DA NOTA: 1

'?CHNFE=32161203544265000149650000000000011692048330&NVERSAO=100&TPAMB=1&DHEMI=323031362D31322D31355431373A35323A33322D30323A...' VIOLATES PATTERN CONSTRAINT OF '((HTTPS?|HTTPS?)://.*\?CHNFE=[0-9]{44}&NVERSAO=[0-9]{3}&TPAMB=[1-2](&CDEST=([A-ZA-Z0-9.:+-/)(]{0}|[A-ZA-Z0-9.:+-/)(]{5,20})?...'.
THE ELEMENT '{HTTP://WWW.PORTALFISCAL.INF.BR/NFE}QRCODE' WITH VALUE '?CHNFE=32161203544265000149650000000000011692048330&NVERSAO=100&TPAMB=1&DHEMI=323031362D31322D31355431373A35323A33322D30323A...' FAILED TO PARSE.

Meu cliente foi autorizado a usar o ambiente de produção, porém qualquer nota dá este erro, já no de homologação não dá problema.

NFCe00065000000001.xml

[Achei um erro NF-e GerarTXT]

Mais um detalhe, isso só ocorre na geração do TXT, se gerar o XML ele funciona normalmente.

[Achei um erro NF-e GerarTXT]

Então Juliomar Marchetti, eu só corrigi o que me convinha, recomendo que vocês a revejam.

[Achei um erro NF-e GerarTXT]

As tags para geração o refNF não foram atualizadas para a versão 3.10 em pcnNFeW.pas, por exemplo no procedimento "TNFeW.GerarIdeNFref;" eu tive que mudar de

Gerador.wGrupo('NFref', 'B12a'); para Gerador.wGrupo('NFref', IfThen(nfe.infNFe.Versao >= 3, 'BA', 'B12a'));

E dai por diante todas os procedimentos para geração de referências estão preparados para layouts menores que 3.10, favor analisar.

[SVN off-line]

Galera o SVN está off-line?

Não estou conseguindo baixar a nova versão do ACBr, mesmo usando o endereço do "trunk2"

[Erro Em Devolução Fora Do Estado.]

Pessoal, estou fazendo uma nota de devolução para um cliente fora do estado, o ACBrNFe está me retornando o erro:
798->REJEICAO: NF-E DE DEVOLUCAO DE MERCADORIA NAO POSSUI DOCUMENTO FISCAL REFERENCIADO

Só que no processo de emissão eu preencho os dados do cupom fiscal em NFRef.RefECF e finNFe está como fnDevolucao, mas ele gera o TXT sem os dados da devolução, estou usando a versão 0.5.0a do ACBrNFe, algém sabe de dizer se é algum erro esta versão ou se é algo que eu possa estar esquerendo por ser fora do estado?

[Nf-E 3.10 - Notas Fiscais Referenciadas Na Devolução, Não Estão Gerando As Tags.]

Segue correção que tive que fazer no arquivo Fontes\PCN2\pcnNFeW.pas

 

procedure TNFeW.GerarIdeNFref;
var
  i: Integer;
begin
  // Gera TAGs se NÃO for uma NFe referência
  for i := 0 to nfe.ide.NFref.Count - 1 do
  begin
    Gerador.wGrupo('NFref', IfThen(nfe.infNFe.Versao >= 3, 'BA', 'B12a'));
    //Gerador.wGrupo('NFref', 'B12a');
    if nfe.ide.NFref[i].refNFe      <> '' then (**)GerarIdeNFrerefNFe(i);
    if nfe.Ide.NFref[i].RefNF.nNF    >  0 then (**)GerarIdeNFrefRefNF(i);
    if nfe.ide.NFref[i].RefNFP.nNF   >  0 then (**)GerarRefNFP(i);
    if nfe.ide.NFref[i].refCTe      <> '' then (**)GerarIdeNFrerefCTe(i);
    if nfe.ide.NFref[i].RefECF.nCOO <> '' then (**)GerarRefECF(i);
    Gerador.wGrupo('/NFref');
  end;


  if nfe.ide.NFref.Count > 500 then
    Gerador.wAlerta(IfThen(nfe.infNFe.Versao >= 3, 'BA', 'B12a'), 'NFref', DSC_QNF, ERR_MSG_MAIOR_MAXIMO + '500');
    //Gerador.wAlerta('B12a', 'NFref', DSC_QNF, ERR_MSG_MAIOR_MAXIMO + '500');
end;

[Erro Na Função Abreportaserialdll Em Acbrecfbematech]

Segue arquivo.

ACBrECFBematech.pas

[Erro Na Função Abreportaserialdll Em Acbrecfbematech]

Segue correção em toda a função:

 

procedure TACBrECFBematech.AbrePortaSerialDLL(const aPath: String);
Var
  Resp : Integer ;
  aPorta, IniFile : String ;


  {$IFDEF MSWINDOWS}
  procedure ConfiguraBemaFI32ini(const aPorta, aPath : String ) ;
  var
    Ini : TIniFile ;
  begin
    GravaLog( '   Verificando arquivo: '+IniFile+', Porta:'+aPorta+', Path:'+aPath );


    Ini := TIniFile.Create( IniFile );
    try
       Ini.WriteString('Sistema','Porta',aPorta ) ;
       Ini.WriteString('Sistema','ControlePorta','1') ;
       if aPath <> '' then
          Ini.WriteString('Sistema','Path',aPath ) ;
    finally
       Ini.Free ;
    end ;
  end;
  {$ENDIF}


begin
  aPorta := fpDevice.Porta;


  GravaLog( '   Desativando ACBrECF' );
  Ativo := False ;
  Sleep( 300 ) ;


  {$IFDEF MSWINDOWS}
   {$IFDEF CPU64}
    IniFile := ExtractFilePath(PathDLL)+'BemaFi64.INI' ;
   {$ELSE}
    IniFile := ExtractFilePath(PathDLL)+'BemaFi32.INI' ;
   {$ENDIF}
   if FileExists(IniFile) then
      ConfiguraBemaFI32ini(aPorta, PathDLL);
  {$ENDIF}


  LoadDLLFunctions;


  {$IFDEF MSWINDOWS}
   xBematech_FI_ReloadINIFile;
  {$ENDIF}


  GravaLog( '   xBematech_FI_AbrePortaSerial' );
  Resp := xBematech_FI_AbrePortaSerial();
{
  1: OK.
 -4: O arquivo de inicialização BemaFI32.ini não foi encontrado no diretório de sistema do Windows.
 -5: Erro ao abrir a porta de comunicação.
}
  {$IFDEF MSWINDOWS}
   if Resp = -4 then
   begin
      GravaLog( '      Erro = -4' );
      ConfiguraBemaFI32ini( aPorta, PathDLL ) ;
      GravaLog( '   xBematech_FI_AbrePortaSerial' );
      Resp := xBematech_FI_AbrePortaSerial();
   end ;
  {$ENDIF}


(*
  if Resp = -5 then
  begin
     GravaLog( '      Erro = -5' );
     ConfiguraBemaFI32ini( 'Default', aPath ) ;
     GravaLog( '   xBematech_FI_AbrePortaSerial' );
     Resp := xBematech_FI_AbrePortaSerial();
  end ;
*)


  if Resp <> 1 then
     raise EACBrECFErro.Create( ACBrStr('Erro em Bematech_FI_AbrePortaSerial'+sLineBreak+
                                AnalisarRetornoDll(Resp) ));
end ;

[Envio De Nf-E Em Ufs Diferentes]

Conforme dito acima, ja esta assim, creio que possar ser alguma configuracao do internet explorer

[Envio De Nf-E Em Ufs Diferentes]

Pessoal, estou homologando meu software em MG e usando um certificado do ES com todas as configs do meu soft para o ES tambem, nao consigo transmitir a NF-e, sabem me dizer se existe algum bloqueio quanto a isto?

Da a mensagem: Nao foi possivel estabelecer uma conexao com o servidor

[Movimento Por Ecf X Registros Do Paf-Ecf]

Pessoal, quando era movimento por ecf eu comparava os dados do meu retaguarda com meu pdv para verificar se o registro era valido ou nao, agora que e registros do pafecf e quando gerado pelo menu fiscal tem que pegar de todos os ecfs do estabelecimento este metodo fica inviavel devido ao banco do pdv so ter informacoes daquele ecf, como voces estao fazendo?

[Nf-E 3.10 - Notas Fiscais Referenciadas Na Devolução, Não Estão Gerando As Tags.]

Estou gerando o TXT para NF-e 3.10 e ao gerar preenchendo a tag NFref ele gera o TXT, mas não gera as referencias, segue a parte do código:

 

for I := 0 to Origens.Count - 1 do
begin
with NFe.Ide.NFref.Add do
begin
if (Origens[I].Modelo = '55') then
refNFe := Origens[I].ChaveAcesso
else if (Origens[I].Modelo = '04') then
begin
with RefNFP do
begin
cUF := Origens[I].CodigoUF;
AAMM := FormatDateTime('yymm', Origens[I].DataEmissao);
CNPJCPF := Origens[I].CNPJ;
IE := Origens[I].InscricaoEstadual;
modelo := Origens[I].Modelo;
serie := Origens[I].Serie;
nNF := Origens[I].NUmero;
end;
end
else if (Origens[I].Modelo = '03') then
begin
with RefECF do
begin
modelo := ECFModRef2B;
nECF := Origens[I].Sequencia;
nCOO := Origens[I].COO;
end;
end
else
begin
with RefNF do
begin
cUF := Origens[I].CodigoUF;
AAMM := FormatDateTime('yymm', Origens[I].DataEmissao);
CNPJ := Origens[I].CNPJ;
modelo := Origens[I].Modelo;
serie := Origens[I].Serie;
nNF := Origens[I].Numero;
end;
end;
end;

 

[Arquivo Txt - Incorreto]

Estou usando a versão do dia da postagem.

[Arquivo Txt - Incorreto]

Estou trabalhando com a 3.10 agora, além de precisar fazer o ajuste citado pelo Bruno Leandro, também precisei fazer um ajuste no arquivo pcnNFeRTXT.pas na função

 

 

procedure TNFeRTXT.LerRegistro(const Registro: String);
var
  i, j, k: Integer;
  ok: Boolean;
begin


  FRegistro := Registro;
  FID := UpperCase(copy(Registro, 2, pos('|', FRegistro) - 2));
  if FID = '' then
    exit;
  if ID = 'A' then
  begin
     NFe.infNFe.Versao := 3.10;//LerCampo(tcDe2, 'versao'); <-- Ele retorna automaticamente 2 ao invés de 3.10
  end;
...

[Arquivo Txt - Incorreto]

Atualizei o meu acbr ontem e ao gerar o arquivo txt para a versão 2.00 está gerando com 2 cabeçalhos

 

NOTA FISCAL|1

NOTA FISCAL|1

 

Favor verificar.

[Erro Na Função Abreportaserialdll Em Acbrecfbematech]

O caminho que está buscando o arquivo INI é o do executável, enquanto  o correto seria puxar de onde esta a DLL, ficando assim:

 

Errado:

 

{$IFDEF MSWINDOWS}
   {$IFDEF CPU64}
    IniFile := ExtractFilePath( ParamStr(0) )+'BemaFi64.INI' ;
   {$ELSE}
    IniFile := ExtractFilePath( ParamStr(0) )+'BemaFi32.INI' ;
   {$ENDIF}
   if FileExists( IniFile ) then
      ConfiguraBemaFI32ini(aPorta, aPath);
  {$ENDIF}

 

 

Correto:

 

{$IFDEF MSWINDOWS}
   {$IFDEF CPU64}
    IniFile := ExtractFilePath(PathDLL)+'BemaFi64.INI' ;
   {$ELSE}
    IniFile := ExtractFilePath(PathDLL)+'BemaFi32.INI' ;
   {$ENDIF}
   if FileExists(IniFile) then
      ConfiguraBemaFI32ini(aPorta, aPath);
  {$ENDIF}

 

[Nf-E Arquivo Txt Não Gera Linha A Nem B]

Baixei a nova versão ontem, mas continua tudo igual até o momento, só estou esperando isso para atualizar.

Infelizmente minha transmissão de NF-e é feita através do arquivo TXT e dependo disto.

[Nf-E Arquivo Txt Não Gera Linha A Nem B]

Não é isto, pois com qualquer versão de layout esta dando, voltei a versão do ACBr anterior que eu estava usando e funciona corretamente.

[Erro Ao Exportar Para Txt]

Atualizei minha versao hoje e tambem esta acontecendo isso.