copiar una tabla a otra

[DOS]

el ultimo codigo me tira un error Incompatible types: 'String' and 'Integer' aunque a filtro lo cambie por integer
en estas lineas

Código Delphi [-]
Filtro := 'ID_Factura '= + fact;
     Table2.Filter := Filtro;

Voy a tener muy en cuenta tus consejos, saludos.

[[Caral]]

Hola
Tienes que cambiar a fact por string;
El problema no esta en filtro, esta en fact:

Código Delphi [-]
var
   Filtro : String;
   fact: String;
begin
     fact:= '0':
     Table2.Filtered := False;
     Filtro := 'ID_Factura = '+fact;
     Table2.Filter := Filtro;
     Table2.Filtered := True
   end
   else Table2.Filtered := False;
end;

Eso quiere decir que el numero de factura en el campo factura es string y no integer.
Para eliminar los botones creas un procedimiento con el codigo del boton 2 y el boton 3 lo llamas cuando necesites.
Asi simplemente cuando le des doble click al dbgrdi2 saldra el subtotal y el total, en cuanto al descuento e incremento se hace lo mismo, se llama al procedimiento y listo.
Saludos
No estoy muy seguro en paradox, recuerda que de esto no se amigo.

[[Caral]]

Hola
Procedimiento calcula:
Colocar el procedure al principio, asi:

Código Delphi [-]
    procedure DBEdit5Change(Sender: TObject);
    procedure calcula; // aqui....
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form14: TForm14;
  fecha:Tdate;
  S,D,I,total:Real;
  e,c:integer;
implementation

Crear el procedimiento:

Código Delphi [-]
procedure calcula;
var
  TotalGanancias : Currency;
  Marca : TBookMarkStr;
begin
 // subTotal
 TotalGanancias := 0;
 Marca := Table2.Bookmark;//Almacenamos la posición del registro actual en nuestra marca
 Table2.DisableControls;//Deshabilitamos los controles enlazados a nuestro  DataSet
 Table2.First;
 While Not Table2.Eof do
  begin
   TotalGanancias := TotalGanancias + Table2.FieldbyName('TotalImp').ASCurrency;
   Table2.Next;
  end;
    Table2.EnableControls;//Habilitamos nuevamente los controles
    Table2.Bookmark := Marca;//Restauramos a la posición del registro de nuestra marca
 Edit2.Text:=CurrToStr(TotalGanancias);
 S:=StrToFloat(Edit2.Text);
 // total
 total:=S-D+I;
 Edit5.Text:=FloatToStr(total);
end;

Colocar el procedimiento en el dobleclick del dbgrid2: (revisa al final del codigo es lo unico que cambia)

Código Delphi [-]
procedure TForm14.DBGrid2DblClick(Sender: TObject);
begin
Table2.Open;
if combobox1.Text = 'Productos' then
  begin
   datasource5.DataSet:= Table4;  // tabla de productos
   Table2.Insert; // inserta un campo
   Table2Cod_prodser.Value:= Table4Cod_prod.Value; // el campo cod_prod de la tabla nueva es igual al de la tabla5
   Table2Codigo.Value:= Table4Codigo.Value;
   Table2Descripcion.Value:= Table4Descripcion.Value;
  // Table2Unidad.Value:= Table4Unidad.Value;
   Table2Importunidad.Value:= Table4ImpVent.Value;
   Table2Cantidad.Value:= StrToFloat(Edit1.Text);  //cantidad cargada por el usuario
   Table2TotalImp.Value:=Table2Cantidad.Value * Table2Importunidad.Value;   // multiplica la cantidad por el valor unitario
   Table2.Post; // guarda el dato en la tabla nueva.
   end;
  if combobox1.Text = 'Servicios' then
  begin
  datasource3.DataSet:= Table3;  // tabla servicios
   Table2.Insert; // inserta un campo
   Table2Cod_prodser.Value:= Table5Cod_servcio.Value; // el campo cod_servicio de la tabla nueva es igual al de la tabla3
   Table2Codigo.Value:= Table5Codigo.Value;
   Table2Descripcion.Value:= Table5Servicio.Value;
   Table2Cantidad.Value:= StrToFloat(Edit1.Text);  // cantidad cargada por el usuario
   Table2Importunidad.Value:= Table5ImpServ.Value;
   Table2TotalImp.Value:=Table2Cantidad.Value * Table2Importunidad.Value;
   Table2.Post; // guarda el dato en la tabla nueva.
   end;
   calcula; // aqui....
end;

Llamar al procedimiento en el edit3 y el 4 en el evento onchange:

Código Delphi [-]
procedure TForm14.Edit3Change(Sender: TObject);
begin
D:=StrToFloat(Edit2.text)*StrToFloat(Edit3.Text)/100;
if edit2.Text = ' ' then
begin
    edit2.Text = '0'.
