Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Manifestação Destinatario


  • Este tópico foi criado há 3339 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

como façor para pega via codigo o ultimo nsu

quando retorna pela funcao:

na aba menu Log

 

  ACBrNFe1.ConsultaNFeDest(CNPJ,

                           StrToIndicadorNFe(ok,indNFe),

                           StrToIndicadorEmissor(ok,IndEmi),

                           UltNSu);

 

Versão : 1.01

Ambiente : 1

Versão Aplicativo : 1.0.0

Status Código : 137

Status Descrição : Nenhum documento localizado para o destinatario

Recebimento : 03/04/2013 18:12:24

Ind. Continuação : 1

Último NSU : 6719854850

 

 

--------------------------

Outra pegunta

 

estou tentando Consulta NFe Destinadas ja to tentando 28x,....

ufa retornou um nota,

 

 

retConsNFeDest versao="1.01" xmlns="http://www.portalfiscal.inf.br/nfe"><tpAmb>1</tpAmb><verAplic>1.0.0</verAplic><cStat>138</cStat><xMotivo>Documento localizado para o destinatario</xMotivo><dhResp>2013-04-03T18:29:10</dhResp><indCont>1</indCont><ultNSU>6720021453</ultNSU>-<ret>-<resNFe NSU="6719980439"><chNFe>51130303766015000153550010004939081039908197</chNFe><CNPJ>03766015000153</CNPJ><xNome>Medrar Com. de Prod. Alim. Ltda</xNome><IE>131938010</IE><dEmi>2013-03-19</dEmi><tpNF>1</tpNF><vNF>113.95</vNF><digVal>Gf4AFIdUUJWY7o8/rY3nXI2xxeE=</digVal><dhRecbto>2013-03-19T17:46:11</dhRecbto><cSitNFe>1</cSitNFe><cSitConf>0</cSitConf></resNFe></ret></retConsNFeDest>

 

mais sabendo que esta nota é do dia 19/03/2013

 

sabendo que ja teve mais 40 notas depois desta data,

 

toda vez que clico em Consulta NFe Destinadas, e coloco o ultimo NSU, vem a mesna nota

do dia 19/03/2013

 

o pode ta acontecendo ?

RESOLVIDO,

 

Veio repedido mais agora ta vindo uma por uma, por DATA,

se tiver 2 na mesma da ai sim vem 2 no xml de retorno,

 

EU PESANVA que vim tudo de vez, mais como pega os dados que ta no XML ?

 

 

 

 

Edited by hetoandrade
Link to comment
Share on other sites

  • Moderadores

como façor para pega via codigo o ultimo nsu

quando retorna pela funcao:

na aba menu Log

 

  ACBrNFe1.ConsultaNFeDest(CNPJ,

                           StrToIndicadorNFe(ok,indNFe),

                           StrToIndicadorEmissor(ok,IndEmi),

                           UltNSu);

 

Versão : 1.01

Ambiente : 1

Versão Aplicativo : 1.0.0

Status Código : 137

Status Descrição : Nenhum documento localizado para o destinatario

Recebimento : 03/04/2013 18:12:24

Ind. Continuação : 1

Último NSU : 6719854850

Exemplo extraído dos fontes do ACBrNFeMonitor
'versao='   +ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.versao+sLineBreak+
'tpAmb='    +TpAmbToStr(ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.tpAmb)+sLineBreak+
'verAplic=' +ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.verAplic+sLineBreak+
'cStat='    +IntToStr(ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.cStat)+sLineBreak+
'xMotivo='  +ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.xMotivo+sLineBreak+
'dhResp='   +DateTimeToStr(ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.dhResp)+sLineBreak+
'indCont='  +IndicadorContinuacaoToStr(ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.indCont)+sLineBreak+
'ultNSU='   +ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ultNSU+sLineBreak;

