Changeset: 594 v1.19.39

- Bug fix vbs: Los scripts vbs no muestren los errores del proceso de FoxBin2Prg
- Agregar la versión del EXE en el título de los messagebox y en los scripts vbs
- Agregar el tipo de FoxBin2Prg usado y la versión del EXE en los LOGs de error
- Cuando se usan las claves BIN2PRG o PRG2BIN permitir procesar un archivo solo (Mike Potjer)
- Agregar la clave SHOWMSG y dejar INTERACTIVE para un diálogo interactivo (Mike Potjer)
- Cuando se procesa un directorio con foxbin2prg.exe solo y la clave INTERACTIVE, mostrar un diálogo para preguntar qué procesar (Mike Potjer)
- Traducción de los mensajes de los scripts vbs
- Bug fix dc2: Los datos de DisplayClass y DisplayClassLibrary tenían el valor de "Default" en vez del propio (Christopher Kurth/Ryan Harris)
- Borrados los scripts de recompilación por idioma, por ahora ser selección automática

Convert_VFP9_BIN_2_PRG.vbs

@@ -13,7 +13,7 @@
 '		- Ahora puede seleccionar archivos o directorios, pulsar click derecho y "Enviar a" FoxBin2prg para conversiones batch
 '---------------------------------------------------------------------------------------------------
 Const ForReading = 1 
-Dim WSHShell, FileSystemObject
+Dim WSHShell, FileSystemObject, cEndOfProcessMsg, cWithErrorsMsg, cConvCancelByUserMsg, nProcessedFilesCount
 Dim oVFP9, nExitCode, cEXETool, cCMD, nDebug, lcExt, foxbin2prg_cfg, aFiles(), nFile_Count
 Dim i, x, str_cfg, aConf, cErrMsg, cFlagGenerateLog, cFlagDontShowErrMsg, cFlagJustShowCall, cFlagRecompile, cFlagNoTimestamps, cErrFile
 Set WSHShell = WScript.CreateObject("WScript.Shell")
@@ -93,7 +93,7 @@ Else
 		If nDebug = 0 Or nDebug = 2 Then
 			cCMD	= "oFoxBin2prg.ejecutar( '" & aFiles(i) & "' )"
 		Else
-			cCMD	= "oFoxBin2prg.ejecutar(  '" & aFiles(i) & "','0','0','0'," _
+			cCMD	= "oFoxBin2prg.ejecutar( '" & aFiles(i) & "','BIN2PRG','0','0'," _
 				& cFlagDontShowErrMsg & "," & cFlagGenerateLog & ",'1','','',.F.,''," _
 				& cFlagRecompile & "," & cFlagNoTimestamps & " )"
 		End If
@@ -101,8 +101,7 @@ Else
 		If cFlagJustShowCall = "1" Then
 			MsgBox cCMD, 64, "PARAMETERS"
 		Else
-			oVFP9.DoCmd( cCMD )
-			nExitCode = oVFP9.Eval("_SCREEN.ExitCode")
+			nExitCode = oVFP9.Eval(cCMD)
 		End If
 		
 		If nExitCode = 1799 Then 'Conversion cancelled by user
@@ -111,20 +110,24 @@ Else
 	Next
 
 	If GetBit(nDebug, 4) 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
+		cEndOfProcessMsg		= oVFP9.Eval("_SCREEN.o_FoxBin2Prg_Lang.C_END_OF_PROCESS_LOC")
+		cWithErrorsMsg			= oVFP9.Eval("_SCREEN.o_FoxBin2Prg_Lang.C_WITH_ERRORS_LOC")
+		cConvCancelByUserMsg	= oVFP9.Eval("_SCREEN.o_FoxBin2Prg_Lang.C_CONVERSION_CANCELLED_BY_USER_LOC")
+		nProcessedFilesCount	= oVFP9.Eval("oFoxBin2prg.n_ProcessedFilesCount")
 
