Skip to main content
replaced http://pt.stackoverflow.com/ with https://pt.stackoverflow.com/
Fonte Link

Este código acima é apenas uma pequena continuação da resposta desta pergunta feita anteriormente: Access Violation ao Selecionar o arquivo XML - NFeAccess Violation ao Selecionar o arquivo XML - NFe

Este código acima é apenas uma pequena continuação da resposta desta pergunta feita anteriormente: Access Violation ao Selecionar o arquivo XML - NFe

Este código acima é apenas uma pequena continuação da resposta desta pergunta feita anteriormente: Access Violation ao Selecionar o arquivo XML - NFe

Reversão para edição 5
Fonte Link
bfavaretto
  • 66,2mil
  • 11
  • 151
  • 228
// Leitura Dados Itens da Nota Fiscal...
xmlNCab := NoPrinc.ChildNodes.FindNode('det');
while not (xmlNCab = Nil) do
begin
    inc(l);
    sgProds.RowCount := l;
    //xmlNCab.ChildNodes.FindNode('det');
    xmlNItm := xmlNCab.ChildNodes['prod'];
    
    cProd := xmlNItm.ChildNodes['cProd'  ].Text; // Código do produto CFOP
    xProd := xmlNItm.ChildNodes['xProd'  ].Text; // Nome do produto
    uCom := xmlNItm.ChildNodes['uCom'    ].Text; // Sigla unidade da embalagem
    qCom := xmlNItm.ChildNodes['qCom'    ].Text; // Quantidade do produto (4dec,S/M)
    vUnCom := xmlNItm.ChildNodes['vUnCom'].Text; // Valor unitário do produto (4dec,S/M)
    vProd := xmlNItm.ChildNodes['vProd'  ].Text; // Valor total do produto (2dec,S/M)

    sgProds.Cells[0,l] := cProd;
    sgProds.Cells[1,l] := xProd;
    sgProds.Cells[2,l] := uCom;
    sgProds.Cells[3,l] := qCom;
    sgProds.Cells[4,l] := vUnCom;
    sgProds.Cells[5,l] := vProd;

    DataModule1.zqInsertXML.Close;
    DataModule1.zqInsertXML.SQL.Clear;
    DataModule1.zqInsertXML.SQL.Add('INSERT INTO xmlprod(cProd, xProd, uCom, qCom, ' + 'vUnCom, vProd, chval)');
    DataModule1.zqInsertXML.SQL.Add('VALUES (:pcProd, :pxProd, :puCom, :pqCom, ' + ':pvUnCom, :pvProd, :pchval)');
    DataModule1.zqInsertXML.ParamByName('pcProd').AsString := cProd;
    DataModule1.zqInsertXML.ParamByName('pxProd').AsString := xProd;
    DataModule1.zqInsertXML.ParamByName('puCom').AsString := uCom;
    DataModule1.zqInsertXML.ParamByName('pqCom').AsString := qCom;
    DataModule1.zqInsertXML.ParamByName('pvUnCom').AsString := Trcpv(vUnCom);
    DataModule1.zqInsertXML.ParamByName('pvProd').AsString := Trcpv(vProd);
    DataModule1.zqInsertXML.ParamByName('pchval').AsString := cnpj+fone;
    DataModule1.zqInsertXML.ExecSQL;
    
    xmlNCab := xmlNCab.NextSibling;
