[Validação boleto banco ABC Brasil]

bom dia, estou tendo algumas dificuldades com a validação junto ao banco ABC brasil.
Seguites erros:

1º Carteira posicao 108 a 108 - conteudo 0 - utilizo o mesmo procedimento para os outros bancos e nao tenho esse tipo de problema, alguem sabe me explicar se muda alguma coisa para o banco ABC?

Os outros erros irei enviar como anexo.

Alguem pode me ajudar?
 

TESTE009.txt

[Dados da nfe]

Muito obrigado, na hora que iria posta que consegui resolver, vi sua resposta.
fiz bem parecido com o que me passou.
Estou com outra situação no abc, irei finalizar esse topico e abrir outro
muitoooo obrigado pela ajuda

 

[Dados da nfe]

Bom dia, obrigado pelo retorno.
Ainda sem conseguir usar, ListaDadosNFe.Add(TACBrDadosNFe)

Essa function receber um objeto do tipo TACBrDadosNFe e retorna um integer.
nao estou sabendo usar, poderia me ajudar?

Atenciosamente, 

Felipe Lopes

[Dados da nfe]

Boa tarde, estou tendo uma dificuldade para homologar o boleto com o banco ABC pois estao pedindo os dados da nfe(chavedeacesso) .
O acbrboleto atende a esse requisito? 

Se sim, como posso proceder?

 

Atenciosamente

[Bloco K200 com apenha 1 item]

Resolvido, tem momentos que estamos tão atarefados que nao conseguimos enxergar um simples erro.

Obrigado a todos..

[Bloco K200 com apenha 1 item]

Bom dia, estou tendo uma dificuldade em gerar o bloco K200,  estou alimentando o bloco com mais de 400 itens, porem apos gera o arquivo, so aparece 1 item.

Alguem pode me dar um caminho para a correção?

Irei colocar o codigo da criação e em anexo o arquivo txt.

 

  with ACBrSPEDFiscal1.Bloco_K do
  begin
    cdsgrupoproduto.Filtered := True;
    with RegistroK001New do
    begin
      IND_MOV := imComDados;

      with RegistroK100New do
      begin
        DT_INI := cbde.Date;
        DT_FIN := cbate.Date;

        with RegistroK200New do
        begin
          xsql := 'select '+
                  'a.codmanual, a.cidchaves, a.descricao, a.tipoestoqueproduto, a.cidchavesproprietarioproduto, '+
                  'd.sigla, c.codigoreceita, '+
                  'sum(e.quantidade) as saldo '+
                  'from '+
                  'tblprodutos a, tblgrupoproduto b, tbltipoprodutos c, tblunidadedemedida d, tblhistoricoproduto e '+
                  'where '+
                  'a.cidchavesgrupodeproduto=b.cidchaves and '+
                  'b.cidchavestipo=c.cidchaves and '+
                  'a.cidchaves=e.cidchavesproduto and '+
                  'a.cidchavesunidademedida=d.cidchaves and '+
                  'e.data<=:data  and ';

                  if cdsgrupoproduto.RecordCount>0 then
                  begin
                    cdsgrupoproduto.First;
                    xsql := xsql +' ( ';
                    while not cdsgrupoproduto.Eof do
                    begin
                      xsql := xsql+'B.cidchaves='+cdsgrupoprodutocidchaves.AsString+' or ';
                      cdsgrupoproduto.Next;
                    end;
                    xsql := copy(xsql,1,length(xsql)-3);
                    xsql := xsql +' )';
                  end
                  else
                  xsql := copy(xsql,1,length(xsql)-4);

                  xsql := xsql+'group by a.cidchaves having sum(e.quantidade)>0 order by a.descricao ';

          qryk200.Close;
          qryk200.SQL.Clear;
          qryk200.SQL.Add(xsql);
          qryk200.ParamByName('data').AsDate    :=cbate.Date;
          qryk200.Open;
          qryk200.First;
          while not qryk200.Eof do
          begin
            COD_ITEM  := qryk200cidchaves.AsString;
            QTD       := qryk200saldo.AsFloat;
            Case qryk200tipoestoqueproduto.AsInteger Of
              0 :
                  begin
                    IND_EST   := estPropInformantePoder;
                    COD_PART := '';
                  end;
              1 :
                  begin
                    IND_EST   := estPropInformanteTerceiros;
                    COD_PART  := qryk200cidchavesproprietarioproduto.AsString;
                  end;
              2 :
                  begin
                    IND_EST   := estPropTerceirosInformante;
                    COD_PART  := qryk200cidchavesproprietarioproduto.AsString;
                  end;
            End;

            DT_EST := cbate.Date;
            qryk200.Next;
          end;

          {with RegistroK220New do
          begin
            DT_MOV := ACBrSPEDFiscal1.DT_INI;
            COD_ITEM_ORI := '000008';
            COD_ITEM_DEST := '000010';
            QTD := 1;
            QTD_DEST := 1;
          end;
          }
        end;
      end;
    end;
    cdsgrupoproduto.Filtered := False;

  end;
 

