Ver Mensaje Individual
  #11  
Antiguo 14-05-2019
Saul Rivera Saul Rivera is offline
Miembro
 
Registrado: abr 2019
Posts: 16
Reputación: 0
Saul Rivera Va por buen camino
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
Responder Con Cita