EU PESANVA que vim tudo de vez, mais como pega os dados que ta no XML ?

              J := 1;
              for I:= 0 to AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count-1 do
               begin
                 if Trim(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.chNFe) <> '' then
                  begin
                    Cmd.Resposta := Cmd.Resposta+sLineBreak+
                     '[RESNFE'+Trim(IntToStrZero(J,3))+']'+sLineBreak+
                     'NSU='     +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.NSU+sLineBreak+
                     'chNFe='   +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.chNFe+sLineBreak+
                     'CNPJ='    +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.CNPJCPF+sLineBreak+
                     'xNome='   +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.xNome+sLineBreak+
                     'IE='      +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.IE+sLineBreak+
                     'dEmi='    +DateTimeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.dEmi)+sLineBreak+
                     'tpNF='    +tpNFToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.tpNF)+sLineBreak+
                     'vNF='     +FloatToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.vNF)+sLineBreak+
                     'digVal='  +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.digVal+sLineBreak+
                     'dhRecbto='+DateTimeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.dhRecbto)+sLineBreak+
                     'cSitNFe=' +SituacaoNFeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.cSitNFe)+sLineBreak+
                     'cSitConf='+SituacaoManifDestToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.cSitConf)+sLineBreak;
                     J := J + 1;
                  end;
               end;

              J := 1;
              for i := 0 to AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count -1 do
               begin
                 if Trim(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.chNFe) <> '' then
                  begin
                    Cmd.Resposta := Cmd.Resposta+sLineBreak+
                     '[RESCANC'+Trim(IntToStrZero(J,3))+']'+sLineBreak+
                     'NSU='     +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.NSU+sLineBreak+
                     'chNFe='   +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.chNFe+sLineBreak+
                     'CNPJ='    +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.CNPJCPF+sLineBreak+
                     'xNome='   +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.xNome+sLineBreak+
                     'IE='      +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.IE+sLineBreak+
                     'dEmi='    +DateTimeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.dEmi)+sLineBreak+
                     'tpNF='    +tpNFToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.tpNF)+sLineBreak+
                     'vNF='     +FloatToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.vNF)+sLineBreak+
                     'digVal='  +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.digVal+sLineBreak+
                     'dhRecbto='+DateTimeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.dhRecbto)+sLineBreak+
                     'cSitNFe=' +SituacaoNFeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.cSitNFe)+sLineBreak+
                     'cSitConf='+SituacaoManifDestToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.cSitConf)+sLineBreak;
                     J := J + 1;
                  end;
               end;

              J := 1; 
              for i := 0 to AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count -1 do
               begin
                  if Trim(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.chNFe) <> '' then
                   begin
                    Cmd.Resposta := Cmd.Resposta+sLineBreak+
                     '[RESCCE'+Trim(IntToStrZero(J,3))+']'+sLineBreak+
                     'NSU='       +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.NSU+sLineBreak+
                     'chNFe='     +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.chNFe+sLineBreak+
                     'dhEvento='  +DateTimeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.dhEvento)+sLineBreak+
                     'tpEvento='  +TpEventoToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.tpEvento)+sLineBreak+
                     'nSeqEvento='+IntToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.nSeqEvento)+sLineBreak+
                     'descEvento='+AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.descEvento+sLineBreak+
                     'xCorrecao=' +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.xCorrecao+sLineBreak+
                     'tpNF='      +tpNFToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.tpNF)+sLineBreak+
                     'dhRecbto='  +DateTimeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.dhRecbto)+sLineBreak;
                     J := J + 1;
                   end;
               end;
djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.lambretinha.com.br
Link to comment
Share on other sites

  • Membros Pro

valeu, so a ultima peguntinha, cada ves que eu faço uma  Consulta NFe Destinadas

cria um

20130404001921-con-nfe-dest

20130404001928-nfe-dest

 

como façor para saber o nome do ultimo xml gerado,

para eu excluir quanto termina a consutla,

 

ex: delete(20130404001921-con-nfe-dest.xml)

e quando o 20130404001928-nfe-dest nao tive documento eu tambem deletar,

 

cara brigadao....

Link to comment
Share on other sites

  • Consultores

Bom dia Heto Andrade,

 

Nome do arquivo: 20130404001921-con-nfe-dest.xml

 

20130404 => Data: 04/04/2013

001921 => Hora: 00:19:21

 

Outra coisa, para não ficar criando esses arquivos você pode atribuir o valor False as propriedades Geral.Salvar e Arquivos.Salvar

Consultor SAC ACBr Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.