SpedFiscal.txt

[Bloco K200 Gerando somente 1 registro]

Bom dia, estou com uma dificuldade ao gerar o bloco K200, o mesmo bloco esta sendo gerado apenas com 1 registro, porem eu alimento o bloco com mais de 400 registros.

Estou enviando a copia do codigo e o arquivo TXT gerado, alguém já passou por isso?

 

OBS: APAGUEI UMA PARTE DO ARQUIVO CONTENDO OS DADOS DAS EMPRESAS.

 

  with ACBrSPEDFiscal1.Bloco_K do
  begin
    cdsgrupoproduto.Filtered := True;
    with RegistroK001New do
    begin
      IND_MOV := imComDados;

      with RegistroK100New do
      begin
        DT_INI := cbde.Date;
        DT_FIN := cbate.Date;

        with RegistroK200New do
        begin
          xsql := 'select '+
                  'a.codmanual, a.cidchaves, a.descricao, a.tipoestoqueproduto, a.cidchavesproprietarioproduto, '+
                  'd.sigla, c.codigoreceita, '+
                  'sum(e.quantidade) as saldo '+
                  'from '+
                  'tblprodutos a, tblgrupoproduto b, tbltipoprodutos c, tblunidadedemedida d, tblhistoricoproduto e '+
                  'where '+
                  'a.cidchavesgrupodeproduto=b.cidchaves and '+
                  'b.cidchavestipo=c.cidchaves and '+
                  'a.cidchaves=e.cidchavesproduto and '+
                  'a.cidchavesunidademedida=d.cidchaves and '+
                  'e.data<=:data  and ';

                  if cdsgrupoproduto.RecordCount>0 then
                  begin
                    cdsgrupoproduto.First;
                    xsql := xsql +' ( ';
                    while not cdsgrupoproduto.Eof do
                    begin
                      xsql := xsql+'B.cidchaves='+cdsgrupoprodutocidchaves.AsString+' or ';
                      cdsgrupoproduto.Next;
                    end;
                    xsql := copy(xsql,1,length(xsql)-3);
                    xsql := xsql +' )';
                  end
                  else
                  xsql := copy(xsql,1,length(xsql)-4);

                  xsql := xsql+'group by a.cidchaves having sum(e.quantidade)>0 order by a.descricao ';

          qryk200.Close;
          qryk200.SQL.Clear;
          qryk200.SQL.Add(xsql);
          qryk200.ParamByName('data').AsDate    :=cbate.Date;
          qryk200.Open;
          qryk200.First;
          while not qryk200.Eof do
          begin
            COD_ITEM  := qryk200cidchaves.AsString;
            QTD       := qryk200saldo.AsFloat;
            Case qryk200tipoestoqueproduto.AsInteger Of
              0 :
                  begin
                    IND_EST   := estPropInformantePoder;
                    COD_PART := '';
                  end;
              1 :
                  begin
                    IND_EST   := estPropInformanteTerceiros;
                    COD_PART  := qryk200cidchavesproprietarioproduto.AsString;
                  end;
              2 :
                  begin
                    IND_EST   := estPropTerceirosInformante;
                    COD_PART  := qryk200cidchavesproprietarioproduto.AsString;
                  end;
            End;

            DT_EST := cbate.Date;
            qryk200.Next;
          end;

          {with RegistroK220New do
          begin
            DT_MOV := ACBrSPEDFiscal1.DT_INI;
            COD_ITEM_ORI := '000008';
            COD_ITEM_DEST := '000010';
            QTD := 1;
            QTD_DEST := 1;
          end;
          }
        end;
      end;
    end;
    cdsgrupoproduto.Filtered := False;

  end;
 

 

 

Atenciosamente,

SpedFiscal.txt

