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

- Ajuste de código

Browse Source
This commit is contained in:
fdbozzo
2015-03-21 15:15:57 +01:00
parent 5bba833c32
commit 045a20623f
1 changed files with 11 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
foxbin2prg.prg
View File

@@ -10240,8 +10240,6 @@ DEFINE CLASS c_conversor_prg_a_dbc AS c_conversor_prg_a_bin
STORE NULL TO loReg, toModulo STORE NULL TO loReg, toModulo
WITH THIS AS c_conversor_prg_a_dbc OF 'FOXBIN2PRG.PRG' WITH THIS AS c_conversor_prg_a_dbc OF 'FOXBIN2PRG.PRG'
*-------- *fdb*
loLang = _SCREEN.o_FoxBin2Prg_Lang loLang = _SCREEN.o_FoxBin2Prg_Lang
toModulo = CREATEOBJECT('CL_MODULO') toModulo = CREATEOBJECT('CL_MODULO')
@@ -10374,10 +10372,6 @@ DEFINE CLASS c_conversor_prg_a_dbc AS c_conversor_prg_a_bin
ENDIF ENDIF
*--------
*C_FB2PRG_CODE = FILETOSTR( .c_InputFile )
lnCodeLines = ALINES( laCodeLines, C_FB2PRG_CODE ) lnCodeLines = ALINES( laCodeLines, C_FB2PRG_CODE )
*-- Identifico el inicio/fin de bloque, definici<63>n, cabecera y cuerpo del reporte *-- Identifico el inicio/fin de bloque, definici<63>n, cabecera y cuerpo del reporte
@@ -16825,7 +16819,7 @@ DEFINE CLASS CL_DBC AS CL_DBC_BASE
PROCEDURE toText PROCEDURE toText
LPARAMETERS toFoxBin2Prg LPARAMETERS toFoxBin2Prg
#IF .F. #IF .F.
LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG' LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
@@ -17837,8 +17831,8 @@ DEFINE CLASS CL_DBC_FIELDS_DB AS CL_DBC_COL_BASE
loField.analizarBloque( @tcLine, @taCodeLines, @I, tnCodeLines ) loField.analizarBloque( @tcLine, @taCodeLines, @I, tnCodeLines )
*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
.ADD( loField, loField._Name ) .ADD( loField, loField._Name )
*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
@@ -19234,8 +19228,8 @@ DEFINE CLASS CL_DBC_FIELDS_VW AS CL_DBC_COL_BASE
loField.analizarBloque( @tcLine, @taCodeLines, @I, tnCodeLines ) loField.analizarBloque( @tcLine, @taCodeLines, @I, tnCodeLines )
*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
.ADD( loField, loField._Name ) .ADD( loField, loField._Name )
*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