end;  
// Leitura Dados Itens da Nota Fiscal...
xmlNCab := NoPrinc.ChildNodes.FindNode('det');
while not (xmlNCab = Nil) do
begin
    inc(l);
    sgProds.RowCount := l;
    //xmlNCab.ChildNodes.FindNode('det');
    xmlNItm := xmlNCab.ChildNodes['prod'];
    
    cProd := xmlNItm.ChildNodes['cProd'  ].Text; // Código do produto CFOP
    xProd := xmlNItm.ChildNodes['xProd'  ].Text; // Nome do produto
    uCom := xmlNItm.ChildNodes['uCom'    ].Text; // Sigla unidade da embalagem
    qCom := xmlNItm.ChildNodes['qCom'    ].Text; // Quantidade do produto (4dec,S/M)
    vUnCom := xmlNItm.ChildNodes['vUnCom'].Text; // Valor unitário do produto (4dec,S/M)
    vProd := xmlNItm.ChildNodes['vProd'  ].Text; // Valor total do produto (2dec,S/M)

    sgProds.Cells[0,l] := cProd;
    sgProds.Cells[1,l] := xProd;
    sgProds.Cells[2,l] := uCom;
    sgProds.Cells[3,l] := qCom;
    sgProds.Cells[4,l] := vUnCom;
    sgProds.Cells[5,l] := vProd;

    DataModule1.zqInsertXML.Close;
    DataModule1.zqInsertXML.SQL.Clear;
    DataModule1.zqInsertXML.SQL.Add('INSERT INTO xmlprod(cProd, xProd, uCom, qCom, ' + 'vUnCom, vProd, chval)');
    DataModule1.zqInsertXML.SQL.Add('VALUES (:pcProd, :pxProd, :puCom, :pqCom, ' + ':pvUnCom, :pvProd, :pchval)');
    DataModule1.zqInsertXML.ParamByName('pcProd').AsString := cProd;
    DataModule1.zqInsertXML.ParamByName('pxProd').AsString := xProd;
    DataModule1.zqInsertXML.ParamByName('puCom').AsString := uCom;
    DataModule1.zqInsertXML.ParamByName('pqCom').AsString := qCom;
    DataModule1.zqInsertXML.ParamByName('pvUnCom').AsString := Trcpv(vUnCom);
    DataModule1.zqInsertXML.ParamByName('pvProd').AsString := Trcpv(vProd);
    DataModule1.zqInsertXML.ParamByName('pchval').AsString := cnpj+fone;
    DataModule1.zqInsertXML.ExecSQL;
    
    xmlNCab := xmlNCab.NextSibling;
end;  
// Leitura Dados Itens da Nota Fiscal...
xmlNCab := NoPrinc.ChildNodes.FindNode('det');
while not (xmlNCab = Nil) do
begin
    inc(l);
    sgProds.RowCount := l;
    //xmlNCab.ChildNodes.FindNode('det');
    xmlNItm := xmlNCab.ChildNodes['prod'];
    
    cProd := xmlNItm.ChildNodes['cProd'  ].Text; // Código do produto CFOP
    xProd := xmlNItm.ChildNodes['xProd'  ].Text; // Nome do produto
    uCom := xmlNItm.ChildNodes['uCom'    ].Text; // Sigla unidade da embalagem
    qCom := xmlNItm.ChildNodes['qCom'    ].Text; // Quantidade do produto (4dec,S/M)
    vUnCom := xmlNItm.ChildNodes['vUnCom'].Text; // Valor unitário do produto (4dec,S/M)
    vProd := xmlNItm.ChildNodes['vProd'  ].Text; // Valor total do produto (2dec,S/M)

    sgProds.Cells[0,l] := cProd;
    sgProds.Cells[1,l] := xProd;
    sgProds.Cells[2,l] := uCom;
    sgProds.Cells[3,l] := qCom;
    sgProds.Cells[4,l] := vUnCom;
    sgProds.Cells[5,l] := vProd;

    DataModule1.zqInsertXML.Close;
    DataModule1.zqInsertXML.SQL.Clear;
    DataModule1.zqInsertXML.SQL.Add('INSERT INTO xmlprod(cProd, xProd, uCom, qCom, ' + 'vUnCom, vProd, chval)');
    DataModule1.zqInsertXML.SQL.Add('VALUES (:pcProd, :pxProd, :puCom, :pqCom, ' + ':pvUnCom, :pvProd, :pchval)');
    DataModule1.zqInsertXML.ParamByName('pcProd').AsString := cProd;
    DataModule1.zqInsertXML.ParamByName('pxProd').AsString := xProd;
    DataModule1.zqInsertXML.ParamByName('puCom').AsString := uCom;
    DataModule1.zqInsertXML.ParamByName('pqCom').AsString := qCom;
    DataModule1.zqInsertXML.ParamByName('pvUnCom').AsString := Trcpv(vUnCom);
    DataModule1.zqInsertXML.ParamByName('pvProd').AsString := Trcpv(vProd);
    DataModule1.zqInsertXML.ParamByName('pchval').AsString := cnpj+fone;
    DataModule1.zqInsertXML.ExecSQL;
    
    xmlNCab := xmlNCab.NextSibling;