[Erro ao Encerrar Mdfe]

bom dia, qual a propriedade do ACBrMDFE que diz respeito ou local do arquivo temp.xml?
 

[Erro ao Encerrar Mdfe]

Não realizei esse teste.

[Erro ao Encerrar Mdfe]

Bom dia, obrigado pelo retorno.
Exatamente, porém não sei qual a propriedade do  componente para que eu possa alterar o local de arquivo Temp.xml

Atenciosamente,

[Erro ao Encerrar Mdfe]

estou anexao o erro que apresenta.
ainda nao consegue solucionar.

[Erro ao Encerrar Mdfe]

Bom dia, 
Ao tentar encerrar um manifesto eletronico, esta ocorrendo o seguinte erro: Não possivel criar o arquivo temp.xml.
Esse arquivo esta sendo criando na mesma pasta que se encontra o sistema, ressaltando que a pasta esta com as permissões totais.
Como posso solucionar essa questão? como posso alterar a o local de criação do arquivo?

Ateciosamente,

Felipe Lopes

[Duplicidade de NF-e, com diferenca na Chave de Acesso]

Senhores, bom dia
de um tempo pra ka, tem ocorrido com frequência erro pela chave de acesso estar diferente.
Vou explicar como funciona.
Tenho vários clientes onde a infraestrutura de internet é bem limitada, ou seja internet sempre ocorrendo problemas

No meu sistema, quando por algum motivo(internet) no momento de validação da nota desse algum tipo de problema e não tivesse o retorno do sefaz, o usuário faria uma nota tentativa de transmissão.

Nessa nova tentativa, caso desse duplicidade de nf-e, o sistema automaticamente busca a recuperação do protocolo e atualizava o arquivo xml da nota referida.

Esse processo de retransmissão, meu sistema gera um novo arquivo xml porém por algum motivo está gerando com a chave diferente do que foi autorizado, antes esse processo funcionava perfeitamente.

 

Podem me ajudar?

 

Atenciosamente,

Felipe Lopes

[Qr Code MDfe]

51 minutos atrás, BigWings disse:

Basta atualizar os fontes.

Meus fontes são de 16/07/2019, somente atualizar ou terei que remover e instalar novamente?

 

[Qr Code MDfe]

Boa tarde, 
Não estamos conseguindo autorizar o manifesto justamento pelo motivo do qrcod.
Não consegui identificar  como que se preenche ou habilita a Tag qrCodMDFe.

Poderiam me ajudar?

 

Atenciosamente, 

Felipe Lopes

[Boleto Santander]

Boa tarde, procurei aqui no forum e não encontrei nada a respeito.
Estou com uma dificuldade para aprovar o arquivo remessa com o santander que é o seguinte:

•  Carteira a inserir no arquivo remessa: 5 Rapida com Registro (Empresa imprime)
•  Carteira a inserir nos boletos: 101

E solicitam também a alteração no código de barras, em anexo.

Poderiam me ajudar?

 

Atenciosamente,

 

Felipe Lopes

 

 

 

Estou com uma 

[Evento DistribuicaoDFE]

8 minutos atrás, Italo Jurisato Junior disse:

Felipe,

Primeiramente isso esta totalmente errado.

Como a Contabilidade sabe que a empresa comprou ou deixou de comprar de uma determinada empresa?

E pior, ela envia um evento de manifestação do destinatário só para ter o XML da nota.

Se a empresa não possui um departamento de Compras certamente que faz as compras é o Almoxarifado, sendo assim este é quem deve monitorar as notas e enviar o evento de manifestação mais adequado a cada uma delas.

Caso a empresa possua um departamento de Compras, este deve comunicar ao Almoxarifado que foi realizado uma compra, de quem comprou e o que comprou, ou seja, enviar para o Almoxarifado uma cópia do Pedido de Compra e este fazer o monitoramento das notas.

A Contabilidade é o departamento fim.

Obrigado pelo retorno, isso seria o cenário correto, porém muitas das empresas não trabalham assim.

lembrando que o setor contabil apenas gera o evento de ciencia. 

Mas eu pergunto, como o programa disponibilizado pela receita, monitora essa situação?

Atenciosamente.

 

[Evento DistribuicaoDFE]

4 minutos atrás, BigWings disse:

Lembrando que você só pode capturar eventos emitidos por terceiros.

