In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Sugerencia para tdbfDataset

Foro público de Xailer en español
Responder
jose.luis
Mensajes: 1633
Registrado: Vie Oct 14, 2005 10:56 pm

Sugerencia para tdbfDataset

Mensaje por jose.luis »

Hola,
Si fuera posible poner esto en el estándar..
Saludos,
José Luis Capel
METHOD OrdSetFocus( xTag, cBag, lError, lUpd, lTemp ) CLASS xDbfDataSet
LOCAL oError
LOCAL cOldTag
DEFAULT lError TO .T.
DEFAULT lUpd TO ::lUpdLinked
DEFAULT lTemp TO .F.
IF xTag == Nil
cOldTag := ( ::cAlias )->( OrdSetFocus() )
ELSEIF Valtype( xTag ) == "N" .AND. xTag == 0
cOldTag := ( ::cAlias )->( OrdSetFocus( 0 ) )
ELSE
cOldTag := ( ::cAlias )->( OrdSetFocus( xTag, cBag ) )
ENDIF
IF ! Empty( xTag ) .AND. ( ::cAlias )->( IndexOrd() ) == 0 .AND. lError
oError := ErrorNew()
oError:Subsystem := "Xailer: TRddDataSource"
oError:Severity := ES_WARNING
oError:CanDefault := .F.
oError:Description := LT( XA_MSG_ERROR_EN_ORDSETFOCUS_EN ) + " " + ::cAlias
oError:Operation := LT( XA_MSG_TAG_INEXISTENTE ) + " " + ToString( xTag )
oError:FileName := ::oDataSource:cConnect+""+::cName
Eval( ErrorBlock(), oError )
ENDIF
IF lUpd .AND. xTag != Nil
::UpdateControls( XA_DSNAV_OTHER )
IF ! lTemp .AND. ::oDBBrowse != Nil
::oDBBrowse:OrderOff()
ENDIF
ENDIF
RETURN cOldTag
--
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9457
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Sugerencia para tdbfDataset

Mensaje por ignacio »

jose.luis escribió el mié, 28 septiembre 2011 18:34Hola,
Si fuera posible poner esto en el estándar..
Saludos,
José Luis Capel
METHOD OrdSetFocus( xTag, cBag, lError, lUpd, lTemp ) CLASS xDbfDataSet
LOCAL oError
LOCAL cOldTag
DEFAULT lError TO .T.
DEFAULT lUpd TO ::lUpdLinked
DEFAULT lTemp TO .F.
IF xTag == Nil
cOldTag := ( ::cAlias )->( OrdSetFocus() )
ELSEIF Valtype( xTag ) == "N" .AND. xTag == 0
cOldTag := ( ::cAlias )->( OrdSetFocus( 0 ) )
ELSE
cOldTag := ( ::cAlias )->( OrdSetFocus( xTag, cBag ) )
ENDIF
IF ! Empty( xTag ) .AND. ( ::cAlias )->( IndexOrd() ) == 0 .AND. lError
oError := ErrorNew()
oError:Subsystem := "Xailer: TRddDataSource"
oError:Severity := ES_WARNING
oError:CanDefault := .F.
oError:Description := LT( XA_MSG_ERROR_EN_ORDSETFOCUS_EN ) + " " + ::cAlias
oError:Operation := LT( XA_MSG_TAG_INEXISTENTE ) + " " + ToString( xTag )
oError:FileName := ::oDataSource:cConnect+""+::cName
Eval( ErrorBlock(), oError )
ENDIF
IF lUpd .AND. xTag != Nil
::UpdateControls( XA_DSNAV_OTHER )
IF ! lTemp .AND. ::oDBBrowse != Nil
::oDBBrowse:OrderOff()
ENDIF
ENDIF
RETURN cOldTag
--
José Luis,
Hecho. Gracias por la sugerencia.
Un saludo
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Responder

Volver a “Xailer Spanish”