diff --git a/foxbin2prg.pj2 b/foxbin2prg.pj2
index a0a1a0d..c2a678a 100644
--- a/foxbin2prg.pj2
+++ b/foxbin2prg.pj2
@@ -26,7 +26,7 @@ _LegalTrademark = "Open Source"
_ProductName = " FOXBIN2PRG"
_MajorVer = "1"
_MinorVer = "19"
-_Revision = " 207"
+_Revision = " 208"
_LanguageID = "1034"
_AutoIncrement = "1"
*
@@ -51,7 +51,7 @@ loProject = _VFP.Projects('foxbin2prg.pjx')
WITH loProject.FILES
.ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="1132857145" ID="1131721714" ObjRev="0" />
- .ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1144431831" ID="1130644423" ObjRev="544" />
+ .ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1144481002" ID="1130644423" ObjRev="544" />
*
.ITEM('__newproject.f2b').Remove()
diff --git a/foxbin2prg.pjt b/foxbin2prg.pjt
index 62aa9ea..c1f3b8e 100644
Binary files a/foxbin2prg.pjt and b/foxbin2prg.pjt differ
diff --git a/foxbin2prg.pjx b/foxbin2prg.pjx
index 945a7b5..6575b5f 100644
Binary files a/foxbin2prg.pjx and b/foxbin2prg.pjx differ
diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 97fff6f..0f58d37 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -343,6 +343,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
+ [] ;
+ [] ;
+ [] ;
+ + [] ;
+ [] ;
+ [] ;
+ [] ;
@@ -434,6 +435,32 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
ENDPROC
+ PROCEDURE compileFoxProBinary
+ LPARAMETERS tcFilename
+ LOCAL lcType
+ tcFilename = EVL(tcFilename, THIS.c_OutputFile)
+ lcType = UPPER(JUSTEXT(tcFilename))
+
+ DO CASE
+ CASE lcType = 'VCX'
+ COMPILE CLASSLIB (tcFilename)
+
+ CASE lcType = 'SCX'
+ COMPILE FORM (tcFilename)
+
+ CASE lcType = 'FRX'
+ COMPILE REPORT (tcFilename)
+
+ CASE lcType = 'LBX'
+ COMPILE LABEL (tcFilename)
+
+ CASE lcType = 'DBC'
+ COMPILE DATABASE (tcFilename)
+
+ ENDCASE
+ ENDPROC
+
+
PROCEDURE doBackup
*---------------------------------------------------------------------------------------------------
* PARÁMETROS: (!=Obligatorio | ?=Opcional) (@=Pasar por referencia | v=Pasar por valor) (IN/OUT)
@@ -4328,7 +4355,7 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
USE IN (SELECT("TABLABIN"))
IF toFoxbin2prg.l_Recompile
- COMPILE CLASSLIB (THIS.c_OutputFile)
+ toFoxbin2prg.compileFoxProBinary()
ENDIF
@@ -4610,7 +4637,7 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin
USE IN (SELECT("TABLABIN"))
IF toFoxbin2prg.l_Recompile
- COMPILE FORM (THIS.c_OutputFile)
+ toFoxbin2prg.compileFoxProBinary()
ENDIF
@@ -5482,11 +5509,7 @@ DEFINE CLASS c_conversor_prg_a_frx AS c_conversor_prg_a_bin
USE IN (SELECT("TABLABIN"))
IF toFoxbin2prg.l_Recompile
- IF THIS.c_Type = 'FRX'
- COMPILE REPORT (THIS.c_OutputFile)
- ELSE
- COMPILE LABEL (THIS.c_OutputFile)
- ENDIF
+ toFoxbin2prg.compileFoxProBinary()
ENDIF
@@ -6113,7 +6136,7 @@ DEFINE CLASS c_conversor_prg_a_dbc AS c_conversor_prg_a_bin
toDatabase.updateDBC( THIS.c_OutputFile )
IF toFoxbin2prg.l_Recompile
- COMPILE DATABASE (THIS.c_OutputFile)
+ toFoxbin2prg.compileFoxProBinary()
ENDIF