Página 1 de 1
TBrowseMod salir edición múltiple
Publicado: Sab Ene 22, 2022 11:58 am
por Jose Lopez
Buenas a todos
Estoy intentando hacer un append() en el oBrowseMod y quisiera que no se pusiera en modo de edición múltiple o simplemente que no se pusiera en modo edición tras el append()
Alguien me puede ayudar.
Y saber si la forma que uso para guardar el valor introducido es correcto en el METHOD BrowseMod1SaveCol
Adjunto un pequeño proyecto.
Gracias a todos.
Salu2
Re: TBrowseMod salir edición múltiple
Publicado: Dom Feb 13, 2022 5:34 pm
por Jose Lopez
Buenas tardes,
Ignacio alguna novedad?.
Tengo que comenzar un proyecto y no se si seguir con el TArrayBrowse o TArrayBrowseMod
Muchas gracias.
Salu2
Pepe.
Re: TBrowseMod salir edición múltiple
Publicado: Dom Feb 13, 2022 6:21 pm
por ignacio
Hola,
Perdón que se me había pasado este mensaje. Prueba con este código:
Código: Seleccionar todo
METHOD Append() CLASS xBrowseMod
LOCAL oCol
LOCAL xValue
LOCAL lRet
IF ::IsGroup()
WITH OBJECT ErrorNew()
:SubSystem := "XAILER"
:SubCode := 0
:Severity := ES_ERROR
:Description := "TBrowseMod:Append()"
:Operation := "Append cannot be done while there is an active group"
Eval( ErrorBlock(), :__WithObject() )
END WITH
ENDIF
::oEditCol := NIL
lRet := ::OnAppend()
IF lRet != NIL .AND. !lRet
RETURN .F.
ENDIF
::nEditMode := beAPPEND
FOR EACH oCol IN ::aCols
xValue := oCol:DefaultValue()
::OnEditCol( oCol, @xValue, 0 )
oCol:oGridEdit:Value := xValue
NEXT
::oDataGrid:Append()
::RunAppend()
RETURN .T.
Y luego en el evento OnAppend() simplemente pon:
oBrowse:oEditCol := oBrowse:aCols[ 1 ]
Además, te recomiendo que no intentes copiar código del antiguo browse sobre el nuevo, pensando que va a funcionar igual. Hay muchos cambios internos que hacen que sean muy distintos. En muchos de los casos el código introducido es inútil, o aún peor, rompe la funcionalidad del nuevo.
Saludos
Re: TBrowseMod salir edición múltiple
Publicado: Dom Feb 13, 2022 7:06 pm
por Jose Lopez
Muchas gracias Ignacio,
Esta genial bravo.
Salu2
Re: TBrowseMod salir edición múltiple
Publicado: Dom Jun 18, 2023 6:11 am
por Israel Solis
BRAVO !! por fin, después de mucho sufrir