Saber se xml é de medicamento

[nildglan]

pessoal fiz um assim if Prod.med.Count > 0 then pra saber se xml é de medicamento mais não entra

e assim if Prod.RASTRO.Count > 0 then   também pra saber se tem rastro mais nunca entra nessa tag  

como saber se um xml é de medicamento para eu fazer minha programação?

 

[Juliana Tamizou]

Boa tarde.

Anexe o XML que está usando como base para seus testes.

Att.

[nildglan]

vou postar xml, nesse caso desse xml tem rastro então era pra entrar na tag rastro

51200619391064000199550010000102681003596884.xmlFetching info...

[Juliomar Marchetti]

NFe.Det.Items[0].Prod.med;

algo assim?

[nildglan]

Julionar mais como testar se tem essa tag?

porque se eu fizer assim if NFe.Det.Items[0].Prod.med.Count > 0 then

não da certo

 

tenho que da um jeito de saber se esse xml tem tag de medicamento para  eu gravar o código da anvisa na minha base

Editado 24 Junho, 2020 por nildglan

[nildglan]

eu já fiz assim if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Items[0].Prod.RASTRO.Count > 0 then

mais não entra e o xml tem essa tag rastro

[BigWings]

  Em 24/06/2020 at 22:01, nildglan disse:

eu já fiz assim if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Items[0].Prod.RASTRO.Count > 0 then

mais não entra e o xml tem essa tag rastro

Expandir  

Só observando que o fato de existir o grupo rastro não quer dizer que o item é um medicamento.

Pra identificar como medicamento devia existir também o grupo med.

[nildglan]

BigWings, fiz do mesmo jeito e não entra, vc fez com o xml que envie? com esse xml  porque no meu não da certo

  ACBrNFe1.NotasFiscais.Clear;
   ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName,false);

   if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Items[0].Prod.Rastro.Count > 0 then
      Showmessage('Rastro');

não entra nesse if

 

e outra eu tinha que fazer a cada item veja

if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Items[0].Prod.RASTRO.Count > 0 then
          begin
            for iRastro := 0 to Prod.RASTRO.Count - 1 do
            begin

              frmmodulo.qrconfig.Open;
              if frmmodulo.qrconfig.FieldByName('CONTROLAR_LOTES').AsString = 'S' then
                qrProdutosEntradaPRODUTOS_CONTROLE_LOTES.AsString := 'S';

              qrProdutosEntradaNLOTE.AsString                := Prod.RASTRO[iRastro].nLote;
              qrProdutosEntradaQLOTE.AsFloat                 := Prod.RASTRO[iRastro].qLote;
              qrProdutosEntradaDTFABRICACAO.AsDateTime       := Prod.RASTRO[iRastro].dFab;
              qrProdutosEntradaDTVALIDADE.AsDateTime         := Prod.RASTRO[iRastro].dVal;
            end;
          end;

 

e não entra que coisa

Editado 25 Junho, 2020 por nildglan

[BigWings]

  Em 25/06/2020 at 15:46, nildglan disse:

BigWings, fiz do mesmo jeito e não entra, vc fez com o xml que envie? com esse xml  porque no meu não da certo

Expandir  

Sim, com o teu XML e alterando o programa exemplo, no botão Imprimir DANFE, inseri essas duas linhas que você pode ver na imagem.

[nildglan]

ja sei aonde é o erro é a forma de como to baixando o xml vou concertar

[nildglan]

o problema é que to gerando o xml apartir da ACBrHTMLtoXML e não tava gerando essa tag,  agora estou tentando gerar essa tag no xml mais não to conseguindo porque não acha nLote veja

if Pos(AnsiUpperCase('|rastro|'), AnsiUpperCase(Grupo)) > 0 then
             begin
                Grupo := Copy(Grupo, Pos(AnsiUpperCase('|rastro|'),
                AnsiUpperCase(Grupo)), Length(Grupo));
                with Prod.rastro do
                begin
                  nLote // aqui não acha porque rastro é uma coleção como faço pra gerar essas tags?

                 end;
            end;

[RicardoVoigt]

  Em 25/06/2020 at 23:55, nildglan disse:

ACBrHTMLtoXML

Expandir  

Boa noite, essa rotina não faz parte dos componentes ACBr, provavelmente está usando uma versão desatualizada...

O recomendado é usar o método DistribuicaoDFe (serviço web oficial de distribuição de documentos) onde as empresas envolvidas podem consultar as notas destinadas, e baixar o XML mediante manifestação.

Att

Ricardo

[nildglan]

Ricardo esse tenho, agora tenho clientes do MEI que não tenho certificado ai em pego o html direto e tento agilizar pra eles entende? se eu não fizer fica pior

ai falta fazer para pegar esse rastro e gravar no html e gerar o xml, vc saber como fazer ?

 

o problema é que to gerando o xml apartir da ACBrHTMLtoXML e não tava gerando essa tag,  agora estou tentando gerar essa tag no xml mais não to conseguindo porque não acha nLote veja

if Pos(AnsiUpperCase('|rastro|'), AnsiUpperCase(Grupo)) > 0 then
             begin
                Grupo := Copy(Grupo, Pos(AnsiUpperCase('|rastro|'),
                AnsiUpperCase(Grupo)), Length(Grupo));
                with Prod.rastro do
                begin
                  nLote // aqui não acha porque rastro é uma coleção como faço pra gerar essas tags?

                 end;
            end;

Editado 26 Junho, 2020 por nildglan

[BigWings]

  Em 25/06/2020 at 23:55, nildglan disse:

ACBrHTMLtoXML

Expandir  

Veja o aviso no portal.

A partir do dia 07/07/2020 não vai mais consultar NFe no portal nacional sem certificado do emitente ou um dos interessados na nota.

Então pode esquecer essa unit.

  Citar

22/06/2020 - A partir de 07/07/2020, a consulta completa da NF-e neste Portal Nacional estará disponível somente para os participantes da operação comercial descritos no documento eletrônico

A partir de 07/07/2020, em cumprimento ao Ajuste Sinief nº16/2018, a consulta completa da NF-e neste Portal Nacional estará disponível somente para os participantes da operação comercial descritos no documento eletrônico (emitente, destinatário, transportador e terceiros informados na tag autXML), por meio de certificado digital. Estas restrições não se aplicarão às NF-es cujos destinatários sejam pessoa física (CPF) sem inscrição estadual e pessoa jurídica (CNPJ) sem inscrição estadual.

Assinado por: Receita Federal do Brasil

Expandir  

 

[nildglan]

já tão com mais de 2 anos que dizem que vão tirar, isso ajuda de mais quem não tem certificado, exemplo o clientes que tem MEI que não tem certificado

[RicardoVoigt]

  Em 28/06/2020 at 13:50, nildglan disse:

já tão com mais de 2 anos que dizem que vão tirar, isso ajuda de mais quem não tem certificado, exemplo o clientes que tem MEI que não tem certificado

Expandir  

Uma opção seria exigir o xml do fornecedor, ele também é obrigado a enviar...

Att

Ricardo