adalto.cruz

Pessoal, bom dia, Estou a alguns dias tentando, tratar em meu sistema para que, quando houve rejeição de nota fiscal, não gere o arquivo xml. simplesmente aborte. Quero que conclua todo o procedimento, se der tudo ok. Consultei em alguns post, que se o id de status for 100, é pq deu tudo certo. Mas não estou conseguindo implantar isto. Poderiam me ajudar? Desde já muito obrigado.

ola Ítalo, muito obrigado, fiz minha inscrição, tenho muitas dúvidas que certamente serão sanadas neste evento.

Pessoal boa noite, gostaria de pedir ajuda de vocês, em tentar resolver uma dúvida que estou tendo, na verdade não estou conseguindo resolver. Já li a NT 2014.002, e alguns post, daqui do fórum, mas ainda não conseguir resolver. Para baixar o xml completo, o 1º passo é dar o manifesto das notas, aguardar um tempo, só ai então poderá baixa-la. Até ai tudo bem, eu dei o manifesto, mas só está me retornando esses arquivos anexados. Já utilizei para baixar este método: ACBrNFe1.DistribuicaoDFePorChaveNFe(29,EdtCNPJ.Text,ChaveDeAcesso), mas não baixa o xml completo, apenas uns arquivos iguais aos anexados. Também utilizei o método de consulta pelo NSU, mas ainda assim não consigo, ter um progresso. Para ficar melhor o entendimento, irei colocar, como estou fazendo para consultar pelo NSU. Lembrando que, a partir daí eu faço o manifesto. Desde já, gostaria de agradecer ao apoio de todos. procedure Tfrm_principal.SpeedButton44Click(Sender: TObject); var CNPJ, Impresso, sChave, sEmissao, sCNPJ, sNome, sNumero, sSerie, sIEst, sNSU, sTipoNFe, ultNSU, sStat, sMotivo, sTemMais, sUltimoNSU, ANSU, utNSU, caminho, xml: String; Valor: Double; i, j, k, codcidade, iEvento, icount, codStatus, ult_cod: integer; begin cdsManifestacao.EmptyDataSet; codcidade := 29; ibqUltNsu.Open; ultnsu := ibqUltNsuMAX.Text; if not (InputQuery('Numero do ultimo NSU','',ultNSU)) then exit; ibqUltNsu.close; // ======== Dados do Emitente ============================================= ibqEmpresaDFe.Close; ibqEmpresaDFe.Active:=True; ibqEmpresaDFe.Open; if copy(ibqEmpresaDFeCNPJ_EMPRESA.AsString,10,4) <> '0000' then CNPJ := Copy(ibqEmpresaDFeCNPJ_EMPRESA.AsString, 1, 14) else CNPJ := Copy(ibqEmpresaDFeCNPJ_EMPRESA.AsString, 1, 9) + Copy(ibqEmpresaDFeCNPJ_EMPRESA.AsString, 14, 1); MemoStatus.Lines.Add('------------------------------------------------------'); MemoStatus.Lines.Add(' => Consultando NFe Destinadas'); MemoStatus.Lines.Add('------------------------------------------------------'); Memo1.Text := ''; k := 0; repeat inc(k); ACBrNFe1.DistribuicaoDFePorUltNSU(codcidade, CNPJ, ultNSU); sStat := IntToStr(ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat); sMotivo := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo; if ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then sTemMais := 'N' else sTemMais := 'S'; sUltimoNSU := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU; // GravaUltimaConsulta; if ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138 then begin MemoStatus.Lines.Add(' Documento Localizado para o Destinatário'); MemoStatus.Lines.Add(' Utilizar o número que esta no campo: Último NSU'); MemoStatus.Lines.Add(' Para uma nova pesquisa.'); MemoStatus.Lines.Add(' '); j := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count - 1; for i := 0 to j do begin sSerie := ''; sNumero := ''; sCNPJ := ''; sNome := ''; sIEst := ''; sNSU := ''; sEmissao := ''; sTipoNFe := ''; Valor := 0.0; Impresso := ' '; if ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.chDFe <> '' then begin // Conjunto de informações resumo da NF-e localizadas. // Este conjunto de informação será gerado quando a NF-e for autorizada ou denegada. sChave := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.chDFe; sSerie := Copy(sChave, 23, 3); sNumero := Copy(sChave, 26, 9); sCNPJ := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.CNPJCPF; sNome := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.xNome; sIEst := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.IE; case ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.tpNF of tnEntrada: sTipoNFe := 'E'; tnSaida: sTipoNFe := 'S'; end; sNSU := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.NSU; sEmissao := DateToStr(ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.dhEmi); Valor := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.vNF; case ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.cSitDFe of snAutorizado: Impresso := 'A'; snDenegado: Impresso := 'D'; snCancelado: Impresso := 'C'; end; end; // Registra no Banco de Dados as Notas Retornadas pela Consulta cdsManifestacao.open; ult_cod := cdsManifestacaocodigo.Value + 1; cdsManifestacao.append; cdsManifestacaocodigo.Value := ult_cod; cdsManifestacaoDataEvento.Text := sEmissao; cdsManifestacaochave.Text := sChave; cdsManifestacaoProtocolo.Text := sNumero; cdsManifestacaocnpj.Text := sCNPJ; cdsManifestacaonome.Text := sNome; cdsManifestacaoIE.Text := sIEst; cdsManifestacaotipo.Text := sTipoNFe; cdsManifestacaoNSU.Text := sNSU; if Impresso = 'A' then begin cdsManifestacaosituacao.text := 'Autorizado'; end; if Impresso = 'D' then begin cdsManifestacaosituacao.Text := 'Denegado'; end; if Impresso = 'C' then begin cdsManifestacaosituacao.Text := 'Cancelado'; end; cdsManifestacaovalor.Text := FloatToStr(valor); pgRespostas.ActivePageIndex := 11 ; end; end // Fim do For else begin // Nenhum Documento Localizado para o Destinatário if ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then begin MemoStatus.Lines.Add(' Nenhum Documento Localizado para o Destinatário'); MemoStatus.Lines.Add(' Utilizar o número que esta no campo: Último NSU'); MemoStatus.Lines.Add(' Para uma nova pesquisa ('+edtUltNSU.text+').'); MemoStatus.Lines.Add(' '); end else begin MemoStatus.Lines.Add(' Falha ao realizar a consulta.'); MemoStatus.Lines.Add(' ' + sStat + ' - ' + sMotivo); MemoStatus.Lines.Add(' '); end; end; // MontaChkLista; until (k = strtointDef(edtConsultas.text,1)) or (sTemMais = 'S'); if sTemMais = 'S' then Memo1.Text := IntToStr(k) + ' Consultas Realizadas e tem mais Documentos.' else Memo1.Text := IntToStr(k) + ' Consultas Realizadas e não tem mais Documentos.'; // AtivaBotao; //end; if messagedlg('Deseja gravar nota?',mtConfirmation,[mbYes,mbNo], 0) =mryes then begin cdsManifestacao.First; while not cdsManifestacao.Eof do begin dm_dados.tbl_dfe.open; if dm_dados.tbl_dfe.Locate('NSU_DFE',cdsManifestacaoNSU.Text,[loCaseInsensitive,loPartialKey]) then begin Showmessage('NSU existente no banco de dados'); end; if not (dm_dados.tbl_dfe.Locate('NSU_DFE',sNSU,[loCaseInsensitive,loPartialKey])) then begin dm_dados.tbl_dfe.open; dm_dados.tbl_dfe.Last; ult_cod := dm_dados.tbl_dfeCOD_DFE.Value+1; dm_dados.tbl_dfe.insert; dm_dados.tbl_dfeCOD_DFE.Value := ult_cod; dm_dados.tbl_dfeDTMANISFESTO_DFE.Text := cdsManifestacaoDataEvento.Text; dm_dados.tbl_dfeCHAVE_DFE.Text := cdsManifestacaochave.Text; dm_dados.tbl_dfeCODSEG_DFE.Text := cdsManifestacaoProtocolo.Text; dm_dados.tbl_dfeCNPJ_DFE.Text := cdsManifestacaocnpj.Text; dm_dados.tbl_dfeNOME_DFE.Text := cdsManifestacaonome.Text; dm_dados.tbl_dfeIE_DFE.Text := cdsManifestacaoIE.Text; dm_dados.tbl_dfeTIPO_DFE.Text := cdsManifestacaotipo.Text; dm_dados.tbl_dfeNSU_DFE.Text := cdsManifestacaoNSU.Text; dm_dados.tbl_dfeVALOR_DFE.Text := FloatToStr(valor); if Impresso = 'A' then begin dm_dados.tbl_dfeSITUACAO_DFE.text := 'Autorizado'; end; if Impresso = 'D' then begin dm_dados.tbl_dfeSITUACAO_DFE.text := 'Denegado'; end; if Impresso = 'C' then begin dm_dados.tbl_dfeSITUACAO_DFE.text := 'Cancelado'; end; end; cdsManifestacao.Next; end; dm_dados.tbl_dfe.post; pgRespostas.ActivePageIndex := 11; end else begin end; end; 20200829222623-con-dist-dfe.xml 20200829222623-con-dist-dfe-soap.xml 20200829222626-dist-dfe.xml 20200829222626-dist-dfe-soap.xml

