Jhonlenon Ribeiro

Não entendi muito essa função......

Isso Italo...o que preciso é a manifesto do destinatário mesmo....já aproveitando...estou querendo pegar o numero da NF-e pela consulta de NFe....mais não sem onde fica...já consigo a chave de acesso, valor e data emissão...mais falta o numero da NF-e...meu codigo j := DM.ACBrNFE1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count -1; for i := 0 to j do begin //NR_NFE := DM.ACBrNFE1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe. VALOR_NFE := DM.ACBrNFE1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.vNF; CHAVE := DM.ACBrNFE1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe; DATA := DM.ACBrNFE1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.dhEmi; case DM.ACBrNFE1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.cSitNFe of snAutorizado : STATUS := 'AUTORIZADA'; snDenegado : STATUS := 'DENEGADA'; snCancelado : STATUS := 'CANCELADA'; end; if CHAVE <> '' then GravaNotaBanco(CHAVE, STATUS, VALOR_NFE, DATA); end;

Já resolvi o problema com esse codigo..... procedure TF_manifesta_nfe.EnviaEventoDownload(ChNFE: string); var Ret : String; begin DM.TB_empresa.Open; DM.ACBrNFe1.DistribuicaoDFePorChaveNFe(UFtoCUF(DM.sUF), DM.TB_empresaCNPJ.AsString, ChNFE); sXML :=ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[0].XML; if DM.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat <> 138 then begin //Ret := DM.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo; //ShowMessage(Ret); end else begin end; end;

