Changeset: 547 fdbozzo - 06/12/2014 01:09:10:

- Mejora en selección automática de lenguaje, selección manual y selección mediante lectura de foxbin2prg.h

foxbin2prg.prg

@@ -704,6 +704,16 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 	ENDPROC
 
 
+	PROCEDURE ChangeLanguage
+		LPARAMETERS tcLanguageId
+		_SCREEN.AddProperty( "o_FoxBin2Prg_Lang", CREATEOBJECT("CL_LANG", tcLanguageId) )
+		*-- Localized properties
+		THIS.c_Language					= _SCREEN.o_FoxBin2Prg_Lang.C_LANGUAGE_LOC
+		THIS.c_loc_processing_file		= _SCREEN.o_FoxBin2Prg_Lang.C_PROCESSING_LOC
+		THIS.c_loc_process_progress		= _SCREEN.o_FoxBin2Prg_Lang.C_PROCESS_PROGRESS_LOC
+	ENDPROC
+
+
 	FUNCTION get_l_ConfigEvaluated
 		RETURN THIS.l_ConfigEvaluated
 	ENDFUNC
@@ -1664,16 +1674,6 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 	ENDFUNC
 
 
-	PROCEDURE ChangeLanguage
-		LPARAMETERS tcLanguageId
-		_SCREEN.AddProperty( "o_FoxBin2Prg_Lang", CREATEOBJECT("CL_LANG", tcLanguageId) )
-		*-- Localized properties
-		THIS.c_Language					= _SCREEN.o_FoxBin2Prg_Lang.C_LANGUAGE_LOC
-		THIS.c_loc_processing_file		= _SCREEN.o_FoxBin2Prg_Lang.C_PROCESSING_LOC
-		THIS.c_loc_process_progress		= _SCREEN.o_FoxBin2Prg_Lang.C_PROCESS_PROGRESS_LOC
-	ENDPROC
-
-
 	PROCEDURE Get_Ext2FromExt
 		LPARAMETERS tcExt
 		LOCAL lcExt2
@@ -2147,12 +2147,12 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 
 				DO CASE
 				CASE lnCodError = 1799	&& Conversion Cancelled
-					MESSAGEBOX( loLang.C_CONVERSION_CANCELLED_BY_USER + '!', 0+48+4096, 'FoxBin2Prg', 60000 )
+					MESSAGEBOX( loLang.C_CONVERSION_CANCELLED_BY_USER_LOC + '!', 0+48+4096, 'FoxBin2Prg', 60000 )
 					STRTOFILE( THIS.c_ErrorLog, lcErrorFile )
 					loWSH.Run( lcErrorFile, 1, .F. )
 
 				CASE THIS.l_Error
-					MESSAGEBOX( loLang.C_END_OF_PROCESS_LOC + '! (' + loLang.C_WITH_ERRORS + ')', 0+48+4096, 'FoxBin2Prg', 60000 )
+					MESSAGEBOX( loLang.C_END_OF_PROCESS_LOC + '! (' + loLang.C_WITH_ERRORS_LOC + ')', 0+48+4096, 'FoxBin2Prg', 60000 )
 					STRTOFILE( THIS.c_ErrorLog, lcErrorFile )
 					loWSH.Run( lcErrorFile, 1, .F. )
 
@@ -2702,7 +2702,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 
 		IF DIRECTORY(tcDir)
 			loLang			= _SCREEN.o_FoxBin2Prg_Lang
-			THIS.AvanceDelProceso( loLang.C_SCANNING_FILE_AND_DIR_INFO + ' ' + tcDir + '...', 0, 0, 0 )
+			THIS.AvanceDelProceso( loLang.C_SCANNING_FILE_AND_DIR_INFO_LOC + ' ' + tcDir + '...', 0, 0, 0 )
 			lnFiles = ADIR( laFiles, tcDir + '*.*', 'D', 1)
 
 			*-- Busco los archivos
@@ -6697,11 +6697,11 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 			DO CASE
 			CASE toModulo._ExternalClasses_Count = 0 AND toModulo._ExternalClasses_Count <> toModulo._Clases_Count
 				*ERROR 'El conteo de clases externas (' + TRANSFORM(toModulo._ExternalClasses_Count) + ') no coincide con la cantidad encontrada (' + TRANSFORM(toModulo._Clases_Count) + ') en el archivo [' + toFoxBin2Prg.c_InputFile + ']'
-				ERROR (TEXTMERGE(loLang.C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES))
+				ERROR (TEXTMERGE(loLang.C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES_LOC))
 
 			CASE toModulo._Clases_Count =0 AND toModulo._ExternalClasses_Count <> toModulo._Clases_Count
 				*ERROR 'El conteo de clases externas (' + TRANSFORM(toModulo._ExternalClasses_Count) + ') no coincide con la cantidad encontrada (' + TRANSFORM(toModulo._Clases_Count) + ') en el archivo [' + toFoxBin2Prg.c_InputFile + ']'
-				ERROR (TEXTMERGE(loLang.C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES))
+				ERROR (TEXTMERGE(loLang.C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES_LOC))
 
 				*CASE toModulo._ExternalClasses_Count <> toModulo._Clases_Count THEN
 			ENDCASE
@@ -6718,7 +6718,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 
 				IF lnItem = 0 THEN
 					*ERROR 'No se ha encontrado la clase externa [' + toModulo._ExternalClasses(I) + '] en el archivo [' + toFoxBin2Prg.c_InputFile + ']'
