Copiar este formulario de Access es posible en Delphi?

[giulichajari]

Empezado por Neftali [Germán.Estévez]

No.
Yo estoy pensando en llenar las columnas del DBGrid. Pero eso sólo debes hacerlo 1 vez. No debes hacerlo por cada fila (registro).

Vos decis que haciendolo solo una vez al agregar un nuevo registro, apareceran los codigos?

Hasta ahora hice esto(como me habias dicho el afterOpen):

Código Delphi [-]
procedure TDataModule1.cdsptemporalAfterOpen(DataSet: TDataSet);
begin
 SetupGridPickList('Codigo','Select * from productos;');
end;

Código Delphi [-]
 procedure TDataModule1.SetupGridPickList(const FieldName, sql: string);
var
 slPickList:TStringList;
 Query : TSQLQuery;
 i : integer;
begin
 slPickList:=TStringList.Create;
 Query := TSQLQuery.Create(self);

 Query.SQLConnection :=DataModule1.CONEXION;
 Query.SQL.Text := sql;
 Query.Open;
 //Fill the string listwhile not Query.EOF dobegin
 Query.First;
 while not Query.eof do
   begin
       slPickList.Add(Query.Fields[9].AsString);

       Query.Next;
   end;



 Form3.gpedido.Columns[1].PickList:=slPickList;


end;

Pero me da access violation y no compila: Form3.gpedido.Columns[1].PickList:=slPickList; Gpedido es la grilla en cuestion.

Por otro lado el onchange de codigo funciona perfecto:

Código Delphi [-]
procedure TDataModule1.cdsptemporalCodigoChange(Sender: TField);
var

 Queryn : TSQLQuery;
 i : integer;
begin

 Queryn := TSQLQuery.Create(self);

 Queryn.SQLConnection :=DataModule1.CONEXION;
 Queryn.SQL.Text :='SELECT NomProducto,PrecioActual from productos where Codigo="'+cdsptemporalCodigo.AsString + '"';

 Queryn.Open;
 DataModule1.cdsptemporalidcliente.AsInteger:=DataModule1.cdsclientesIdCliente.AsInteger;
qlistapedido.ParamByName('idcl').AsInteger:=DataModule1.cdsptemporalidcliente.AsInteger;
qlistapedido.Open;

DataModule1.cdsptemporallista.AsString:=qlistapedido.Fields[1].AsString;
 DataModule1.cdsptemporalPrecio.AsFloat:=Queryn.Fields[1].AsFloat;
 DataModule1.cdsptemporalNomProducto.AsString:=       Queryn.Fields[0].AsString;


end;

[Neftali [Germán.Estévez]]

Empezado por giulichajari

Pero me da access violation y no compila: Form3.gpedido.Columns[1].PickList:=slPickList; Gpedido es la grilla en cuestion.

Para el problema de que no compila, deberías decir el error que te da.
Para el "Access Violation" puedes ejecutar paso a paso y ver dónde está el problema. Posiblemente algo que no está asignado correctamente.

En esa línea además estás asignando a la PickList (que es un TStringList) otro objeto, cosa que te va a dar problemas.
Añade los elementos a la lista, pero no sustituyas el objeto.

Algo así:

Código Delphi [-]
  // Rellenar la lista de productos
  DataProductos.Open;
  while not DataProductos.Eof do begin
    DBGrid1.Columns[2].PickList.Add(DataProductos.FieldByName('Codigo').AsString);
    DataProductos.Next;
  end;

[giulichajari]

Empezado por Neftali [Germán.Estévez]

Para el problema de que no compila, deberías decir el error que te da.
Para el "Access Violation" puedes ejecutar paso a paso y ver dónde está el problema. Posiblemente algo que no está asignado correctamente.

En esa línea además estás asignando a la PickList (que es un TStringList) otro objeto, cosa que te va a dar problemas.
Añade los elementos a la lista, pero no sustituyas el objeto.

Algo así:

Código Delphi [-]
  // Rellenar la lista de productos
  DataProductos.Open;
  while not DataProductos.Eof do begin
    DBGrid1.Columns[2].PickList.Add(DataProductos.FieldByName('Codigo').AsString);
    DataProductos.Next;
  end;

