Columna lookupcombobox cxGrid Delphi7

[mRoman]

Escríbenos el código donde abres el Query de los proyectos y el cual debe estar enlazado a tu objecto ComboBox.
Como tienes configurado/enlazado el Objeto Combobox...o como lo llenas??

El LookUpCombobox no tiene la propiedad "KeyValue", entonces debe tener otra que haga referencia al campo llave, por eso dinos como tienes configruado/Enlazado tu LookUpComboBox a los proyectos...como obtienes los proyectos, como llenas el combo.

Código Delphi [-]

procedure TfrmRequisicion.cblProyectosPropertiesChange(Sender: TObject);
begin
  dmMain2.qryProductosProyecto.ParamByName('ID_PROYECTO').AsInteger := cblProyectos.KeyValue;
end;

Aqui por ejemplo, ya debiste de haber abierto el Query que llena o que esta enlazado a "cblProyectos", como lo haces y en donde lo haces (en que parte del código lo haces)?

[Saul Rivera]

Empezado por mRoman

Escríbenos el código donde abres el Query de los proyectos y el cual debe estar enlazado a tu objecto ComboBox.
Como tienes configurado/enlazado el Objeto Combobox...o como lo llenas??

El LookUpCombobox no tiene la propiedad "KeyValue", entonces debe tener otra que haga referencia al campo llave, por eso dinos como tienes configruado/Enlazado tu LookUpComboBox a los proyectos...como obtienes los proyectos, como llenas el combo.

Código Delphi [-] procedure TfrmRequisicion.cblProyectosPropertiesChange(Sender: TObject); begin dmMain2.qryProductosProyecto.ParamByName('ID_PROYECTO').AsInteger := cblProyectos.KeyValue; end;


Aqui por ejemplo, ya debiste de haber abierto el Query que llena o que esta enlazado a "cblProyectos", como lo haces y en donde lo haces (en que parte del código lo haces)?

Hola



el query de proyectos solo lo habro y cierro en el boton de nuevo despues de almacenar la informacion

emm no lo habro en ningun otro lado

mi forma de llenar el combobox es asociado aun dataset que contiene mi query de "proyectos" ya en las propiedades del loopcombobox mi list field es el nombre del proyecto, mi keyvalue es el "ID_PROYECTO" el que le debo de mandar de parametro a mi query de "productosproyecto" que solo me muestra los productos de un proyecto en especifico



adjunte en un .zip el codigo de mi form por si es de tu utilidad

[Saul Rivera]

Hola mRoman hice algo referente a lo que me dijiste de abrir y cerrar el query y es lo siguiente

cerre el query

Código Delphi [-]
procedure TfrmRequisicion.FormCreate(Sender: TObject);
begin
  dmMain2.tblRequisicionHdr.Filtered := False;
  ActNewExecute(nil);
  dmMain2.qryRequisicionDtl.OnNewRecord := qryRequisicionDtlNewRecord;
  dmMain.qryAProductos.Close;
  dmMain.qryAProductos.Open;
  dmMain2.qryProductosProyecto.Close;
  //mMain.qryAProductos.ParamByName('ID_PROYECTO').AsInteger := 0;
  Rows := 0;
  Cliente := dmMain.tblClientes.FieldByName('COD_CLIENTE').AsString;
end;

luego en mi combobox lo tengo asi

Código Delphi [-]
procedure TfrmRequisicion.cblProyectosPropertiesChange(Sender: TObject);
begin

  //dmMain2.qryProductosProyecto.ParamByName('ID_PROYECTO').AsInteger := cblProyectos.KeyValue;

  dmMain2.qryProyectos.ParamByName('ID_PROYECTO').AsInteger := cblProyectos.EditValue;
  dmMain2.qryProductosProyecto.Open;
  dmMain2.qryProductosProyecto.Close;
  end;

solo que pues el EditValue no seria la propiedad correcta, ahi si me bloqueeo porque no conosco las propiedades de estos objetos

[mRoman]

Hola...Saúl, exactamente esto que hace?

Código Delphi [-]
procedure TfrmRequisicion.cblProyectosPropertiesChange(Sender: TObject);
begin

  //dmMain2.qryProductosProyecto.ParamByName('ID_PROYECTO').AsInteger := cblProyectos.KeyValue;

  dmMain2.qryProyectos.ParamByName('ID_PROYECTO').AsInteger := cblProyectos.EditValue;
  dmMain2.qryProductosProyecto.Open;
  dmMain2.qryProductosProyecto.Close;
  end;

Me refiero a "cblProyectosPropertiesChange"....

p.d. Talvez la pregunte que haré debí hacerla desde el inicio...pero que Componentes estas usando para los objetos (cblProyectos)?.

[Saul Rivera]

Empezado por mRoman

Hola...Saúl, exactamente esto que hace?
Código Delphi [-]procedure TfrmRequisicion.cblProyectosPropertiesChange(Sender: TObject); begin //dmMain2.qryProductosProyecto.ParamByName('ID_PROYECTO').AsInteger := cblProyectos.KeyValue; dmMain2.qryProyectos.ParamByName('ID_PROYECTO').AsInteger := cblProyectos.EditValue; dmMain2.qryProductosProyecto.Open; dmMain2.qryProductosProyecto.Close; end;


Me refiero a "cblProyectosPropertiesChange"....

p.d. Talvez la pregunte que haré debí hacerla desde el inicio...pero que Componentes estas usando para los objetos (cblProyectos)?.

Hola

este es el evento del cxlookupcombobox -->cblproyectos

Código Delphi [-]
procedure TfrmRequisicion.cblProyectosPropertiesChange(Sender: TObject);

que pense que ahi podia capturar el ID de mi proyecto para mandarlo a mi query de qryProductosProyecto
pero aqui lo tengo mal porque puse

Código Delphi [-]
dmMain2.qryProyectos.ParamByName('ID_PROYECTO').AsInteger := cblProyectos.EditValue;

en lugar de

Código Delphi [-]
dmMain2.qryProductosProyecto.ParamByName('ID_PROYECTO').AsInteger := cblProyectos.EditValue;

mi idea es esta es como yo pienso que es:
al llenar la informacion de la requisicion yo le debo asignar un proyecto por eso el cxlookupCombobox para que el usuario pueda elegir el proyecto que desee,

una ves eligio el proyecto capturar el id para que cuando vaya a elegir los materiales que ocupara esa requisicion

yo le muestre en la columna de mi cxgrid solo los materiales que tiene asignado ese proyecto



para llenar cblproyectos uso un tDataset llamado dsProyectos
que esta asociado al query de mi datamodule dmMain2.qryProyectos con este query lleno mi cxlookupcombobox y me tira el listado de proyectos



ahora lo que ocupo es capturar el id de ese proyecto elegido mandarlo como parametro al query que tengo para productos de proyecto dmMain2.qryProductosProyecto que es uno que mande mas arriba, en mi cxgrid yo a la columna de productos le hago un field por el id_proyecto y despliego los productos en un cxlookupcombox que seria la columna del grid



cualquier otra cosa que necesites me dices Saludos y muchas gracias!