Jump to content

Nota a partir de uma TreeView


Go to solution Solved by EMBarbosa,
  • Este tópico foi criado há 800 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores

Boa noite Rogério,

Você quer remover de uma nota das informações de um determinado item?

Se sim, acredito que com a linha abaixo você vai conseguir:

ACBrNfe1.NotasFiscais.Items[0].NFe.Det.Items[ x].Delete;

Onde x é o índice do item que você deseja excluir.

Lembrando sempre que o índice do primeiro item que consta na nota é zero.

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

  • Membros Pro

Boa tarde Italo Jurisato, Muito obrigado mesmo pelas dicas, porém esta acontecendo um problema que eu não estou entendendo

   Estou fazendo as alterações não esta dando erro em nada 

      ACbeNfe1.NotasFiscais.Items[0].NFe.Det.Items[x].Prod.vProd:=StrToFloat(QDet.FieldbyName('vProd').AsString);
      ACbeNfe1.NotasFiscais.Items[0].NFe.Det.Items[x].Prod.vDesc:=0;
      ACbeNfe1.NotasFiscais.Items[0].NFe.Det.Items[x].Prod.vUnTrib:=StrTofloat(QDet.fieldbyName('vuntrib').AsString);
      ACbeNfe1.NotasFiscais.Items[0].NFe.Det.Items[x].Prod.vUnCom:=StrToFloat(QDet.FieldbYname('vunCom').AsString);

Porém quando boto o XML para gravar 

 AcbrNe1.NotasFiscais.GravaXML(m_arqdestino);

E abro este m_arqdestino no InterNetExplorer, para minha surpresa ele esta lá sem nenhuma alteração!

É necessario dar algum comando para que o ACBRNfe1 Aceite as alterações ou algum comando depois tipo Commit ou um POST, para que as alterações fiquem gravadas,

e só mais uma coisinha o comando 

ACBrNfe1.NotasFiscais.Items[0].NFe.Det.Items[ x].Delete;  não é aceito da erro de compilação pois não encontra o Delete, tentei usar o Destroy mas fica dando erro também!  

Se você puder me ajudar mais uma vez desde já lhe agradeço muito!

Link to comment
Share on other sites

  • Consultores

Boa noite Rogério,

Verifica se os valores que estão sendo passados realmente são diferentes.

Se possível anexe o XML original e o que foi salvo.

Quando ao Delete vou verificar e amanhã lhe respondo.

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

  • Membros Pro
Bom dia Ítalo
Antes de qualquer coisa, muito obrigado mesmo por esta respondendo!
Em anexo estão os dois XML o origem e o destino, o destino esta com o nome "corigido" no final, ambos são iguais
para inicio os itens 1 e 2 no corrigido não deveriam existir, como lhe disse tentei usar o delete mas não funcionou 
tentei então o "Destroy" mas não funcionou também, caso haja necessidade lhe mando o fonte do programa!

26191234790529000178650010000014851358065092-NFE.XML 26191234790529000178650010000014851358065092-NFE_Corrigido.xml

Link to comment
Share on other sites

  • Membros Pro

Bom dia Italo!

Estou tendo problemas com relação ao ACBRNFe, pois entendi muito bem a sua explicação e lhe agradeço muito por isso 

porém, ao fazer conforme você muito bem exemplificou, ou seja alterar os dados nas propriedades do ACBRNfe1, e logo após gravar o novo XML já corrigido, me deparei com um problema, o novo XML esta idêntico ao anterior, ou seja não aceitou nenhuma das alterações feitas, e fiz conforme você expôs no exemplo que esta bastante didático, abaixo eu mostro como esta no meu programa e, estou anexando os dois arquivos XML o original e o destino, quanto a situação de deletar o item da nota fiscal, conforme você mostra em seu exemplo, a sintaxe da propriedade não dispõem do DELETE, mas dispõem do Destroy, só que quando usa da erro!

Exemplo:

     Nfe1.NotasFiscais.Items[0].NFe.Det.Items[x].Prod.vProd:=StrToFloat(QDet.FieldbyName('vProd').AsString);
     Nfe1.NotasFiscais.Items[0].NFe.Det.Items[x].Prod.vDesc:=0;
     Nfe1.NotasFiscais.Items[0].NFe.Det.Items[x].Prod.vUnTrib:=StrTofloat(QDet.fieldbyName('vuntrib').AsString);
     Nfe1.NotasFiscais.Items[0].NFe.Det.Items[x].Prod.vUnCom:=StrToFloat(QDet.FieldbYname('vunCom').AsString);
                         

                           QDet = Query que contém os itens editados

 

26191234790529000178650010000014851358065092-NFE.XML 26191234790529000178650010000014851358065092-NFE_Corrigido.xml

Link to comment
Share on other sites

  • Consultores

Boa noite Rogério,

Desculpe pela demora, ainda não consegui ver a questão da exclusão do item da lista, mas pelo que notei esses 2 XML estão iguais, a tag vDesc continua com o seu valor nos itens.

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

  • Administradores

Bom dia.

@Rogério Vieira de Melo notei que vc criou um novo tópico sobre o delete que tb foi citado aqui, considerando que obteve a orientação no novo tópico, o assunto discutido aqui também está concluído?

Att.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Administradores

Fechando tópico devido resolução da situação descrita.

Att.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Este tópico foi criado há 800 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • 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.