Como inicializar formulario Write en evento Al Cargar

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
lujopamu
Mensajes: 2
Registrado: Mié Ene 16, 2013 11:29 am

Como inicializar formulario Write en evento Al Cargar

Mensaje por lujopamu »

 Editado:  
Hola:

A ver si me podeis orientar, ya que tengo un formulario en un documento Write y quisiera inicializar los campos a valores predeterminados al cargar el documento, pero no encuentro la manera de apuntar al formulario y asignar los valores a los controles de texto.

Código: Seleccionar todo

Sub AsignaDatosDefecto(Evento)
Dim oForm as Object
Dim oDocumento as Object

	oDocumento = ThisComponent.CurrentController.Frame
	oForm = ?¿
	oForm.getByName("edtPoblacionContrato").setString("Poblacion")
	oForm.getByName("edtDiaContrato").setInteger(Day(Date()))	
	  
End Sub
Gracias por vuestra ayuda.

Un Saludo.
LibreOffice 3.6 en windows xp
Avatar de Usuario
PepeOooSevilla
Mensajes: 1480
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)

Re: Como inicializar formulario Write en evento Al Cargar

Mensaje por PepeOooSevilla »

Hola.
Por favor ...
  • Si se adjunta un archivo con la consulta/incidencia/problema ..., aumenta y mucho, las posibilidades de conseguir una respuesta adecuada (sin datos personales, que este es un foro público). Los voluntarios del foro no siempre tenemos tiempo para, partiendo de cero, crear un archivo que, al final, no se corresponderá exactamente con el problema indicado.
    Si no sabes cómo subir un archivo, consulta Cómo adjuntar un archivo.
Saludos cordiales.
LibreOffice 6.4.6. Windows 10. Java 8 rev. 261 (64 bits)
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Si usas OpenOffice/LibreOffice trabaja y guarda en ODT, ODS, ODP, ... Y haz copias de seguridad.
RMG
Mensajes: 3879
Registrado: Mar Nov 17, 2009 6:59 am
Ubicación: Valencia - España

Re: Como inicializar formulario Write en evento Al Cargar

Mensaje por RMG »

Hola

Algo así como esto te debería funcionar.

oForm = Evento.Source

Saludos
OpenOffice 4.1.15 y LibreOffice 6.2.4.2 en W-10, y LibreOffice 4.1.6.2 en Open Suse 13.1(VirtualBox)
Responder