Facturacion con varias tablas

[DOS]

ok, ya esta listo

[[Caral]]

Hola
dale doble click al nuevo ttable que hiciste y ponle los campos ahi, tal y como lo tienes con los otros dos el ttable3 y el 5.
una vez hecho esto en el evento del dbbrid pones un codigo como este:
Es un ejemplo que guardara el primer dato, esto lo tendras que hacer con los demas.

Código Delphi [-]
procedure TForm14.DBGrid1DblClick(Sender: TObject);
begin
    if combobox1.Text = 'Productos' then
  begin
   datasource3.DataSet:= Table5;  // usa tu tabla de productos
   Tu_Nueva_Table.Insert; // inserta un campo en tu tabla nueva
   Tu_Nueva_TableCod_prod.Value:= Table5Cod_prod.Value; // el campo cod-prod de tu tabla nueva es igual al de la tabla5
   // aqui siguen los demas campos antes de guardarlos
   Tu_Nueva_Table.Post; // guarda el dato en la tabla nueva.

   end;
  if combobox1.Text = 'Servicios' then
  begin
  // aqui lo mismo pero para servicios.

  end;

end;

Saludos

[DOS]

Hola tengo unos pequeños problemas, uno cuando ejecuto el programa y voy a facturación, por defecto el DBComboL.. aparece como servicios, cuando selecciono Productos me tira un error.
otro, cuando estando en servicio, hago doble click para cargar un item, me tira otro error.
Adjunto imagen de los errores


El segundo DBGrid por el momento esta en la primer hoja, junto al otro solo para ver como funciona.
La codificacion completa

Código Delphi [-]
procedure TForm14.DBGrid1DblClick(Sender: TObject);
begin
if combobox1.Text = 'Productos' then
  begin
   datasource3.DataSet:= Table5;  // tabla de productos
   Table7.Insert; // inserta un campo
   Table7Cod_prod.Value:= Table5Cod_prod.Value; // el campo cod_prod de la tabla nueva es igual al de la tabla5
   Table7Codigo.Value:= Table5Codigo.Value;
   Table7Descripcion.Value:= Table5Descripcion.Value;
   Table7Unidad.Value:= Table5Unidad.Value;
   Table7ImporteUnid.Value:= Table5ImporVen.Value;
   Table7Cantidad.Value:= Table5Cantidad.Value;
  // Table7TotalImporte.Value:= Table5TotalImporteValue;
   Table7.Post; // guarda el dato en la tabla nueva.

   end;
  if combobox1.Text = 'Servicios' then
  begin
  datasource3.DataSet:= Table3;  // tabla servicios
   Table7.Insert; // inserta un campo
   Table7Cod_prod.Value:= Table3Cod_servicio.Value; // el campo cod_servicio de la tabla nueva es igual al de la tabla3
   Table7Codigo.Value:= Table3Codigo.Value;
   Table7Descripcion.Value:= Table3Servicio.Value;
   // Table7Unidad.Value:= Table5Unidad.Value;      no tiene
   Table7ImporteUnid.Value:= Table3ImporteSer.Value;
  // Table7Cantidad.Value:= Table5Cantidad.Value;             suele ser uno
  // Table7TotalImporte.Value:= Table5TotalImporteValue;  este va a ser un importe calculado?
   Table7.Post; // guarda el dato en la tabla nueva.
   end;
end;

Gracias

[[Caral]]

Hola
Paseame el programa completo otra vez y lo reviso.
Saludos
PD: Recuerda que los honorarios van subiendo

[DOS]

Me parece que voy a tener que embargar varias cosas, esto ya es un abuso de mi parte.
https://www.dropbox.com/s/0a3qcadb6l...cional2012.rar

[[Caral]]

Hola
Dame un minuto me lo complicaste con el campo tipo money, voy a buscar en google
Saludos

[DOS]

no hay problemas, aca es medio tarde, cualquier cosa lo vemos mañana, un abrazo.