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:42 +02:00
parent 5814fe17a4 58fdf742e0
commit 9447050b41
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.

50
foxbin2prg.prg
View File

@@ -8577,6 +8577,8 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
ENDIF ENDIF
*-- Inserto el objeto *-- Inserto el objeto
IF JUSTEXT(toFoxBin2Prg.c_InputFile) = toFoxBin2Prg.c_PJ2
* Solo los PJX/PJ2 tienen el campo DEVINFO
INSERT INTO TABLABIN ; INSERT INTO TABLABIN ;
( PLATFORM ; ( PLATFORM ;
, UNIQUEID ; , UNIQUEID ;
@@ -8625,6 +8627,54 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
, '' ; , '' ;
, STRCONV(toObjeto._User,14) ; , STRCONV(toObjeto._User,14) ;
, STRCONV(toObjeto._DevInfo,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