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