Delphi - Creacion de Facturas

   
Vista:

Creacion de Facturas

Publicado por Gustavo Martin (5 intervenciones) el 30/11/2008 22:10:36
Hola Foro estoy haciendo un soft de facturacion y control de stock y estoy trabado en la parte de facturas de compras no puedo visualizar los detalles de una factura, utilizo los componentes ADO para manipular los datos mi consulta es si el siguiente codigo esta bien:

procedure TF_FacCompras.BTNnuevafacClick(Sender: TObject);
begin
SCLcabecera.Enabled:=True;
ComboComprobente.SetFocus;
DSfaccompras.DataSet.Insert;
ComboFechaFactura.Date:= now;
ComboFechaCarga.Date:= now;
end;

procedure TF_FacCompras.BTNnuevoitemClick(Sender: TObject);
begin
ADOTdetalles.Insert;
SCLdetalle.Enabled:=True;
DBEditCodArticulo.SetFocus;
DBEditCantidad.Text:='1';
end;

procedure TF_FacCompras.BTNborraritemClick(Sender: TObject);
begin
ADOTdetalles.Delete;
end;

procedure TF_FacCompras.BTNalmacenarClick(Sender: TObject);
begin
DBEditPrecioCosto.Text:= DBEditPrecio.Text;
DBEditDescripcion.Text:= ComboArticulos.Text;
ADOTdetalles.Post;
end;

procedure TF_FacCompras.BTNconfirmarClick(Sender: TObject);
begin
ADOTdetalles.Edit;
ADOTfaccompras.Edit;
DBEditFechaFactura.Text:= DateToStr(ComboFechaFactura.date);
DBEditFechaCarga.Text:= DateToStr(ComboFechaCarga.Date);
ADOTfaccompras.Post;
ADOTdetalles.Post;
SCLcabecera.Enabled:=False;
SCLdetalle.Enabled:=False;
end;

la Tabla de DETALLES en la propiedad master source agrego la de cabecera de facturas con IDfacturas como indexador

Si tienen un ejemplo donde pueda ver mi error les agradeceria que me lo pasen, gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Delphi
- Código fuente de Delphi
- Cursos de Delphi
- Temas de Delphi
- Chat de Delphi
información
Códigos de Delphi
- Buscaminas
- Fibonacci
- Calculadora