Ver Mensaje Individual
  #3  
Antiguo 12-12-2021
kainchu3102 kainchu3102 is offline
Miembro
 
Registrado: jul 2021
Posts: 79
Reputación: 3
kainchu3102 Va por buen camino
Hola Esfisa Muchas gracias por responder, pero creo mas que un listado es esto lo que necesito que se vayan varios registro de una misma ID.
y lo estoy haciendo todo mal
Código Delphi [-]
   for J := 0  to FORMABMVENTA.SGVENTAS.RowCount  do
        begin
 with MDBRIONES.FDQSEL_DET_VEN2 Do
      Begin
      SQL.Clear;
      SQL.Add('SELECT can_det, esp_det, tip_det, alt_det, anc_det, lar_det FROM detalle_venta WHERE id_ven_det = :ID_DETS');
      ParamByName('ID_DETS').AsInteger := ID_VENTA;
      open;

     FORMABMVENTA.SGVENTAS.Cells[0, j]:= MDBRIONES.FDQSEL_DET_VEN2.Fields.FieldByName('can_det').AsString ;
     FORMABMVENTA.SGVENTAS.Cells[1, j]:= MDBRIONES.FDQSEL_DET_VEN2.Fields.FieldByName('esp_det').AsString ;
     FORMABMVENTA.SGVENTAS.Cells[2, j]:= MDBRIONES.FDQSEL_DET_VEN2.Fields.FieldByName('tip_det').AsString ;
     FORMABMVENTA.SGVENTAS.Cells[3, j]:= MDBRIONES.FDQSEL_DET_VEN2.Fields.FieldByName('alt_det').AsString ;
     FORMABMVENTA.SGVENTAS.Cells[4, j]:= MDBRIONES.FDQSEL_DET_VEN2.Fields.FieldByName('anc_det').AsString ;
     FORMABMVENTA.SGVENTAS.Cells[5, j]:= MDBRIONES.FDQSEL_DET_VEN2.Fields.FieldByName('lar_det').AsString ;

      FORMABMVENTA.ShowModal;

no lo lo estoy entendiendo al codigo, perdon poser tan novato
Responder Con Cita