seleccionar columna de un TstringGrid

[microbiano]

bueno resulta que hasta hoy no habia tenido necesidad de hacer sistemas de factuacion ;-), sin embargo el dia de hoy estoy iniciando uno para facturacion, gracias al ejemplo del amigo Caral ha sido algo facil jejeje, bueno pues resulta que cargo los datos en el StringGrid y hasta ahi no hay ningun problema el problema surge cuando quiero hacerle cambios a un producto que ya esta en el detalle de facturion explico los pasos que me gustanrian:

1.- haciendo doble click sobre un registro del TstringGrid me muestre otro form con los datos p/e:

cantidad=1
descuento=1.15%


2.- hacer mas modificaciones que necesito p/e.

cantidad=500
descuento=20%

3.- una vez hechas esas modificaciones, reflejarlas en el registro que se selecciono del TstringGRid.

pongo el codigo con el que agrego las filas al TstringGrid

Código Delphi [-]
procedure TFfactura.txtcodigoExit(Sender: TObject);
var wcodigobarras: string;
    wprecio_totalouble;
    wcantidad_venta:Integer;
begin
 wcodigobarras:=Trim(Ffactura.txtcodigo.Text);
 if wcodigobarras<>EmptyStr then
  begin
   If Cuenta > 1 then SGFact.RowCount := SGFact.RowCount + 1;
    with fmodulo.Qry_Temp2 do
     begin
       Close;
       sql.clear;
       SQL.Add('select * from articulo');
       SQL.Add('where codigobarras=:Pcodigobarras');
       Parameters.ParamByName('pcodigobarras').Value:=Trim(wcodigobarras);
       try
        Open;
        if not Fmodulo.Qry_Temp2.IsEmpty then
         begin
           while not Fmodulo.Qry_Temp2.Eof do
           begin
             wprecioventa:=StrToFloat(FieldByname('precioventa').AsVariant);
             Ffactura.SGFact.Cells[0,cuenta] := Ffactura.txtcodigo.Text;
             Ffactura.SGFact.Cells[1,Cuenta]:=(FieldByname('nombre').AsString);
             Ffactura.SGFact.Cells[2,Cuenta]:='1';
             Ffactura.SGFact.Cells[3,Cuenta]:=(FieldByname('precioventa').AsVariant);
             wcantidad_venta:=StrToInt(SGFact.Cells[2,cuenta]);
             wprecio_total:=wcantidad_venta*wprecioventa;
             SGFact.Cells[4,Cuenta]:='0.00';
             SGFact.Cells[5,Cuenta]:=FloatToStr(wprecio_total);//Format('%n',[wprecio_total]);
             Cuenta:=cuenta+1;
             calcula_totales;
             Next;
             Ffactura.txtcodigo.Text:='';
           end;
         end
        else
         begin
           MessageDlg('Registro'+chr(13)+'No localizado', mtError, [MBOK], 0);
           Ffactura.txtcodigo.Text:='';
           Ffactura.txtcodigo.SetFocus;
           Exit;
         end;
       except
         on E:EOleException do
         begin
          MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
         end;
       end;
     end;
  end;
end;

espero me hay explicado, de antemano muchas gracias por el apoyo recibido

[[Caral]]

Hola
Veo la cantidad de venta, que me imagino sera la cantidad:
wcantidad_venta:=StrToInt(SGFact.Cells[2,cuenta]);
pero no veo el descuento, donde esta?.
Lo digo para asignarle el dato al TstringGRid.
Saludos

[microbiano]

hola amigo caral la verdad estaba esperando tu respuesta canijo mira el descuento lo inicializo en cero como puedes ver en esta linea:

SGFact.Cells[4,Cuenta]:='0.00';

y conforme seleccione el vendedor esto cambiara.

[[Caral]]

Hola
Quiero contestarte para que veas que vi el post.
No he tenido tiempo para pensar en esto, disculpa pero tengo algunos asuntos que resolver y me estan quitando algo de tiempo, en cuanto pueda te trato de ayudar.
Saludos

[[Caral]]

Hola
Sigues con el problema?.
Saludos

[microbiano]

la verdad si.


aunque lo resolvi agregando una venta de multiples productos ejeje a donde seleccionar el producto y la cantidad desde el inicio, aunque si me gustaria saber como se ahce