formulario maestro detalle

hola de nuevo,

espero que hayais tenido muy buenas vacaciones

yo ya estoy hace una semana currando.

bueno, tengo un formulario maestro detalle, donde el detalle son unos janus gridex. El problema es a la hora de introducir un nuevo registro en los grid, ya que no asocia el codigo que enlaza con el form. maestro a pesar de tener colocada la propiedad DefaultValue en el campo correspondiente.
He comprobado que la variable que asigno a DefaultValue tenga valor, y es correcto.
Ya no sé que puede ser ni la forma de solucionarlo.
Otra cosa, cuando creo un registro nuevo en el formulario maestro, cuando llego al grid detalle, deberia guardar previamente el registro "padre", verdad? de esta forma podré asignar el nuevo codigo asignado a éste.
Como lo implementais vosotros?

Gracias</TR>

RE: formulario maestro detalle

Bienvenido de nuevo.

¿Te da algún tipo de error en el Janus cuando grabas el registro o bien no te lo graba? ¿Has probado a añadir nuevos registros metiendo tu los datos a mano sin tener DefaultValues ni nada por el estilo? Esto te lo pregunto por si no has comprobado que todos los parametros de conexión del Janus con la BD son correctos

Sobre el tema del registro padre, yo haria lo siguiente, cuando pulso un registro nuevo deshabilitaria el detalle, es decir, pondría la propiedad Enabled del Janus a False, de esta manera no le permites añadir lineas de detalle, y filtraria la tabla asociada al Janus para que no muestre ningún dato, ya que si se muestran cualquier dato podría llevar a confusión. En cuanto pulse el botón grabar entonces permitiria el acceso al Janus, cambiaria la propiedad DefaultValue y haria el filtro, en la tabla del Janus, necesario para enlazar el registro padre con las futuras hijas.

Un saludo, espero haberte ayudado.</TR>

RE: formulario maestro detalle

Hola

no me da ningun tipo de error, cuando paso al siguiente registro (maestro) y vuelvo al anterior, ha desaparecido el registro nuevo del grid. Pero si voy a ver la tabla de base de datos, lo veo guardado ahí pero sin valor.
Acabo de introducirlo a mano y si me lo graba bien.
No entiendo porque no me funciona el DefaultValue.
Estoy pensando en asigarlo al rellenar alguno de los campos obligatorios que tiene, seria de la siguiente forma? en que evento?

If txtCodComun.Text <> "" Then GridEXDirecciones.Value(13) = CLng(txtCodComun.Text)

gracias</TR>

RE: formulario maestro detalle

Prueba en el evento
<BLOCKQUOTE><PRE><SPAN class=texto_mini>Codigo:</SPAN><HR>

RE: formulario maestro detalle

funciona bien lo que me has puesto, pero yo lo he colocado en el evento BeforeColEdit, en el evento que me has indicado no me lo permite, me da un error .

Respecto a la creacion de un nuevo registro padre, he realizado que cuando el janus grid pille el enfoque, guarde el registro (padre), hasta aki bien. Pero cuando me coloco en un campo del grid me da el error "Variable de tipo Object o la variable de bloque With no esta establecida" en el evento BeforeColEdit que hemos escrito.
También me ocurre al editar el registro padre, parece ser que al estar vacio el recordset del grid falla.
Que puede ser?

EDITO:

he visto que el problema son los recordsource vacios en los grids. No sé como solucionarlo. Tengo una funcion que asigna el recordsource al grid según el cliente que se activa en el formulario padre, como controlo que esté vacio y qué asigno entonces?

gracias

Editado por joja_2, Viernes, 3 de Septiembre de 2004, 08:36</TR>

RE: formulario maestro detalle

¿Que error te da?, ya que en el Evento BeforeUpdate es para antes de que se produzca la grabación de la línea puedas modificacar, verificar y cancelar cualquier cosa dentro del grid.

El evento BeforeColEdit es cuando vas a editar alguna columna te da la posibilidad de hacer algo, o bien no permitirle que la edit, por tanto yo creo que la forma más correcta es en el evento BeforeUpdate, ya que se produce una vez, en el evento BeforeColEdit se produce tantas veces como intestes editar cualquier columna, a efectos de rendimiento es mejor el que te planteo, además lo he probado y no me da ningún tipo de error (claro que a mi también me funciona el DefaultValue, que para estos casos es lo que se tiene que hacer).

