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

- Reemplazado un SQL por un ASORT

Browse Source 
- Forzado modo legacy temporalmente (.n_Campos = 0)
This commit is contained in:
fdbozzo
2015-03-15 23:53:10 +01:00
parent 1f4c010313
commit 36d8945f40
1 changed files with 5 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
foxbin2prg.prg
View File

@@ -17173,7 +17173,7 @@ DEFINE CLASS CL_DBC_FIELDS_DB AS CL_DBC_COL_BASE
+ [<memberdata name="n_campos" display="n_Campos"/>] ; + [<memberdata name="n_campos" display="n_Campos"/>] ;
+ [</VFPData>] + [</VFPData>]
DIMENSION a_Campos(1,2) && col.1=campo, col.2=definici<63>n DIMENSION a_Campos(1,2) && col.1=campo, col.2=definici<63>n
n_Campos = 0 n_Campos = 0
@@ -17198,6 +17198,7 @@ DEFINE CLASS CL_DBC_FIELDS_DB AS CL_DBC_COL_BASE
llBloqueEncontrado = .T. llBloqueEncontrado = .T.
WITH THIS AS CL_DBC_FIELDS_DB OF 'FOXBIN2PRG.PRG' WITH THIS AS CL_DBC_FIELDS_DB OF 'FOXBIN2PRG.PRG'
.n_Campos = 0
FOR I = I + 1 TO tnCodeLines FOR I = I + 1 TO tnCodeLines
.set_Line( @tcLine, @taCodeLines, I ) .set_Line( @tcLine, @taCodeLines, I )
@@ -17353,12 +17354,7 @@ DEFINE CLASS CL_DBC_FIELDS_DB AS CL_DBC_COL_BASE
SET TEXTMERGE OFF SET TEXTMERGE OFF
SET TEXTMERGE TO SET TEXTMERGE TO
ASORT( laFields, 1, -1, 0, 1 )
SELECT LOWER(TB.objectName) FROM TABLABIN TB ;
INNER JOIN TABLABIN TB2 ON STR(TB.ParentID)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Field',10) ;
AND TB2.objectName = PADR(LOWER(tcTable),128) ;
ORDER BY 1 ASC ;
INTO ARRAY laFields
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<<>> </FIELD_ORDER> <<>> </FIELD_ORDER>
@@ -18348,6 +18344,7 @@ DEFINE CLASS CL_DBC_FIELDS_VW AS CL_DBC_COL_BASE
llBloqueEncontrado = .T. llBloqueEncontrado = .T.
WITH THIS AS CL_DBC_FIELDS_VW OF 'FOXBIN2PRG.PRG' WITH THIS AS CL_DBC_FIELDS_VW OF 'FOXBIN2PRG.PRG'
.n_Campos = 0
FOR I = I + 1 TO tnCodeLines FOR I = I + 1 TO tnCodeLines
.set_Line( @tcLine, @taCodeLines, I ) .set_Line( @tcLine, @taCodeLines, I )
@@ -18504,12 +18501,7 @@ DEFINE CLASS CL_DBC_FIELDS_VW AS CL_DBC_COL_BASE
SET TEXTMERGE OFF SET TEXTMERGE OFF
SET TEXTMERGE TO SET TEXTMERGE TO
ASORT( laFields, 1, -1, 0, 1 )
SELECT LOWER(TB.objectName) FROM TABLABIN TB ;
INNER JOIN TABLABIN TB2 ON STR(TB.ParentID)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Field',10) ;
AND TB2.objectName = PADR(LOWER(tcView),128) ;
ORDER BY 1 ASC ;
INTO ARRAY laFields
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<<>> </FIELD_ORDER> <<>> </FIELD_ORDER>