-		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 & "' )")
-			WSHShell.run cErrFile
+		If nExitCode = 1799 Then
+			MsgBox cConvCancelByUserMsg & "! [p:" & nProcessedFilesCount & "]", 48+4096, WScript.ScriptName & " (" & oVFP9.Eval("oFoxBin2prg.c_FB2PRG_EXE_Version") & ")"
+			oVFP9.DoCmd("oFoxBin2prg.writeErrorLog_Flush()")
+			cErrFile = oVFP9.Eval("oFoxBin2prg.c_ErrorLogFile")
+			WSHShell.run cErrFile,3
+
+		ElseIf oVFP9.Eval("oFoxBin2prg.l_Error") Then
+			MsgBox cEndOfProcessMsg & "! (" & cWithErrorsMsg & ") [p:" & nProcessedFilesCount & "]", 48+4096, WScript.ScriptName & " (" & oVFP9.Eval("oFoxBin2prg.c_FB2PRG_EXE_Version") & ")"
+			oVFP9.DoCmd("oFoxBin2prg.writeErrorLog_Flush()")
+			cErrFile = oVFP9.Eval("oFoxBin2prg.c_ErrorLogFile")
+			WSHShell.run cErrFile,3
 		Else
-			MsgBox "End of Process!", 64, WScript.ScriptName
+			MsgBox cEndOfProcessMsg & "! [p:" & nProcessedFilesCount & "]", 64+4096, WScript.ScriptName & " (" & oVFP9.Eval("oFoxBin2prg.c_FB2PRG_EXE_Version") & ")"
 		End If
 	End If
 
@@ -156,18 +159,17 @@ End Sub
 
 
 Private Sub evaluateFile( tcFile )
-	lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) )
-	oVFP9.SetVar "gc_Ext", lcExt
-	oVFP9.DoCmd( "oFoxBin2prg.EvaluarConfiguracion( '1', '1', '', '', '', '', '', '', '" & tcFile & "' )" )
+	'lcExt = UCase( FileSystemObject.GetExtensionName( 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
+	'If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Bin2Prg('" & lcExt & "')") Then
 		nFile_Count = nFile_Count + 1
 		ReDim Preserve aFiles(nFile_Count)
 		aFiles(nFile_Count) = tcFile
-	End If
+	'End If
 End Sub
 
 

Convert_VFP9_PRG_2_BIN.vbs

@@ -13,7 +13,7 @@
 '		- Ahora puede seleccionar archivos o directorios, pulsar click derecho y "Enviar a" FoxBin2prg para conversiones batch
 '---------------------------------------------------------------------------------------------------
 Const ForReading = 1 
-Dim WSHShell, FileSystemObject
+Dim WSHShell, FileSystemObject, cEndOfProcessMsg, cWithErrorsMsg, cConvCancelByUserMsg, nProcessedFilesCount
 Dim oVFP9, nExitCode, cEXETool, cCMD, nDebug, lcExt, foxbin2prg_cfg, aFiles(), nFile_Count
 Dim i, x, str_cfg, aConf, cErrMsg, cFlagGenerateLog, cFlagDontShowErrMsg, cFlagJustShowCall, cFlagRecompile, cFlagNoTimestamps, cErrFile
 Set WSHShell = WScript.CreateObject("WScript.Shell")
@@ -99,7 +99,7 @@ Else
 		If nDebug = 0 Or nDebug = 2 Then
 			cCMD	= "oFoxBin2prg.ejecutar( '" & aFiles(i) & "' )"
 		Else
-			cCMD	= "oFoxBin2prg.ejecutar(  '" & aFiles(i) & "','0','0','0'," _
+			cCMD	= "oFoxBin2prg.ejecutar( '" & aFiles(i) & "','PRG2BIN','0','0'," _
 				& cFlagDontShowErrMsg & "," & cFlagGenerateLog & ",'1','','',.F.,''," _
 				& cFlagRecompile & "," & cFlagNoTimestamps & " )"
 		End If
@@ -107,8 +107,7 @@ Else
 		If cFlagJustShowCall = "1" Then
 			MsgBox cCMD, 64, "PARAMETERS"
 		Else
-			oVFP9.DoCmd( cCMD )
-			nExitCode = oVFP9.Eval("_SCREEN.ExitCode")
+			nExitCode = oVFP9.Eval(cCMD)
 		End If
 		
 		If nExitCode = 1799 Then 'Conversion cancelled by user
@@ -117,20 +116,24 @@ Else
 	Next
 
 	If GetBit(nDebug, 4) 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