Boa tarde, estou com dúvidas sobre meu código....estou fazendo a manifestação da NF-e pra poder baixar o XML e dá entrada....depois de muitas falha no processo de baixar o xml sem certificado digital, acabei abandonando esse processo, minha duvidas é o seguinte na minha procedure de baixar o xml....tenho que manifestar a NF-e e depois tenho que aguardar uns 15 segundos pra poder baixar o xml...tentei fazer isso no mesmo processo mais dá documento não encontrando.......eu manifesto pelo chave de acesso...meu Código abaixo.. procedure TF_manifesta_nfe.ButBaixarXMLClick(Sender: TObject); var ChNota: String; var IDLote : String; var CaminhoXML : String; var MES_ANO : String; begin MES_ANO :=''; ChNota :=''; MES_ANO :=FormatDateTime('yyyymm',Date); if EditChave.Text = '' then begin if Application.MessageBox('Atenção...não existe chave de acesso para realizar o manifesto', 'Sistema de Vendas - SYSPDV', MB_OK) = IDOK then EditChave.SetFocus; Abort; end; if ContarCaracteres(EditChave.Text) <> 44 then begin if Application.MessageBox ('Atenção...NF-e não tem 44 digitos...verifique a chave de acesso','SYSPDV', MB_OK) = IDOK then Abort; end; if Application.MessageBox('Para realizar o Download do XML da NF-e, será necessário fazer' + ' a manifestação da nota. A SEFAZ entenderá que você recebeu a mercadoria!' + ' Essa é uma operação que não poderá ser desfeita, deseja continuar?', 'Atenção!',mb_iconquestion+mb_yesno)=idyes then if not (DirectoryExists(ExtractFilePath(ParamStr(0)) +'XML\XML_NFE_DESTINADA\'+MES_ANO)) then begin forceDirectories(ExtractFilePath(ParamStr(0)) +'XML\XML_NFE_DESTINADA\'+MES_ANO); end; begin ChNota := Trim(EditChave.Text); DM.ACBrNFe1.Configuracoes.Arquivos.DownloadNFe.PathDownload := ExtractFilePath(ParamStr(0)) +'XML\XML_NFE_DESTINADA\'+MES_ANO; ManifestaNota(ChNota); EnviaEventoDownload(ChNota); ProgressBar1.Visible:=False; end; //--------Aqui é código da procedure ManifestaNota(ChNota); procedure TF_manifesta_nfe.ManifestaNota(ChNFE: string); var lMsg : String; var sCNPJ : String; begin sCNPJ :=''; DM.TB_empresa.Open; sCNPJ :=DM.TB_empresaCNPJ.AsString; DM.ACBrNFe1.EventoNFe.Evento.Clear; with DM.ACBrNFe1.EventoNFe.Evento.Add do begin InfEvento.cOrgao := 91; InfEvento.chNFe := Trim(EditChave.Text); InfEvento.CNPJ := sCNPJ; InfEvento.dhEvento := Now; InfEvento.tpEvento := teManifDestConfirmacao; InfEvento.versaoEvento :='1.00'; end; DM.ACBrNFe1.EnviarEvento(1); if DM.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo <> '573' then begin //ShowMessage('Duplicidade de Evento!'); //Abort; end else if DM.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo <> '135' then begin with DM.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do begin lMsg:= 'Id: '+Id+#13+ 'tpAmb: '+TpAmbToStr(tpAmb)+#13+ 'verAplic: '+verAplic+#13+ 'cOrgao: '+IntToStr(cOrgao)+#13+ 'cStat: '+IntToStr(cStat)+#13+ 'xMotivo: '+xMotivo+#13+ 'chNFe: '+chNFe+#13+ 'tpEvento: '+TpEventoToStr(tpEvento)+#13+ 'xEvento: '+xEvento+#13+ 'nSeqEvento: '+IntToStr(nSeqEvento)+#13+ 'CNPJDest: '+CNPJDest+#13+ 'emailDest: '+emailDest+#13+ 'dhRegEvento: '+DateTimeToStr(dhRegEvento)+#13+ 'nProt: '+nProt; end; ShowMessage(lMsg); end end; //-------Aqui Download XML apois manifestar----------- procedure TF_manifesta_nfe.EnviaEventoDownload(ChNFE: string); var Ret : String; begin DM.TB_empresa.Open; DM.ACBrNFe1.DistribuicaoDFePorChaveNFe(UFtoCUF(DM.sUF), DM.TB_empresaCNPJ.AsString, ChNFE); if DM.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat <> 138 then begin Ret := DM.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo; ShowMessage(Ret); end else begin end; end;

Julionar eu uso o fast report no DAMDF

Não entendi o questionamento do colega ai em cima...de DAMDF retrato e paisagem.....em conversa com uns dos fiscais o mesmo disse que o valor da mercadoria pode ir sim no DAMDF....ai questionei a ele sobre os outros fiscais de outro estado...ai ele me disse que isso dependi do estado...se já vai no xml não problema em ir no DAMDF...tava vendo o DAMDF de um empresa que usa o report build e informação valor da carga vai do DAMDF...se não tiver com alterar ai vou ter que colocar nas informações complementar...só não vou deixar o cliente ser multado como ele já foi uma vez...

Bom dia Juliomar.....tava vendo o manual do MDF-e..não fala nada....mais tem a tag vCarga pra gerar o xml...esses fiscais...casa problema por qualquer coisa..na pagina 111 fala do valor da carga...dá uma olhada.

Boa noite, estou com um problema no MDF-e porque não mostra o valor da mercadoria....no DAMDFe mais no xml aparece...o valor da mercadoria.. teria como aparecer o valor porque os fiscais de alguns estado estão cobrando essa informação. xml em anexo 33171103395820000118580010000000461000000465-mdfe.xml

Boa tarde, já faz alguns dias que o componente ACBr de consultar CNPJ direto da receita não funciona....a receita deve ter mudado alguma coisa....teria como pessoal da ACBr ver o que foi mudado, meus fontes está atualizado e mesmo assim não funciona....o print em anexo

Deu certo...atualizei os fontes ACBr ai ficou 100%..Obrigado...@BigWings

Atualizei os fontes ACBr agora...ai vou testar

Eu consegui mostrar as DUPLICATAS no DANFE na NFE 4.0....a sefaz AUTORIZOU de boa...fiz igual o BigWings. falou....mais ainda tem um detalhe...quando vou reimprimir o xml AUTORIZADO não mostra as DUPLICATAS......tem o print e o xml em anexo 33171103395820000118550010000000671000000677-nfe.xml

Estou testando a NFE 4.0 usando ACBr....tudo tranquilo, consegui transmitir em ambiente de homologação.....mais tem um detalhe na, na NFE 3.10 as Duplicatas aparecia no DANFE...agora a DUPLICATA foi retirada e entrou a tag pagamento...então no caso como mostraria as duplicata no DANFE agora usando a NFE 4.O?... obs: uso DANFE do fast report

Boa tarde, estou com um problema, não consigo fazer o dawlods do xml com comando DM.ACBrNFe1.Download, tenho o certificado, quando faço o teste aparece o seguinte erro.... Serviço paralisado sem previsão.....o meu codigo está assim... rocedure TF_importarxml.Button_XML(Sender: TObject); var sCNPJ : String; var sChave : String; begin DM.AtualizaConfigAcBr; DM.TB_empresa.Open; sCNPJ := DM.TB_empresaCNPJ.AsString; sChave := txt_chave.Text; DM.ACBrNFe1.DownloadNFe.Download.CNPJ := sCNPJ; with DM.ACBrNFe1.DownloadNFe.Download.Chaves.Add do begin chNFe := sChave; end; DM.ACBrNFe1.Download; ///tentei assim mais não vai também DM.ACBrNFe1.WebServices.DownloadNFe.Executar end;

Estou emitindo uma carta de correção eletronica..mais a informação de condição de uso não está aparecendo.....sai todas as informações menos ela..teria que sair essa mensagem que já grava no xml... A Carta de Correcao e disciplinada pelo paragrafo 1o-A do art. 7o do Convenio S/N, de 15 de dezembro de 1970 e pode ser utilizada para regularizacao de erro ocorrido na emissao de documento fiscal, desde que o erro nao esteja relacionado com: I - as variaveis que determinam o valor do imposto tais como: base de calculo, aliquota, diferenca de preco, quantidade, valor da operacao ou da prestacao; II - a correcao de dados cadastrais que implique mudanca do remetente ou do destinatario; III - a data de emissao ou de saida. Meu código abaixo...e o XML da carta abaixo procedure TF_cartacorrecao.btn_enviarClick(Sender: TObject); var idLote, nSeqEvento: String; var CARTA_XML :String; begin idLote := '0'; nSeqEvento := '0'; DM.ACBrNFe1.EventoNFe.Evento.Clear; with DM.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := DM.SQL_nfeChaveAcessoNfe.AsString; infEvento.CNPJ := DM.TB_empresaCNPJ.Value; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := StrToInt(nSeqEvento); infEvento.detEvento.xCorrecao := txt_Correcao.Text; end; DM.ACBrNFe1.EnviarEvento(StrToInt(idLote)); CARTA_XML := DM.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML; DM.ACBrNFe1.NotasFiscais.Clear; DM.ACBrNFe1.NotasFiscais.LoadFromString(DM.SQL_nfeXmlNfe.AsString,true); DM.ACBrNFe1.ImprimirEvento; //DM.ACBrNFe1.DANFE.PathPDF := DM.sPathArq; //DM.ACBrNFe1.ImprimirEventoPDF; with SQL_update do begin close; sql.Clear; sql.Add('update nfe set CartaCorrecao = :CARTA'); sql.Add('where ChaveAcessoNfe = :CHAVE'); sql.Add('and CPF_CNPJ = :CPF_CNPJ'); ParamByName('CHAVE').Value := DM.SQL_nfeChaveAcessoNfe.Value; ParamByName('CARTA').Value := CARTA_XML; ParamByName('CPF_CNPJ').Value := DM.SQL_nfeCPF_CNPJ.Value; ExecSQL; end; Close; end; 1101101716100954237900013655001000000036100000036601-procEventoNFe.xml

Acho que o problema dever ser isso mesmo...a taja não sai porque é em Ambiente de Homologação....Obrigado pela ajuda...vou testar em Ambiente de Produção..pode encerrar o Topico

Atualizei o componente ACBr e mesmo assim não aparece....vou postar XML pra vocês dá uma olhada pode ser erro no meu código... 1101111716100954237900013655001000000026100000026201-procEventoNFe.xml 17161009542379000136550010000000261000000262-nfe.xml

Também não mostrou o tarja de NFe CANCELADA..usando o exemplo.

Já tentei dessa forma ai Juliomar e não deu certo...

Já tentei isso ai não deu certo..antes de imprimir passo o comando...DM.ACBrNFe1.DANFE.NFeCancelada := True; e mesmo assim não..

Boa tarde...faço todo o processo de cancelamento a NF-e é cancelada normal...gravo XML no banco no Campo chamado XMCancelado e conservo o xml original em outro campo....mais o problema é q tarja de NFe CANCELADA não sai no DANF...uso o Delphi Berlin e Fast Report....

Boa noite...pode fechar o tópico....eu que viajei aqui..o DANFE está certo.

Boa tarde, estou tendo um problema aqui com meu DANF no fast report.....está mostrando o junto com Protocolo de Autorização está vindo a data e hora junto....como faz resolver esse problema? estou usando o Delphi Berlin e Fast Report....tem um print em anexo...

Pode encerrar o topico....já vi a solução aqui...meu codigo estava assim ACBrNFe1.Configuracoes.WebServices.Visualizar := False; ai mudei pra False; e sumiu

Olá..ainda não conheço bem o componente ACBr...e estou com essa dificuldade pra tirar um tela de mensagem que o retorno é devolvido da na verificação de status de serviço.. já verifiquei tudo e não sei da onde essa mensagem.....print em anexo..quero tirar ela e deixar só que fica Componnte ACBr