Bug Fix: The alphabetic ordering of ADD OBJECT's objects can cause that some objects be created in erroneous order, causing unexpected behavior (Jochen Kauz)
This commit is contained in:
fdbozzo
BIN
foxbin2prg.exe
BIN
foxbin2prg.exe
Binary file not shown.
@@ -218,6 +218,7 @@
|
||||
* 05/05/2018 SSF1&FDB v1.19.51.1 Bug Fix: Si se usa capitalización en la información de las vistas, entonces la información relacionada no se exporta correctamente o completamente y puede perderse (SkySurfer1)
|
||||
* 20/06/2018 FDBOZZO v1.19.51.2 Bug Fix: Cuando se exporta un DBF que pertenece a un DBC sin eventos, falla (Jairo Argüelles/Juan C.Perdomo)
|
||||
* 09/07/2018 FDBOZZO v1.19.51.3 Bug Fix: Error 1098, Cannot find ... [ENDT] that closes ... [TEXT] Issue#26 when there is a field named TEXT as first line-word (KIRIDES)
|
||||
* 10/07/2018 FDBOZZO v1.19.51.4 Bug Fix: El ordenamiento alfabético de los objetos de los ADD OBJECT puede causar que algunos objetos se creen en el orden erróneo, provocando comportamientos inesperados (Jochen Kauz)
|
||||
* </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
|
||||
*
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
@@ -344,6 +345,7 @@
|
||||
* 05/05/2018 SkySurfer1 Reporte Bug v1.19.51: Si se usa capitalización en la información de las vistas, entonces la información relacionada no se exporta correctamente o completamente y puede perderse (Arreglado en v1.19.51.1)
|
||||
* 20/06/2018 Jairo A/Juan CP Reporte Bug v1.19.51: Cuando se exporta un DBF que pertenece a un DBC sin eventos, falla (Arreglado en v1.19.51.2)
|
||||
* 09/07/2018 KIRIDES Reporte Bug v1.19.51: Error 1098, Cannot find ... [ENDT] that closes ... [TEXT] Issue#26 when there is a field named TEXT as first line-word (Se arregla en v1.19.51.3)
|
||||
* 10/07/2018 Jochen Kauz Reporte Bug v1.19.51: El ordenamiento alfabético de los objetos de los ADD OBJECT puede causar que algunos objetos se creen en el orden erróneo, provocando comportamientos inesperados (Se arregla en v1.19.51.3)
|
||||
* </TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)>
|
||||
*
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
@@ -7552,8 +7554,10 @@ DEFINE CLASS c_conversor_base AS Custom
|
||||
EXTERNAL ARRAY taPropsAndValues
|
||||
|
||||
TRY
|
||||
LOCAL I, X, lnArrayCols, laPropsAndValues(1,2), lcPropName, lcSortedMemo, lcMethods
|
||||
LOCAL I, X, lnArrayCols, laPropsAndValues(1,2), lcPropName, lcSortedMemo, lcMethods ;
|
||||
, lnSelect, lcObjName
|
||||
lnArrayCols = ALEN( taPropsAndValues, 2 )
|
||||
lnSelect = SELECT()
|
||||
DIMENSION laPropsAndValues( tnPropsAndValues_Count, lnArrayCols )
|
||||
ACOPY( taPropsAndValues, laPropsAndValues )
|
||||
|
||||
@@ -7561,42 +7565,86 @@ DEFINE CLASS c_conversor_base AS Custom
|
||||
IF m.tnSortType > 0
|
||||
* CON SORT:
|
||||
* - A las que no tienen '.' les pongo 'A' por delante, y al resto 'B' por delante para que queden al final
|
||||
|
||||
* ATENCIÓN: 10/07/2018
|
||||
* Cuando hay ADD OBJECT multicontenedor (obj.obj.obj...), el reordenamiento
|
||||
* puede producir daños colaterales, como objetos mal colocados.
|
||||
* (Era de esperar: No todo se puede ordenar alfabéticamente)
|
||||
* Un solución de compromiso podría ser al menos mantener juntos los objetos de mismo nombre,
|
||||
* que en la práctica pueden estar todos mezclados. Al menos eso no rompería nada.
|
||||
* VER: https://github.com/fdbozzo/foxbin2prg/issues/28
|
||||
*
|
||||
* PASO 1: Obtener los nombres únicos y asignarles un código de orden
|
||||
CREATE CURSOR C_OBJ (objName C(50), iOrder I AUTOINC)
|
||||
INDEX ON objname TAG objname
|
||||
|
||||
* PASO 2: Configurar las prioridades de ordenamiento (primero props, luego objs)
|
||||
FOR I = 1 TO m.tnPropsAndValues_Count
|
||||
IF '.' $ laPropsAndValues(m.I,1)
|
||||
IF m.tnSortType = 2
|
||||
laPropsAndValues(m.I,1) = 'B' + JUSTSTEM(laPropsAndValues(m.I,1)) + '.' ;
|
||||
* Genera obj+props para BIN
|
||||
lcObjName = GETWORDNUM(laPropsAndValues(m.I,1), 1, '.')
|
||||
|
||||
IF NOT SEEK(LOWER(lcObjName), "C_OBJ")
|
||||
INSERT INTO C_OBJ (objName) VALUES (LOWER(lcObjName))
|
||||
ENDIF
|
||||
|
||||
laPropsAndValues(m.I,1) = 'B' + PADL(C_OBJ.iOrder,3,'0') ;
|
||||
+ JUSTSTEM(laPropsAndValues(m.I,1)) + '.' ;
|
||||
+ .sortPropsAndValues_SetAndGetSCXPropNames( 'SETNAME', JUSTEXT(laPropsAndValues(m.I,1)) )
|
||||
|
||||
*laPropsAndValues(m.I,1) = 'B000' + lcObjName + '.' ;
|
||||
+ .sortPropsAndValues_SetAndGetSCXPropNames( 'SETNAME', JUSTEXT(laPropsAndValues(m.I,1)) )
|
||||
ELSE
|
||||
laPropsAndValues(m.I,1) = 'B' + laPropsAndValues(m.I,1)
|
||||
* Genera obj+props para TX2
|
||||
lcObjName = GETWORDNUM(laPropsAndValues(m.I,1), 1, '.')
|
||||
|
||||
IF NOT SEEK(LOWER(lcObjName), "C_OBJ")
|
||||
INSERT INTO C_OBJ (objName) VALUES (LOWER(lcObjName))
|
||||
ENDIF
|
||||
|
||||
laPropsAndValues(m.I,1) = 'B' + PADL(C_OBJ.iOrder,3,'0') ;
|
||||
+ JUSTSTEM(laPropsAndValues(m.I,1)) + '.' ;
|
||||
+ JUSTEXT(laPropsAndValues(m.I,1))
|
||||
|
||||
*laPropsAndValues(m.I,1) = 'B' + PADL(I,3,'0') + laPropsAndValues(m.I,1)
|
||||
ENDIF
|
||||
ELSE
|
||||
IF m.tnSortType = 2
|
||||
* Genera obj+props para BIN
|
||||
laPropsAndValues(m.I,1) = .sortPropsAndValues_SetAndGetSCXPropNames( 'SETNAME', laPropsAndValues(m.I,1) )
|
||||
ELSE
|
||||
laPropsAndValues(m.I,1) = 'A' + laPropsAndValues(m.I,1)
|
||||
* Genera obj+props para TX2
|
||||
laPropsAndValues(m.I,1) = 'A000' + laPropsAndValues(m.I,1)
|
||||
ENDIF
|
||||
ENDIF
|
||||
ENDFOR
|
||||
|
||||
* Paso 3: Ordenar según la prioridad previa
|
||||
IF .l_PropSort_Enabled
|
||||
ASORT( laPropsAndValues, 1, -1, 0, 1)
|
||||
ENDIF
|
||||
|
||||
|
||||
* Paso 4: Quitar metadatos y rearmar array
|
||||
FOR I = 1 TO m.tnPropsAndValues_Count
|
||||
*-- Quitar caracteres agregados antes del SORT
|
||||
IF '.' $ laPropsAndValues(m.I,1)
|
||||
IF m.tnSortType = 2
|
||||
taPropsAndValues(m.I,1) = JUSTSTEM( SUBSTR( laPropsAndValues(m.I,1), 2 ) ) + '.' ;
|
||||
* Genera obj+props para BIN
|
||||
taPropsAndValues(m.I,1) = JUSTSTEM( SUBSTR( laPropsAndValues(m.I,1), 2+3 ) ) + '.' ;
|
||||
+ .sortPropsAndValues_SetAndGetSCXPropNames( 'GETNAME', JUSTEXT(laPropsAndValues(m.I,1)) )
|
||||
ELSE
|
||||
taPropsAndValues(m.I,1) = SUBSTR( laPropsAndValues(m.I,1), 2 )
|
||||
* Genera obj+props para TX2
|
||||
taPropsAndValues(m.I,1) = SUBSTR( laPropsAndValues(m.I,1), 2+3 )
|
||||
ENDIF
|
||||
ELSE
|
||||
IF m.tnSortType = 2
|
||||
* Genera obj+props para BIN
|
||||
taPropsAndValues(m.I,1) = .sortPropsAndValues_SetAndGetSCXPropNames( 'GETNAME', laPropsAndValues(m.I,1) )
|
||||
ELSE
|
||||
taPropsAndValues(m.I,1) = SUBSTR( laPropsAndValues(m.I,1), 2 )
|
||||
* Genera obj+props para TX2
|
||||
taPropsAndValues(m.I,1) = SUBSTR( laPropsAndValues(m.I,1), 2+3 )
|
||||
ENDIF
|
||||
ENDIF
|
||||
|
||||
@@ -7657,6 +7705,8 @@ DEFINE CLASS c_conversor_base AS Custom
|
||||
FINALLY
|
||||
RELEASE taPropsAndValues, tnPropsAndValues_Count, tnSortType ;
|
||||
, I, X, lnArrayCols, laPropsAndValues, lcPropName, lcSortedMemo, lcMethods
|
||||
USE IN (SELECT("C_OBJ"))
|
||||
SELECT (lnSelect)
|
||||
ENDTRY
|
||||
|
||||
RETURN
|
||||
|
||||
Reference in New Issue
Block a user