Ver Mensaje Individual
  #8  
Antiguo 20-04-2012
Walterio Walterio is offline
Miembro
 
Registrado: nov 2006
Posts: 46
Reputación: 0
Walterio Va por buen camino
Hola Al González...
Muchas gracias por tu respuesta y mis disculpas por la tardanza en la mía, estaba trabajando con otra cosa y no quería responderte sin antes haber probado tu sugerencia.
Estuve haciendo unas pruebas muy grotescas y a grandes razgos, tu sugerencia sería la solución, pero ahora tengo otro problema.
Sé que en el foro encontré una vez la respuesta a lo que voy a preguntar ahora, pero sinceramente, no la puedo hubicar.
Antes aclaro lo que estoy usando :
Delphi 6, MySQL, ADOQuery, DataSetProvider y ClientDataset, conectados entre si.
El tema ahora es el siguiente:
Al agregar las columnas del tipo InternalCalc, desaparecen las columnas que habia creado anteriormente con el Query :

Código Delphi [-]sQuery := 'SELECT '+ 'id385, '+ 'CMC385,'+ 'DES385,'+ 'RES385,'+ 'UFA385 '+ 'FROM cc385'; TDBO.buscoReg(sQuery, qryMaster); with cdsMaster do begin Open; for i := 0 to Fields.Count - 1 do SetField(Fields[i], 'CC534'); // <-- aqui les doy formato a los campos de la query... First; End;


Y en el BeforeOpen del ClientDataSet agrego los campos InternalCalc :

Código Delphi [-]procedure TFrmGenericGrid.cdsMasterBeforeOpen(DataSet: TDataSet); var xSelected: TStringField; begin xSelected := TStringField.Create(Self); xSelected.Name := 'MasterTag'; xSelected.FieldKind := fkInternalCalc; xSelected.FieldName := 'Tag'; xSelected.Size := 2 ; xSelected.DataSet := cdsMaster; End;


Y cuando ejecuto el programa, sólo me aparece el campo TAG creado ultimamente.
Vuelvo a repetir, he visto por ahi que habia un pequeño truco para "revivir" los campos que agrega la Query y que aparezcan junto a mi campo calculado, pero no encuentro la forma.

Desde ya, agradezco infinitamente las ayudas, sugerencias y consejos recibidos.

Saludos.
Responder Con Cita