Márcio Antônio
Membros-
Total de ítens
229 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que Márcio Antônio postou
-
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
-
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?
-
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ção if 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; // try ExecutaBusca; 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á!
-
Consumir api rest com delphi 2007
um tópico no fórum postou Márcio Antônio Dúvidas não relacionadas ao ACBr
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!
-
isso tudo é com a propriedade FormularioContinue = True; Se ele For, FALSE.... a impressão fica assim:
-
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...
-
Problema no Cancelamento TEF!
Márcio Antônio replied to Márcio Antônio's tópico in Dúvidas sobre TEF
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(); -
Impressão fora do layout!
Márcio Antônio replied to Márcio Antônio's tópico in NFC-e - Nota Fiscal do Consumidor Eletrônica
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...