Página 1 de 1

Fuentes Clases no se corresponden???

Publicado: Jue Dic 01, 2016 11:32 am
por XeviCOMAS
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.