Changeset: 540 fdbozzo - 30/11/2014 21:04:06:
- Integración rama v1.19.37
This commit is contained in:
fdbozzo
@@ -15,7 +15,7 @@
|
||||
Const ForReading = 1
|
||||
Dim WSHShell, FileSystemObject
|
||||
Dim oVFP9, nExitCode, cEXETool, cCMD, nDebug, lcExt, foxbin2prg_cfg, aFiles(), nFile_Count
|
||||
Dim i, x, str_cfg, aConf, cErrMsg, cFlagGenerateLog, cFlagDontShowErrMsg, cFlagJustShowCall, cFlagRecompile, cNoTimestamps, cErrFile
|
||||
Dim i, x, str_cfg, aConf, cErrMsg, cFlagGenerateLog, cFlagDontShowErrMsg, cFlagJustShowCall, cFlagRecompile, cFlagNoTimestamps, cErrFile
|
||||
Set WSHShell = WScript.CreateObject("WScript.Shell")
|
||||
Set FileSystemObject = WScript.CreateObject("Scripting.FileSystemObject")
|
||||
Set oVFP9 = CreateObject("VisualFoxPro.Application.9")
|
||||
@@ -59,9 +59,8 @@ Else
|
||||
oVFP9.DoCmd( "SET PROCEDURE TO '" & cEXETool & "'" )
|
||||
oVFP9.DoCmd( "PUBLIC oFoxBin2prg" )
|
||||
oVFP9.DoCmd( "oFoxBin2prg = CREATEOBJECT('c_foxbin2prg')" )
|
||||
'.o_FoxBin2Prg.EvaluarConfiguracion( tcDontShowProgress, tcDontShowErrors, tcNoTimestamps, tcDebug, tcRecompile, tcExtraBackupLevels )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.EvaluarConfiguracion( '1', '1' )" )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.cargar_frm_avance()" )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_frm_avance.Caption = '" & FileSystemObject.GetBaseName( WScript.ScriptName ) & " - ' + oFoxBin2Prg.c_loc_process_progress" )
|
||||
|
||||
For i = 0 To WScript.Arguments.Count-1
|
||||
scanDirs( WScript.Arguments(i) )
|
||||
@@ -82,17 +81,13 @@ Else
|
||||
cFlagDontShowErrMsg = "'1'"
|
||||
End If
|
||||
If GetBit(nDebug, 5) Then
|
||||
cNoTimestamps = "'1'"
|
||||
cFlagNoTimestamps = "'1'"
|
||||
End If
|
||||
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.nMAX_VALUE = " & nFile_Count )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.nVALUE = " & 0 )
|
||||
'oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.AlwaysOnTop = .T." )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.SHOW()" )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_frm_avance.Caption = '" & FileSystemObject.GetBaseName( WScript.ScriptName ) & " - ' + oFoxBin2Prg.c_loc_process_progress + ' (Press Esc to Cancel)'" )
|
||||
|
||||
For i = 1 To nFile_Count
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.lbl_TAREA.CAPTION = oFoxBin2Prg.c_loc_processing_file + ' " & aFiles(i) & "...'" )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.nVALUE = " & i )
|
||||
oVFP9.DoCmd( "oFoxBin2Prg.AvanceDelProceso(oFoxBin2Prg.c_loc_processing_file + ' " & aFiles(i) & "...', " & i & ", " & nFile_Count & ", 0)" )
|
||||
cFlagRecompile = "'" & FileSystemObject.GetParentFolderName( aFiles(i) ) & "'"
|
||||
|
||||
If nDebug = 0 Or nDebug = 2 Then
|
||||
@@ -100,22 +95,30 @@ Else
|
||||
Else
|
||||
cCMD = "oFoxBin2prg.ejecutar( '" & aFiles(i) & "','0','0','0'," _
|
||||
& cFlagDontShowErrMsg & "," & cFlagGenerateLog & ",'1','','',.F.,''," _
|
||||
& cFlagRecompile & "," & cNoTimestamps & " )"
|
||||
& cFlagRecompile & "," & cFlagNoTimestamps & " )"
|
||||
End If
|
||||
|
||||
If cFlagJustShowCall = "1" Then
|
||||
MsgBox cCMD, 64, "PARAMETERS"
|
||||
Else
|
||||
oVFP9.DoCmd( cCMD )
|
||||
nExitCode = oVFP9.Eval("_SCREEN.ExitCode")
|
||||
End If
|
||||
|
||||
|
||||
If nExitCode = 1799 Then 'Conversion cancelled by user
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.HIDE()" )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance = NULL" )
|
||||
|
||||
If GetBit(nDebug, 4) Then
|
||||
If oVFP9.Eval("oFoxBin2prg.l_Error") Then
|
||||
'If oVFP9.Eval("oFoxBin2prg.l_Error") Then
|
||||
If nExitCode = 1799 Then
|
||||
MsgBox "Conversion Cancelled by User!", 48, WScript.ScriptName
|
||||
cErrFile = oVFP9.Eval("FORCEPATH('FoxBin2Prg.LOG',GETENV('TEMP') )")
|
||||
oVFP9.DoCmd("STRTOFILE( oFoxBin2prg.c_ErrorLog, '" & cErrFile & "' )")
|
||||
WSHShell.run cErrFile
|
||||
|
||||
ElseIf nExitCode > 0 Then
|
||||
MsgBox "End of Process! (with errors)", 48, WScript.ScriptName
|
||||
cErrFile = oVFP9.Eval("FORCEPATH('FoxBin2Prg.LOG',GETENV('TEMP') )")
|
||||
oVFP9.DoCmd("STRTOFILE( oFoxBin2prg.c_ErrorLog, '" & cErrFile & "' )")
|
||||
@@ -126,15 +129,18 @@ Else
|
||||
End If
|
||||
|
||||
oVFP9.DoCmd( "oFoxBin2prg = NULL" )
|
||||
oVFP9.DoCmd( "CLEAR ALL" )
|
||||
Set oVFP9 = Nothing
|
||||
End If
|
||||
|
||||
WScript.Quit(nExitCode)
|
||||
WScript.Quit nExitCode
|
||||
|
||||
|
||||
Private Sub scanDirs( tcArgument )
|
||||
Dim omFolder, oFolder
|
||||
If FileSystemObject.FolderExists( tcArgument ) Then
|
||||
'-- Es un directorio
|
||||
oVFP9.DoCmd( "oFoxBin2Prg.AvanceDelProceso('Scanning file and directory information on " & tcArgument & "...', 0, 0, 0)" )
|
||||
Set omFolder = FileSystemObject.GetFolder( tcArgument )
|
||||
For Each oFile IN omFolder.Files
|
||||
evaluateFile( oFile.Path )
|
||||
@@ -152,7 +158,11 @@ End Sub
|
||||
Private Sub evaluateFile( tcFile )
|
||||
lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) )
|
||||
oVFP9.SetVar "gc_Ext", lcExt
|
||||
oVFP9.DoCmd( "oFoxBin2prg.EvaluarConfiguracion( '', '', '', '', '', '', '', '', '" & tcFile & "' )" )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.EvaluarConfiguracion( '1', '1', '', '', '', '', '', '', '" & tcFile & "' )" )
|
||||
|
||||
'PROCEDURE EvaluarConfiguracion
|
||||
' LPARAMETERS tcDontShowProgress, tcDontShowErrors, tcFlagNoTimestamps, tcDebug, tcRecompile, tcExtraBackupLevels ;
|
||||
' , tcClearUniqueID, tcOptimizeByFilestamp, tc_InputFile
|
||||
If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Bin2Prg(gc_Ext)") Then
|
||||
nFile_Count = nFile_Count + 1
|
||||
ReDim Preserve aFiles(nFile_Count)
|
||||
|
||||
@@ -15,7 +15,7 @@
|
||||
Const ForReading = 1
|
||||
Dim WSHShell, FileSystemObject
|
||||
Dim oVFP9, nExitCode, cEXETool, cCMD, nDebug, lcExt, foxbin2prg_cfg, aFiles(), nFile_Count
|
||||
Dim i, x, str_cfg, aConf, cErrMsg, cFlagGenerateLog, cFlagDontShowErrMsg, cFlagJustShowCall, cFlagRecompile, cNoTimestamps, cErrFile
|
||||
Dim i, x, str_cfg, aConf, cErrMsg, cFlagGenerateLog, cFlagDontShowErrMsg, cFlagJustShowCall, cFlagRecompile, cFlagNoTimestamps, cErrFile
|
||||
Set WSHShell = WScript.CreateObject("WScript.Shell")
|
||||
Set FileSystemObject = WScript.CreateObject("Scripting.FileSystemObject")
|
||||
Set oVFP9 = CreateObject("VisualFoxPro.Application.9")
|
||||
@@ -59,9 +59,8 @@ Else
|
||||
oVFP9.DoCmd( "SET PROCEDURE TO '" & cEXETool & "'" )
|
||||
oVFP9.DoCmd( "PUBLIC oFoxBin2prg" )
|
||||
oVFP9.DoCmd( "oFoxBin2prg = CREATEOBJECT('c_foxbin2prg')" )
|
||||
'.o_FoxBin2Prg.EvaluarConfiguracion( tcDontShowProgress, tcDontShowErrors, tcNoTimestamps, tcDebug, tcRecompile, tcExtraBackupLevels )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.EvaluarConfiguracion( '1', '1' )" )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.cargar_frm_avance()" )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_frm_avance.Caption = '" & FileSystemObject.GetBaseName( WScript.ScriptName ) & " - ' + oFoxBin2Prg.c_loc_process_progress" )
|
||||
|
||||
For i = 0 To WScript.Arguments.Count-1
|
||||
scanDirs( WScript.Arguments(i) )
|
||||
@@ -77,7 +76,6 @@ Else
|
||||
cFlagGenerateLog = "'0'"
|
||||
cFlagDontShowErrMsg = "'0'"
|
||||
cFlagShowCall = "'0'"
|
||||
'cFlagRecompile = "'1'"
|
||||
|
||||
If GetBit(nDebug, 1) Then
|
||||
cFlagGenerateLog = "'1'"
|
||||
@@ -89,17 +87,13 @@ Else
|
||||
cFlagDontShowErrMsg = "'1'"
|
||||
End If
|
||||
If GetBit(nDebug, 5) Then
|
||||
cNoTimestamps = "'1'"
|
||||
cFlagNoTimestamps = "'1'"
|
||||
End If
|
||||
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.nMAX_VALUE = " & nFile_Count )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.nVALUE = " & 0 )
|
||||
'oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.AlwaysOnTop = .T." )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.SHOW()" )
|
||||
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_frm_avance.Caption = '" & FileSystemObject.GetBaseName( WScript.ScriptName ) & " - ' + oFoxBin2Prg.c_loc_process_progress + ' (Press Esc to Cancel)'" )
|
||||
|
||||
For i = 1 To nFile_Count
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.lbl_TAREA.CAPTION = oFoxBin2Prg.c_loc_processing_file + ' " & aFiles(i) & "...'" )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.nVALUE = " & i )
|
||||
oVFP9.DoCmd( "oFoxBin2Prg.AvanceDelProceso(oFoxBin2Prg.c_loc_processing_file + ' " & aFiles(i) & "...', " & i & ", " & nFile_Count & ", 0)" )
|
||||
cFlagRecompile = "'" & FileSystemObject.GetParentFolderName( aFiles(i) ) & "'"
|
||||
|
||||
If nDebug = 0 Or nDebug = 2 Then
|
||||
@@ -107,22 +101,30 @@ Else
|
||||
Else
|
||||
cCMD = "oFoxBin2prg.ejecutar( '" & aFiles(i) & "','0','0','0'," _
|
||||
& cFlagDontShowErrMsg & "," & cFlagGenerateLog & ",'1','','',.F.,''," _
|
||||
& cFlagRecompile & "," & cNoTimestamps & " )"
|
||||
& cFlagRecompile & "," & cFlagNoTimestamps & " )"
|
||||
End If
|
||||
|
||||
If cFlagJustShowCall = "1" Then
|
||||
MsgBox cCMD, 64, "PARAMETERS"
|
||||
Else
|
||||
oVFP9.DoCmd( cCMD )
|
||||
nExitCode = oVFP9.Eval("_SCREEN.ExitCode")
|
||||
End If
|
||||
|
||||
|
||||
If nExitCode = 1799 Then 'Conversion cancelled by user
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.HIDE()" )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance = NULL" )
|
||||
|
||||
If GetBit(nDebug, 4) Then
|
||||
If oVFP9.Eval("oFoxBin2prg.l_Error") Then
|
||||
'If oVFP9.Eval("oFoxBin2prg.l_Error") Then
|
||||
If nExitCode = 1799 Then
|
||||
MsgBox "Conversion Cancelled by User!", 48, WScript.ScriptName
|
||||
cErrFile = oVFP9.Eval("FORCEPATH('FoxBin2Prg.LOG',GETENV('TEMP') )")
|
||||
oVFP9.DoCmd("STRTOFILE( oFoxBin2prg.c_ErrorLog, '" & cErrFile & "' )")
|
||||
WSHShell.run cErrFile
|
||||
|
||||
ElseIf nExitCode > 0 Then
|
||||
MsgBox "End of Process! (with errors)", 48, WScript.ScriptName
|
||||
cErrFile = oVFP9.Eval("FORCEPATH('FoxBin2Prg.LOG',GETENV('TEMP') )")
|
||||
oVFP9.DoCmd("STRTOFILE( oFoxBin2prg.c_ErrorLog, '" & cErrFile & "' )")
|
||||
@@ -133,15 +135,18 @@ Else
|
||||
End If
|
||||
|
||||
oVFP9.DoCmd( "oFoxBin2prg = NULL" )
|
||||
oVFP9.DoCmd( "CLEAR ALL" )
|
||||
Set oVFP9 = Nothing
|
||||
End If
|
||||
|
||||
WScript.Quit(nExitCode)
|
||||
WScript.Quit nExitCode
|
||||
|
||||
|
||||
Private Sub scanDirs( tcArgument )
|
||||
Dim omFolder, oFolder
|
||||
If FileSystemObject.FolderExists( tcArgument ) Then
|
||||
'-- Es un directorio
|
||||
oVFP9.DoCmd( "oFoxBin2Prg.AvanceDelProceso('Scanning file and directory information on " & tcArgument & "...', 0, 0, 0)" )
|
||||
Set omFolder = FileSystemObject.GetFolder( tcArgument )
|
||||
For Each oFile IN omFolder.Files
|
||||
evaluateFile( oFile.Path )
|
||||
@@ -160,16 +165,15 @@ Private Sub evaluateFile( tcFile )
|
||||
lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) )
|
||||
lcFileName = FileSystemObject.GetFileName( tcFile )
|
||||
laPoints = Split( lcFileName, "." )
|
||||
lnPoints = UBound(laPoint)
|
||||
lnPoints = UBound(laPoints)
|
||||
'-- No proceso los archivos con m<>s de un punto (clases en archivos individuales) por performance
|
||||
If lnPoints = 1 Then
|
||||
oVFP9.SetVar "gc_Ext", lcExt
|
||||
|
||||
'PROCEDURE EvaluarConfiguracion
|
||||
' LPARAMETERS tcDontShowProgress, tcDontShowErrors, tcNoTimestamps, tcDebug, tcRecompile, tcExtraBackupLevels ;
|
||||
' LPARAMETERS tcDontShowProgress, tcDontShowErrors, tcFlagNoTimestamps, tcDebug, tcRecompile, tcExtraBackupLevels ;
|
||||
' , tcClearUniqueID, tcOptimizeByFilestamp, tc_InputFile
|
||||
|
||||
oVFP9.DoCmd( "oFoxBin2prg.EvaluarConfiguracion( '', '', '', '', '', '', '', '', '" & tcFile & "' )" )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.EvaluarConfiguracion( '1', '1', '', '', '', '', '', '', '" & tcFile & "' )" )
|
||||
If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Prg2Bin(gc_Ext)") Then
|
||||
nFile_Count = nFile_Count + 1
|
||||
ReDim Preserve aFiles(nFile_Count)
|
||||
|
||||
@@ -2,8 +2,8 @@ Lparameters toUpdateInfo
|
||||
|
||||
Local lcNote
|
||||
With toUpdateInfo
|
||||
.VersionNumber = 'v1.19.36'
|
||||
.VersionDate = Date(2014,10,08)
|
||||
.VersionNumber = 'v1.19.37'
|
||||
.VersionDate = Date(2014,11,30)
|
||||
.SourceFileUrl = 'http://vfpxrepository.com/dl/thorupdate/Projects/FoxBin2Prg/FoxBin2Prg.Zip'
|
||||
|
||||
.Link = 'http://vfpx.codeplex.com/wikipage?title=FoxBin2PRG'
|
||||
@@ -17,6 +17,20 @@ Demo video using FoxBin2Prg with PlasticSCM: http://youtu.be/sE4wQ50Itqg
|
||||
|
||||
Change History -------------------------------------------------------------
|
||||
|
||||
2014/11/30 v1.19.37
|
||||
- Feature: Added Class per file support, configurable with UseClassPerFile:1 (Ryan Harris/Lutz Scheffler)
|
||||
- Feature: foxbin2prg.cfg configuration options can now have "&&" comments at the right of the values (edyshor)
|
||||
- Feature: Added support for the new "ClearDBFLastUpdate" setting in FoxBin2Prg.cfg, activated by default to minimize DB2 differences (edyshor)
|
||||
- Feature: Enhanced progressbar indication, with more detailed information
|
||||
- Feature: vcx/scx broken properties autofix because an erroneous manual user edition on the vcx/scx
|
||||
- Feature: vcx/scx autofix por Hidden and Protected duplicated properties (some type of corruption or bad manual user edit)
|
||||
- Feature: Added a validation for FRX to notify the user if it is not a VFP 9 REPORT
|
||||
- Feature: Batch convertions can now be interrupted with the Esc key
|
||||
- Bug Fix dbf: "Error 1903, String is too long to fit" when converting long DBF files with "DBF_Conversion_Support:4" to text (edyshor)
|
||||
- Bug Fix vcx/scx: Sometimes some properties get the description of a similarly named property
|
||||
- Bug Fix vcx/scx: Hidden and Protected properties are not ordered alphabetically
|
||||
- Various Code Optimizations for enhancing processing performance
|
||||
|
||||
2014/10/08 v1.19.36
|
||||
- Bug fix mnx: When generating mn2 text view, menu all pad IDs are generated as _000000000 (bug introduced in v1.19.36)
|
||||
- Enhancement: New "VFP9_FoxBin2Prg.vbs" script for "SendTo" menu, that replaces FoxBin2Prg.exe in this menu and adds a process status message
|
||||
|
||||
@@ -212,7 +212,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
|
||||
THIS.assertequals( toReg_Esperado.Reserved8, toReg.Reserved8, "Valor de RESERVED8 para " + lcExtraData )
|
||||
THIS.assertequals( LEN(toReg_Esperado.Reserved8), LEN(toReg.Reserved8), "Tama<6D>o de RESERVED8 para " + lcExtraData )
|
||||
|
||||
THIS.assertequals( toReg_Esperado.OLE2, toReg.OLE2, "Valor de OLE2 para " + lcExtraData )
|
||||
THIS.assertequals( LOWER(toReg_Esperado.OLE2), LOWER(toReg.OLE2), "Valor de OLE2 para " + lcExtraData )
|
||||
THIS.assertequals( LEN(toReg_Esperado.OLE2), LEN(toReg.OLE2), "Tama<6D>o de OLE2 para " + lcExtraData )
|
||||
|
||||
THIS.assertequals( SYS(2007, toReg_Esperado.OLE), SYS(2007, toReg.OLE), "Valor de OLE (Checksum) para " + lcExtraData )
|
||||
@@ -314,8 +314,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
|
||||
|
||||
oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) )
|
||||
|
||||
loCnv.Convertir( lc_OutputFile, .F., .F., .T. )
|
||||
loCnv.Convertir( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_File),2 ) + '2' ), .F., .F., .T. )
|
||||
loCnv.Ejecutar( lc_OutputFile, '', '', '', '0', '0', '0', '', '', .T. )
|
||||
loCnv.Ejecutar( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_File),2 ) + '2' ), '', '', '', '0', '0', '0', '', '', .T. )
|
||||
|
||||
SELECT 0
|
||||
USE (lc_InputFile) SHARED AGAIN NOUPDATE ALIAS ARCHIVOBIN_IN
|
||||
@@ -555,8 +555,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
|
||||
|
||||
oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) )
|
||||
|
||||
loCnv.Convertir( lc_OutputFile, .F., .F., .T. )
|
||||
loCnv.Convertir( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_File),2 ) + '2' ), .F., .F., .T. )
|
||||
loCnv.Ejecutar( lc_OutputFile, '', '', '', '0', '0', '0', '', '', .T. )
|
||||
loCnv.Ejecutar( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_File),2 ) + '2' ), '', '', '', '0', '0', '0', '', '', .T. )
|
||||
|
||||
SELECT 0
|
||||
USE (lc_OutputFile) SHARED AGAIN NOUPDATE ALIAS TABLABIN
|
||||
@@ -640,8 +640,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
|
||||
|
||||
oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) )
|
||||
|
||||
loCnv.Convertir( lc_OutputFile, .F., .F., .T. )
|
||||
loCnv.Convertir( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_File),2 ) + '2' ), .F., .F., .T. )
|
||||
loCnv.Ejecutar( lc_OutputFile, '', '', '', '0', '0', '0', '', '', .T. )
|
||||
loCnv.Ejecutar( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_File),2 ) + '2' ), '', '', '', '0', '0', '0', '', '', .T. )
|
||||
|
||||
SELECT 0
|
||||
USE (lc_OutputFile) SHARED AGAIN NOUPDATE ALIAS TABLABIN
|
||||
@@ -735,8 +735,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
|
||||
|
||||
oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) )
|
||||
|
||||
loCnv.Convertir( lc_OutputFile, .F., .F., .T. )
|
||||
loCnv.Convertir( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_File),2 ) + '2' ), .F., .F., .T. )
|
||||
loCnv.Ejecutar( lc_OutputFile, '', '', '', '0', '0', '0', '', '', .T. )
|
||||
loCnv.Ejecutar( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_File),2 ) + '2' ), '', '', '', '0', '0', '0', '', '', .T. )
|
||||
|
||||
SELECT 0
|
||||
USE (lc_InputFile) SHARED AGAIN NOUPDATE ALIAS ARCHIVOBIN_IN
|
||||
@@ -819,8 +819,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
|
||||
|
||||
oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) )
|
||||
|
||||
loCnv.Convertir( lc_OutputFile, .F., .F., .T. )
|
||||
loCnv.Convertir( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_File),2 ) + '2' ), .F., .F., .T. )
|
||||
loCnv.Ejecutar( lc_OutputFile, '', '', '', '0', '0', '0', '', '', .T. )
|
||||
loCnv.Ejecutar( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_File),2 ) + '2' ), '', '', '', '0', '0', '0', '', '', .T. )
|
||||
|
||||
SELECT 0
|
||||
USE (lc_InputFile) SHARED AGAIN NOUPDATE ALIAS ARCHIVOBIN_IN
|
||||
@@ -903,8 +903,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
|
||||
|
||||
oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) )
|
||||
|
||||
loCnv.Convertir( lc_OutputFile, .F., .F., .T. )
|
||||
*loCnv.Convertir( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_File),2 ) + '2' ), .F., .F., .T. )
|
||||
loCnv.Ejecutar( lc_OutputFile, '', '', '', '0', '0', '0', '', '', .T. )
|
||||
*loCnv.Ejecutar( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_File),2 ) + '2' ), '', '', '', '0', '0', '0', '', '', .T. )
|
||||
|
||||
*-- Comparo resultados
|
||||
lcTXT0 = FORCEPATH( FORCEEXT(lc_File,'VC2'), ADDBS( oFXU_LIB.cPathDatosReadOnly ) )
|
||||
@@ -961,8 +961,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
|
||||
|
||||
oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) )
|
||||
|
||||
loCnv.Convertir( lc_OutputFile, .F., .F., .T. )
|
||||
loCnv.Convertir( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_File),2 ) + '2' ), .F., .F., .T. )
|
||||
loCnv.Ejecutar( lc_OutputFile, '', '', '', '0', '0', '0', '', '', .T. )
|
||||
loCnv.Ejecutar( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_File),2 ) + '2' ), '', '', '', '0', '0', '0', '', '', .T. )
|
||||
|
||||
SELECT 0
|
||||
USE (lc_InputFile) SHARED AGAIN NOUPDATE ALIAS ARCHIVOBIN_IN
|
||||
|
||||
@@ -61,7 +61,8 @@ Else
|
||||
oVFP9.DoCmd( "SET PROCEDURE TO '" & cEXETool & "'" )
|
||||
oVFP9.DoCmd( "PUBLIC oFoxBin2prg" )
|
||||
oVFP9.DoCmd( "oFoxBin2prg = CREATEOBJECT('c_foxbin2prg')" )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.EvaluarConfiguracion( '1', '1' )" )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.cargar_frm_avance()" )
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_frm_avance.Caption = '" & FileSystemObject.GetBaseName( WScript.ScriptName ) & " - ' + oFoxBin2Prg.c_loc_process_progress" )
|
||||
|
||||
cFlagGenerateLog = "'0'"
|
||||
cFlagDontShowErrMsg = "'0'"
|
||||
@@ -83,11 +84,13 @@ Else
|
||||
|
||||
cFlagRecompile = "'" & FileSystemObject.GetParentFolderName( WScript.Arguments(0) ) & "'"
|
||||
|
||||
oVFP9.DoCmd( "oFoxBin2prg.o_frm_avance.Caption = '" & FileSystemObject.GetBaseName( WScript.ScriptName ) & " - ' + oFoxBin2Prg.c_loc_process_progress + ' (Press Esc to Cancel)'" )
|
||||
|
||||
If nDebug = 0 Or nDebug = 2 Then
|
||||
cCMD = "oFoxBin2prg.ejecutar( '" & WScript.Arguments(0) & "' )"
|
||||
Else
|
||||
cCMD = "oFoxBin2prg.ejecutar( '" & WScript.Arguments(0) & "','0','0','0'," _
|
||||
& cFlagDontShowErrMsg & "," & cFlagGenerateLog & ",'1','','',.F.,''," _
|
||||
& cFlagDontShowErrMsg & "," & cFlagGenerateLog & ",'0','','',.F.,''," _
|
||||
& cFlagRecompile & "," & cNoTimestamps & " )"
|
||||
End If
|
||||
If cFlagJustShowCall = "1" Then
|
||||
@@ -98,7 +101,14 @@ Else
|
||||
End If
|
||||
|
||||
If GetBit(nDebug, 4) Then
|
||||
If oVFP9.Eval("oFoxBin2prg.l_Error") Then
|
||||
'If oVFP9.Eval("oFoxBin2prg.l_Error") Then
|
||||
If nExitCode = 1799 Then
|
||||
MsgBox "Conversion Cancelled by User!", 48, WScript.ScriptName
|
||||
cErrFile = oVFP9.Eval("FORCEPATH('FoxBin2Prg.LOG',GETENV('TEMP') )")
|
||||
oVFP9.DoCmd("STRTOFILE( oFoxBin2prg.c_ErrorLog, '" & cErrFile & "' )")
|
||||
WSHShell.run cErrFile
|
||||
|
||||
ElseIf nExitCode > 0 Then
|
||||
MsgBox "End of Process! (with errors)", 48, WScript.ScriptName
|
||||
cErrFile = oVFP9.Eval("FORCEPATH('FoxBin2Prg.LOG',GETENV('TEMP') )")
|
||||
oVFP9.DoCmd("STRTOFILE( oFoxBin2prg.c_ErrorLog, '" & cErrFile & "' )")
|
||||
@@ -113,7 +123,7 @@ Else
|
||||
Set oVFP9 = Nothing
|
||||
End If
|
||||
|
||||
WScript.Quit(nExitCode)
|
||||
WScript.Quit nExitCode
|
||||
|
||||
|
||||
Function GetBit(lngValue, BitNum)
|
||||
|
||||
@@ -1,13 +1,15 @@
|
||||
****************************************************************************************************
|
||||
* FOXBIN2PRG v1.19.26
|
||||
* FOXBIN2PRG v1.19.37
|
||||
* CONFIGURATION FILE / ARCHIVO DE CONFIGURACI<43>N
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
* DON'T MODIFY THIS DOCUMENTATION SECTION / NO MODIFIQUE ESTA SECCI<43>N DE DOCUMENTACI<43>N
|
||||
****************************************************************************************************
|
||||
|
||||
****************************************************************************************************
|
||||
* OPTION DOCUMENTATION SECTION / SECCI<43>N DE DOCUMENTACI<43>N DE OPCIONES
|
||||
*
|
||||
* DETAIL OF SUPPORTED VALUES / DETALLE DE VALORES SOPORTADOS
|
||||
* If no values given, this are the defaults / Si no se proporcionan valores, estos son los predeterminados
|
||||
* If no values given, these are the DEFAULTS / Si no se proporcionan valores, estos son los PREDETERMINADOS
|
||||
*
|
||||
* extension: xx2 && Default FoxBin2Prg extensions ends in '2' / Las extensiones por defecto de FoxBin2Prg terminan en '2'
|
||||
* extension: tx2=newext && Default FoxBin2Prg extensions ends in '2' (see at the bottom) / Las extensiones por defecto de FoxBin2Prg terminan en '2' (ver debajo de todo)
|
||||
* DontShowProgress: 0 && Show progress bar by default in multi-file processing / Mostrar barra de progreso por defecto en procesamiento multi-archivo
|
||||
* DontShowErrors: 0 && Show message errors by default / Mostrar mensajes de error por defecto
|
||||
* NoTimestamps: 1 && Crear timespampt by default for minimize differences / Vaciar Timestamps por defecto para minimizar diferencias
|
||||
@@ -18,18 +20,26 @@
|
||||
* OptimizeByFilestamp: 0 && Optimize file regeneration depending on file timestamp / Optimizar la regeneraci<63>n de archivos dependiendo del timestamp de archivo
|
||||
* AllowMultiConfig: 1 && 1=Allow CFG files per directory. if no CFG found, then use Main CFG. 0=Only use Main CFG
|
||||
* DropNullCharsFromCode: 1 && 1=Drop NULL chars from source code / 0=Leave Nulls in code, if any
|
||||
* XXX_Conversion_Support: N && 0=No support, 1=Generate TXT only (Diff), 2=Generate TXT and BIN (Merge), 4=Generate TXT with DATA for DIFF (DBF only)
|
||||
* PJX_Conversion_Support: 2 && Default value
|
||||
* VCX_Conversion_Support: 2 && Default value
|
||||
* SCX_Conversion_Support: 2 && Default value
|
||||
* FRX_Conversion_Support: 2 && Default value
|
||||
* LBX_Conversion_Support: 2 && Default value
|
||||
* MNX_Conversion_Support: 2 && Default value
|
||||
* DBC_Conversion_Support: 2 && Default value
|
||||
* DBF_Conversion_Support: 1 && Default value >> EN: FoxBin2Prg support bi-directional convertion of DBFs, but does not keep data. Use with care.
|
||||
* >> ES: FoxBin2Prg tiene soporte bi-direccional para convertir DBF, pero no mantiene los datos. Usar con cuidado.
|
||||
|
||||
*-- CONVERTION OPTIONS / OPCIONES DE CONVERSI<53>N
|
||||
* XXX_Conversion_Support: N && 0=No support, 1=Generate TXT only (Diff), 2=Generate TXT and BIN (Merge)
|
||||
* PJX_Conversion_Support: 2 && 0=No support, 1=Generate TXT only (Diff), 2=Generate TXT and BIN (Merge)
|
||||
* VCX_Conversion_Support: 2 && 0=No support, 1=Generate TXT only (Diff), 2=Generate TXT and BIN (Merge)
|
||||
* SCX_Conversion_Support: 2 && 0=No support, 1=Generate TXT only (Diff), 2=Generate TXT and BIN (Merge)
|
||||
* FRX_Conversion_Support: 2 && 0=No support, 1=Generate TXT only (Diff), 2=Generate TXT and BIN (Merge)
|
||||
* LBX_Conversion_Support: 2 && 0=No support, 1=Generate TXT only (Diff), 2=Generate TXT and BIN (Merge)
|
||||
* MNX_Conversion_Support: 2 && 0=No support, 1=Generate TXT only (Diff), 2=Generate TXT and BIN (Merge)
|
||||
* DBC_Conversion_Support: 2 && 0=No support, 1=Generate TXT only (Diff), 2=Generate TXT and BIN (Merge)
|
||||
* DBF_Conversion_Support: 1 && 0=No support, 1=Generate TXT only (Diff), 2=Generate TXT and BIN (Merge), 4=Generate TXT with DATA for DIFF (No Bidirectional!)
|
||||
* >>DBF_Conversion_Support NOTE: >> EN: FoxBin2Prg support bi-directional convertion of DBFs, but does not keep data. Use with care.
|
||||
* >> ES: FoxBin2Prg tiene soporte bi-direccional para convertir DBF, pero no mantiene los datos. Usar con cuidado.
|
||||
* DBF_Conversion_Included: * && If DBF_Conversion_Support:4, you can specify mnultiple filemasks: www,fb2p_free.dbf / Si DBF_Conversion_Support:4, se pueden indicar m<>ltiples m<>scaras de archivo: www,fb2p_free.dbf
|
||||
* DBF_Conversion_Excluded: && If DBF_Conversion_Support:4, you can specify mnultiple filemasks: www,fb2p_free.dbf / Si DBF_Conversion_Support:4, se pueden indicar m<>ltiples m<>scaras de archivo: www,fb2p_free.dbf
|
||||
|
||||
*-- "CLASS PER FILE" OPTIONS (UseClassPerFile: 1) / OPCIONES DE "CLASE POR ARCHIVO" (UseClassPerFile: 1)
|
||||
* UseClassPerFile: 0 && 0=One library tx2 file, 1=Multiple file.class.tx2 files / 0=Una archivo librer<65>a tx2, 1=M<>ltiples archivo.clase.tx2
|
||||
* RedirectClassPerFileToMain: 0 && 0=Don't redirect to file.tx2, 1=Redirect to file.tx2 when selecting file.class.tx2 / 0=No redireccionar a archivo.tx2, 1=Redireccionar a archivo.tx2 cuando se seleccione archivo.clase.tx2
|
||||
* ClassPerFileCheck: 0 && 0=Don't check file.class.tx2 inclusion, 1=Check file.class.tx2 inclusion / 0=No verificar la inclusi<73>n de archivo.clase.tx2, 1=Verificar la inclusi<73>n de archivo.clase.tx2
|
||||
*
|
||||
* EN: Note: This values have precedence over internal parameters and parameters used on scripts
|
||||
* ES: Nota: Estos valores tienen precedencia sobre los par<61>metros internos y los par<61>metros usados en los scripts
|
||||
@@ -39,7 +49,7 @@
|
||||
|
||||
|
||||
****************************************************************************************************
|
||||
* YOU CAN MODIFY FROM HERE! / PUEDE MODIFICAR DESDE AQU<51>!
|
||||
* YOU CAN MODIFY FROM HERE / PUEDE MODIFICAR DESDE AQU<51>
|
||||
|
||||
* EN: Uncomment for SourceSafe compatibility. You can change the extension on the right side.
|
||||
* ES: Descomentar para compatibilidad con SourceSafe. Puede cambiar la extensi<73>n del lado derecho.
|
||||
@@ -54,30 +64,3 @@
|
||||
*extension: dc2=dca
|
||||
|
||||
|
||||
* EN: Uncomment to activate the new value, comment to deactivate and use the default
|
||||
* ES: Descomente para activar el nuevo valor, comente para desactivarlo y usar el predeterminado
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
*DontShowProgress: 1
|
||||
*DontShowErrors: 1
|
||||
*NoTimestamps: 0
|
||||
*Debug: 1
|
||||
*ExtraBackupLevels: 0
|
||||
*ClearUniqueID: 0
|
||||
*ClearDBFLastUpdate: 0
|
||||
*OptimizeByFilestamp: 0
|
||||
*AllowMultiConfig: 0
|
||||
*DropNullCharsFromCode: 0
|
||||
|
||||
|
||||
* EN: Uncomment to activate the new value, comment to deactivate and use the default
|
||||
* ES: Descomente para activar el nuevo valor, comente para desactivarlo y usar el predeterminado
|
||||
* 0=No support, 1=Generate TXT only (Diff), 2=Generate TXT and BIN (Merge), 4=Generate TXT with DATA for DIFF (DBF only)
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
*PJX_Conversion_Support: 2
|
||||
*VCX_Conversion_Support: 2
|
||||
*SCX_Conversion_Support: 2
|
||||
*FRX_Conversion_Support: 2
|
||||
*LBX_Conversion_Support: 2
|
||||
*MNX_Conversion_Support: 2
|
||||
*DBC_Conversion_Support: 2
|
||||
*DBF_Conversion_Support: 4
|
||||
|
||||
BIN
foxbin2prg.exe
BIN
foxbin2prg.exe
Binary file not shown.
1058
foxbin2prg.prg
1058
foxbin2prg.prg
File diff suppressed because it is too large
Load Diff
@@ -31,7 +31,7 @@
|
||||
#DEFINE C_FOXBIN2PRG_JUST_VFP_9_LOC "FOXBIN2PRG ist nur f<>r Visual FoxPro 9.0!"
|
||||
#DEFINE C_FOXBIN2PRG_WARN_CAPTION_LOC "FOXBIN2PRG: WARNUNG!"
|
||||
#DEFINE C_LANGUAGE_LOC "DE"
|
||||
#DEFINE C_MENU_NOT_IN_VFP9_FORMAT_LOC "Menu [<<THIS.c_InputFile>>] ist NICHT in VFP 9 Format! - Bitte zuerst nach VFP 9 konvertieren mit MODIFY MENU <<JUSTFNAME((THIS.c_InputFile))>>"
|
||||
#DEFINE C_MENU_NOT_IN_VFP9_FORMAT_LOC "Menu [<<THIS.c_InputFile>>] ist NICHT in VFP 9 Format! - Bitte zuerst nach VFP 9 konvertieren mit MODIFY MENU '<<THIS.c_InputFile>>'"
|
||||
#DEFINE C_NAMES_CAPITALIZATION_PROGRAM_FOUND_LOC "* Programm f<>r Gro<72>schreibungssetzung [<<lcEXE_CAPS>>] gefunden"
|
||||
#DEFINE C_NAMES_CAPITALIZATION_PROGRAM_NOT_FOUND_LOC "* Programm f<>r Gro<72>schreibungssetzung [<<lcEXE_CAPS>>] nicht gefunden"
|
||||
#DEFINE C_OBJECT_NAME_WITHOUT_OBJECT_OREG_LOC "Objekt [<<toObj.CLASS>>] enth<74>lt nicht oReg Objekt (level <<TRANSFORM(tnNivel)>>)"
|
||||
@@ -42,6 +42,7 @@
|
||||
#DEFINE C_PROCESSING_LOC "Bearbeite Datei"
|
||||
#DEFINE C_PROCESS_PROGRESS_LOC "Bearbeitungsfortschritt:"
|
||||
#DEFINE C_PROPERTY_NAME_NOT_RECOGNIZED_LOC "Eigenschaft [<<TRANSFORM(tnPropertyID)>>] nicht erkannt."
|
||||
#DEFINE C_REPORT_NOT_IN_VFP9_FORMAT_LOC "Report [<<THIS.c_InputFile>>] ist NICHT in VFP 9 Format! - Bitte zuerst nach VFP 9 konvertieren mit MODIFY REPORT '<<THIS.c_InputFile>>'"
|
||||
#DEFINE C_REQUESTING_CAPITALIZATION_OF_FILE_LOC "- Forder Gro<72>schreibung f<>r Datei [<<tcFileName>>] an"
|
||||
#DEFINE C_SOURCEFILE_LOC "Source Datei: "
|
||||
#DEFINE C_STRUCTURE_NESTING_ERROR_ENDPROC_EXPECTED_LOC "Fehler in Verschachtelungsstruktur. ENDPROC erwartet, aber es wurde ENDDEFINE in Klasse <<toClase._Nombre>> (<<loProcedure._Nombre>>), Zeile <<TRANSFORM(I)>> der Datei <<THIS.c_InputFile>> gefunden"
|
||||
|
||||
@@ -31,7 +31,7 @@
|
||||
#DEFINE C_FOXBIN2PRG_JUST_VFP_9_LOC "FOXBIN2PRG is only for Visual FoxPro 9.0!"
|
||||
#DEFINE C_FOXBIN2PRG_WARN_CAPTION_LOC "FOXBIN2PRG: WARNING!"
|
||||
#DEFINE C_LANGUAGE_LOC "EN"
|
||||
#DEFINE C_MENU_NOT_IN_VFP9_FORMAT_LOC "Menu [<<THIS.c_InputFile>>] is NOT in VFP 9 Format! - Please convert to VFP 9 with MODIFY MENU <<JUSTFNAME((THIS.c_InputFile))>>"
|
||||
#DEFINE C_MENU_NOT_IN_VFP9_FORMAT_LOC "Menu [<<THIS.c_InputFile>>] is NOT in VFP 9 Format! - Please convert to VFP 9 with MODIFY MENU '<<THIS.c_InputFile>>'"
|
||||
#DEFINE C_NAMES_CAPITALIZATION_PROGRAM_FOUND_LOC "* Names capitalization program [<<lcEXE_CAPS>>] found"
|
||||
#DEFINE C_NAMES_CAPITALIZATION_PROGRAM_NOT_FOUND_LOC "* Names capitalization program [<<lcEXE_CAPS>>] not found"
|
||||
#DEFINE C_OBJECT_NAME_WITHOUT_OBJECT_OREG_LOC "Object [<<toObj.CLASS>>] does not contain oReg object (level <<TRANSFORM(tnNivel)>>)"
|
||||
@@ -42,6 +42,7 @@
|
||||
#DEFINE C_PROCESSING_LOC "Processing file"
|
||||
#DEFINE C_PROCESS_PROGRESS_LOC "Process Progress:"
|
||||
#DEFINE C_PROPERTY_NAME_NOT_RECOGNIZED_LOC "Property [<<TRANSFORM(tnPropertyID)>>] is not recognized."
|
||||
#DEFINE C_REPORT_NOT_IN_VFP9_FORMAT_LOC "Report [<<THIS.c_InputFile>>] is NOT in VFP 9 Format! - Please convert to VFP 9 with MODIFY REPORT '<<THIS.c_InputFile>>'"
|
||||
#DEFINE C_REQUESTING_CAPITALIZATION_OF_FILE_LOC "- Requesting capitalization of file [<<tcFileName>>]"
|
||||
#DEFINE C_SOURCEFILE_LOC "Source file: "
|
||||
#DEFINE C_STRUCTURE_NESTING_ERROR_ENDPROC_EXPECTED_LOC "Nesting structure error. ENDPROC expected but found ENDDEFINE on class <<toClase._Nombre>> (<<loProcedure._Nombre>>), line <<TRANSFORM(I)>> of file <<THIS.c_InputFile>>"
|
||||
|
||||
Reference in New Issue
Block a user