Jump to content

110.png

Curso Gratuito para todos Usuários
+ Super Treinamento Assinando o SAC Anual

botao_campanha_thulio.png

sem_ttulo-620.fw_-e1583866078274.png 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Sergio Sartori

lex xml nfe compras

Recommended Posts

pessoal boa tarde. estou tentando pegar os dados da csosn dos produtos da NFe de compras mas não esta dando certo.

alquem poderia me auxiliar melhor ?

 

 

   //*********************************** PEGA A CSOSN ************************************
   if  ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN      = csosnVazio then
    DM_COMPRAS.cds_itens_comprasCSOSN.AsString := ''  

  else if  ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn101 then
    DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '101'
   else if  ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn102 then
    DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '102'
   else if  ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn103 then
    DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '103'
   else if  ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn201 then
    DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '201'
   else if  ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn202 then
    DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '202'
   else if  ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn203 then
    DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '203'
   else if  ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn300 then
    DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '300'
   else if  ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn400 then
    DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '400'
   else if  ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn500 then
    DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '500'
   else if  ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn900 then
    DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '900';
   //***********************************************************************************

 

Share this post


Link to post
Share on other sites

precisa mais detalhes, está muito vago.

 

Mas pode ser que a nota de entrada seja CST (Regime geral) e não CSOSN; (Simples)

Edited by Daniel Port

Share this post


Link to post
Share on other sites
6 horas atrás, Sergio Sartori disse:

ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN

Det também eh um collection...

Falta um laço para acessar os itens...

...Det.items[0]...

Att

Ricardo

  • Like 2

Share this post


Link to post
Share on other sites
15 horas atrás, Sergio Sartori disse:

PEGA A CSOSN

Bom dia,

fica uma dica para teu código,  usa essa function CSOSNIcmsToStr para substituir esse bloco todo para apenas uma linha... :-)

DM_COMPRAS.cds_itens_comprasCSOSN.AsString := CSOSNIcmsToStr( ACBrNFe1.NotasFiscais.Items[0].NFe.Det[ i ].Imposto.ICMS.CSOSN );

OBS 1: a function se encontra na unit pcnConversao.

OBS 2: a variável i seria de um laço  (for i:= 0 to ACBrNFe1.NotasFiscais.Items[0].NFe.Det.count-1 do) para ler os itens da nota, como eu comentei na resposta anterior...

Att

Ricardo

  • Like 4

Share this post


Link to post
Share on other sites

 

esse conteudo esta dentro de um laço.

eu estou pegando todos os itens, mas não estou conseguindo pegar esse campo.  

mas vou usar esse exemplo que vc postou creio que agora vai dar certo.

 

 

Obrigado RicardoVoigt. por sua tenção.

  • Like 1

Share this post


Link to post
Share on other sites

como é bom quando encontramos pessoas que estende sua mão para nos ajudar, sem se preocuparem obter alguma vantagem em troca.

isso é maravilho. 

Muito Obrigado pela preocupação de ajudar.

Att.

Sérgio

 

 

 

  • Like 3

Share this post


Link to post
Share on other sites
20 horas atrás, Sergio Sartori disse:

como é bom quando encontramos pessoas que estende sua mão para nos ajudar, sem se preocuparem obter alguma vantagem em troca.

isso é maravilho. 

Muito Obrigado pela preocupação de ajudar.

Att.

Sérgio

 

 

 

Bom dia

Só confirma aqui se deu certo, para fecharmos o tópico...

Att

Ricardo

  • Like 1

Share this post


Link to post
Share on other sites

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.


Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

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

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

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...