+		cEndOfProcessMsg		= oVFP9.Eval("_SCREEN.o_FoxBin2Prg_Lang.C_END_OF_PROCESS_LOC")
+		cWithErrorsMsg			= oVFP9.Eval("_SCREEN.o_FoxBin2Prg_Lang.C_WITH_ERRORS_LOC")
+		cConvCancelByUserMsg	= oVFP9.Eval("_SCREEN.o_FoxBin2Prg_Lang.C_CONVERSION_CANCELLED_BY_USER_LOC")
+		nProcessedFilesCount	= oVFP9.Eval("oFoxBin2prg.n_ProcessedFilesCount")
 
-		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 & "' )")
-			WSHShell.run cErrFile
+		If nExitCode = 1799 Then
+			MsgBox cConvCancelByUserMsg & "! [p:" & nProcessedFilesCount & "]", 48+4096, WScript.ScriptName & " (" & oVFP9.Eval("oFoxBin2prg.c_FB2PRG_EXE_Version") & ")"
+			oVFP9.DoCmd("oFoxBin2prg.writeErrorLog_Flush()")
+			cErrFile = oVFP9.Eval("oFoxBin2prg.c_ErrorLogFile")
+			WSHShell.run cErrFile,3
+
+		ElseIf oVFP9.Eval("oFoxBin2prg.l_Error") Then
+			MsgBox cEndOfProcessMsg & "! (" & cWithErrorsMsg & ") [p:" & nProcessedFilesCount & "]", 48+4096, WScript.ScriptName & " (" & oVFP9.Eval("oFoxBin2prg.c_FB2PRG_EXE_Version") & ")"
+			oVFP9.DoCmd("oFoxBin2prg.writeErrorLog_Flush()")
+			cErrFile = oVFP9.Eval("oFoxBin2prg.c_ErrorLogFile")
+			WSHShell.run cErrFile,3
 		Else
-			MsgBox "End of Process!", 64, WScript.ScriptName
+			MsgBox cEndOfProcessMsg & "! [p:" & nProcessedFilesCount & "]", 64+4096, WScript.ScriptName & " (" & oVFP9.Eval("oFoxBin2prg.c_FB2PRG_EXE_Version") & ")"
 		End If
 	End If
 
@@ -162,24 +165,22 @@ End Sub
 
 
 Private Sub evaluateFile( tcFile )
-	lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) )
-	lcFileName = FileSystemObject.GetFileName( tcFile )
-	laPoints = Split( lcFileName, "." )
-	lnPoints = UBound(laPoints)
+	'lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) )
+	'lcFileName = FileSystemObject.GetFileName( tcFile )
+	'laPoints = Split( lcFileName, "." )
+	'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
-		
+	'If lnPoints = 1 Then
 		'PROCEDURE EvaluarConfiguracion
 		'	LPARAMETERS tcDontShowProgress, tcDontShowErrors, tcFlagNoTimestamps, tcDebug, tcRecompile, tcExtraBackupLevels ;
 		'		, tcClearUniqueID, tcOptimizeByFilestamp, tc_InputFile
-		oVFP9.DoCmd( "oFoxBin2prg.EvaluarConfiguracion( '1', '1', '', '', '', '', '', '', '" & tcFile & "' )" )
-		If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Prg2Bin(gc_Ext)") Then
+		'oVFP9.DoCmd( "oFoxBin2prg.EvaluarConfiguracion( '1', '1', '', '', '', '', '', '', '" & tcFile & "' )" )
+		'If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Prg2Bin('" & lcExt & "')") Then
 			nFile_Count = nFile_Count + 1
 			ReDim Preserve aFiles(nFile_Count)
 			aFiles(nFile_Count) = tcFile
-		End If
-	End If
+		'End If
+	'End If
 End Sub
 
 

FoxBin2PRGVersionFile.txt

@@ -2,8 +2,8 @@ Lparameters toUpdateInfo
 
 Local lcNote
 With toUpdateInfo
-    .VersionNumber        = 'v1.19.38'
-    .VersionDate          = Date(2014,12,13)
+    .VersionNumber        = 'v1.19.39'
+    .VersionDate          = Date(2015,01,01)
     .SourceFileUrl        = 'http://vfpxrepository.com/dl/thorupdate/Projects/FoxBin2Prg/FoxBin2Prg.Zip'
 
     .Link                 = 'http://vfpx.codeplex.com/wikipage?title=FoxBin2PRG'