end;  
// Leitura Dados Itens da Nota Fiscal...
xmlNCab := NoPrinc.ChildNodes.FindNode('det');
while not (xmlNCab = Nil) do
begin
    inc(l);
    sgProds.RowCount := l;
    //xmlNCab.ChildNodes.FindNode('det');
    xmlNItm := xmlNCab.ChildNodes['prod'];
    
    cProd := xmlNItm.ChildNodes['cProd'  ].Text; // Código do produto CFOP
    xProd := xmlNItm.ChildNodes['xProd'  ].Text; // Nome do produto
    uCom := xmlNItm.ChildNodes['uCom'    ].Text; // Sigla unidade da embalagem
    qCom := xmlNItm.ChildNodes['qCom'    ].Text; // Quantidade do produto (4dec,S/M)
    vUnCom := xmlNItm.ChildNodes['vUnCom'].Text; // Valor unitário do produto (4dec,S/M)
    vProd := xmlNItm.ChildNodes['vProd'  ].Text; // Valor total do produto (2dec,S/M)

    sgProds.Cells[0,l] := cProd;
    sgProds.Cells[1,l] := xProd;
    sgProds.Cells[2,l] := uCom;
    sgProds.Cells[3,l] := qCom;
    sgProds.Cells[4,l] := vUnCom;
    sgProds.Cells[5,l] := vProd;

    DataModule1.zqInsertXML.Close;
    DataModule1.zqInsertXML.SQL.Clear;
    DataModule1.zqInsertXML.SQL.Add('INSERT INTO xmlprod(cProd, xProd, uCom, qCom, ' + 'vUnCom, vProd, chval)');
    DataModule1.zqInsertXML.SQL.Add('VALUES (:pcProd, :pxProd, :puCom, :pqCom, ' + ':pvUnCom, :pvProd, :pchval)');
    DataModule1.zqInsertXML.ParamByName('pcProd').AsString := cProd;
    DataModule1.zqInsertXML.ParamByName('pxProd').AsString := xProd;
    DataModule1.zqInsertXML.ParamByName('puCom').AsString := uCom;
    DataModule1.zqInsertXML.ParamByName('pqCom').AsString := qCom;
    DataModule1.zqInsertXML.ParamByName('pvUnCom').AsString := Trcpv(vUnCom);
    DataModule1.zqInsertXML.ParamByName('pvProd').AsString := Trcpv(vProd);
    DataModule1.zqInsertXML.ParamByName('pchval').AsString := cnpj+fone;
    DataModule1.zqInsertXML.ExecSQL;
    
    xmlNCab := xmlNCab.NextSibling;
end;  
removeu 30 caracteres do conteúdo
Fonte Link
bfavaretto
  • 66,2mil
  • 11
  • 151
  • 228
// Leitura Dados Itens da Nota Fiscal...
xmlNCab := NoPrinc.ChildNodes.FindNode('det');
while not (xmlNCab = Nil) do
begin
    inc(l);
    sgProds.RowCount := l;
    //xmlNCab.ChildNodes.FindNode('det');
    xmlNItm := xmlNCab.ChildNodes['prod'];
    
    cProd := xmlNItm.ChildNodes['cProd'  ].Text; // Código do produto CFOP
    xProd := xmlNItm.ChildNodes['xProd'  ].Text; // Nome do produto
    uCom := xmlNItm.ChildNodes['uCom'    ].Text; // Sigla unidade da embalagem
    qCom := xmlNItm.ChildNodes['qCom'    ].Text; // Quantidade do produto (4dec,S/M)
    vUnCom := xmlNItm.ChildNodes['vUnCom'].Text; // Valor unitário do produto (4dec,S/M)
    vProd := xmlNItm.ChildNodes['vProd'  ].Text; // Valor total do produto (2dec,S/M)

    sgProds.Cells[0,l] := cProd;
    sgProds.Cells[1,l] := xProd;
    sgProds.Cells[2,l] := uCom;
    sgProds.Cells[3,l] := qCom;
    sgProds.Cells[4,l] := vUnCom;
    sgProds.Cells[5,l] := vProd;

    DataModule1.zqInsertXML.Close;
    DataModule1.zqInsertXML.SQL.Clear;
    DataModule1.zqInsertXML.SQL.Add('INSERT INTO xmlprod(cProd, xProd, uCom, qCom, ' + 'vUnCom, vProd, chval)');
    DataModule1.zqInsertXML.SQL.Add('VALUES (:pcProd, :pxProd, :puCom, :pqCom, ' + ':pvUnCom, :pvProd, :pchval)');
    DataModule1.zqInsertXML.ParamByName('pcProd').AsString := cProd;
    DataModule1.zqInsertXML.ParamByName('pxProd').AsString := xProd;
    DataModule1.zqInsertXML.ParamByName('puCom').AsString := uCom;
    DataModule1.zqInsertXML.ParamByName('pqCom').AsString := qCom;
    DataModule1.zqInsertXML.ParamByName('pvUnCom').AsString := Trcpv(vUnCom);
    DataModule1.zqInsertXML.ParamByName('pvProd').AsString := Trcpv(vProd);
    DataModule1.zqInsertXML.ParamByName('pchval').AsString := cnpj+fone;
    DataModule1.zqInsertXML.ExecSQL;
    
    xmlNCab := xmlNCab.NextSibling;
