-
Total de ítens
4 -
Registro em
-
Última visita
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
JoaoAugusto Galvao Almeida's Achievements
-
Evento de ciencia da operação apos a manifestação final do destinatario acbr
um tópico no fórum postou JoaoAugusto Galvao Almeida ACBrNFe
Evento de ciencia da operação apos a manifestação final do destinatario... nao sei o q ta ocorrendo.. alguem pode ajudar... uf := RetornaUFPeloCodigo(Copy(sChave,1,2)); lblStatus.Font.Color:=clBlue; lblStatus.Caption := 'Manifestando a nota...'; Application.ProcessMessages; Result:=False; sChave := Trim(OnlyNumber(sChave)); sCNPJ := OnlyNumber(sCNPJ); Arquivo := edtDiretorio.Text+ sChave + '-nfe.xml'; iEvento:=2; ACBrNFe1.EventoNFe.Evento.Clear; with ACBrNFe1.EventoNFe.Evento.Add do begin InfEvento.cOrgao := 91; infEvento.chNFe := sChave; infEvento.CNPJ := sCNPJ; infEvento.dhEvento := now; case iEvento of 1: infEvento.tpEvento := teManifDestConfirmacao; 2: infEvento.tpEvento := teManifDestCiencia; 3: infEvento.tpEvento := teManifDestDesconhecimento; 4: infEvento.tpEvento := teManifDestOperNaoRealizada; end; end; if ACBrNFe1.EnviarEvento(iEvento) then begin with ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do begin if cStat = 135 then begin lblStatus.Font.Color:=clBlue; lblStatus.Caption := 'Manisfestação Ok...'; Application.ProcessMessages; end else begin lblStatus.Font.Color:=clBlue; lblStatus.Caption := 'Manisfestação Error...'; Application.ProcessMessages; end; end; end; ACBrNFe1.DistribuicaoDFe(UFtoCUF(UF),sCNPJ,ultNSU,ANSU); codStatus := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat; ultNSU := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU; // faz o download do xml apos manifestar; ACBrNFe1.DistribuicaoDFePorChaveNFe(UFtoCUF(UF),sCNPJ,sChave); icount := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count; for I := 0 to icount do begin lblStatus.Font.Color:=clBlue; lblStatus.Caption := ' ... Fazendo download da nota ... '; Application.ProcessMessages; xml := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[0].XML; end;