[RESUELTO]Atascado en como Imprimir FichasSocias
Publicado: Lun Jul 16, 2018 12:49 pm
Hola,
estoy intentando buscar la manera de poder Imprimir Fichas de las Socias de la BD, la idea es crear una Ficha por Socia en un folio con los Datos Personales de la Socia(estan en la tabSocias) y con los Datos de los ContactosSocia(estan en la tabContactosSocia),tambien he creado una Consulta con los datos de ambas Tablas combinados, para poder usarla para crear un Informe con ORB, y tambien poder usarla como Fuente de Datos para un Documento Write, el problema me lo encuentro en que a cada Socia se le pueden poner dos personas de contacto.
He estado buscando por el foro pero las cosas que he sido capaz de encontrar creo que son mas complicadas de lo que yo busco.
Estas son las cosas que he probado:
1.-Boton Imprime Formulario: En principio la forma mas sencilla creo yo, ya que el problema de los dos Registros de la tabContactosSocia lo resuelvo poniendo un Control de Tablas que me muestra ambos Registros, pero me he encontrado la pega de que solo Imprime el Registro que se este visualizando en ese momento en el Formulario, para sacar fichas en blanco me va bien, pero para sacar las Fichas de todas las Socias que haya en la BD me obligaria a ir Registro a Registro para Imprimirlos todos.
He creado dos Formularios(formImprimirFichasEnBlanco y formImprimirFichasDatosSocias), ambos estan formados de un Form principal, con los Campos de la tabSocias, y un SubForm, con un Control de Tablas para los campos de la tabContactosSocia.
.-el primero esta creado para "Solo Introducir Nuevos Datos", con lo cual me sale con todos los campos en blanco y me sirve para Imprimir fichas en Blanco.
.-el segundo esta creado para "Solo Mostrar Datos" de forma que no se pueden ni añadir ni modificar los datos existentes, pero tiene la pega de tener que ir Registro a Registro.
Y les he puesto un Boton "Imprimir" con la siguiente Macro asignada:
Si se pudiese modificar esa Macro para que imprimiese todos los Registros en cadena creo que seria la solucion mas sencilla a mi problema.
2.-Crear Informe con ORB desde una Consulta que contiene todos los Campos: Tampoco deberia ser complicado, pero aqui me he encontrado el problema de que al tener la Socia nº1 dos Registros en la tabContactosSocias, me Duplica todos los datos de esa Socia para mostrarme los dos Registros de la tabContactosSocia.
A esto se añade el problema del diseño ya que de momento no he sido capaz de poder poner los datos en celdas o en lineas del estilo a una tabla.
3.-Crear un Documento Write usando como fuente de datos la Consulta: De esta forma si que he conseguido poder darle el diseño que quiero, que que quedaria muy parecido al formImprimirFichasDatosSocias, pero me he encontrado nuevamente el problema de los dos Registros que tiene la Socia Nº 1 en la tabContactosSocia.
Cuando "Inserto" los Campos de los datos personales de la Socia parece que todo va bien y a la hora de imprimir me muestra los Datos de todos los Campos de cada Socia, pero cuando "Inserto" los Campos que corresponden a la tabContactosSocia a la hora de imprimir solo me muestra el primer Registro de los dos que hay en la Consulta que pertenecen a la Socia Nº 1.
Si hay forma de que se puedan mostrar los dos Registros esta tambien seria una solucion bastante sencilla para mi.
No se si abre sido capaz de explicarme para que se entienda bien el problema.
Adjunto enlace a lo que he ido haciendo, a ver si hay alguna solucion para este atasco.
https://mega.nz/#!yRgUiQYA!65cTHHBBvYzX ... 8mH9fr8w2k
Un saludo y gracias
estoy intentando buscar la manera de poder Imprimir Fichas de las Socias de la BD, la idea es crear una Ficha por Socia en un folio con los Datos Personales de la Socia(estan en la tabSocias) y con los Datos de los ContactosSocia(estan en la tabContactosSocia),tambien he creado una Consulta con los datos de ambas Tablas combinados, para poder usarla para crear un Informe con ORB, y tambien poder usarla como Fuente de Datos para un Documento Write, el problema me lo encuentro en que a cada Socia se le pueden poner dos personas de contacto.
He estado buscando por el foro pero las cosas que he sido capaz de encontrar creo que son mas complicadas de lo que yo busco.
Estas son las cosas que he probado:
1.-Boton Imprime Formulario: En principio la forma mas sencilla creo yo, ya que el problema de los dos Registros de la tabContactosSocia lo resuelvo poniendo un Control de Tablas que me muestra ambos Registros, pero me he encontrado la pega de que solo Imprime el Registro que se este visualizando en ese momento en el Formulario, para sacar fichas en blanco me va bien, pero para sacar las Fichas de todas las Socias que haya en la BD me obligaria a ir Registro a Registro para Imprimirlos todos.
He creado dos Formularios(formImprimirFichasEnBlanco y formImprimirFichasDatosSocias), ambos estan formados de un Form principal, con los Campos de la tabSocias, y un SubForm, con un Control de Tablas para los campos de la tabContactosSocia.
.-el primero esta creado para "Solo Introducir Nuevos Datos", con lo cual me sale con todos los campos en blanco y me sirve para Imprimir fichas en Blanco.
.-el segundo esta creado para "Solo Mostrar Datos" de forma que no se pueden ni añadir ni modificar los datos existentes, pero tiene la pega de tener que ir Registro a Registro.
Y les he puesto un Boton "Imprimir" con la siguiente Macro asignada:
Código: Seleccionar todo
'Inicio Macro Imprimir Formulario
Sub BotonImprimeFormulario(Evento As Object)
Dim oForm As Object
Dim oFrame As Object
Dim oDisp As Object
oForm = Evento.Source.Model.Parent
oFrame = oForm.Parent.Parent.CurrentController.Frame
oDisp = CreateUnoService("com.sun.star.frame.DispatchHelper")
oDisp.ExecuteDispatch(oFrame,".uno:Print","",0,Array())
End Sub
'Fin Macro
2.-Crear Informe con ORB desde una Consulta que contiene todos los Campos: Tampoco deberia ser complicado, pero aqui me he encontrado el problema de que al tener la Socia nº1 dos Registros en la tabContactosSocias, me Duplica todos los datos de esa Socia para mostrarme los dos Registros de la tabContactosSocia.
A esto se añade el problema del diseño ya que de momento no he sido capaz de poder poner los datos en celdas o en lineas del estilo a una tabla.
3.-Crear un Documento Write usando como fuente de datos la Consulta: De esta forma si que he conseguido poder darle el diseño que quiero, que que quedaria muy parecido al formImprimirFichasDatosSocias, pero me he encontrado nuevamente el problema de los dos Registros que tiene la Socia Nº 1 en la tabContactosSocia.
Cuando "Inserto" los Campos de los datos personales de la Socia parece que todo va bien y a la hora de imprimir me muestra los Datos de todos los Campos de cada Socia, pero cuando "Inserto" los Campos que corresponden a la tabContactosSocia a la hora de imprimir solo me muestra el primer Registro de los dos que hay en la Consulta que pertenecen a la Socia Nº 1.
Si hay forma de que se puedan mostrar los dos Registros esta tambien seria una solucion bastante sencilla para mi.
No se si abre sido capaz de explicarme para que se entienda bien el problema.
Adjunto enlace a lo que he ido haciendo, a ver si hay alguna solucion para este atasco.
https://mega.nz/#!yRgUiQYA!65cTHHBBvYzX ... 8mH9fr8w2k
Un saludo y gracias