-					ERROR (TEXTMERGE(loLang.C_EXTERNAL_CLASS_NAME_DOES_NOT_FOUND))
+					ERROR (TEXTMERGE(loLang.C_EXTERNAL_CLASS_NAME_DOES_NOT_FOUND_LOC))
 				ENDIF
 
 				toModulo._Clases(lnItem)._Checked = .T.
@@ -21429,6 +21429,16 @@ ENDDEFINE
 
 
 DEFINE CLASS CL_LANG AS Custom
+	_MEMBERDATA	= [<VFPData>] ;
+		+ [<memberdata name="n_languageselectedmethod" display="n_LanguageSelectedMethod"/>] ;
+		+ [</VFPData>]
+
+	#IF .F.
+		LOCAL THIS AS CL_LANG OF 'FOXBIN2PRG.PRG'
+	#ENDIF
+
+	n_LanguageSelectedMethod	= 0	&& 0=Automatic by version(3)
+
 	*-- Spanish (Espa<70>ol)
 	*-------------------------------------------------------------------------------------------------------------------------------------------
 	*-- NOTA: SE DEBEN USAR COMILLAS DOBLES, O ERRORES DE SINTAXIS OCURREN AL COMPILAR. EXTRA<52>O :(
@@ -21441,15 +21451,15 @@ DEFINE CLASS CL_LANG AS Custom
 	C_CONFIGFILE_LOC											= "Usando archivo de configuraci<63>n:"
 	C_CONVERTER_UNLOAD_LOC										= "Descarga del conversor"
 	C_CONVERTING_FILE_LOC										= "Convirtiendo archivo"
-	C_CONVERSION_CANCELLED_BY_USER						= "Conversi<73>n Cancelada por el usuario"
+	C_CONVERSION_CANCELLED_BY_USER_LOC							= "Conversi<73>n Cancelada por el usuario"
 	C_DATA_ERROR_CANT_PARSE_UNPAIRING_DOUBLE_QUOTES_LOC			= "Error de datos: No se puede parsear porque las comillas no son pares en la l<>nea <<lcMetadatos>>"
 	C_DUPLICATED_FILE_LOC										= "Archivo duplicado"
 	C_ENDDEFINE_MARKER_NOT_FOUND_LOC							= "No se ha encontrado el marcador de fin [ENDDEFINE] de la l<>nea <<TRANSFORM( toClase._Inicio )>> para el identificador [<<toClase._Nombre>>]"
 	C_END_MARKER_NOT_FOUND_LOC									= "No se ha encontrado el marcador de fin [<<ta_ID_Bloques(lnPrimerID,2)>>] que cierra al marcador de inicio [<<ta_ID_Bloques(lnPrimerID,1)>>] de la l<>nea <<TRANSFORM(taBloquesExclusion(tnBloquesExclusion,1))>>"
 	C_END_OF_PROCESS_LOC										= "Fin del Proceso"
 	C_EXTENSION_RECONFIGURATION_LOC								= "Reconfiguraci<63>n de extensi<73>n:"
-	C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES	= "El conteo de clases externas (<<toModulo._ExternalClasses_Count>>) no coincide con la cantidad encontrada (<<toModulo._Clases_Count>>) para el archivo [<<toFoxBin2Prg.c_InputFile>>]"
+	C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES_LOC		= "El conteo de clases externas (<<toModulo._ExternalClasses_Count>>) no coincide con la cantidad encontrada (<<toModulo._Clases_Count>>) para el archivo [<<toFoxBin2Prg.c_InputFile>>]"
-	C_EXTERNAL_CLASS_NAME_DOES_NOT_FOUND				= "No se ha encontrado la clase externa [<<toModulo._ExternalClasses(I)>>] del archivo [<<toFoxBin2Prg.c_InputFile>>]"
+	C_EXTERNAL_CLASS_NAME_DOES_NOT_FOUND_LOC					= "No se ha encontrado la clase externa [<<toModulo._ExternalClasses(I)>>] del archivo [<<toFoxBin2Prg.c_InputFile>>]"
 	C_FIELD_NOT_FOUND_ON_FILE_STRUCTURE_LOC						= "No se encontr<74> el campo [<<laProps(I)>>] en la estructura del archivo <<DBF('TABLABIN')>>"
 	C_FILE_DOESNT_EXIST_LOC										= "El archivo no existe:"
 	C_FILE_NAME_IS_NOT_SUPPORTED_LOC							= "El archivo [<<.c_InputFile>>] no est<73> soportado"
@@ -21478,22 +21488,76 @@ DEFINE CLASS CL_LANG AS Custom
 	C_PROPERTY_NAME_NOT_RECOGNIZED_LOC							= "Propiedad [<<TRANSFORM(tnPropertyID)>>] no reconocida."
 	C_REPORT_NOT_IN_VFP9_FORMAT_LOC								= "El Reporte [<<THIS.c_InputFile>>] NO est<73> en formato VFP 9! - Por favor convertirlo a VFP 9 con MODIFY REPORT '<<THIS.c_InputFile>>'"
 	C_REQUESTING_CAPITALIZATION_OF_FILE_LOC						= "- Solicitado capitalizar el archivo [<<tcFileName>>]"
-	C_SCANNING_FILE_AND_DIR_INFO						= "Escaneando archivos e informaci<63>n de directorio para"
+	C_SCANNING_FILE_AND_DIR_INFO_LOC							= "Escaneando archivos e informaci<63>n de directorio para"
 	C_SOURCEFILE_LOC											= "Archivo origen: "
 	C_STRUCTURE_NESTING_ERROR_ENDPROC_EXPECTED_LOC				= "Error de anidamiento de estructuras. Se esperaba ENDPROC pero se encontr<74> ENDDEFINE en la clase <<toClase._Nombre>> (<<loProcedure._Nombre>>), l<>nea <<TRANSFORM(I)>> del archivo <<THIS.c_InputFile>>"
 	C_STRUCTURE_NESTING_ERROR_ENDPROC_EXPECTED_2_LOC			= "Error de anidamiento de estructuras. Se esperaba ENDPROC pero se encontr<74> ENDDEFINE en la clase <<toClase._Nombre>> (<<toObjeto._Nombre>>.<<loProcedure._Nombre>>), l<>nea <<TRANSFORM(I)>> del archivo <<THIS.c_InputFile>>"
 	C_UNKNOWN_CLASS_NAME_LOC									= "Clase [<<THIS.CLASS>>] desconocida"
 	C_WARN_TABLE_ALIAS_ON_INDEX_EXPRESSION_LOC					= "<22><>ATENCI<43>N!!" + CR_LF+ "ASEG<45>RESE DE QUE NO EST<53> USANDO UN ALIAS DE TABLA EN LAS EXPRESIONES DE LOS <20>NDICES!! (ej: index on <<UPPER(JUSTSTEM(THIS.c_InputFile))>>.campo tag nombreclave)"
-	C_WITH_ERRORS										= "con errores"
+	C_WITH_ERRORS_LOC											= "con errores"
 
 
 	PROCEDURE INIT
 		LPARAMETERS tcLanguage
 
-		tcLanguage	= EVL(tcLanguage, VERSION(3))
+		TRY
+			LOCAL lcSys16, lnPosProg, lc_Foxbin2prg_FullPath, lc_Foxbin2prg_LangFile, laDir(1,5) ;
+				, llLangFileExists, lcLangStr ;
+				, loEx as Exception
 
 			WITH THIS AS CL_LANG OF 'FOXBIN2PRG.PRG'
+				*-- El lenguaje pasado por par<61>metro prevalece sobre el existente.
+				tcLanguage	= EVL(tcLanguage,'')
+
+				IF EMPTY(tcLanguage)
+					*-- Reconocer archivo de idioma foxbin2prg.h
+					lcSys16 = SYS(16)
+					IF LEFT(lcSys16,10) == 'PROCEDURE '
+						lnPosProg	= AT(" ", lcSys16, 2) + 1
+					ELSE
+						lnPosProg	= 1
+					ENDIF
+
+					lc_Foxbin2prg_FullPath		= SUBSTR( lcSys16, lnPosProg )
+					lc_Foxbin2prg_LangFile		= FORCEEXT( lc_Foxbin2prg_FullPath, 'H' )
+					llLangFileExists			= ( ADIR( laDir, lc_Foxbin2prg_LangFile ) = 1 )
+				ELSE
+					.n_LanguageSelectedMethod	= 1	&& 1=Assigned by Parameter
+				ENDIF
+
+				IF llLangFileExists
+					TRY
+						*-- Language file "foxbin2prg.h" will be loaded (slowest option)
+						lcLangStr	= 'LPARAMETERS toLangObj' + CR_LF + FILETOSTR( lc_Foxbin2prg_LangFile )
+
+						IF ATC( '<FoxBin2Prg v1.19.38>', lcLangStr ) = 0 THEN
+							*-- El archivo es antiguo
+							ERROR "Archivo FoxBin2Prg.h antiguo"	&& Da igual el error
+						ENDIF
+
+						lcLangStr	= STRTRAN( lcLangStr, '#DEFINE ', 'toLangObj.' )
+						lcLangStr	= STRTRAN( lcLangStr, '_LOC', '_LOC =', -1, -1, 2 )
+						lcLangStr	= STRTRAN( lcLangStr, 'CR_LF', 'CHR(13)+CHR(10)' )
+						EXECSCRIPT( lcLangStr, THIS )
+
+					CATCH TO loEx
+						*-- El archivo es antiguo o tiene errores
+						TRY
+							llLangFileExists	= .F.
+							tcLanguage			= VERSION(3)
+							.n_LanguageSelectedMethod	= 0	&& 0=Automatic with VERSION(3)
+							RENAME (lc_Foxbin2prg_LangFile) TO (FORCEEXT(lc_Foxbin2prg_LangFile, 'invalid'))
+						CATCH	&& No quiero errores por RENAME
+						ENDTRY
+					
+					ENDTRY
+				ENDIF
+
 				DO CASE
+				CASE llLangFileExists
+					*-- Ya se carg<72>
+					.n_LanguageSelectedMethod	= 2	&& 2=Loaded from foxbin2prg.h
+
 				CASE tcLanguage == '00' && English (Ingl<67>s)
 					*-------------------------------------------------------------------------------------------------------------------------------------------
 					*-- NOTE: MUST USE DOUBLE QUOTES, OR SYNTAX ERRORS HAPPEN WHEN COMPILING. STRANGE :(
@@ -21504,7 +21568,7 @@ DEFINE CLASS CL_LANG AS Custom
 					.C_BACKUP_OF_LOC												= "Doing Backup of: "
 					.C_CANT_GENERATE_FILE_BECAUSE_IT_IS_READONLY_LOC				= "Cannot generate file [<<THIS.c_OutputFile>>] because it is ReadOnly"
 					.C_CONFIGFILE_LOC												= "Using configuration file:"
-				.C_CONVERSION_CANCELLED_BY_USER							= "Conversion Cancelled by the user"
+					.C_CONVERSION_CANCELLED_BY_USER_LOC								= "Conversion Cancelled by the user"
 					.C_CONVERTER_UNLOAD_LOC											= "Converter unload"
 					.C_CONVERTING_FILE_LOC											= "Converting file"
 					.C_DATA_ERROR_CANT_PARSE_UNPAIRING_DOUBLE_QUOTES_LOC			= "Data Error: Can't parse because of unpaired double-quotes on line <<lcMetadatos>>"
@@ -21513,8 +21577,8 @@ DEFINE CLASS CL_LANG AS Custom
 					.C_END_MARKER_NOT_FOUND_LOC										= "Cannot find end marker [<<ta_ID_Bloques(lnPrimerID,2)>>] that closes start marker [<<ta_ID_Bloques(lnPrimerID,1)>>] on line <<TRANSFORM(taBloquesExclusion(tnBloquesExclusion,1))>>"
 					.C_END_OF_PROCESS_LOC											= "End of Process"
 					.C_EXTENSION_RECONFIGURATION_LOC								= "Extension Reconfiguration:"
-				.C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES	= "External class count (<<toModulo._ExternalClasses_Count>>) does not match found classes (<<toModulo._Clases_Count>>) for file [<<toFoxBin2Prg.c_InputFile>>]"
+					.C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES_LOC		= "External class count (<<toModulo._ExternalClasses_Count>>) does not match found classes (<<toModulo._Clases_Count>>) for file [<<toFoxBin2Prg.c_InputFile>>]"
-				.C_EXTERNAL_CLASS_NAME_DOES_NOT_FOUND					= "External class [<<toModulo._ExternalClasses(I)>>] is not found in file [<<toFoxBin2Prg.c_InputFile>>]"
+					.C_EXTERNAL_CLASS_NAME_DOES_NOT_FOUND_LOC						= "External class [<<toModulo._ExternalClasses(I)>>] is not found in file [<<toFoxBin2Prg.c_InputFile>>]"
 					.C_FIELD_NOT_FOUND_ON_FILE_STRUCTURE_LOC						= "Field [<<laProps(I)>>] not found in structure of file <<DBF('TABLABIN')>>"
 					.C_FILE_DOESNT_EXIST_LOC										= "File does not exist:"
 					.C_FILE_NAME_IS_NOT_SUPPORTED_LOC								= "File [<<.c_InputFile>>] is not supported"
@@ -21543,13 +21607,13 @@ DEFINE CLASS CL_LANG AS Custom
 					.C_PROPERTY_NAME_NOT_RECOGNIZED_LOC								= "Property [<<TRANSFORM(tnPropertyID)>>] is not recognized."
 					.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>>'"
 					.C_REQUESTING_CAPITALIZATION_OF_FILE_LOC						= "- Requesting capitalization of file [<<tcFileName>>]"
-				.C_SCANNING_FILE_AND_DIR_INFO							= "Scanning file and directory information for"
+					.C_SCANNING_FILE_AND_DIR_INFO_LOC								= "Scanning file and directory information for"
 					.C_SOURCEFILE_LOC												= "Source file: "
 					.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>>"
 					.C_STRUCTURE_NESTING_ERROR_ENDPROC_EXPECTED_2_LOC				= "Nesting structure error. ENDPROC expected but found ENDDEFINE on class <<toClase._Nombre>> (<<toObjeto._Nombre>>.<<loProcedure._Nombre>>), line <<TRANSFORM(I)>> of file <<THIS.c_InputFile>>"
 					.C_UNKNOWN_CLASS_NAME_LOC										= "Unknown class [<<THIS.CLASS>>]"
 					.C_WARN_TABLE_ALIAS_ON_INDEX_EXPRESSION_LOC						= "WARNING!!" + CR_LF+ "MAKE SURE YOU ARE NOT USING A TABLE ALIAS ON INDEX KEY EXPRESSIONS!! (ex: index on <<UPPER(JUSTSTEM(THIS.c_InputFile))>>.campo tag keyname)"
-				.C_WITH_ERRORS											= "with errors"
+					.C_WITH_ERRORS_LOC												= "with errors"
 
 				CASE tcLanguage == '49' && German (Alem<65>n)
 					*-------------------------------------------------------------------------------------------------------------------------------------------
@@ -21561,7 +21625,7 @@ DEFINE CLASS CL_LANG AS Custom
 					.C_BACKUP_OF_LOC												= "Mache Backup von: "
 					.C_CANT_GENERATE_FILE_BECAUSE_IT_IS_READONLY_LOC				= "Kann Datei [<<THIS.c_OutputFile>>] nicht generieren da sie Schreibgesch<63>tzt ist"
 					.C_CONFIGFILE_LOC												= "Benutze Konfigurationsdatei:"
-				.C_CONVERSION_CANCELLED_BY_USER							= "Konvertierung durch den Benutzer abgebrochen"
+					.C_CONVERSION_CANCELLED_BY_USER_LOC								= "Konvertierung durch den Benutzer abgebrochen"
 					.C_CONVERTER_UNLOAD_LOC											= "Konverter wird entladen"
 					.C_CONVERTING_FILE_LOC											= "Konvertiere Datei"
 					.C_DATA_ERROR_CANT_PARSE_UNPAIRING_DOUBLE_QUOTES_LOC			= "Datenfehler: Keine Analyse m<>glich da ungepaarte Anf<6E>hrungszeichen in Zeile <<lcMetadatos>>"
@@ -21574,8 +21638,8 @@ DEFINE CLASS CL_LANG AS Custom
 					.C_FILE_NAME_IS_NOT_SUPPORTED_LOC								= "Datei [<<.c_InputFile>>] wird nicht unterst<73>tzt"
 					.C_FILE_NOT_FOUND_LOC											= "Datei nicht gefunden"
 					.C_EXTENSION_RECONFIGURATION_LOC								= "Erweiterungsneukonfiguration:"
-				.C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES	= "Externe Klassenzahl (<< toModulo._ExternalClasses_Count >>) nicht gefunden Klassen entsprechen (<< toModulo._Clases_Count >>) f<>r Datei [<< toFoxBin2Prg.c_InputFile >>]"
+					.C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES_LOC		= "Externe Klassenzahl (<< toModulo._ExternalClasses_Count >>) nicht gefunden Klassen entsprechen (<< toModulo._Clases_Count >>) f<>r Datei [<< toFoxBin2Prg.c_InputFile >>]"
-				.C_EXTERNAL_CLASS_NAME_DOES_NOT_FOUND					= "Externe Klasse (<<toModulo._ExternalClasses(I)>>) nicht in der Datei [<<toFoxBin2Prg.c_InputFile>>] gefunden"
+					.C_EXTERNAL_CLASS_NAME_DOES_NOT_FOUND_LOC						= "Externe Klasse (<<toModulo._ExternalClasses(I)>>) nicht in der Datei [<<toFoxBin2Prg.c_InputFile>>] gefunden"
 					.C_FOXBIN2PRG_ERROR_CAPTION_LOC									= "FOXBIN2PRG: FEHLER!!"
 					.C_FOXBIN2PRG_INFO_SINTAX_LOC									= "FOXBIN2PRG: SYNTAX INFO"
 					.C_FOXBIN2PRG_INFO_SINTAX_EXAMPLE_LOC							= "FOXBIN2PRG <cFileSpec.Ext> [,cType ,cTextName ,cGenText ,cDontShowErrors ,cDebug, cDontShowProgress, cOriginalFileName, cRecompile, cNoTimestamps]" + CR_LF + CR_LF ;
@@ -21600,13 +21664,13 @@ DEFINE CLASS CL_LANG AS Custom
 					.C_PROPERTY_NAME_NOT_RECOGNIZED_LOC								= "Eigenschaft [<<TRANSFORM(tnPropertyID)>>] nicht erkannt."
 					.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>>'"
 					.C_REQUESTING_CAPITALIZATION_OF_FILE_LOC						= "- Forder Gro<72>schreibung f<>r Datei [<<tcFileName>>] an"
-				.C_SCANNING_FILE_AND_DIR_INFO							= "Scannen Datei- und Verzeichnisinformationen f<>r"
+					.C_SCANNING_FILE_AND_DIR_INFO_LOC								= "Scannen Datei- und Verzeichnisinformationen f<>r"
 					.C_SOURCEFILE_LOC												= "Source Datei: "
 					.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"
 					.C_STRUCTURE_NESTING_ERROR_ENDPROC_EXPECTED_2_LOC				= "Fehler in Verschachtelungsstruktur. ENDPROC wurde erwartet, aber es wurde ENDDEFINE in Klasse <<toClase._Nombre>> (<<toObjeto._Nombre>>.<<loProcedure._Nombre>>), Zeile <<TRANSFORM(I)>> der Datei <<THIS.c_InputFile>> gefunden"
 					.C_UNKNOWN_CLASS_NAME_LOC										= "Unbekannte Klasse [<<THIS.CLASS>>]"
 					.C_WARN_TABLE_ALIAS_ON_INDEX_EXPRESSION_LOC						= "WARNUNG!!" + CR_LF+ "SICHERSTELLEN DAS KEIN TABELLENALIAS IN DEM INDEXAUSDRUCK BENUTZT WIRD!! (z.B.: index on <<UPPER(JUSTSTEM(THIS.c_InputFile))>>.campo tag keyname)"
-				.C_WITH_ERRORS											= "mit Fehlern"
+					.C_WITH_ERRORS_LOC												= "mit Fehlern"
 
 				CASE tcLanguage == '33' && French (Franc<6E>s)
 					*-------------------------------------------------------------------------------------------------------------------------------------------
@@ -21618,7 +21682,7 @@ DEFINE CLASS CL_LANG AS Custom
 					.C_BACKUP_OF_LOC												= "Faire de sauvegarde des: "
 					.C_CANT_GENERATE_FILE_BECAUSE_IT_IS_READONLY_LOC				= "Vous ne pouvez pas g<>n<EFBFBD>rer un fichier [<<THIS.c_OutputFile>>] car il est en lecture seule"
 					.C_CONFIGFILE_LOC												= "Utilisation du fichier de configuration:"
-				.C_CONVERSION_CANCELLED_BY_USER							= "Conversion Annul<75> par l'utilisateur"
+					.C_CONVERSION_CANCELLED_BY_USER_LOC								= "Conversion Annul<75> par l'utilisateur"
 					.C_CONVERTER_UNLOAD_LOC											= "Convertisseur d<>chargement"
 					.C_CONVERTING_FILE_LOC											= "Conversion de fichiers"
 					.C_DATA_ERROR_CANT_PARSE_UNPAIRING_DOUBLE_QUOTES_LOC			= "Erreur de donn<6E>es: ne peut pas analyser en raison de guillemets non appari<72>s en ligne <<lcMetadatos>>"
@@ -21627,8 +21691,8 @@ DEFINE CLASS CL_LANG AS Custom
 					.C_END_MARKER_NOT_FOUND_LOC										= "Vous ne trouvez pas fin marqueur [<<ta_ID_Bloques(lnPrimerID, 2)>>] qui ferme marqueur de d<>but [<<ta_ID_Bloques(lnPrimerID, 1) >>] en ligne <<TRANSFORM(taBloquesExclusion (tnBloquesExclusion, 1))>>"
 					.C_END_OF_PROCESS_LOC											= "Fin du processus"
 					.C_EXTENSION_RECONFIGURATION_LOC								= "Extension Reconfiguration:"
-				.C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES	= "Nombre de classe externe (<<toModulo._ExternalClasses_Count>>) ne correspond pas classes trouv<75>es (<<toModulo._Clases_Count>>) pour le fichier [<<toFoxBin2Prg.c_InputFile>>]"
+					.C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES_LOC		= "Nombre de classe externe (<<toModulo._ExternalClasses_Count>>) ne correspond pas classes trouv<75>es (<<toModulo._Clases_Count>>) pour le fichier [<<toFoxBin2Prg.c_InputFile>>]"
-				.C_EXTERNAL_CLASS_NAME_DOES_NOT_FOUND					= "Classe externe [<<toModulo._ExternalClasses (I)>>] est introuvable dans le fichier [<<toFoxBin2Prg.c_InputFile>>]"
+					.C_EXTERNAL_CLASS_NAME_DOES_NOT_FOUND_LOC						= "Classe externe [<<toModulo._ExternalClasses (I)>>] est introuvable dans le fichier [<<toFoxBin2Prg.c_InputFile>>]"
 					.C_FIELD_NOT_FOUND_ON_FILE_STRUCTURE_LOC						= "Champ [<< laProps (I) >>] ne trouve pas dans la structure du fichier DBF <<('TABLABIN')>>"
 					.C_FILE_DOESNT_EXIST_LOC										= "Fichier ne existe pas:"
 					.C_FILE_NAME_IS_NOT_SUPPORTED_LOC								= "File [<<.c_InputFile>>] ne est pas support<72>"
@@ -21657,16 +21721,20 @@ DEFINE CLASS CL_LANG AS Custom
 					.C_PROPERTY_NAME_NOT_RECOGNIZED_LOC								= "Propri<72>t<EFBFBD> [<<TRANSFORM(tnPropertyID)>>] ne est pas reconnu."
 					.C_REPORT_NOT_IN_VFP9_FORMAT_LOC								= "Rapport [<<THIS.c_InputFile>>] ne est pas dans VFP 9 Format! - Se il vous pla<6C>t se convertir <20> VFP 9 avec MODIFY REPORT '<<THIS.c_InputFile>>'"
 					.C_REQUESTING_CAPITALIZATION_OF_FILE_LOC						= "- Demande de capitalisation de fichier [<<tcFileName>>]"
-				.C_SCANNING_FILE_AND_DIR_INFO							= "Fichier de num<75>risation et de l'information de r<>pertoire pour"
+					.C_SCANNING_FILE_AND_DIR_INFO_LOC								= "Fichier de num<75>risation et de l'information de r<>pertoire pour"
 					.C_SOURCEFILE_LOC												= "Fichier source: "
 					.C_STRUCTURE_NESTING_ERROR_ENDPROC_EXPECTED_LOC					= "Nesting erreur de structure. ENDPROC pr<70>vu, mais a trouv<75> ENDDEFINE sur la classe <<toClase._Nombre>> (<<loProcedure._Nombre>>), ligne <<TRANSFORM(I)>> du fichier <<THIS.c_InputFile>>"
 					.C_STRUCTURE_NESTING_ERROR_ENDPROC_EXPECTED_2_LOC				= "Nesting erreur de structure. ENDPROC attendue, mais ENDDEFINE sur la classe <<toClase._Nombre>> (<<toObjeto._Nombre>>.<<loProcedure._Nombre>>), ligne <<TRANSFORM(I)>> du fichier <<THIS.c_InputFile>>"
 					.C_UNKNOWN_CLASS_NAME_LOC										= "Classe inconnue[<<THIS.CLASS>>]"
 					.C_WARN_TABLE_ALIAS_ON_INDEX_EXPRESSION_LOC						= "AVERTISSEMENT!!" + CR_LF+ "ASSUREZ VOUS NE UTILISEZ PAS UN ALIAS DE TABLE SUR LES EXPRESSIONS INDEX CL<43>S!! (exemple: index on <<UPPER(JUSTSTEM(THIS.c_InputFile))>>.campo tag keyname)"
-				.C_WITH_ERRORS											= "avec des erreurs"
+					.C_WITH_ERRORS_LOC												= "avec des erreurs"
+
+				OTHERWISE	&& Si no existe, se queda el por defecto
+					.n_LanguageSelectedMethod	= 0	&& 0=Automatic with VERSION(3)
 
 				ENDCASE
 			ENDWITH && THIS AS CL_LANG OF 'FOXBIN2PRG.PRG'
+		ENDTRY
 	ENDPROC
 
 ENDDEFINE

foxbin2prg_de.h

@@ -1,6 +1,7 @@
 *-------------------------------------------------------------------------------------------------------------------------------------------
 *-- DEUTSCHE <EFBFBD>BERSETZUNG => UMBENENNEN DIESER DATEI IN [foxbin2prg.h] UND NEUKOMPILIEREN DER FOXBIN2PRG.PRG - Jeder ist frei die Strings anzupassen und zu <EFBFBD>bersetzen.
 *-- NOTE: ES M<EFBFBD>SSEN ANF<EFBFBD>HRUNGSZEICHEN BENUTZT WERDEN, ODER SYNTAX ERRORS PASSIEREN BEIM COMPILE. SELTSAM :(
+*-- FoxBin2Prg v1.19.38
 *-------------------------------------------------------------------------------------------------------------------------------------------
 #DEFINE C_ASTERISK_EXT_NOT_ALLOWED_LOC						"* und ? Erweiterungen sind nicht erlaubt, da es gef<65>hrlich ist (binaries k<>nnten <20>berschrieben werden mit xx2 leeren Dateien)"
 #DEFINE C_BACKLINK_CANT_UPDATE_BL_LOC						"Backlink kann nicht geupdated werden"
@@ -8,7 +9,7 @@
 #DEFINE C_BACKUP_OF_LOC										"Mache Backup von: "
 #DEFINE C_CANT_GENERATE_FILE_BECAUSE_IT_IS_READONLY_LOC		"Kann Datei [<<THIS.c_OutputFile>>] nicht generieren da sie Schreibgesch<63>tzt ist"
 #DEFINE C_CONFIGFILE_LOC									"Benutze Konfigurationsdatei:"
-#DEFINE C_CONVERSION_CANCELLED_BY_USER						"Konvertierung durch den Benutzer abgebrochen"
+#DEFINE C_CONVERSION_CANCELLED_BY_USER_LOC						"Konvertierung durch den Benutzer abgebrochen"
 #DEFINE C_CONVERTER_UNLOAD_LOC								"Konverter wird entladen"
 #DEFINE C_CONVERTING_FILE_LOC								"Konvertiere Datei"
 #DEFINE C_DATA_ERROR_CANT_PARSE_UNPAIRING_DOUBLE_QUOTES_LOC	"Datenfehler: Keine Analyse m<>glich da ungepaarte Anf<6E>hrungszeichen in Zeile <<lcMetadatos>>"
@@ -21,8 +22,8 @@
 #DEFINE C_FILE_NAME_IS_NOT_SUPPORTED_LOC					"Datei [<<.c_InputFile>>] wird nicht unterst<73>tzt"
 #DEFINE C_FILE_NOT_FOUND_LOC								"Datei nicht gefunden"
 #DEFINE C_EXTENSION_RECONFIGURATION_LOC						"Erweiterungsneukonfiguration:"
-#DEFINE C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES	"Externe Klassenzahl (<< toModulo._ExternalClasses_Count >>) nicht gefunden Klassen entsprechen (<< toModulo._Clases_Count >>) f<>r Datei [<< toFoxBin2Prg.c_InputFile >>]"
+#DEFINE C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES_LOC	"Externe Klassenzahl (<< toModulo._ExternalClasses_Count >>) nicht gefunden Klassen entsprechen (<< toModulo._Clases_Count >>) f<>r Datei [<< toFoxBin2Prg.c_InputFile >>]"
-#DEFINE C_EXTERNAL_CLASS_NAME_DOES_NOT_FOUND				"Externe Klasse (<<toModulo._ExternalClasses(I)>>) nicht in der Datei [<<toFoxBin2Prg.c_InputFile>>] gefunden"
+#DEFINE C_EXTERNAL_CLASS_NAME_DOES_NOT_FOUND_LOC				"Externe Klasse (<<toModulo._ExternalClasses(I)>>) nicht in der Datei [<<toFoxBin2Prg.c_InputFile>>] gefunden"
 #DEFINE C_FOXBIN2PRG_ERROR_CAPTION_LOC						"FOXBIN2PRG: FEHLER!!"
 #DEFINE C_FOXBIN2PRG_INFO_SINTAX_LOC						"FOXBIN2PRG: SYNTAX INFO"
 #DEFINE C_FOXBIN2PRG_INFO_SINTAX_EXAMPLE_LOC				"FOXBIN2PRG <cFileSpec.Ext> [,cType ,cTextName ,cGenText ,cDontShowErrors ,cDebug, cDontShowProgress, cOriginalFileName, cRecompile, cNoTimestamps]" + CR_LF + CR_LF ;
@@ -46,10 +47,10 @@
 #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_SCANNING_FILE_AND_DIR_INFO						"Scannen Datei- und Verzeichnisinformationen f<>r"
+#DEFINE C_SCANNING_FILE_AND_DIR_INFO_LOC					"Scannen Datei- und Verzeichnisinformationen f<>r"
 #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"
 #DEFINE C_STRUCTURE_NESTING_ERROR_ENDPROC_EXPECTED_2_LOC	"Fehler in Verschachtelungsstruktur. ENDPROC wurde erwartet, aber es wurde ENDDEFINE in Klasse <<toClase._Nombre>> (<<toObjeto._Nombre>>.<<loProcedure._Nombre>>), Zeile <<TRANSFORM(I)>> der Datei <<THIS.c_InputFile>> gefunden"
 #DEFINE C_UNKNOWN_CLASS_NAME_LOC							"Unbekannte Klasse [<<THIS.CLASS>>]"
 #DEFINE C_WARN_TABLE_ALIAS_ON_INDEX_EXPRESSION_LOC			"WARNUNG!!" + CR_LF+ "SICHERSTELLEN DAS KEIN TABELLENALIAS IN DEM INDEXAUSDRUCK BENUTZT WIRD!! (z.B.: index on <<UPPER(JUSTSTEM(THIS.c_InputFile))>>.campo tag keyname)"
-#DEFINE C_WITH_ERRORS										"mit Fehlern"
+#DEFINE C_WITH_ERRORS_LOC									"mit Fehlern"

foxbin2prg_en.h

@@ -1,6 +1,7 @@
 *-------------------------------------------------------------------------------------------------------------------------------------------
 *-- ENGLISH TRANSLATION => RENAME OR COPY TO [foxbin2prg.h] TO USE, AND RECOMPILE FOXBIN2PRG.PRG - Feel free to change or adapt the strings.
 *-- NOTE: MUST USE DOUBLE QUOTES, OR SYNTAX ERRORS HAPPEN WHEN COMPILING. STRANGE :(
+*-- FoxBin2Prg v1.19.38
 *-------------------------------------------------------------------------------------------------------------------------------------------
 #DEFINE C_ASTERISK_EXT_NOT_ALLOWED_LOC						"* and ? extensions are not allowed because it's dangerous (binaries can be overwritten with xx2 empty files)"
 #DEFINE C_BACKLINK_CANT_UPDATE_BL_LOC						"Could not update backlink"
@@ -8,7 +9,7 @@
 #DEFINE C_BACKUP_OF_LOC										"Doing Backup of: "
 #DEFINE C_CANT_GENERATE_FILE_BECAUSE_IT_IS_READONLY_LOC		"Cannot generate file [<<THIS.c_OutputFile>>] because it is ReadOnly"
 #DEFINE C_CONFIGFILE_LOC									"Using configuration file:"
-#DEFINE C_CONVERSION_CANCELLED_BY_USER						"Conversion Cancelled by the user"
+#DEFINE C_CONVERSION_CANCELLED_BY_USER_LOC					"Conversion Cancelled by the user"
 #DEFINE C_CONVERTER_UNLOAD_LOC								"Converter unload"
 #DEFINE C_CONVERTING_FILE_LOC								"Converting file"
 #DEFINE C_DATA_ERROR_CANT_PARSE_UNPAIRING_DOUBLE_QUOTES_LOC	"Data Error: Can't parse because of unpaired double-quotes on line <<lcMetadatos>>"
@@ -17,8 +18,8 @@
 #DEFINE C_END_MARKER_NOT_FOUND_LOC							"Cannot find end marker [<<ta_ID_Bloques(lnPrimerID,2)>>] that closes start marker [<<ta_ID_Bloques(lnPrimerID,1)>>] on line <<TRANSFORM(taBloquesExclusion(tnBloquesExclusion,1))>>"
 #DEFINE C_END_OF_PROCESS_LOC								"End of Process"
 #DEFINE C_EXTENSION_RECONFIGURATION_LOC						"Extension Reconfiguration:"
-#DEFINE C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES	"External class count (<<toModulo._ExternalClasses_Count>>) does not match found classes (<<toModulo._Clases_Count>>) for file [<<toFoxBin2Prg.c_InputFile>>]"
+#DEFINE C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES_LOC	"External class count (<<toModulo._ExternalClasses_Count>>) does not match found classes (<<toModulo._Clases_Count>>) for file [<<toFoxBin2Prg.c_InputFile>>]"
-#DEFINE C_EXTERNAL_CLASS_NAME_DOES_NOT_FOUND				"External class [<<toModulo._ExternalClasses(I)>>] is not found in file [<<toFoxBin2Prg.c_InputFile>>]"
+#DEFINE C_EXTERNAL_CLASS_NAME_DOES_NOT_FOUND_LOC				"External class [<<toModulo._ExternalClasses(I)>>] is not found in file [<<toFoxBin2Prg.c_InputFile>>]"
 #DEFINE C_FIELD_NOT_FOUND_ON_FILE_STRUCTURE_LOC				"Field [<<laProps(I)>>] not found in structure of file <<DBF('TABLABIN')>>"
 #DEFINE C_FILE_DOESNT_EXIST_LOC								'File does not exist:'
 #DEFINE C_FILE_NAME_IS_NOT_SUPPORTED_LOC					"File [<<.c_InputFile>>] is not supported"
@@ -46,10 +47,10 @@
 #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_SCANNING_FILE_AND_DIR_INFO						"Scanning file and directory information for"
+#DEFINE C_SCANNING_FILE_AND_DIR_INFO_LOC					"Scanning file and directory information for"
 #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>>"
 #DEFINE C_STRUCTURE_NESTING_ERROR_ENDPROC_EXPECTED_2_LOC	"Nesting structure error. ENDPROC expected but found ENDDEFINE on class <<toClase._Nombre>> (<<toObjeto._Nombre>>.<<loProcedure._Nombre>>), line <<TRANSFORM(I)>> of file <<THIS.c_InputFile>>"
 #DEFINE C_UNKNOWN_CLASS_NAME_LOC							"Unknown class [<<THIS.CLASS>>]"
 #DEFINE C_WARN_TABLE_ALIAS_ON_INDEX_EXPRESSION_LOC			"WARNING!!" + CR_LF+ "MAKE SURE YOU ARE NOT USING A TABLE ALIAS ON INDEX KEY EXPRESSIONS!! (ex: index on <<UPPER(JUSTSTEM(THIS.c_InputFile))>>.campo tag keyname)"
-#DEFINE C_WITH_ERRORS										"with errors"
+#DEFINE C_WITH_ERRORS_LOC									"with errors"