@@ -17,6 +17,14 @@ Demo video using FoxBin2Prg with PlasticSCM: http://youtu.be/sE4wQ50Itqg
 
 Change History -------------------------------------------------------------
 
+2015/01/01	v1.19.39
+- Bug fix vbs: vbs scripts does not show FoxBin2Prg process errors correctly
+- When using BIN2PRG or PRG2BIN keywords with FoxBin2Prg command line, allow processing one file (Mike Potjer)
+- Add keyword SHOWMSG and use INTERACTIVE keyword for an interactive dialog (Mike Potjer)
+- When processing a directory from commandline with foxbin2prg alone and the INTERACTIVE keyword, show a dialog to ask what to process (Mike Potjer)
+- Bug fix dc2: DisplayClass and DisplayClassLibrary values got the wrong value "Default" and not the corresponding own values (Christopher Kurth/Ryan Harris)
+- Deleted recompilation scripts for language, because it is an automatic selection now
+
 2014/12/13	v1.19.38
 - Feature: Now is possible to use FoxBin2Prg for batch conversions directly from the File Explorer (see README.txt), without the need of vbs scripts, that sometimes can make trouble or are not permitted by IT department (Francisco Prieto)
 - Feature: Enhanced Multilanguage support by 3 ways: 1-Automatic [DEFAULT] (depending on VERSION(3)); 2-By parameter, using the new method ChangeLanguage(); 3-Using the new setting "Language" in foxbin2prg.cfg

TESTS/DATOS_READONLY/FB2P_DBC.DC2

@@ -609,17 +609,17 @@
 			<FIELDS>
 				<FIELD>
 					<Name>dummy</Name>
-					<Caption></Caption>
-					<Comment></Comment>
+					<Caption>Dummy</Caption>
+					<Comment>Dummy_field_comment</Comment>
 					<DataType>C(1)</DataType>
-					<DefaultValue></DefaultValue>
-					<DisplayClass></DisplayClass>
-					<DisplayClassLibrary></DisplayClassLibrary>
-					<Format></Format>
-					<InputMask></InputMask>
+					<DefaultValue>Depto.</DefaultValue>
+					<DisplayClass>cl_optiongroup</DisplayClass>
+					<DisplayClassLibrary>fb2p_test.vcx</DisplayClassLibrary>
+					<Format>!</Format>
+					<InputMask>XXXXXXXXXX</InputMask>
 					<KeyField>.F.</KeyField>
-					<RuleExpression></RuleExpression>
-					<RuleText></RuleText>
+					<RuleExpression>dummy_field_validation_rule()</RuleExpression>
+					<RuleText>dummy_field_validation_message</RuleText>
 					<Updatable>.T.</Updatable>
 					<UpdateName>DUAL.DUMMY</UpdateName>
 				</FIELD>

TESTS/ft__foxbin2prg__c_conversor_prg_a_dbf.prg

@@ -113,7 +113,7 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_dbf AS FxuTestCase OF FxuTestCase
 
 			oFXU_LIB.copiarArchivosParaTest( lc_File )
 
