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

Changeset: 188 fdbozzo - 04/03/2014 23:36:09:

Browse Source 
v1.19.15
- Arreglo bug información OLE que se borra cuando se procesa un TX2 legacy
- Arreglo bug valor por defecto de NoTimestamp = 0
- Arreglo bug tablas que pierden el backlink cuando se regenera el DBC (Ryan Harris)
- Mejora: Capitalización a minúsculas del nombre de archivo que se muestra en el header de los archivos tx2 para evitar diferencias por este dato
This commit is contained in:
fdbozzo
2014-03-04 23:37:38 +01:00
parent e764eef719 09079b5b27
commit 6f7f38dd2a
5 changed files with 17 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Convert_VFP9_PRG_2_BIN.vbs
View File

@@ -66,10 +66,17 @@ Else
scanDirs( WScript.Arguments(i) ) scanDirs( WScript.Arguments(i) )
Next Next
If WScript.Arguments.Count = 1 AND FileSystemObject.FolderExists( WScript.Arguments(0) ) Then
'-- Es un solo directorio. Lo tomo como origen de compilaci<63>n
cFlagRecompile = "'" & WScript.Arguments(0) & "'"
Else
cFlagRecompile = "'1'"
End If
cFlagGenerateLog = "'0'" cFlagGenerateLog = "'0'"
cFlagDontShowErrMsg = "'0'" cFlagDontShowErrMsg = "'0'"
cFlagShowCall = "'0'" cFlagShowCall = "'0'"
cFlagRecompile = "'1'" 'cFlagRecompile = "'1'"
If GetBit(nDebug, 1) Then If GetBit(nDebug, 1) Then
cFlagGenerateLog = "'1'" cFlagGenerateLog = "'1'"

6
foxbin2prg.pj2
View File

@@ -26,7 +26,7 @@ _LegalTrademark = "Open Source"
_ProductName = " FOXBIN2PRG" _ProductName = " FOXBIN2PRG"
_MajorVer = "1" _MajorVer = "1"
_MinorVer = "19" _MinorVer = "19"
_Revision = " 286" _Revision = " 288"
_LanguageID = "1034" _LanguageID = "1034"
_AutoIncrement = "1" _AutoIncrement = "1"
*</DevInfo> *</DevInfo>
@@ -50,8 +50,8 @@ MODIFY PROJECT 'foxbin2prg.pjx' NOWAIT NOSHOW NOPROJECTHOOK
loProject = _VFP.Projects('foxbin2prg.pjx') loProject = _VFP.Projects('foxbin2prg.pjx')
WITH loProject.FILES WITH loProject.FILES
.ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> .ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="1132857145" ID="0" ObjRev="0" />
.ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" /> .ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1147452450" ID="0" ObjRev="544" />
*</BuildProj> *</BuildProj>
.ITEM('__newproject.f2b').Remove() .ITEM('__newproject.f2b').Remove()

BIN
foxbin2prg.pjt
View File

Binary file not shown.

BIN
foxbin2prg.pjx
View File

Binary file not shown.

9
foxbin2prg.prg
View File

@@ -907,7 +907,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
+ C_TAB + 'tcNoTimestamps: ' + TRANSFORM(tcNoTimestamps) ) + C_TAB + 'tcNoTimestamps: ' + TRANSFORM(tcNoTimestamps) )
tcRecompile = EVL(tcRecompile,'1') tcRecompile = EVL(tcRecompile,'1')
tcNoTimestamps = '0' &&EVL(tcNoTimestamps,'0') tcNoTimestamps = '1' &&EVL(tcNoTimestamps,'1')
IF _VFP.STARTMODE > 0 IF _VFP.STARTMODE > 0
SET ESCAPE OFF SET ESCAPE OFF
@@ -1351,7 +1351,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! * (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*-------------------------------------------------------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------------------------------------------------------
<<C_FB2PRG_META_I>> Version="<<TRANSFORM(THIS.n_FB2PRG_Version)>>" SourceFile="<<JUSTFNAME( EVL( THIS.c_OriginalFileName, THIS.c_InputFile ) )>>" <<C_FB2PRG_META_F>> (Solo para binarios VFP 9 / Only for VFP 9 binaries) <<C_FB2PRG_META_I>> Version="<<TRANSFORM(THIS.n_FB2PRG_Version)>>" SourceFile="<<LOWER( JUSTFNAME( EVL( THIS.c_OriginalFileName, THIS.c_InputFile ) ) )>>" <<C_FB2PRG_META_F>> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
* *
ENDTEXT ENDTEXT
@@ -4347,7 +4347,9 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
toClase._ProjectClassIcon = .get_ValueByName_FromListNamesWithValues( 'ProjectClassIcon', 'C', @laPropsAndValues ) toClase._ProjectClassIcon = .get_ValueByName_FromListNamesWithValues( 'ProjectClassIcon', 'C', @laPropsAndValues )
toClase._ClassIcon = .get_ValueByName_FromListNamesWithValues( 'ClassIcon', 'C', @laPropsAndValues ) toClase._ClassIcon = .get_ValueByName_FromListNamesWithValues( 'ClassIcon', 'C', @laPropsAndValues )
toClase._Ole2 = .get_ValueByName_FromListNamesWithValues( 'OLEObject', 'C', @laPropsAndValues ) toClase._Ole2 = .get_ValueByName_FromListNamesWithValues( 'OLEObject', 'C', @laPropsAndValues )
toClase._Ole = STRCONV( .get_ValueByName_FromListNamesWithValues( 'Value', 'C', @laPropsAndValues ), 14 ) IF EMPTY(toClase._Ole)
toClase._Ole = STRCONV( .get_ValueByName_FromListNamesWithValues( 'Value', 'C', @laPropsAndValues ), 14 )
ENDIF
ENDWITH && THIS ENDWITH && THIS
IF NOT EMPTY( toClase._Ole2 ) && Le agrego "OLEObject = " delante IF NOT EMPTY( toClase._Ole2 ) && Le agrego "OLEObject = " delante
@@ -11993,6 +11995,7 @@ DEFINE CLASS CL_DBC AS CL_DBC_BASE
loConnections = ._Connections loConnections = ._Connections
loViews = ._Views loViews = ._Views
ERASE (tc_OutputFile)
CREATE DATABASE (tc_OutputFile) CREATE DATABASE (tc_OutputFile)
CLOSE DATABASES CLOSE DATABASES
OPEN DATABASE (tc_OutputFile) SHARED OPEN DATABASE (tc_OutputFile) SHARED