Eventos emitidos pelo próprio CNPJ em uso como os eventos de manifestação do destinatário para uma NFe emitida por terceiros não são retornados, então não é possível saber a situação da manifestação atual já emitida para uma nota.

Então, fica muito dificil assim.
Pois o caso em um cliente funciona da seguinte forma:

o setor contabil, fica monitorando as nf-e emitidas contra nosso CNPJ atraves do sistema contabil de terceiros.
O sistema automaticamente, ja baixa o evento dando ciencia para o download do xml completo posteriormente.

No setor de estoque, onde fica encarregado de dar confirmação na operação(atraves do meu sistema) a mesma fica perdida, pois não conseguimos identificar as notas que ja foram das ciencia em outra ocasião em outro sistema.

Lembrando que no programa disponibilizado pela propria receita, eles identificam essa situação.

 

[Evento DistribuicaoDFE]

senhores, bom dia.

Já li alguns posts e não consegui encontrar uma solução.
Monitorando as Nf-e emitadas contra o cnpj do cliente, o valor do retorno (ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.procEvento.RetinfEvento.tpEvento) ta sendo sempre o não mapeado
Mesmo dando ciência ou confirmando a operação.
Como podemos saber o tipo de envento referente a chave de uma determinada nota eletronica.
Atenciosamente,

[Recuperar Protocolo XML]

• 6 horas atrás, Italo Jurisato Junior disse:

  Bom dia Felipe,

  Qual é a função que você usava antes e que não funciona mais?

  Ao enviar a nota se ocorrer problemas no retorno devemos:

  1. Carregar o XML da Nota através do método LoadFromFile;

  2. Executar o método Consultar;

  O procedimento é só esse e ele funciona até hoje.

  Obrigado pelo retorno, vi que o procedimento continua o mesmo.
  A mudança que ocorre,  é que o processo de gerar o xml antes da atualização gerava o arquivo com o mesmo nome substituindo o anterior.
  E agora, esta sendo gerado arquivo com nome diferente e com isso, não consigo realizar o processo de consulta.
  Tem momento que é necessário gerar o xml novamente.
  
   

[Recuperar Protocolo XML]

Senhores, bom dia.
Fiz a atualização do componente, e uma função que se tinha antes que era recuperar protocolo do nfe, hoje não estou conseguindo utilizar.

Tenho clientes onde a internet é bem ruim, com isso sempre temos interrupções no momento do retorno das informações no ato de validação.
Essa função recuperar protocolo é muito válida, pois se tentar transmitir novamente ocorre o erro de duplicidade.

Qual o novo procedimento para essa questão?

Atenciosamente,

[Erro: Não existe NFe com a chave... carregada]

Bom dia, descobri o erro.
é que tenho uma rotina apos o recebimeto do arquivo xml onde carrego todas as informações de impostos para o banco de dados.
Não estava limpando o componente apos essa rotina.
Obrigado turma.
 

[Erro: Não existe NFe com a chave... carregada]

na propriedade    InfEvento.cOrgao   coloquei o valor de 91.
Esse erro so ocorre a partir do segundo envio, exemplo.

Entro no sistema e envio o evento normalmente.
Se eu for enviar novamente o evento em sequencia, ocorre o erro.

esvazio o compornente(ACBrNFe1.EventoNFe.Evento.Clear;) antes de refazer o processo novamente.

 

Se eu sair do sistema e entrar novamente, consigo enviar normalmente o documento antes com erro.

Atenciosamente,

[Erro: Não existe NFe com a chave... carregada]

Boa tarde senhores, estou incrementando o manifesto de destinatários.

quando envio o envento, esta retonando um erro(em anexo) informando que nao existe a chave carregada:

InfEvento.cOrgao   := StrToInt(Copy(cdsmanifestodestinatariochavedeacessp.AsString,1,2));
 infEvento.chNFe    := cdsmanifestodestinatariochavedeacessp.AsString;
 infEvento.CNPJ     := qryempresacnpj.AsString;
 infEvento.dhEvento := now;
 infEvento.tpEvento := teManifDestConfirmacao;

       try
           ACBrNFe1.EnviarEvento(cdsmanifestodestinatario.RecNo);

Podem me informar o que ocasiona esse erro?

 

Atenciosamente, 

 

Felipe Lopes

 

[Erro na Instalação]

55 minutos atrás, BigWings disse:

Verifique se o Fortes Report está instalado corretamente.

Mais uma vez, muito obrigado.

Resolvido.

att