Carregar Itens de Nota Fiscal em um StringGrid, apenas da linha selecionada

22/01/2017

Senhores, estou desenvolvendo uma aplica��o para carregar Xml e exibir os dados na tela. Assim, tenho um StringGrid, onde exibo os principais dados da nota fiscal.
Em Outras abas, tenho o detalhamento da capa da nota fiscal, como valores, dados transporte, emitente, etc.
Ao clicar na linha 1 do grid, os dados da nota carregada na linha 1 s�o mostrada nos edits, segue exemplo da procedure.

procedure TFrmImportacao.GridXmlSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  //Emitente
  EdtRazaoSocial.Text              := GridXml.Cells[  0,GridXml.Row];

Por�m, a minha dificuldade est� em exibir apenas os itens(produtos) da linha selecionada em um segundo Grid (GridItens). Tenho outra procedure que faz a contagem dos arquivos, e lista os produtos, contudo, n�o consigo vincular apenas os itens da linha selecionada no Grid principal, segue procedure dos itens.

procedure TFrmImportacao.LoadItens;
var
  i      : integer;
  indice : integer;
  j      : integer;

begin
  j := 1;
  for indice := 0 to OpenDialogXml.Files.Count - 1 do
    begin
      AcbrNfe.NotasFiscais.Clear;
      AcbrNfe.NotasFiscais.LoadFromFile(OpenDialogXml.Files[indice]);
      for i := 0 to AcbrNfe.NotasFiscais.Items[0].NFe.Det.Count - 1 do
        begin
          GridXmlItens.Cells[1,j] := AcbrNfe.NotasFiscais.Items[0].NFe.Det.Items[i].Prod.xProd;
          inc(j);
         end;
    end;
end;

Diego

Curtir t�pico + 0

Responder