Bueno hasta ahora hice como me dijiste en el after open del tclientdataset del pedido:

Código Delphi [-]
procedure TDataModule1.cdspedidotemporalAfterOpen(DataSet: TDataSet);

begin

 DataModule1.cdsproductos.First;

 while not DataModule1.cdsproductos.eof do
   begin
      Form3.gpedidotemp.Columns[1].PickList.Add(DataModule1.cdsproductosCodigo.AsString) ;


       DataModule1.cdsproductos.Next;
   end;

end;

Y obtengo como te dije:

https://imgur.com/a/jCMQ9Lr

Un error, osea no entiendo porque no puedo asignar el contenido del dataset a la columna de la grilla.

[Neftali [Germán.Estévez]]

Empezado por giulichajari

Y obtengo como te dije:

https://imgur.com/a/jCMQ9Lr

Un error, osea no entiendo porque no puedo asignar el contenido del dataset a la columna de la grilla.

Puedes probar con algo así:

Código Delphi [-]
while not DataModule1.cdsproductos.eof do
begin
  Form3.gpedidotemp.Columns[1].PickList.Add(DataModule1.cdsproductos.FieldByName('codigo').AsString) ;
  DataModule1.cdsproductos.Next;
end;

Si te sigue dando un "Access Violation" evalua si alguno de los elementos de la línea no está asignado.

[giulichajari]

Empezado por Neftali [Germán.Estévez]

Puedes probar con algo así:

Código Delphi [-]
while not DataModule1.cdsproductos.eof do
begin
  Form3.gpedidotemp.Columns[1].PickList.Add(DataModule1.cdsproductos.FieldByName('codigo').AsString) ;
  DataModule1.cdsproductos.Next;
end;

Si te sigue dando un "Access Violation" evalua si alguno de los elementos de la línea no está asignado.

Hola German ,funciono de la siguiente manera:

Código Delphi [-]
procedure TPEDIDO.FormCreate(Sender: TObject);
var
idpedido:integer;
begin
Position := poScreenCenter;
//obtengo el pedido actual

if DBEdit1.Text<>'' then
begin
//hago la consulta con este id y obtengo el detalle
  idpedido:=StrToInt(DBEdit1.Text);
  DataModule1.qdetpedido.Close;
DataModule1.qdetpedido.ParamByName('idp').AsInteger:=idpedido;
DataModule1.qdetpedido.ExecSQL();
end;
  DataModule1.cdsproductos.First;

 while not DataModule1.cdsproductos.eof do
   begin
     PEDIDO.gpedidotemp.Columns[2].PickList.Add(DataModule1.cdsproductosCodigo.AsString) ;


       DataModule1.cdsproductos.Next;
   end;
end;

En el evento OnCreate del formulario donde esta la grilla.


Por lo menos una parte ya hice. Lo que hago con button5 es agregar un nuevo pedido.

Código SQL [-]
procedure TPEDIDO.Button5Click(Sender: TObject);
var
intUltimo:integer;
begin
//añado nuevo pedido
DataModule1.cdspedidos.Open;
DataModule1.cdspedidos.Insert;
intUltimo:=DataModule1.cdspedidos.RecordCount + 1;
DBEdit1.Text:=IntToStr(intUltimo);
//lo registro
DataModule1.cdspedidos.ApplyUpdates(0);

//lo asigno al detalle
DataModule1.qdetpedido.Close;
 DataModule1.qdetpedido.ParamByName('idp').AsInteger:=intUltimo;
  DataModule1.qdetpedido.ExecSQL;


end;

Pero la grilla de detalle de pedido no se borra. Esta grilla tiene una DatSource asociado a un TClientDataSet, y todo proviene de un query:

Código SQL [-]
select * from detallepedido where detallepedido.Idpedido=:idp;

Es decir lo que intento hacer es seleccionar de acuerdo al pedido en cuestion su detalle.
¿Cual es la manera de borrar la grilla y resetearla?