Fuentes Clases no se corresponden???
Publicado: Jue Dic 01, 2016 11:32 am
Resulta que estoy intentando modificar la Clase TDBBrowse, y en concreto el evento Append no se corresponde con el que tengo en los fuentes de mi Xailer 3.3.1.
Hago un corta pega de las lineas que contiene el fuente y lo pongo en un proyecto, y si trabajo con SQLite o MariaDB, me lanza un mensaje de alerta que si no derivo de la clase no lo lanza.
CLASS TDBBrowse FROM XDBBrowse
METHOD Append( lFromUser )
ENDCLASS
METHOD Append( lFromUser ) CLASS TDBBrowse
IF ::oDataset == Nil .OR. !::oDataSet:lOpen .OR. ::oDataset:lReadOnly
RETURN .F.
ENDIF
IF !::Super:Append( lFromUser )
RETURN .F.
ELSE
IF ::lAutoSave .AND. !::oDataSet:AddNew() //Esto hace que lance mensaje de alerta
RETURN .F.
ENDIF
ENDIF
::Refresh()
RETURN .T.
Esto me hace pensar que este fuente, precisamente no se corresponde!!!
Un Saludo,
Xevi.
Hago un corta pega de las lineas que contiene el fuente y lo pongo en un proyecto, y si trabajo con SQLite o MariaDB, me lanza un mensaje de alerta que si no derivo de la clase no lo lanza.
CLASS TDBBrowse FROM XDBBrowse
METHOD Append( lFromUser )
ENDCLASS
METHOD Append( lFromUser ) CLASS TDBBrowse
IF ::oDataset == Nil .OR. !::oDataSet:lOpen .OR. ::oDataset:lReadOnly
RETURN .F.
ENDIF
IF !::Super:Append( lFromUser )
RETURN .F.
ELSE
IF ::lAutoSave .AND. !::oDataSet:AddNew() //Esto hace que lance mensaje de alerta
RETURN .F.
ENDIF
ENDIF
::Refresh()
RETURN .T.
Esto me hace pensar que este fuente, precisamente no se corresponde!!!
Un Saludo,
Xevi.