Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

  • Consultores
Postado

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 / Araraquara-SP

Araraquara - A era dos Trólebus

Postado

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!

Postado
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

Postado

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

  • Administradores
Postado

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

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 !!

  • Administradores
Postado

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

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 !!

  • Este tópico foi criado há 1639 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.