end
else
calcula;

end;

Código Delphi [-]
procedure TForm14.Edit4Change(Sender: TObject);
begin
I:=StrToFloat(Edit2.text)*StrToFloat(Edit4.Text)/100;
if edit4.Text = ' ' then
begin
    edit4.Text = '0'.
end
else
calcula;
end;

Parece mucho trabajo ya que tienes que modificar algunas cosas, pero te daras cuenta que crear procedimientos ajustados a tu necesidad te ayuda a no repetir codigo, simplemente lo llamas cuando necesites.
saludos
Espero que estemos aprendiendo algo a nuestra edad....

[DOS]

gracias lo ire probando mañana a ver que pasa. saludos

[DOS]

Empezado por Caral

Hola
Tienes que cambiar a fact por string;
El problema no esta en filtro, esta en fact:
Código Delphi [-]var Filtro : String; fact: String; begin fact:= '0'; Table2.Filtered := False; Filtro := 'ID_Factura = '+fact; Table2.Filter := Filtro; Table2.Filtered := True end else Table2.Filtered := False; //[Error] Unit14.pas(324): ';' expected but 'ELSE' found end; //[Error] Unit14.pas(325): '.' expected but ';' found

Hola Caral, ya probe el procedimiento y esta funcionando, en cuanto a esto me tira el error puesto arriba, parece algo con la puntuacion pero no se, ya probe poniendolo despues del true, pero sigue igual.
Faltaria el boton guardar para almacenar todo y poder verlo en el historial, mientras tanto voy probando Qreport, aunque tengo que tener datos que ver para imprimir, saludos.

[[Caral]]

Hola

Código Delphi [-]
var
   Filtro : String;
   fact: String;
begin
     fact:= '0':
     Table2.Filtered := False;
     Filtro := 'ID_Factura = '+fact;
     Table2.Filter := Filtro;
     Table2.Filtered := True
   
end;

Saludos

[DOS]

Gracias Caral, buen dia.
veamos los pasos, entro a facturacion, apreto el boton nueva factura, me borra u oculta los datos del DBGrid.
cargo un numero de factura en el DBEdit5 que ahora lo puse en la primer hoja con todo el reto de cosas.
hago doble click para cargar en el DBGrid2 de servicios o pruductos y me tira el siguiente error ... raised exception class EDBEngineError with message 'key violation'. Process stopped...
parece que se soluciona de un lado y de desarregla de otro

[[Caral]]

Hola
La tabla esta filtrada, no puedes abrir algo que ya esta abierto.
a ver asi:

Código Delphi [-]
procedure TForm14.DBGrid2DblClick(Sender: TObject);
begin
Table2.Filtered := False;
Table2.Close;
Table2.Open;
if combobox1.Text = 'Productos' then
  begin
   datasource5.DataSet:= Table4;  // tabla de productos
   Table2.Insert; // inserta un campo
   Table2Cod_prodser.Value:= Table4Cod_prod.Value; // el campo cod_prod de la tabla nueva es igual al de la tabla5
   Table2Codigo.Value:= Table4Codigo.Value;
   Table2Descripcion.Value:= Table4Descripcion.Value;
  // Table2Unidad.Value:= Table4Unidad.Value;
   Table2Importunidad.Value:= Table4ImpVent.Value;
   Table2Cantidad.Value:= StrToFloat(Edit1.Text);  //cantidad cargada por el usuario
   Table2TotalImp.Value:=Table2Cantidad.Value * Table2Importunidad.Value;   // multiplica la cantidad por el valor unitario
   Table2.Post; // guarda el dato en la tabla nueva.
   end;
  if combobox1.Text = 'Servicios' then
  begin
  datasource3.DataSet:= Table3;  // tabla servicios
   Table2.Insert; // inserta un campo
   Table2Cod_prodser.Value:= Table5Cod_servcio.Value; // el campo cod_servicio de la tabla nueva es igual al de la tabla3
   Table2Codigo.Value:= Table5Codigo.Value;
   Table2Descripcion.Value:= Table5Servicio.Value;
   Table2Cantidad.Value:= StrToFloat(Edit1.Text);  // cantidad cargada por el usuario
   Table2Importunidad.Value:= Table5ImpServ.Value;
   Table2TotalImp.Value:=Table2Cantidad.Value * Table2Importunidad.Value;
   Table2.Post; // guarda el dato en la tabla nueva.
   end;
   calcula; // aqui....
end;

Saludos

[DOS]

No al hacer doble click en el producto para cargar, me tira el nuevamente el error, le agregue
Table2.Filtered := False;
Table2.Close;
pero hace lo mismo, no se si me comi algo, donde dice ' calcula; // aqui....' debo poner algo? o asi simplemente esta llamando al procedimiento?