Bem pessoal, resolvi comentar essas duas linhas. Fiz alguns ajustes aqui adequando-os a necessidade. Gostaria de agradecer a Juliomar e BigWings. Podem fechar.

Juliomar, o nome do arquivo é "DistribuicaoDFe", é o txt que fica na pasta Exemplos\ACBrDFe\ACBrNFe. Ah, sim é o que está em vermelho Desde já, muito obrigado.

Pessoal boa tarde, Desculpa minha duvida, mas que já pesquisei tanto aqui no fórum que minha mente já deu nó. Que componente é este do código de DFe do exemplo. j := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count - 1; lstChave1.Clear; chkListaNotas.Clear; Não conseguir decifra-lo. Desde já muito obrigado.

Carlos, boa noite, mais uma vez muito obrigado pela atenção e irei realizar esse ajuste. Sendo assim, podem finalizar esse tópico. Muito obrigado.

Ola boa noite, Carlos muito obrigado pela atenção. Eu andei revendo os código aqui do meu sistema, conforme vc me sugeriu e com isso consultei as NT, e os fóruns daqui do grupo, ACBr. Percebi que teria que alterar mesmo os comandos do meu Sistema. Enfim, acho que corrigi e se não for muito incomodo, gostaria de te pedir se tem como tu analisar esse novo XML, já com as alterações. Ficarei muito grato. 29200328860342000109650010000007211822210298-nfe.xml

