Delphi - Facturas Personalizadas por el cliente

   
Vista:

Facturas Personalizadas por el cliente

Publicado por Juan Ernesto (4 intervenciones) el 16/11/2008 02:01:45
Mil gracias de antemano.

Uso Delphi 5, tengo mi programa de facturacion.

Problema :Necesito que el cliente pueda modificar las posiciones del los objetos(qrlabel,qrdbtext del quickReport para ajustar los datos a su factura pero obviamente sin los programas fuentes.)

Que puedo hacer para no tener que llevar mi laptop modificarle su formato factura y hacer una copia de los programas fuentes por cliente.

Lo que he pensado hacer hasta ahora es crear un formulario y una base de datos con los campos de la factura para guardar la posicion de cada objeto, cada vez que lea el reporte del quickReport asignarle la posicion para que imprima los campos de la factura en la posicion que el cliente alla asignado.

saludos
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

RE:Facturas Personalizadas por el cliente

Publicado por E.T. (1108 intervenciones) el 18/11/2008 20:55:30
Por medio de código puedes modificar casi todo lo que quieras de los componetes del reporte, sólo es cuestión de simular el diseño del reporte, como si estuvieras en delphi, por ejemplo:

inserta un reporte en un form, luego agregale una banda de titulo, y en ella inserta un qrLabel, agrega además un shape pero en la forma, no en el reporte, pon el shape en la esquina superior derecha, no importa que esté un poco separado, luego el reporte ponlo un poco alejado en essa misma esquina

luego prueba esto codigo

Agrega estas varibles en la sección private

bMoviendo:boolean;
iComponenteX, iComponenteY, m_x, m_y:integer;

//en el evento onMouseDown del shape pon esto
bMoviendo := True;
m_x:=Mouse.CursorPos.X;
m_y:=Mouse.CursorPos.y;
iComponenteX := X;
iComponenteY := Y;

//En el evento OnMouseUp del shape pon esto
bMoviendo := false;

//En el evento OnMouseMove del shape pon esto
if bMoviendo then
with Sender as TControl do begin
Left := X - iComponenteX + Left;
Top := Y - iComponenteY + Top;
QRLabel1.Left:=left+2;
QRLabel1.Top:=Top+2;
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Facturas Personalizadas por el cliente

Publicado por Juan Ernesto (4 intervenciones) el 23/11/2008 16:50:08
Agradezco tu respuesta.

Voy hacer pruebas con lo que mencionas y luego te digo como
me fue.

Gracias nuevamente.

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Facturas Personalizadas por el cliente

Publicado por Juan Ernesto (4 intervenciones) el 23/11/2008 17:25:20
Ya hize pruebas, esta genial !!!!!!!!!!!!!

Voy a idear una interfase para hacer los cambios de los objetos facturas

muchas gracias.

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Facturas Personalizadas por el cliente

Publicado por E.T. (1108 intervenciones) el 24/11/2008 17:18:33
Que bueno que te haya servido, lo que yo uso en lugar de un shape es un TJvPanel, para poder ponerlo encima del reporte, pues tuve algunos problemas con el shape, y así se puede dar la ilusión de que arrastras el QrLabel
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar