romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

BugFix: DEVINFO field is only used when doing PJX conversions. On other files throw errors

Browse Source
This commit is contained in:
fdbozzo
2017-06-25 20:24:05 +02:00
parent 5814fe17a4
commit 58fdf742e0
2 changed files with 98 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
foxbin2prg.exe
View File

Binary file not shown.

146
foxbin2prg.prg
View File

@@ -8577,54 +8577,104 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
ENDIF ENDIF
*-- Inserto el objeto *-- Inserto el objeto
INSERT INTO TABLABIN ; IF JUSTEXT(toFoxBin2Prg.c_InputFile) = toFoxBin2Prg.c_PJ2
( PLATFORM ; * Solo los PJX/PJ2 tienen el campo DEVINFO
, UNIQUEID ; INSERT INTO TABLABIN ;
, TIMESTAMP ; ( PLATFORM ;
, CLASS ; , UNIQUEID ;
, CLASSLOC ; , TIMESTAMP ;
, BASECLASS ; , CLASS ;
, OBJNAME ; , CLASSLOC ;
, PARENT ; , BASECLASS ;
, PROPERTIES ; , OBJNAME ;
, PROTECTED ; , PARENT ;
, METHODS ; , PROPERTIES ;
, OLE ; , PROTECTED ;
, OLE2 ; , METHODS ;
, RESERVED1 ; , OLE ;
, RESERVED2 ; , OLE2 ;
, RESERVED3 ; , RESERVED1 ;
, RESERVED4 ; , RESERVED2 ;
, RESERVED5 ; , RESERVED3 ;
, RESERVED6 ; , RESERVED4 ;
, RESERVED7 ; , RESERVED5 ;
, RESERVED8 ; , RESERVED6 ;
, USER ; , RESERVED7 ;
, DEVINFO ) ; , RESERVED8 ;
VALUES ; , USER ;
( 'WINDOWS' ; , DEVINFO ) ;
, toObjeto._UniqueID ; VALUES ;
, toObjeto._TimeStamp ; ( 'WINDOWS' ;
, toObjeto._Class ; , toObjeto._UniqueID ;
, toObjeto._ClassLib ; , toObjeto._TimeStamp ;
, toObjeto._BaseClass ; , toObjeto._Class ;
, toObjeto._ObjName ; , toObjeto._ClassLib ;
, toObjeto._Parent ; , toObjeto._BaseClass ;
, lcPropsMemo ; , toObjeto._ObjName ;
, '' ; , toObjeto._Parent ;
, lcMethodsMemo ; , lcPropsMemo ;
, toObjeto._Ole ; , '' ;
, toObjeto._Ole2 ; , lcMethodsMemo ;
, '' ; , toObjeto._Ole ;
, '' ; , toObjeto._Ole2 ;
, '' ; , '' ;
, '' ; , '' ;
, '' ; , '' ;
, '' ; , '' ;
, '' ; , '' ;
, '' ; , '' ;
, STRCONV(toObjeto._User,14) ; , '' ;
, STRCONV(toObjeto._DevInfo,14) ) , '' ;
, STRCONV(toObjeto._User,14) ;
, STRCONV(toObjeto._DevInfo,14) )
ELSE
INSERT INTO TABLABIN ;
( PLATFORM ;
, UNIQUEID ;
, TIMESTAMP ;
, CLASS ;
, CLASSLOC ;
, BASECLASS ;
, OBJNAME ;
, PARENT ;
, PROPERTIES ;
, PROTECTED ;
, METHODS ;
, OLE ;
, OLE2 ;
, RESERVED1 ;
, RESERVED2 ;
, RESERVED3 ;
, RESERVED4 ;
, RESERVED5 ;
, RESERVED6 ;
, RESERVED7 ;
, RESERVED8 ;
, USER ) ;
VALUES ;
( 'WINDOWS' ;
, toObjeto._UniqueID ;
, toObjeto._TimeStamp ;
, toObjeto._Class ;
, toObjeto._ClassLib ;
, toObjeto._BaseClass ;
, toObjeto._ObjName ;
, toObjeto._Parent ;
, lcPropsMemo ;
, '' ;
, lcMethodsMemo ;
, toObjeto._Ole ;
, toObjeto._Ole2 ;
, '' ;
, '' ;
, '' ;
, '' ;
, '' ;
, '' ;
, '' ;
, '' ;
, STRCONV(toObjeto._User,14) )
ENDIF
ENDIF ENDIF
ENDWITH && THIS ENDWITH && THIS