0

Segue o código:

    procedure TfrmGrid.sgCuponsDblClick(Sender: TObject);
var
  txt: TextFile;
  l, i : integer;
  lTemp, CFF, COO: String;
begin
    i:=0;
    l:=0;
    CFF := sgCupons.Cells[0,sgCupons.Row];
    COO := sgCupons.Cells[1,sgCupons.Row];

      AssignFile(txt, lbCaminho.Caption);
      Reset(txt);
      while not eof(txt) do
          begin
            Readln(txt, lTemp);
              if (copy(lTemp, 1, 3) = 'E15')
              and (copy(lTemp,47,6 = CFF))
              and (copy(lTemp,53,6) = COO)
              then
              begin
              inc(i);
              sgItens.RowCount:=i;
              ShowMessage(CFF+' '+COO);
              end;
          end;
      CloseFile(txt);
      ShowMessage('Existem '+IntToStr(i)+' linhas.');


    if (sgCupons.Row <> 0) then
    begin
      AssignFile(txt, lbCaminho.Caption);
      Reset(txt);
      while not eof(txt) do
          begin
          Readln(txt, lTemp);
              if (copy(lTemp, 1, 3) = 'E15')
              and (copy(lTemp,47,6) = CFF)
              and (copy(lTemp,53,6) = COO)
              then
                  begin
                  sgItens.Enabled := True;
                  inc(l);
                  //Ordem
                  //sgItens.Cells[0,l] := copy();
                  //Codigo
                  sgItens.Cells[1,l] := copy(lTemp,62 ,14);
                  //Descricao
                  sgItens.Cells[2,l] := copy(lTemp,76, 100);
                  //Qtde
                  sgItens.Cells[3,l] := copy(lTemp,176, 7);
                  //Pr. Unitario
                  sgItens.Cells[4,l] := copy(lTemp, 186, 8);
                  //Pr. Total
                  sgItens.Cells[5,l] := copy(lTemp, 210, 14);
                  //Antiquota
                  sgItens.Cells[6,l] := copy(lTemp, 0, 0);
                  end;
          end;
      CloseFile(txt);
    end;
    if not (sgCupons.Row <> 0) then
    sgItens.Enabled := false;
end;

De fato, esta faltando algo, mas, eu gostaria que os senhores me ajudassem...

O que eu quero é o seguinte, no primeiro StringGrid tem os Cupons(E14), e os Cupons tem subitens(E13), ou seja, quando eu clicar duas vezes em um cupom(StringGrid1), os subitens do cupom selecionado iriam para a StringGrid2.

Eu sei que é basicamente um loop, mas alguem tem alguma sugestão ou idéia?

O codigo informado é dos subitens

1
  • @Crood, deu tudo certo, eu acabei esse sistema, porem como ngm havia repondido, passou despecebido.
    – Ramon Ruan
    Commented 21/05/2014 às 12:06

1 Resposta 1

1

Segue abaixo a resposta:

procedure TfrmGrid.sgCuponsDblClick(Sender: TObject);
var
  txt: TextFile;
  l, mp, i: integer;
  lTemp, CCF, COO: String;
  cont, valorTotal, valorPago, troco: double;
begin
    CCF := sgCupons.Cells[1,sgCupons.Row];
    COO := sgCupons.Cells[0,sgCupons.Row];

    if (sgCupons.Row <> 0) then
      begin
        i:=0;
        l:=0;
        AssignFile(txt, lbCaminho.Caption);
        Reset(txt);
        while not eof(txt) do
          begin
            Readln(txt, lTemp);
            if (copy(lTemp, 1, 3) = 'E15')
            and (copy(lTemp, 53, 6) = CCF)
            and (copy(lTemp,47,6) = COO)
            then
              begin
                inc(i);
                sgItens.RowCount:=i+1;

                inc(l);
                //Ordem
                sgItens.Cells[0,l] := COO;
                //Codigo
                sgItens.Cells[1,l] := copy(lTemp,62 ,14);
                //Descricao
                sgItens.Cells[2,l] := copy(lTemp,76, 100);
                //Qtde
                sgItens.Cells[3,l] := FloatToStr(StrToFloat(copy(lTemp,176, 7)) / 1000);
                //Pr. Unitario
                sgItens.Cells[4,l] := FloatToStr(StrToFloat(copy(lTemp, 186, 8)) / 100);
                //Pr. Total
                sgItens.Cells[5,l] := FloatToStr(StrToFloat(copy(lTemp, 210, 14)) / 100);
                if (copy(lTemp, 231, 1) = 'N') then
                begin
                cont :=  StrToFloat(sgItens.Cells[5,l]);
                valorTotal:=valorTotal+cont;
                end;

                //Anliquota
                sgItens.Cells[6,l] := copy(lTemp, 224, 7);
              end;
          end;
        CloseFile(txt);
       StatusBar1.Panels[1].Text := 'Existem '+IntToStr(i)+' Itens.';

        AssignFile(txt, lbCaminho.Caption);
        Reset(txt);

        mp:= 0;
        l := 0;
        while not eof(txt) do
            begin
            Readln(txt, lTemp);
              if (copy(lTemp, 1, 3) = 'E21')
              and (copy(lTemp, 53, 6) = CCF)
              and (copy(lTemp,47,6) = COO)
              then
                begin
                  inc(mp);
                  sgFinalizadoras.RowCount := mp+1;

                  inc(l);
                  //COO
                  sgFinalizadoras.Cells[0,l] := copy(lTemp,47,6);
                  //CCF
                  sgFinalizadoras.Cells[1,l] := copy(lTemp, 53, 6);
                  //Meio de pagamento
                  sgFinalizadoras.Cells[2,l] := copy(lTemp, 65, 15);
                  //Valor Pago
                  sgFinalizadoras.Cells[3,l] := FloatToStr(StrToFloat(copy(lTemp, 80, 13)) /100);
                  valorPago:=StrToFloat(copy(lTemp, 80, 13))/100;
                end;
            end;
            CloseFile(txt);
            StatusBar1.Panels[0].Text := 'Existem ' + IntToStr(mp)+' Meios de pagamento.';

          //Valor Líquido Total
          Edit1.Text := FloatToStr(valorTotal);

          //Troco
          troco:= (valorPago - valorTotal);
          Edit2.Text := FormatFloat('#,##0.00',troco);
      end;
end;

Está funcionando corretamente e sem erros. Caso precisem, código está parcialmente comentado.

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .