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

- Bug Fix: If capitalization is used on a DBC view info, then related information is not exported correctly or entirely, so could be lost (SkySurfer1)

Browse Source
This commit is contained in:
fdbozzo
2018-05-12 23:18:25 +02:00
parent 4d16f7650f
commit 8490021dfc
2 changed files with 31 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
FoxBin2PRGVersionFile.txt
View File

@@ -22,6 +22,7 @@ Demo video using FoxBin2Prg with PlasticSCM: http://youtu.be/sE4wQ50Itqg
Change History ------------------------------------------------------------- Change History -------------------------------------------------------------
2018-05-12 v1.19.51.1 2018-05-12 v1.19.51.1
- Bug Fix: If capitalization is used on a DBC view info, then related information is not exported correctly or entirely, so could be lost (SkySurfer1)
2018-03-24 v1.19.51 2018-03-24 v1.19.51
- Add LOG info about config.fpw used and CodePage - Add LOG info about config.fpw used and CodePage

50
foxbin2prg.prg
View File

@@ -215,6 +215,7 @@
* 15/03/2018 FDBOZZO v1.19.50.3 Bug Fix: Cuando se agregan archivos de texto no-VFP, como html,css,etc, en la sección de Text del proyecto, FoxBin2Prg no mantiene esta selección al regenerar el PJX, dejándolos en la sección Files (Darko Kezic) * 15/03/2018 FDBOZZO v1.19.50.3 Bug Fix: Cuando se agregan archivos de texto no-VFP, como html,css,etc, en la sección de Text del proyecto, FoxBin2Prg no mantiene esta selección al regenerar el PJX, dejándolos en la sección Files (Darko Kezic)
* 16/03/2018 FDBOZZO v1.19.51 Mejora: Agregado soporte para archivos de macros (.FKY) * 16/03/2018 FDBOZZO v1.19.51 Mejora: Agregado soporte para archivos de macros (.FKY)
* 25/03/2018 FDBOZZO v1.19.51 Mejora: Agregado soporte para archivos de memoria (.MEM) * 25/03/2018 FDBOZZO v1.19.51 Mejora: Agregado soporte para archivos de memoria (.MEM)
* 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)
* </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES> * </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
* *
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
@@ -338,6 +339,7 @@
* 30/01/2018 Kirides Reporte Bug v1.19.49: Cuando se convierte a texto una libreria corrupta con registros duplicados, se genera el error "The specified key already exists" (Arreglado en v1.19.49.9) * 30/01/2018 Kirides Reporte Bug v1.19.49: Cuando se convierte a texto una libreria corrupta con registros duplicados, se genera el error "The specified key already exists" (Arreglado en v1.19.49.9)
* 12/03/2018 Darko Kezic Reporte Bug v1.19.50: Cuando se usa la equivalencia "extension: pj2=pjm" se debe manejar el pjm como un pj2 y no como un pjm de SourceSafe (Arreglado en v1.19.50.1) * 12/03/2018 Darko Kezic Reporte Bug v1.19.50: Cuando se usa la equivalencia "extension: pj2=pjm" se debe manejar el pjm como un pj2 y no como un pjm de SourceSafe (Arreglado en v1.19.50.1)
* 15/03/2018 Darko Kezic Reporte Bug v1.19.50: Cuando se agregan archivos de texto no-VFP, como html,css,etc, en la sección de Text del proyecto, FoxBin2Prg no mantiene esta selección al regenerar el PJX, dejándolos en la sección Files (Arreglado en v1.19.50.3) * 15/03/2018 Darko Kezic Reporte Bug v1.19.50: Cuando se agregan archivos de texto no-VFP, como html,css,etc, en la sección de Text del proyecto, FoxBin2Prg no mantiene esta selección al regenerar el PJX, dejándolos en la sección Files (Arreglado en v1.19.50.3)
* 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)
* </TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)> * </TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)>
* *
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
@@ -20367,7 +20369,7 @@ DEFINE CLASS CL_DBC_BASE AS CL_CUS_BASE
( lcID ; ( lcID ;
, tnParentID ; , tnParentID ;
, lcObjectType ; , lcObjectType ;
, LOWER(._Name) ; , IIF(lcObjectType == 'View', ._Name, LOWER(._Name)) ;
, lcMemoWithProperties ; , lcMemoWithProperties ;
, lcCodeMemo ; , lcCodeMemo ;
, lcRI_Info ; , lcRI_Info ;
@@ -20928,7 +20930,7 @@ DEFINE CLASS CL_DBC_CONNECTIONS AS CL_DBC_COL_BASE
loConnection = CREATEOBJECT('CL_DBC_CONNECTION') loConnection = CREATEOBJECT('CL_DBC_CONNECTION')
loConnection.read_BinDataToProperties( laConnections(m.I) ) loConnection.read_BinDataToProperties( laConnections(m.I) )
*-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...) *-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...)
.ADD( loConnection, PADR(loConnection._Name,128) ) .ADD( loConnection, PADR(LOWER(loConnection._Name),128) )
ENDFOR ENDFOR
ENDIF ENDIF
ENDWITH ENDWITH
@@ -21216,7 +21218,7 @@ DEFINE CLASS CL_DBC_TABLES AS CL_DBC_COL_BASE
loTable = CREATEOBJECT("CL_DBC_TABLE") loTable = CREATEOBJECT("CL_DBC_TABLE")
loTable.analyzeCodeBlock( @tcLine, @taCodeLines, @m.I, tnCodeLines ) loTable.analyzeCodeBlock( @tcLine, @taCodeLines, @m.I, tnCodeLines )
*-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...) *-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...)
.ADD( loTable, PADR(loTable._Name,128) ) .ADD( loTable, PADR(LOWER(loTable._Name),128) )
OTHERWISE && Otro valor OTHERWISE && Otro valor
*-- No hay otros valores *-- No hay otros valores
@@ -21338,7 +21340,7 @@ DEFINE CLASS CL_DBC_TABLES AS CL_DBC_COL_BASE
loTable = CREATEOBJECT("CL_DBC_TABLE") loTable = CREATEOBJECT("CL_DBC_TABLE")
loTable.read_BinDataToProperties( laTables(m.I) ) loTable.read_BinDataToProperties( laTables(m.I) )
*-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...) *-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...)
.ADD( loTable, PADR(loTable._Name,128) ) .ADD( loTable, PADR(LOWER(loTable._Name),128) )
ENDFOR ENDFOR
ENDIF ENDIF
@@ -21684,7 +21686,7 @@ DEFINE CLASS CL_DBC_FIELDS_DB AS CL_DBC_COL_BASE
IF .n_Campos = 0 THEN IF .n_Campos = 0 THEN
*-- MODO LEGACY: Cuando no existe tag de ordenamiento de campos, se agregan en el orden que se leen *-- MODO LEGACY: Cuando no existe tag de ordenamiento de campos, se agregan en el orden que se leen
*-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...) *-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...)
.ADD( loField, PADR(loField._Name,128) ) .ADD( loField, PADR(LOWER(loField._Name),128) )
ELSE ELSE
lnPos = ASCAN( .a_Campos, loField._Name, 1, 0, 1, 1+2+4+8 ) lnPos = ASCAN( .a_Campos, loField._Name, 1, 0, 1, 1+2+4+8 )
.a_Campos( lnPos, 2) = loField .a_Campos( lnPos, 2) = loField
@@ -21698,7 +21700,7 @@ DEFINE CLASS CL_DBC_FIELDS_DB AS CL_DBC_COL_BASE
*-- Restablezco el orden de los campos (Solo si n_Campos > 0, que significa que tiene el nuevo tag especial de orden) *-- Restablezco el orden de los campos (Solo si n_Campos > 0, que significa que tiene el nuevo tag especial de orden)
FOR lnPos = 1 TO .n_Campos FOR lnPos = 1 TO .n_Campos
*-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...) *-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...)
.ADD( .a_Campos( lnPos, 2), PADR(.a_Campos( lnPos, 1),128) ) .ADD( .a_Campos( lnPos, 2), PADR(LOWER(.a_Campos( lnPos, 1)),128) )
ENDFOR ENDFOR
ENDWITH && THIS ENDWITH && THIS
ENDIF ENDIF
@@ -21885,9 +21887,10 @@ DEFINE CLASS CL_DBC_FIELDS_DB AS CL_DBC_COL_BASE
STORE NULL TO loField STORE NULL TO loField
STORE 0 TO I, lnField_Count STORE 0 TO I, lnField_Count
_TALLY = 0 _TALLY = 0
SELECT LOWER(TB.ObjectName) FROM TABLABIN TB ; SELECT LOWER(TB.ObjectName) FROM TABLABIN TB ;
INNER JOIN TABLABIN TB2 ON STR(TB.ParentId)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Field',10) ; INNER JOIN TABLABIN TB2 ON STR(TB.ParentId)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Field',10) ;
AND TB2.ObjectName = PADR(LOWER(tcTable),128) ; AND LOWER(TB2.ObjectName) = PADR(LOWER(tcTable),128) ;
INTO ARRAY laFields INTO ARRAY laFields
lnField_Count = _TALLY lnField_Count = _TALLY
@@ -21896,7 +21899,7 @@ DEFINE CLASS CL_DBC_FIELDS_DB AS CL_DBC_COL_BASE
loField = CREATEOBJECT("CL_DBC_FIELD_DB") loField = CREATEOBJECT("CL_DBC_FIELD_DB")
loField.read_BinDataToProperties( tcTable, laFields(m.I) ) loField.read_BinDataToProperties( tcTable, laFields(m.I) )
*-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...) *-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...)
.ADD( loField, PADR(loField._Name,128) ) .ADD( loField, PADR(LOWER(loField._Name),128) )
ENDFOR ENDFOR
ENDIF ENDIF
@@ -22157,7 +22160,7 @@ DEFINE CLASS CL_DBC_INDEXES_DB AS CL_DBC_COL_BASE
loIndex = CREATEOBJECT("CL_DBC_INDEX_DB") loIndex = CREATEOBJECT("CL_DBC_INDEX_DB")
loIndex.analyzeCodeBlock( @tcLine, @taCodeLines, @m.I, tnCodeLines ) loIndex.analyzeCodeBlock( @tcLine, @taCodeLines, @m.I, tnCodeLines )
*-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...) *-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...)
.ADD( loIndex, PADR(loIndex._Name,128) ) .ADD( loIndex, PADR(LOWER(loIndex._Name),128) )
OTHERWISE && Otro valor OTHERWISE && Otro valor
*-- No hay otros valores *-- No hay otros valores
@@ -22274,7 +22277,7 @@ DEFINE CLASS CL_DBC_INDEXES_DB AS CL_DBC_COL_BASE
_TALLY = 0 _TALLY = 0
SELECT LOWER(TB.ObjectName) FROM TABLABIN TB ; SELECT LOWER(TB.ObjectName) FROM TABLABIN TB ;
INNER JOIN TABLABIN TB2 ON STR(TB.ParentId)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Index',10) ; INNER JOIN TABLABIN TB2 ON STR(TB.ParentId)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Index',10) ;
AND TB2.ObjectName = PADR(LOWER(tcTable),128) ; AND LOWER(TB2.ObjectName) = PADR(LOWER(tcTable),128) ;
INTO ARRAY laIndexes INTO ARRAY laIndexes
lnIndex_Count = _TALLY lnIndex_Count = _TALLY
@@ -22283,7 +22286,7 @@ DEFINE CLASS CL_DBC_INDEXES_DB AS CL_DBC_COL_BASE
loIndex = CREATEOBJECT("CL_DBC_INDEX_DB") loIndex = CREATEOBJECT("CL_DBC_INDEX_DB")
loIndex.read_BinDataToProperties( tcTable + '.' + laIndexes(m.I) ) loIndex.read_BinDataToProperties( tcTable + '.' + laIndexes(m.I) )
*-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...) *-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...)
.ADD( loIndex, PADR(loIndex._Name,128) ) .ADD( loIndex, PADR(LOWER(loIndex._Name),128) )
ENDFOR ENDFOR
ENDIF ENDIF
@@ -22512,7 +22515,7 @@ DEFINE CLASS CL_DBC_VIEWS AS CL_DBC_COL_BASE
loView = CREATEOBJECT("CL_DBC_VIEW") loView = CREATEOBJECT("CL_DBC_VIEW")
loView.analyzeCodeBlock( @tcLine, @taCodeLines, @m.I, tnCodeLines ) loView.analyzeCodeBlock( @tcLine, @taCodeLines, @m.I, tnCodeLines )
*-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...) *-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...)
.ADD( loView, PADR(loView._Name,128) ) .ADD( loView, PADR(LOWER(loView._Name),128) )
OTHERWISE && Otro valor OTHERWISE && Otro valor
*-- No hay otros valores *-- No hay otros valores
@@ -22626,14 +22629,20 @@ DEFINE CLASS CL_DBC_VIEWS AS CL_DBC_COL_BASE
EXIT EXIT
ENDIF ENDIF
lnView_Count = ADBOBJECTS( laViews, "VIEW" ) *LG lnView_Count = ADBOBJECTS( laViews, "VIEW" )
SELECT CAST(ALLTRIM(ObjectName) as varchar(128)) ;
FROM TablaBin ;
WHERE UPPER(ObjectType) = 'VIEW' ;
ORDER BY 1 ;
INTO ARRAY laViews
lnView_Count = _TALLY
IF lnView_Count > 0 IF lnView_Count > 0
FOR I = 1 TO lnView_Count FOR I = 1 TO lnView_Count
loView = CREATEOBJECT("CL_DBC_VIEW") loView = CREATEOBJECT("CL_DBC_VIEW")
loView.read_BinDataToProperties( laViews(m.I) ) loView.read_BinDataToProperties( laViews(m.I) )
*-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...) *-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...)
.ADD( loView, PADR(loView._Name,128) ) .ADD( loView, PADR(LOWER(loView._Name),128) )
ENDFOR ENDFOR
ENDIF ENDIF
@@ -22834,7 +22843,6 @@ DEFINE CLASS CL_DBC_VIEW AS CL_DBC_BASE
* toFoxBin2Prg (@! IN ) Referencia de toFoxBin2Prg * toFoxBin2Prg (@! IN ) Referencia de toFoxBin2Prg
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
LPARAMETERS tcView, toFoxBin2Prg LPARAMETERS tcView, toFoxBin2Prg
#IF .F. #IF .F.
LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG' LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
#ENDIF #ENDIF
@@ -23089,7 +23097,7 @@ DEFINE CLASS CL_DBC_FIELDS_VW AS CL_DBC_COL_BASE
IF .n_Campos = 0 THEN IF .n_Campos = 0 THEN
*-- MODO LEGACY: Cuando no existe tag de ordenamiento de campos, se agregan en el orden que se leen *-- MODO LEGACY: Cuando no existe tag de ordenamiento de campos, se agregan en el orden que se leen
*-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...) *-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...)
.ADD( loField, PADR(loField._Name,128) ) .ADD( loField, PADR(LOWER(loField._Name),128) )
ELSE ELSE
lnPos = ASCAN( .a_Campos, loField._Name, 1, 0, 1, 1+2+4+8 ) lnPos = ASCAN( .a_Campos, loField._Name, 1, 0, 1, 1+2+4+8 )
.a_Campos( lnPos, 2) = loField .a_Campos( lnPos, 2) = loField
@@ -23103,7 +23111,7 @@ DEFINE CLASS CL_DBC_FIELDS_VW AS CL_DBC_COL_BASE
*-- Restablezco el orden de los campos (Solo si n_Campos > 0, que significa que tiene el nuevo tag especial de orden) *-- Restablezco el orden de los campos (Solo si n_Campos > 0, que significa que tiene el nuevo tag especial de orden)
FOR lnPos = 1 TO .n_Campos FOR lnPos = 1 TO .n_Campos
*-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...) *-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...)
.ADD( .a_Campos( lnPos, 2), PADR(.a_Campos( lnPos, 1),128) ) .ADD( .a_Campos( lnPos, 2), PADR(LOWER(.a_Campos( lnPos, 1)),128) )
ENDFOR ENDFOR
ENDWITH && THIS ENDWITH && THIS
ENDIF ENDIF
@@ -23292,7 +23300,7 @@ DEFINE CLASS CL_DBC_FIELDS_VW AS CL_DBC_COL_BASE
_TALLY = 0 _TALLY = 0
SELECT LOWER(TB.ObjectName) FROM TABLABIN TB ; SELECT LOWER(TB.ObjectName) FROM TABLABIN TB ;
INNER JOIN TABLABIN TB2 ON STR(TB.ParentId)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Field',10) ; INNER JOIN TABLABIN TB2 ON STR(TB.ParentId)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Field',10) ;
AND TB2.ObjectName = PADR(LOWER(tcView),128) ; AND LOWER(TB2.ObjectName) = PADR(LOWER(tcView),128) ;
INTO ARRAY laFields INTO ARRAY laFields
lnField_Count = _TALLY lnField_Count = _TALLY
@@ -23301,7 +23309,7 @@ DEFINE CLASS CL_DBC_FIELDS_VW AS CL_DBC_COL_BASE
loField = CREATEOBJECT("CL_DBC_FIELD_VW") loField = CREATEOBJECT("CL_DBC_FIELD_VW")
loField.read_BinDataToProperties( tcView, laFields(m.I) ) loField.read_BinDataToProperties( tcView, laFields(m.I) )
*-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...) *-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...)
.ADD( loField, PADR(loField._Name,128) ) .ADD( loField, PADR(LOWER(loField._Name),128) )
ENDFOR ENDFOR
ENDIF ENDIF
@@ -23578,7 +23586,7 @@ DEFINE CLASS CL_DBC_RELATIONS AS CL_DBC_COL_BASE
TRY TRY
*-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...) *-- El siguiente PADR() es porque si no "estoXXX" está antes que "esto" cuando keysort=2 (raro...)
.ADD( loRelation, PADR(loRelation._Name,128) ) .ADD( loRelation, PADR(LOWER(loRelation._Name),128) )
CATCH TO loEx WHEN loEx.ERRORNO = 2062 && The specified Key already exists. CATCH TO loEx WHEN loEx.ERRORNO = 2062 && The specified Key already exists.
*-- Saltear este error, porque implica que la relación está duplicada *-- Saltear este error, porque implica que la relación está duplicada
ENDTRY ENDTRY
@@ -23700,7 +23708,7 @@ DEFINE CLASS CL_DBC_RELATIONS AS CL_DBC_COL_BASE
loRelation = CREATEOBJECT('CL_DBC_RELATION') loRelation = CREATEOBJECT('CL_DBC_RELATION')
loRelation.read_BinDataToProperties( @laRelations, m.I ) loRelation.read_BinDataToProperties( @laRelations, m.I )
TRY TRY
.ADD( loRelation, loRelation._Name ) .ADD( loRelation, PADR(LOWER(loRelation._Name),128) )
CATCH TO loEx WHEN loEx.ERRORNO = 2062 && The specified Key already exists. CATCH TO loEx WHEN loEx.ERRORNO = 2062 && The specified Key already exists.
*-- Saltear este error, porque implica que la relación está duplicada *-- Saltear este error, porque implica que la relación está duplicada
ENDTRY ENDTRY