end;  
// Leitura Dados Itens da Nota Fiscal...
xmlNCab := NoPrinc.ChildNodes.FindNode('det');
while not (xmlNCab = Nil) do
begin
    inc(l);
    sgProds.RowCount := l;
    //xmlNCab.ChildNodes.FindNode('det');
    xmlNItm := xmlNCab.ChildNodes['prod'];
    
    cProd := xmlNItm.ChildNodes['cProd'  ].Text; // Código do produto CFOP
    xProd := xmlNItm.ChildNodes['xProd'  ].Text; // Nome do produto
    uCom := xmlNItm.ChildNodes['uCom'    ].Text; // Sigla unidade da embalagem
    qCom := xmlNItm.ChildNodes['qCom'    ].Text; // Quantidade do produto (4dec,S/M)
    vUnCom := xmlNItm.ChildNodes['vUnCom'].Text; // Valor unitário do produto (4dec,S/M)
    vProd := xmlNItm.ChildNodes['vProd'  ].Text; // Valor total do produto (2dec,S/M)

    sgProds.Cells[0,l] := cProd;
    sgProds.Cells[1,l] := xProd;
    sgProds.Cells[2,l] := uCom;
    sgProds.Cells[3,l] := qCom;
    sgProds.Cells[4,l] := vUnCom;
    sgProds.Cells[5,l] := vProd;

    DataModule1.zqInsertXML.Close;
    DataModule1.zqInsertXML.SQL.Clear;
    DataModule1.zqInsertXML.SQL.Add('INSERT INTO xmlprod(cProd, xProd, uCom, qCom, ' + 'vUnCom, vProd, chval)');
    DataModule1.zqInsertXML.SQL.Add('VALUES (:pcProd, :pxProd, :puCom, :pqCom, ' + ':pvUnCom, :pvProd, :pchval)');
    DataModule1.zqInsertXML.ParamByName('pcProd').AsString := cProd;
    DataModule1.zqInsertXML.ParamByName('pxProd').AsString := xProd;
    DataModule1.zqInsertXML.ParamByName('puCom').AsString := uCom;
    DataModule1.zqInsertXML.ParamByName('pqCom').AsString := qCom;
    DataModule1.zqInsertXML.ParamByName('pvUnCom').AsString := Trcpv(vUnCom);
    DataModule1.zqInsertXML.ParamByName('pvProd').AsString := Trcpv(vProd);
    DataModule1.zqInsertXML.ParamByName('pchval').AsString := cnpj+fone;
    DataModule1.zqInsertXML.ExecSQL;
    
    xmlNCab := xmlNCab.NextSibling;
end;  
// Leitura Dados Itens da Nota Fiscal...
xmlNCab := NoPrinc.ChildNodes.FindNode('det');
while not (xmlNCab = Nil) do
begin
    inc(l);
    sgProds.RowCount := l;
    //xmlNCab.ChildNodes.FindNode('det');
    xmlNItm := xmlNCab.ChildNodes['prod'];
    
    cProd := xmlNItm.ChildNodes['cProd'  ].Text; // Código do produto CFOP
    xProd := xmlNItm.ChildNodes['xProd'  ].Text; // Nome do produto
    uCom := xmlNItm.ChildNodes['uCom'    ].Text; // Sigla unidade da embalagem
    qCom := xmlNItm.ChildNodes['qCom'    ].Text; // Quantidade do produto (4dec,S/M)
    vUnCom := xmlNItm.ChildNodes['vUnCom'].Text; // Valor unitário do produto (4dec,S/M)
    vProd := xmlNItm.ChildNodes['vProd'  ].Text; // Valor total do produto (2dec,S/M)

    sgProds.Cells[0,l] := cProd;
    sgProds.Cells[1,l] := xProd;
    sgProds.Cells[2,l] := uCom;
    sgProds.Cells[3,l] := qCom;
    sgProds.Cells[4,l] := vUnCom;
    sgProds.Cells[5,l] := vProd;

    DataModule1.zqInsertXML.Close;
    DataModule1.zqInsertXML.SQL.Clear;
    DataModule1.zqInsertXML.SQL.Add('INSERT INTO xmlprod(cProd, xProd, uCom, qCom, ' + 'vUnCom, vProd, chval)');
    DataModule1.zqInsertXML.SQL.Add('VALUES (:pcProd, :pxProd, :puCom, :pqCom, ' + ':pvUnCom, :pvProd, :pchval)');
    DataModule1.zqInsertXML.ParamByName('pcProd').AsString := cProd;
    DataModule1.zqInsertXML.ParamByName('pxProd').AsString := xProd;
    DataModule1.zqInsertXML.ParamByName('puCom').AsString := uCom;
    DataModule1.zqInsertXML.ParamByName('pqCom').AsString := qCom;
    DataModule1.zqInsertXML.ParamByName('pvUnCom').AsString := Trcpv(vUnCom);
    DataModule1.zqInsertXML.ParamByName('pvProd').AsString := Trcpv(vProd);
    DataModule1.zqInsertXML.ParamByName('pchval').AsString := cnpj+fone;
    DataModule1.zqInsertXML.ExecSQL;
    
    xmlNCab := xmlNCab.NextSibling;
