Márcio Antônio
-
Total de ítens
229 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Márcio Antônio
-
-
Estou com alguns clientes reclamando que está dando essa mensagem desde ontem(05/07/2023)... estava normal, mas desde ontem que começou a dar essa mensagem... alguém mais está passando por isso?
-
Obrigado pelo retorno Italo, irei verificar... muito obrigado.
-
Bom dia, sei que o post é antigo, mas me deparei com esse problema hoje, como eu consigo gerar esse segundo código e aonde informar o mesmo no mdf?
-
Achei, é a modalidade.... agora deu esse erro:
02/06/23 12:13:58:452 - Autenticando Token...
02/06/23 12:14:02:119 - Comando Enviar: {"numeroConvenio":2323250,"numeroCarteira":17,"numeroVariacaoCarteira":19,"codigoModalidade":1,"dataEmissao":"01.03.2023","dataVencimento":"03.07.2023","valorOriginal":51.52,"valorAbatimento":0,"codigoAceite":"N","codigoTipoTitulo":2,"descricaoTipoTitulo":"DM","indicadorPermissaoRecebimentoParcial":"S","numeroTituloBeneficiario":"350133","campoUtilizacaoBeneficiario":"SUJEITO A PROTESTO 05 DD AP\u00f3S ","numeroTituloCliente":"00023232500000024686","mensagemBloquetoOcorrencia":"","pagador":{"tipoInscricao":2,"numeroInscricao":60409075044605,"nome":"Nestl\u00e9 Brasil Ltda*","endereco":"RODOVIA ANHANGUERA, S\/N ","cep":13490000,"cidade":"Cordeir\u00f3polis","bairro":"","uf":"SP"},"indicadorPix":"S"}
02/06/23 12:14:02:925 - Retorno Envio: HTTPCode=400
ErrorCode=0
Result={"erros": [{"codigo": "3646865","versao": "1","mensagem": "Operação não permitida pois o boleto não pertence ao convênio do usuário.","ocorrencia": "DCgL90BDrBXV+EkKKAVQ0101"}]}
-
e aonde fica essa tag? não conhecia, pedi para o banco essa informação para alimentar...
-
Perdão pessoal, eu tinha digitado a minha chave errado.... mas ajustei, e deu essa mensagem agora:
02/06/23 11:32:47:694 - Autenticando Token...
02/06/23 11:32:49:286 - Comando Enviar: {"numeroConvenio":2323250,"numeroCarteira":17,"numeroVariacaoCarteira":0,"codigoModalidade":1,"dataEmissao":"22.02.2023","dataVencimento":"03.07.2023","valorOriginal":45.93,"valorAbatimento":0,"codigoAceite":"N","codigoTipoTitulo":2,"descricaoTipoTitulo":"DM","indicadorPermissaoRecebimentoParcial":"S","numeroTituloBeneficiario":"350132","campoUtilizacaoBeneficiario":"SUJEITO A PROTESTO 05 DD AP\u00f3S ","numeroTituloCliente":"00023232500000024685","mensagemBloquetoOcorrencia":"","pagador":{"tipoInscricao":2,"numeroInscricao":16404287022205,"nome":"Suzano S.A","endereco":"Avenida Newton Bello ","cep":65919050,"cidade":"Imperatriz","bairro":"","uf":"MA"},"indicadorPix":"S"}
02/06/23 11:32:49:942 - Retorno Envio: HTTPCode=400
ErrorCode=0
Result={"erros": [{"codigo": "4432632","versao": "1","mensagem": "Variacao da carteira nao infor mada.","ocorrencia": "DCg4g6jbCgOgdH0jAAbg0101"}]} -
Minhas configurações...
ACBrBoleto.Configuracoes.WebService.Ambiente := taHomologacao;
ACBrBoleto.Configuracoes.WebService.SSLHTTPLib := httpWinHTTP;
ACBrBoleto.Configuracoes.WebService.SSLCryptLib := cryWinCrypt;
ACBrBoleto.Configuracoes.WebService.SSLType := LT_TLSv1_2;
ACBrBoleto.Configuracoes.WebService.TimeOut := 30000;
ACBrBoleto.Configuracoes.WebService.UseCertificateHTTP := False;
ACBrBoleto.Configuracoes.WebService.Operacao := tpInclui; -
Tentei incluir o meu primeiro boleto via api do banco do brasil, e deu esse erro abaixo:
02/06/23 11:11:30:247 - Autenticando Token...
02/06/23 11:11:35:183 - Comando Enviar: {"numeroConvenio":2323250,"numeroCarteira":17,"numeroVariacaoCarteira":0,"codigoModalidade":1,"dataEmissao":"03.05.2023","dataVencimento":"03.07.2023","valorOriginal":43.92,"valorAbatimento":0,"codigoAceite":"N","codigoTipoTitulo":2,"descricaoTipoTitulo":"DM","indicadorPermissaoRecebimentoParcial":"S","numeroTituloBeneficiario":"350131","campoUtilizacaoBeneficiario":"SUJEITO A PROTESTO 05 DD AP\u00f3S ","numeroTituloCliente":"00023232500000024684","mensagemBloquetoOcorrencia":"","pagador":{"tipoInscricao":2,"numeroInscricao":20390868000152,"nome":"J.V. DE MELO NETO SUPERMERCADO EPP","endereco":"RUA TREZE DE DEZEMBRO, 42 ","cep":55530000,"cidade":"Gameleira","bairro":"","uf":"PE"},"indicadorPix":"S"}
02/06/23 11:11:35:776 - Retorno Envio: HTTPCode=403
ErrorCode=0
Result={ "statusCode": 403, "error": "Forbidden", "message": "Application key is not allowed to call this resource method" }O que fiz de errado?
-
Obrigado pela grande ajuda Renato, está tudo funcionando. Muito obrigado!
-
Show Renato, agora esta gravando tudo em sequência, mas o que importa para realizar as manifestações são os Resumo da Nota e a Nota Completa, por que os outros 2, são eventos vinculados a essas notas e aos outros processos, como por exemplo algum MDFe da empresa... né isso?
-
Comparando com o exemplo do acbr:
No exemplo docZip[i].resDFe.chDFe
No meu docZip.Items[i].resDFe.chDFe
Será que esse ".items" está quebrando?
-
11 horas atrás, Renato Rubinho disse:
Boa noite,
Se baixa alguns registros, provavelmente seu código está ok.
Por via das dúvidas, crie um log para armazenar todos os NSUs recebidos, se não falhar a sequência, está ok.
Obs: não cole conteúdos grandes de fontes, dificulta a leitura do tópico, quando necessário, anexe um arquivo com o conteúdo.
A sefaz pode ter demorado para distribuir a NFe para o seu cliente, talvez aguardando mais um tempo ela esteja disponível.
Não houve, que me lembre, nenhuma NT com esta informação.
Perdão pela cola do código grande...
Na minha tabela, eu gravo o nsu da nota recebida, e vez ou outra, não fica na sequência... mas eu fico na dúvida, pq eu só gravo na tabela se atender essa minha condição abaixo:
if dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.chDFe <> '' then
-
Abaixo o meu código da consulta...
if ConexaoAtiva then
begin
try
empresainfo := dtmCheca.ChecaEmpresa(dblcbEmpresa.KeyValue);vNSU := empresainfo.NSUultimo;
dtmSysMsg.Aguarde(cxgrdNFVenda,'Consultando NF-e destinadas');
k := 0;
repeat
inc(k);// Consultar Notas Destinadas
with dtmCompra.ACBRNFeTriviaDownload do
begin
DistribuicaoDFePorUltNSU(StrToInt(empresaInfo.PessoaInfo.EnderecoPrinc.Estado.CODESTADOIBGE),
empresaInfo.pessoaInfo.cnpjCpf,
vNSU);
end;vStat := IntToStr(dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.cStat);
vMotivo := dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo;if dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then
vTemMais := 'N'
else
vTemMais := 'S';vUltNsu := dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU;
vNSU := vUltNsu;
// Atualizando a NSU na tabela empresa
with dtmCompra do
begin
with isqAtualizaNsuEmpresa do
begin
ParamByName('nsu').AsString := vUltNsu;
ParamByName('Id_Empresa').AsInteger := empresaInfo.pessoaInfo.id_pessoa;
ExecQuery;
end;isqAtualizaNsuEmpresa.Transaction.CommitRetaining;
end;
// Fim Atualizaçãoif dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138 then
begin
j := dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count - 1;for i := 0 to j do
begin
// Gravando as Notas Destinadas no Banco
try
with dtmCompra do
begin
if dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.chDFe <> '' then
begin
vChave := dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.chDFe;with iqrConsChaveNFeDestinadas do
begin
Close;
ParamByName('Id_Empresa').AsInteger := empresaInfo.pessoaInfo.id_pessoa;
ParamByName('Chave').AsString := vChave;
Open;
end;
if iqrConsChaveNFeDestinadas.IsEmpty then
begin
idsNFeDestinadas.Open;
idsNFeDestinadas.Insert;
dtmGeral.CheckEditState(idsNFeDestinadas);idsNFeDestinadasID_PESSOA_EMP.AsInteger := empresaInfo.pessoaInfo.id_pessoa;
idsNFeDestinadasCHAVENFE.AsString := vChave;
idsNFeDestinadasDIGCHAVENFE.AsString := ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.digVal;
idsNFeDestinadasNSU.AsString := ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].NSU;
idsNFeDestinadasVALORNFE.AsFloat := ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.vNF;
idsNFeDestinadasDATARECEB.AsDateTime := ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.dhRecbto;
idsNFeDestinadasDATAMANIFESTO.AsDateTime := dtmGenIbx.GetDBNow;
idsNFeDestinadasPENDENTEDOWNLOAD.AsInteger := 0;
idsNFeDestinadasDATAEMISSAO.AsDateTime := ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.dhEmi;
idsNFeDestinadasNUMNF.AsString := Copy(vChave, 26, 9);
idsNFeDestinadasSERIENF.AsString := Copy(vChave, 23, 3);
idsNFeDestinadasCNPJEMITENTE.AsString := ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.CNPJCPF;
idsNFeDestinadasINSCESTEMITENTE.AsString := ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.IE;
idsNFeDestinadasRAZAOSOCIALEMITENTE.AsString := ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.xNome;case ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.tpNF of
tnEntrada: idsNFeDestinadasTIPONOTA.AsString := 'E';
tnSaida: idsNFeDestinadasTIPONOTA.AsString := 'S';
end;case ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.cSitDFe of
snAutorizado: idsNFeDestinadasID_NFESTATUS.AsInteger := Integer(snfvAutorizada);
snDenegado: idsNFeDestinadasID_NFESTATUS.AsInteger := Integer(snfvDenegada);
snCancelado: idsNFeDestinadasID_NFESTATUS.AsInteger := Integer(snfvCancelada);
end;idsNFeDestinadasID_NFESTATUSMANISFESTO.AsInteger := Integer(smdtIndefinida);
idsNFeDestinadasLANCCOMPRAS.AsInteger := 0;idsNFeDestinadas.Post;
idsNFeDestinadas.Transaction.CommitRetaining;
// Manifestação Destinatário
vIdLote := 1;
vCNPJ := empresainfo.pessoaInfo.cnpjCpf;
vOrgao := 91; // Nacional
nSeqEvento := 1;dtmCompra.ACBRNFeTriviaDownload.NotasFiscais.Clear;
dtmCompra.ACBRNFeTriviaDownload.EventoNFe.Evento.Clear;with dtmCompra.ACBRNFeTriviaDownload.EventoNFe.Evento.Add do
begin
InfEvento.cOrgao := vOrgao; // Nacional
InfEvento.chNFe := vChave;
InfEvento.CNPJ := vCNPJ;
InfEvento.nSeqEvento := nSeqEvento;
InfEvento.dhEvento := dtmGenIbx.GetDBNow;
InfEvento.tpEvento := teManifDestCiencia;
end;dtmCompra.ACBRNFeTriviaDownload.EnviarEvento(vIdLote);
// Fim Manifestação// Atualizando o status da NFEDestinadas
with dtmCompra do
begin
with isqAlteraStatusNFeDestinadas do
begin
ParamByName('id_nfestatusmanisfesto').AsInteger := Integer(smdtCiente);
ParamByName('pendentedownload').Clear;
ParamByName('Id_Empresa').AsInteger := empresainfo.pessoaInfo.id_pessoa;
ParamByName('Chave').AsString := vChave;
ParamByName('lanccompras').Clear;
ExecQuery;
end;isqAlteraStatusNFeDestinadas.Transaction.CommitRetaining;
end;
// Fim Atualização
end;
end;
end;
except
On E: Exception do
begin
if dtmCompra.idsNFeDestinadas.Transaction.Active then
dtmCompra.idsNFeDestinadas.Transaction.RollbackRetaining;
end;
end;
end;
// Fim Gravação
end
else if dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 656 then
begin
dtmSysMsg.FimAguarde;
ShowWarningMessage('Rejeição: Consumo Indevido!', Self.Caption);
Exit;
end
else if dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 593 then
begin
dtmSysMsg.FimAguarde;
ShowWarningMessage('Rejeição: CNPJ-Base consultado difere do CNPJ-Base do Certificado Digital!', Self.Caption);
Exit;
end
else if dtmCompra.ACBRNFeTriviaDownload.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then
begin
dtmSysMsg.FimAguarde;
ShowWarningMessage('Nenhum documento localizado!', Self.Caption);
Exit;
end
else
begin
dtmSysMsg.FimAguarde;
ShowWarningMessage('Não foi possível realizar a consulta, erro: ' + vStat + ' - ' + vMotivo + '!', Self.Caption);
Exit;
end;dtmSysMsg.FimAguarde;
until (vTemMais = 'S');
except
on E : Exception do
begin
dtmSysMsg.FimAguarde;
ShowErrorMessage(E.Message, Self.Caption);
end;
end; // tryExecutaBusca;
end; // if
-
Olá pessoal, sei que o assunto é antigo, mas eu tenho um código que estava consultando normalmente as notas destinadas contra um cnpj, mas de uns tempos para ca, alguns clientes começaram a reclamar que algumas notas não estavam aparecendo na consulta, e quando ele ia no ambiente nacional, a mesma estava lá... pedi para eles verificarem com a sefaz, e a mesma respondeu isso:
Então as empresas destinatárias poderão fazer download de todas as NF-e de seus fornecedores?
Não. O emitente da NF-e tem obrigação de enviar o arquivo XML para o destinatário da mercadoria, conforme definido pela legislação vigente. O sistema só permitirá o download, pelo destinatário, de um percentual da média mensal do volume total de suas NF-e.
isso mudou? alguém sabe alguma coisa sobre isso?
Obrigado desde já!
-
Olá, estou tentando consumir uma API utilizando o componente IdHTTP, estou tendo dificuldade, alguém tem algum exemplo de como fazer? eu já fiz na versão X8 do delphi utilizando o Rest Client, mas na versão 2007 do delphi, não tem esse componente...
Obrigado desde já!
-
-
Acabei de testar usando a Daruma DR800, saiu perfeito. Mas na epson TM-T20x, continua com problema.... estou usando o driver mas recente da epson, o 6.1
-
Não tinha feito, acabei de baixar e reinstalar... e está do mesmo jeito!
-
15 horas atrás, Márcio Antônio disse:
Opa Daniel, sei que o post é bem antigo, mas não achei a solução para esse problema, se eu coloco a propriedade FormularioContinuo := True, ele imprime até um determinado item e para, se eu altero para FALSE, ele imprime com um salto(para no 56 e volta no item 77) e imprime o resto da NFCe completa, no preview aparece tudo normal, idem para o xml, o problema é apenas na impressão... mesmo realizando o seu ajuste acima... estou usando a Epson TM-T20x e o driver recente da epson, o 6.1 e usando o fortes...
isso tudo é com a propriedade FormularioContinue = True;
Se ele For, FALSE.... a impressão fica assim:
-
Em 15/01/2020 at 18:09, Daniel Simoes disse:
Opa Daniel, sei que o post é bem antigo, mas não achei a solução para esse problema, se eu coloco a propriedade FormularioContinuo := True, ele imprime até um determinado item e para, se eu altero para FALSE, ele imprime com um salto(para no 56 e volta no item 77) e imprime o resto da NFCe completa, no preview aparece tudo normal, idem para o xml, o problema é apenas na impressão... mesmo realizando o seu ajuste acima... estou usando a Epson TM-T20x e o driver recente da epson, o 6.1 e usando o fortes...
-
Na verdade Juliomar, quando acontece algum erro na emissão da NFCe, apenas damos o ACBrTEFD1.CancelarTransacoesPendentes;
Quando ocorre tudo certo na emissão na NFCe, damos o ACBrTEFD1.ImprimirTransacoesPendentes();
-
Algumas alterações que fiz, foram: setar as propriedades (FormularioContinuo e ImprimeNomeFantasia) para "True" e também as margens: MargemDireita e Esquerda: 4 ; MargemInferior: 5 e MargemSuperior: 1
Diminuiu o erro, mas não resolveu... comparando com o exemplo, não achei mas nada de diferente...
-
Olá,
Aconteceu uma situação agora aqui, fizemos uma venda... e um dos itens da NFCe, estava com o código de barras inválido, ai a sefaz rejeitou o mesmo, perfeito! ai depois chamei a função de ACBrTEFD1.CancelarTransacoesPendentes;
e ele me retornou a mensagem que havia cancelado, como mostra o anexo, mas quando checamos no TEF, a venda estava aprovada, o que pode ter acontecido?
-
Não entendi a pergunta pedro...
Rejeicao: Consumo Indevido (Deve ser utilizado o ultNSU nas solicitacoes subsequentes. Tente apos 1 hora)
em ACBrMDFe
Postado
Bom dia, estou tendo problemas em consultar as notas de alguns clientes meu, na minha primeira consulta estou recebendo essa mensagem de erro de consumo indevido, um dos casos é quando estou fazendo a consulta pela primeira vez, passo no nsu o valor 0, e já recebo esse erro de consumo indevido, no outro caso passo o valor do último nsu, e mesmo assim recebo essa mensagem, o que pode ser? segue abaixo os logs do segundo caso...
20230711080143-dist-dfe.xml 20230711080142-con-dist-dfe.xml