Boa tarde a todos. Pessoal seguinte, essa semana o contador de uma cliente, solicitou os xml's das vendas realizadas para calcular o quanto de imposto ela iria pagar. Não sei informar a vocês qual o sistema que ele utilizar para fazer esses cálculos de impostos que o cliente tem a pagar. No entanto, ao importar meus xml's para o sistema dele, foi dado que a cliente estaria isenta de pagar imposto. O contador logo me informou que algo no meu sistema estaria errado, pois o somatório dos valores constantes nos xml's, que estavam no total de +/- R$ 5900,00, não isentaria a cliente. Para melhor entendimento, o contador me disse que em um dos xml, no valor de R$ 520,00, estava gerando de imposto, apenas R$ 10,00. Eu analisei esse xml, no NOTEPAD ++, e não encontrei nenhum imposto incidente. Se vocês puderem me ajudar, ficarei muito agradecido. não sei se servirá, mas irei anexar o xml para que vocês possam analisar. 29200109260883000143650010000007651735102749-nfe.xml

Boa tarde, estava analisando meus códigos aqui e notei que na verdade meu sistema estava entrando em loop infinito. Depois que corrigir, funcionou tudo certinho. Vlw Juliomar, muito obrigado pela atenção. Pode Encerrar esse fórum.

Bom dia, estou com este problema no envio da NFCe. Esta dando erro de "out of memory". Para tanto testei no ACBrNFe_Demo, e também esta dando o mesmo erro. Contudo na emissão da NFe, desde sua geração, assinatura, envio, retorno, consulta, enfim todos os serviços desta, não tenho problema. Já testei em outro computador e continua. Os comando utilizados são exatamente, como no exemplos do ACBrNFe_demo.

Oi Juliana, bom dia, eu conseguir resolver depois que adicionei realmente os números do convenio

Oi Bom dia ainda estou não conseguir resolver o boleto, quando vou pagar o boleto gerando aparece o código no momento do pagamento, NO SITE DO BANCO, aparece a mensagem : FAVOR CONTACTAR O BENEFICIÁRIO DO BOLETO. erro S503

Oi Juliana boa noite, obrigado pela ajuda. Vamos lá: 1 - Eu abrir o exemplo do ACBr, 2- fui no datamodulo. 3- Lá eu mudei a Propriedade do Tipo de Cobrança para : cobBancoDoBrasilSICOOB, pois o outro estava pedido para a carteira ser informada antes do nosso numero, então eu deixei essa opção "cobBancoDoBrasilSICOOB". Até ai blza, gerou o boleto, porém com aquele problema dos números do código de barras estarem faltando. Essa foi a única alteração que fiz. *************************************************************************************************** segue abaixo como está o código fonte da unit: uDemo ANEXE O ARQUIVO!!!!

Não. Para gerar este boleto eu utilizei o modelo ACBr contido na pasta exemplos.