Atualizar status de nfe

[reij]

boa-noite pessoal estou precisando tirar uma duvida com os amigos

tenho esta rotina

 for i := 0 to dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count -1 do
           begin
           if Trim(dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe) <> '' then
                begin

 

             dm.XmlNfe.Insert;
             dm.XmlNfeCODXML.AsInteger := dm.Inc_Gen('GEN_XML_ID');
             dm.XmlNfeFLAG.AsString := 'N' ;
             dm.XmlNfeNOME_RAZAO.AsString := dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.xNome;
             dm.XmlNfeCHAVE.AsString := dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe;
             dm.XmlNfeUF_ORIGEM.AsString := copy(dm.XmlNfeCHAVE.AsString,1,2);
             dm.XmlNfeCNPJ_CPF.AsString := dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.CNPJCPF;
             dm.XmlNfevalor.ascurrency:= dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.vNF;
             dm.xmlNfeINSC_EST.AsString:= dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.IE;
             dm.xmlNfeDT_EMISS.AsDateTime:= dm.ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.dEmi;
             dm.XmlNfeDT_AUT.AsDateTime:= dm.ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.dhRecbto;
             dm.XmlNfeTP_AMB_NFE.AsString := (VarToStr(dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.tpNF));
      

 

que uso na consulta de nfe do destinatário agora estava precisando atualizar o status de algumas notas porem preciso fazer issosomente comuma única nota de cada vez porem se uso sem o

 

(VarToStr(dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.tpNF));

 

 

da erro algum dosamigos poderiam me dizer o que posso fazer pra resolver este problema
 

desculpem não sei pq os ''s não apareceram

        for i := 0 to dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count -1 do
           begin
           if Trim(dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe) <> '' then
                begin

 

             dm.XmlNfe.Insert;
             dm.XmlNfeCODXML.AsInteger := dm.Inc_Gen('GEN_XML_ID');
             dm.XmlNfeFLAG.AsString := 'N' ;
             dm.XmlNfeNOME_RAZAO.AsString := dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.xNome;
             dm.XmlNfeCHAVE.AsString := dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe;
             dm.XmlNfeUF_ORIGEM.AsString := copy(dm.XmlNfeCHAVE.AsString,1,2);
             dm.XmlNfeCNPJ_CPF.AsString := dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.CNPJCPF;
             dm.XmlNfevalor.ascurrency:= dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.vNF;
             dm.xmlNfeINSC_EST.AsString:= dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.IE;
             dm.xmlNfeDT_EMISS.AsDateTime:= dm.ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.dEmi;
             dm.XmlNfeDT_AUT.AsDateTime:= dm.ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.dhRecbto;
             dm.XmlNfeTP_AMB_NFE.AsString := (VarToStr(dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.tpNF));
             dm.XmlNfeSIT_NFE.AsString := (VarToStr(dm.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.cSitNFe));

[reij]

alguem teriaalguma ideia de como atualizar o status de somente uma unica nota fiscal pois tem acontecido muito de emitirem a nfe e algumas horas depois o emitente cancela a nota e ai ela ja foi capturada pelo sistema e preciso alterar o status dela dinamicamente alguem teria alguma ideia de como fazer isto