Postea el codigo del BeforeUpdate para ver que puede estar mal.

Espero haberte ayudado, un saludo.

Editado por albmartin, Viernes, 3 de Septiembre de 2004, 08:40</TR>

RE: formulario maestro detalle

No da un error en sí, me he equivocado. Cuando estoy editando un registro ya creado, y que el grid contenga registros!!!
Pero cuando voy a introducir uno nuevo en el grid, conforme voy pasando por los campos, se va borrando lo que he escrito.
Y si doy a escape, da un error en el rebind.
te pongo el codigo que genera el grid:

Direcciones
sql = "Select Tipo,Finca,Direccion,Poblacion,CPostal,Provincia,P ais,Telefono," _
& " Fax,Movil,Observacion,Contacto,CodComun,Id" _
& " From direnvio" _
& " Where codcomun=" & MiEntidad _
& " Order by id"

With GridEXDirecciones

.ColumnAutoResize = False
.CursorLocation = jgexUseClient
.DatabaseName = Bd
.LockType = jgexLockOptimistic
.RecordsetType = jgexRSADOStatic
.RecordSource = sql
.ClearFields
.ReBind

tamaños de columna
.Columns("Tipo".Width = 1000 col 1
.Columns("Finca".Width = 2000 col 2
.Columns("Direccion".Width = 2000 col 3
.Columns("Poblacion".Width = 1000 col 4
.Columns("CPostal".Width = 800 col 5
.Columns("Provincia".Width = 2000 col 6
.Columns("Pais".Width = 2000 col 7
.Columns("Telefono".Width = 2000 col 8
.Columns("Fax".Width = 2000 col 9
.Columns("Movil".Width = 2000 col 10
.Columns("Observacion".Width = 3000 col 11
.Columns("Contacto".Width = 3000 col 12
.Columns("CodComun".Width = 1000 col 13
.Columns("Id".Width = 0 col 14

tipo de control en columna
.Columns("Tipo".EditType = jgexEditCombo
Set .Columns("Tipo".DropDownControl = Me.GridEXCmbTiposDireccion.object
GridEXCmbTiposDireccion.Width = .Columns("Tipo".Width
GridEXCmbTiposDireccion.Columns("Tipo".Width = .Columns("Tipo".Width

.Columns("Provincia".EditType = jgexEditCombo
Set .Columns("Provincia".DropDownControl = Me.GridEXCmbProvincias.object
GridEXCmbProvincias.Width = .Columns("Provincia".Width
GridEXCmbProvincias.Columns("Provincia".Width = .Columns("Provincia".Width

.Columns("Pais".EditType = jgexEditCombo
Set .Columns("Pais".DropDownControl = Me.GridEXCmbPaises.object
GridEXCmbPaises.Width = .Columns("Pais".Width
GridEXCmbPaises.Columns("Pais".Width = .Columns("Pais".Width

valores por defecto
.Columns("CodComun".DefaultValue = MiEntidad

End With

a ver si te sirve de ayuda

gracias
</TR>

RE: formulario maestro detalle

¿Por que generas el grid en tiempo de ejecución, utilizas el mismo grid para mostrar varias tablas? ¿Por que no dejas el grid bien hecho en tiempo de diseño, y lo unico que cambia es el filtro de la tabla al hacer el rebind?

cambio y corto...

Editado por albmartin, Viernes, 3 de Septiembre de 2004, 09:47</TR>

RE: formulario maestro detalle

me lo pienso y te digo algo

no sé si me dará tiempo porque enseguida nos vamos a casa, si eso el lunes

gracias</TR>

RE: formulario maestro detalle

Hola

ya estoy aki otra vez.

estoy implementando el grid en diseño. La duda es como introducir el DefaultValue en el campo CodigoCliente ya que este es "dinámico", es decir, es un campo del formulario maestro "txtCodCliente"

Cómo lo pongo o debo hacer esto mediante código?

puedo crear un campo tipo editcombo en tiempo de diseño? como?

Gracias

Editado por joja_2, Lunes, 6 de Septiembre de 2004, 12:45</TR>