-			loCnv.Ejecutar( lc_File, '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( lc_OutputFile, '', '', '', '1', '0', '1',.F.,.F.,.T. )
 
 			SELECT 0
 			USE (FORCEEXT(lc_InputFile,'DBF')) SHARED AGAIN NOUPDATE ALIAS ARCHIVOBIN_IN
@@ -185,7 +185,7 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_dbf AS FxuTestCase OF FxuTestCase
 
 			oFXU_LIB.copiarArchivosParaTest( lc_File )
 
-			loCnv.Ejecutar( lc_File, '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( lc_OutputFile, '', '', '', '1', '0', '1',.F.,.F.,.T. )
 
 			SELECT 0
 			USE (FORCEEXT(lc_InputFile,'DBF')) SHARED AGAIN NOUPDATE ALIAS ARCHIVOBIN_IN
@@ -258,8 +258,8 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_dbf AS FxuTestCase OF FxuTestCase
 
 			oFXU_LIB.copiarArchivosParaTest( FORCEEXT(lc_File,'*') )
 
-			loCnv.Ejecutar( FORCEEXT(lc_File,'DBF'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
-			loCnv.Ejecutar( FORCEEXT(lc_File,'DB2'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'DBF'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'DB2'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
 
 			SELECT 0
 			USE (FORCEEXT(lc_InputFile,'DBF')) SHARED AGAIN NOUPDATE ALIAS ARCHIVOBIN_IN
@@ -331,8 +331,8 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_dbf AS FxuTestCase OF FxuTestCase
 
 			oFXU_LIB.copiarArchivosParaTest( FORCEEXT(lc_File,'*') )
 
-			loCnv.Ejecutar( FORCEEXT(lc_File,'DBF'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
-			loCnv.Ejecutar( FORCEEXT(lc_File,'DB2'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'DBF'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'DB2'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
 
 			SELECT 0
 			USE (FORCEEXT(lc_InputFile,'DBF')) SHARED AGAIN NOUPDATE ALIAS ARCHIVOBIN_IN

TESTS/ft__foxbin2prg__c_conversor_prg_a_mnx.prg

@@ -111,17 +111,17 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_mnx AS FxuTestCase OF FxuTestCase
 			oFXU_LIB.copiarArchivosParaTest( FORCEEXT(lc_File,'*') )
 
 			*-- Genero el DC2
-			loCnv.Ejecutar( FORCEEXT(lc_File,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
 			*-- Regenero el DBC
-			loCnv.Ejecutar( FORCEEXT(lc_File,'MN2'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'MN2'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
 			*-- Renombro el DC2 a DC3 (ORIGINAL)
 			RENAME (FORCEEXT(lc_OutputFile,'MN2')) TO (FORCEEXT(lc_OutputFile,'MN3'))
 			*-- Genero el DC2 desde el DBC regenerado
-			loCnv.Ejecutar( FORCEEXT(lc_File,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
 			*-- Comparo los MN2 y MN3
 			lnLenHeader	= LEN( loCnv.get_PROGRAM_HEADER() )
-			lcMN2	= SUBSTR( FILETOSTR( FORCEEXT(lc_File,'MN2') ), lnLenHeader )
-			lcMN3	= SUBSTR( FILETOSTR( FORCEEXT(lc_File,'MN3') ), lnLenHeader )
+			lcMN2	= SUBSTR( FILETOSTR( FORCEEXT(lc_OutputFile,'MN2') ), lnLenHeader )
+			lcMN3	= SUBSTR( FILETOSTR( FORCEEXT(lc_OutputFile,'MN3') ), lnLenHeader )
 			
 			
 			*-- Visualizaci<63>n de valores
@@ -171,17 +171,17 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_mnx AS FxuTestCase OF FxuTestCase
 			oFXU_LIB.copiarArchivosParaTest( FORCEEXT(lc_File,'*') )
 
 			*-- Genero el DC2
-			loCnv.Ejecutar( FORCEEXT(lc_File,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
 			*-- Regenero el DBC
-			loCnv.Ejecutar( FORCEEXT(lc_File,'MN2'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'MN2'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
 			*-- Renombro el DC2 a DC3 (ORIGINAL)
 			RENAME (FORCEEXT(lc_OutputFile,'MN2')) TO (FORCEEXT(lc_OutputFile,'MN3'))
 			*-- Genero el DC2 desde el DBC regenerado
-			loCnv.Ejecutar( FORCEEXT(lc_File,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
 			*-- Comparo los MN2 y MN3
 			lnLenHeader	= LEN( loCnv.get_PROGRAM_HEADER() )
-			lcMN2	= SUBSTR( FILETOSTR( FORCEEXT(lc_File,'MN2') ), lnLenHeader )
-			lcMN3	= SUBSTR( FILETOSTR( FORCEEXT(lc_File,'MN3') ), lnLenHeader )
+			lcMN2	= SUBSTR( FILETOSTR( FORCEEXT(lc_OutputFile,'MN2') ), lnLenHeader )
+			lcMN3	= SUBSTR( FILETOSTR( FORCEEXT(lc_OutputFile,'MN3') ), lnLenHeader )
 			
 			
 			*-- Visualizaci<63>n de valores
@@ -231,17 +231,17 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_mnx AS FxuTestCase OF FxuTestCase
 			oFXU_LIB.copiarArchivosParaTest( FORCEEXT(lc_File,'*') )
 
 			*-- Genero el DC2
-			loCnv.Ejecutar( FORCEEXT(lc_File,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
 			*-- Regenero el DBC
-			loCnv.Ejecutar( FORCEEXT(lc_File,'MN2'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'MN2'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
 			*-- Renombro el DC2 a DC3 (ORIGINAL)
 			RENAME (FORCEEXT(lc_OutputFile,'MN2')) TO (FORCEEXT(lc_OutputFile,'MN3'))
 			*-- Genero el DC2 desde el DBC regenerado
-			loCnv.Ejecutar( FORCEEXT(lc_File,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
 			*-- Comparo los MN2 y MN3
 			lnLenHeader	= LEN( loCnv.get_PROGRAM_HEADER() )
-			lcMN2	= SUBSTR( FILETOSTR( FORCEEXT(lc_File,'MN2') ), lnLenHeader )
-			lcMN3	= SUBSTR( FILETOSTR( FORCEEXT(lc_File,'MN3') ), lnLenHeader )
+			lcMN2	= SUBSTR( FILETOSTR( FORCEEXT(lc_OutputFile,'MN2') ), lnLenHeader )
+			lcMN3	= SUBSTR( FILETOSTR( FORCEEXT(lc_OutputFile,'MN3') ), lnLenHeader )
 			
 			
 			*-- Visualizaci<63>n de valores
@@ -291,17 +291,17 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_mnx AS FxuTestCase OF FxuTestCase
 			oFXU_LIB.copiarArchivosParaTest( FORCEEXT(lc_File,'*') )
 
 			*-- Genero el DC2
-			loCnv.Ejecutar( FORCEEXT(lc_File,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
 			*-- Regenero el DBC
-			loCnv.Ejecutar( FORCEEXT(lc_File,'MN2'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'MN2'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
 			*-- Renombro el DC2 a DC3 (ORIGINAL)
 			RENAME (FORCEEXT(lc_OutputFile,'MN2')) TO (FORCEEXT(lc_OutputFile,'MN3'))
 			*-- Genero el DC2 desde el DBC regenerado
-			loCnv.Ejecutar( FORCEEXT(lc_File,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
 			*-- Comparo los MN2 y MN3
 			lnLenHeader	= LEN( loCnv.get_PROGRAM_HEADER() )
-			lcMN2	= SUBSTR( FILETOSTR( FORCEEXT(lc_File,'MN2') ), lnLenHeader )
-			lcMN3	= SUBSTR( FILETOSTR( FORCEEXT(lc_File,'MN3') ), lnLenHeader )
+			lcMN2	= SUBSTR( FILETOSTR( FORCEEXT(lc_OutputFile,'MN2') ), lnLenHeader )
+			lcMN3	= SUBSTR( FILETOSTR( FORCEEXT(lc_OutputFile,'MN3') ), lnLenHeader )
 			
 			
 			*-- Visualizaci<63>n de valores
@@ -351,17 +351,17 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_mnx AS FxuTestCase OF FxuTestCase
 			oFXU_LIB.copiarArchivosParaTest( FORCEEXT(lc_File,'*') )
 
 			*-- Genero el DC2
-			loCnv.Ejecutar( FORCEEXT(lc_File,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
 			*-- Regenero el DBC
-			loCnv.Ejecutar( FORCEEXT(lc_File,'MN2'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'MN2'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
 			*-- Renombro el DC2 a DC3 (ORIGINAL)
 			RENAME (FORCEEXT(lc_OutputFile,'MN2')) TO (FORCEEXT(lc_OutputFile,'MN3'))
 			*-- Genero el DC2 desde el DBC regenerado
-			loCnv.Ejecutar( FORCEEXT(lc_File,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
+			loCnv.Ejecutar( FORCEEXT(lc_OutputFile,'MNX'), '', '', '', '1', '0', '1',.F.,.F.,.T. )
 			*-- Comparo los MN2 y MN3
 			lnLenHeader	= LEN( loCnv.get_PROGRAM_HEADER() )
-			lcMN2	= SUBSTR( FILETOSTR( FORCEEXT(lc_File,'MN2') ), lnLenHeader )
-			lcMN3	= SUBSTR( FILETOSTR( FORCEEXT(lc_File,'MN3') ), lnLenHeader )
+			lcMN2	= SUBSTR( FILETOSTR( FORCEEXT(lc_OutputFile,'MN2') ), lnLenHeader )
+			lcMN3	= SUBSTR( FILETOSTR( FORCEEXT(lc_OutputFile,'MN3') ), lnLenHeader )
 			
 			
 			*-- Visualizaci<63>n de valores

VFP9_FoxBin2Prg.vbs

@@ -13,7 +13,7 @@
 '		en la carpeta "SendTo" del usuario
 '		- Ahora puede seleccionar archivos o directorios, pulsar click derecho y "Enviar a" FoxBin2prg para conversiones batch
 '---------------------------------------------------------------------------------------------------
-Dim WSHShell, FileSystemObject
+Dim WSHShell, FileSystemObject, cEndOfProcessMsg, cWithErrorsMsg, cConvCancelByUserMsg, nProcessedFilesCount
 Dim nExitCode, cEXETool, cEXETool2, nDebug
 Set wshShell = CreateObject( "WScript.Shell" )
 Set FileSystemObject = WScript.CreateObject("Scripting.FileSystemObject")
@@ -89,8 +89,8 @@ Else
 	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 & ",'0','','',.F.,''," _
+		cCMD	= "oFoxBin2prg.ejecutar(  '" & WScript.Arguments(0) & "','INTERACTIVE','0','0'," _
+			& cFlagDontShowErrMsg & "," & cFlagGenerateLog & ",'1','','',.F.,''," _
 			& cFlagRecompile & "," & cNoTimestamps & " )"
 	End If
 	If cFlagJustShowCall = "1" Then
@@ -101,20 +101,24 @@ Else
 	End If
 
 	If GetBit(nDebug, 4) 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
+		cEndOfProcessMsg		= oVFP9.Eval("_SCREEN.o_FoxBin2Prg_Lang.C_END_OF_PROCESS_LOC")
+		cWithErrorsMsg			= oVFP9.Eval("_SCREEN.o_FoxBin2Prg_Lang.C_WITH_ERRORS_LOC")
+		cConvCancelByUserMsg	= oVFP9.Eval("_SCREEN.o_FoxBin2Prg_Lang.C_CONVERSION_CANCELLED_BY_USER_LOC")
+		nProcessedFilesCount	= oVFP9.Eval("oFoxBin2prg.n_ProcessedFilesCount")
 
-		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 & "' )")
-			WSHShell.run cErrFile
+		If nExitCode = 1799 Then
+			MsgBox cConvCancelByUserMsg & "! [p:" & nProcessedFilesCount & "]", 48+4096, WScript.ScriptName & " (" & oVFP9.Eval("oFoxBin2prg.c_FB2PRG_EXE_Version") & ")"
+			oVFP9.DoCmd("oFoxBin2prg.writeErrorLog_Flush()")
+			cErrFile = oVFP9.Eval("oFoxBin2prg.c_ErrorLogFile")
+			WSHShell.run cErrFile,3
+
+		ElseIf oVFP9.Eval("oFoxBin2prg.l_Error") Then
+			MsgBox cEndOfProcessMsg & "! (" & cWithErrorsMsg & ") [p:" & nProcessedFilesCount & "]", 48+4096, WScript.ScriptName & " (" & oVFP9.Eval("oFoxBin2prg.c_FB2PRG_EXE_Version") & ")"
+			oVFP9.DoCmd("oFoxBin2prg.writeErrorLog_Flush()")
+			cErrFile = oVFP9.Eval("oFoxBin2prg.c_ErrorLogFile")
+			WSHShell.run cErrFile,3
 		Else
-			MsgBox "End of Process!", 64, WScript.ScriptName
+			MsgBox cEndOfProcessMsg & "! [p:" & nProcessedFilesCount & "]", 64+4096, WScript.ScriptName & " (" & oVFP9.Eval("oFoxBin2prg.c_FB2PRG_EXE_Version") & ")"
 		End If
 	End If
 

foxbin2prg.cfg

@@ -63,5 +63,3 @@
 *extension: mn2=mna
 *extension: db2=dba
 *extension: dc2=dca
-
-

foxbin2prg.pj2

@@ -26,7 +26,7 @@ _LegalTrademark = "Creative Commons 4:	Reconocimiento - CompartirIgual (by-sa):
 _ProductName = "FOXBIN2PRG"
 _MajorVer = "1"
 _MinorVer = "19"
-_Revision = "38"
+_Revision = "39"
 _LanguageID = "1034"
 _AutoIncrement = "0"
 *</DevInfo>