Problema Ao Tentar Ler Campos Do Xml

[murilo cosme da silva]

Não sei o porque não estou conseguindo pegar esta informação da nfe:

 

 

 with ACBrNFe1.NotasFiscais.Items[0].NFe do

                    begin

                      sNCM := Det.Items[iNRItem].Prod.NCM;

                      {sIPI :=

                       sSP_piscofins :=

 

                      }

                    end;

[Italo Giurizzato Junior]

Boa noite Murilo,

 

O valor do Índice:

 

 sNCM := Det.Items[iNRItem].Prod.NCM;

 

Foi inicializado com qual valor?

[murilo cosme da silva]

fiz um for

 

for iNRItem := 1 to iTotalItem do

    begin

        tbl_movimento.Close;

        tbl_movimento.SQL.Clear;

        tbl_movimento.SQL.Add('SELECT * FROM MOVIMENTO WHERE DOCUMENTO = :PDOC');

        tbl_movimento.ParamByName('PDOC').AsString := tbl_compra.FieldByName('COD_COMPRA').AsString;

        tbl_movimento.Open;

 

        if not tbl_movimento.IsEmpty then

            begin

 

              if tbl_movimento.Locate('ITEM', FormatFloat('000', iNRItem),[]) then

                begin

 

                  with ACBrNFe1.NotasFiscais.Items[0].NFe do

                    begin

                      sNCM := Det.Items[iNRItem].Prod.NCM;

                      {sIPI :=

                       sSP_piscofins :=

 

                      }

                    end;

 

                  tbl_movimento.Edit;

                  tbl_movimento.FieldByName('NCM').AsString := sNCM;

                  tbl_movimento.Post;

                end;

 

            end;

 

        end;

[Italo Giurizzato Junior]

Boa tarde Murilo,

 

Aqui esta o seu erro:

 

for iNRItem := 1 to iTotalItem do

 

Se a nota possui 5 itens o seu loop varia de 1 até 5, mas no componente eles são indexados de 0 a 4, portanto o seu for tem que ser da seguinte forma:

 

for iNRItem := 0 to iTotalItem -1 do