end;  
// Leitura Dados Itens da Nota Fiscal...
xmlNCab := NoPrinc.ChildNodes.FindNode('det');
while not (xmlNCab = Nil) do
begin
    inc(l);
    sgProds.RowCount := l;
    //xmlNCab.ChildNodes.FindNode('det');
    xmlNItm := xmlNCab.ChildNodes['prod'];
    
    cProd := xmlNItm.ChildNodes['cProd'  ].Text; // Código do produto CFOP
    xProd := xmlNItm.ChildNodes['xProd'  ].Text; // Nome do produto
    uCom := xmlNItm.ChildNodes['uCom'    ].Text; // Sigla unidade da embalagem
    qCom := xmlNItm.ChildNodes['qCom'    ].Text; // Quantidade do produto (4dec,S/M)
    vUnCom := xmlNItm.ChildNodes['vUnCom'].Text; // Valor unitário do produto (4dec,S/M)
    vProd := xmlNItm.ChildNodes['vProd'  ].Text; // Valor total do produto (2dec,S/M)

    sgProds.Cells[0,l] := cProd;
    sgProds.Cells[1,l] := xProd;
    sgProds.Cells[2,l] := uCom;
    sgProds.Cells[3,l] := qCom;
    sgProds.Cells[4,l] := vUnCom;
    sgProds.Cells[5,l] := vProd;

    DataModule1.zqInsertXML.Close;
    DataModule1.zqInsertXML.SQL.Clear;
    DataModule1.zqInsertXML.SQL.Add('INSERT INTO xmlprod(cProd, xProd, uCom, qCom, ' + 'vUnCom, vProd, chval)');
    DataModule1.zqInsertXML.SQL.Add('VALUES (:pcProd, :pxProd, :puCom, :pqCom, ' + ':pvUnCom, :pvProd, :pchval)');
    DataModule1.zqInsertXML.ParamByName('pcProd').AsString := cProd;
    DataModule1.zqInsertXML.ParamByName('pxProd').AsString := xProd;
    DataModule1.zqInsertXML.ParamByName('puCom').AsString := uCom;
    DataModule1.zqInsertXML.ParamByName('pqCom').AsString := qCom;
    DataModule1.zqInsertXML.ParamByName('pvUnCom').AsString := Trcpv(vUnCom);
    DataModule1.zqInsertXML.ParamByName('pvProd').AsString := Trcpv(vProd);
    DataModule1.zqInsertXML.ParamByName('pchval').AsString := cnpj+fone;
    DataModule1.zqInsertXML.ExecSQL;
    
    xmlNCab := xmlNCab.NextSibling;
end;  
Reversão para edição 5
Fonte Link
bfavaretto
  • 66,2mil
  • 11
  • 151
  • 228
Carregando
removeu 30 caracteres do conteúdo
Fonte Link
bfavaretto
  • 66,2mil
  • 11
  • 151
  • 228
Carregando
consertando o syntax highlight
Fonte Link
Math
  • 31,3mil
  • 15
  • 95
  • 132
Carregando
conteúdo editado
Fonte Link
user6026
user6026
Carregando
conteúdo editado
Fonte Link
user6026
user6026
Carregando
adicionou 32 caracteres ao conteúdo
Fonte Link
user6026
user6026
Carregando
Fonte Link
Ramon Ruan
  • 996
  • 1
  • 10
  • 38
Carregando