Xailer & OZ Software

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
--

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