60 respuestas en este tema

[Caral]

Hola
Ahora entiendo.
El asunto son los campos que tiene cada tabla.
Si los campos son los mismo se podria usar el mismo form de lo contrario se tendria que hacer mas faena.
Si los campos no son iguales lo mas facil es copiar el form y hacerlo nuevo cambiando lo que necesites.
Con relacion al QReport.
No hace falta que este metido en un form para que se haga un previw.
Es mejor hacerlo solo, que sea una unit independiente.
Saludos

[amell2020]

Los campos son iguales de las otras tablas. yo pense mejor hacer una sola tabla y poner un campo para identificar la factura. y le pongo un combox para seleccionar que tipo. pero que tu crees que seria mejor?? ah y necesito calcular el total de una columna del DBgrid que me esta dando dificultad. espero no causarte molestia amigo. disculpa por todo

[Caral]

Hola
Bien, vamos a hacer un combobox que indique que tabla se trabajara y se activara el adotable segun la tabla.
Tambien te hare un ejemplo del qreport para que sume el campo total.
Eso si, estoy en el trabajo y si mi jefe ve que estoy en esto me despide de seguro, es un tipo que no se aguanta ni a el mismo, asi que dame un ratito.
Saludos

[amell2020]

si. hey amigo toma tu tiempo. si te causa problema mejor dejemo los ahy, no quiero que tenga problema por esto.

[amell2020]

Hey Ahora creo que heche todo a perder mira hora el error cuando le doy un nuevo registro con el Dbnavegat, que me da después que estaba bien:
error:

Archivos adjuntos

•  2757_642b892490116968ec571662488061691c0ec1b6.jpg   209,26KB   7 descargas

[Caral]

Hola
Me parece que te esta faltando algun dato.
El error dice que falta un dato Integer.
Con relacion a lo anterior, Hacer que el form APSR sirva para todas las tablas.
Primero coloca un Combobox en el form.
En el evento OnCreate del form pon esto:

delphi

DataModule2.ADOConnection1.GetTableNames(ComboBox1.Items);

Con esto, si corres el programa veras todas las tablas en el combobox.
Ahora en el combobox en el evento OnChange coloca esto:

delphi

ADOTable1.Close;
  ADOTable1.TableName:= Combobox1.Text;
  ADOTable1.Open;

Prueba y me dices.
Saludos
PD: Por cierto, lo del jefe necio es cierto, soy mi propio jefe, por eso lo digo..
Fue una broma amigo.

[amell2020]

Caral ante de empezar necesito resolver ese problema que comente anterior, el funciona bien pero ahora se a puesto asi, que estara pasando?

[Caral]

Hola
Quita el codigo del datasource y ve que pasa.
Saludos

[amell2020]

Caral, tuve que hacer de nuevo el programa de nuevo por ese problema, pero si ya esta bien, pero el problema esta cuando cojo otra Tabla de combox me queda en blanco, creo que es por que en las otras tablas no tengo nada.

[eduarcol]

Para evitar ese error cambia lo siguiente

delphi

DBEdit6.Text := IntToStr(StrToInt(DBEdit4.Text) + StrToInt(DBEdit5.Text));

Por esto otro

delphi

DBEdit6.Text := IntToStr(StrToIntDef(DBEdit4.Text, 0) + StrToIntdef(DBEdit5.Text, 0));

[amell2020]

perfecto eduarcol. resolvio el problema. pregunta? porque el 0 dispues Text. si me puedes explicar.

[Caral]

Hola
Por que el sabe y el que sabe, sabe .
Saludos

[amell2020]

amigos ahora en la imprision yo quiero selecionar la tabla desde un combobox, para asi buscar despues por fecha, me podrias dar un ejemplo?

[Caral]

Hola
Ya te estoy haciendo un ejemplo, dame un minuto.
Saludos

[eduarcol]

perfecto eduarcol. resolvio el problema. pregunta? porque el 0 dispues Text. si me puedes explicar.

Lo que sucede es que son dos funciones distintas,  StrtoInt Genera una excepcion si el valor a convertir no coincide con un entero, a cambio esta la StrtoIntDef que si el valor no es entero lo convierte en el valor que se le pasa en el segundo parametro, es este caso 0

[Caral]

Hola
Aqui tienes un ejemplo, no filtra fechas ya que no tiene, pero te servira.
Al correr el programa salen las tablas en el combobox, una vez que escoges una se activa y si le das imprimir lo hace.
Tambien puse un total en el reporte para que lo tengas de referencia.
Saludos

Archivos adjuntos

•  2759_c70060a722fc3642aadd58e3cdd69ad4b92ea3d3.zip   40,93KB   1 descargas

[amell2020]

Gracias caral, así yo se como hacerlo, pero me gustaria es poder filtrar por fecha? porque las facturas impresaran serán mesuales y por eso es la intensión de filtrar por fecha

[Caral]

Hola
Que quieres filtrar, el form o el reporte ?.
Saludos

[Caral]

Hola
Aqui lo tienes filtrado por fecha y todo.
Saludos

Archivos adjuntos

•  2760_08024a480f1d598025972dc96c5e4def28e8f0fb.zip   42,55KB   1 descargas

[amell2020]

Este ejemplo me esta dando un error, yo hice el mio pero el quickreport solo me muestra un solo registro de una tabla, que esta pasando??por favor?