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

Changeset: 616 - Ajustes de beautify

Browse Source
This commit is contained in:
fdbozzo
2015-01-08 02:04:02 +01:00
parent 64c6b2d6be
commit 96edf7d18f
1 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
foxbin2prg.prg
View File

@@ -3427,9 +3427,9 @@ ENDDEFINE
******************************************************************************************************************* *******************************************************************************************************************
DEFINE CLASS c_conversor_base AS SESSION DEFINE CLASS C_CONVERSOR_BASE AS SESSION
#IF .F. #IF .F.
LOCAL THIS AS c_conversor_base OF 'FOXBIN2PRG.PRG' LOCAL THIS AS C_CONVERSOR_BASE OF 'FOXBIN2PRG.PRG'
#ENDIF #ENDIF
_MEMBERDATA = [<VFPData>] ; _MEMBERDATA = [<VFPData>] ;
+ [<memberdata name="analizarasignacion_tag_indicado" display="analizarAsignacion_TAG_Indicado"/>] ; + [<memberdata name="analizarasignacion_tag_indicado" display="analizarAsignacion_TAG_Indicado"/>] ;
@@ -4179,7 +4179,7 @@ DEFINE CLASS c_conversor_base AS SESSION
IF PCOUNT() > 3 IF PCOUNT() > 3
*-- EVALUAR UNA ASIGNACI<43>N QUE PUEDE SER MULTIL<49>NEA (memberdata, fb2p_value, etc) *-- EVALUAR UNA ASIGNACI<43>N QUE PUEDE SER MULTIL<49>NEA (memberdata, fb2p_value, etc)
WITH THIS AS c_conversor_base OF 'FOXBIN2PRG.PRG' WITH THIS AS C_CONVERSOR_BASE OF 'FOXBIN2PRG.PRG'
DO CASE DO CASE
CASE .analizarAsignacion_TAG_Indicado( @tcPropName, @tcValue, @taCodeLines, tnCodeLines, @I ; CASE .analizarAsignacion_TAG_Indicado( @tcPropName, @tcValue, @taCodeLines, tnCodeLines, @I ;
, C_FB2P_VALUE_I, C_FB2P_VALUE_F, C_LEN_FB2P_VALUE_I, C_LEN_FB2P_VALUE_F ) , C_FB2P_VALUE_I, C_FB2P_VALUE_F, C_LEN_FB2P_VALUE_I, C_LEN_FB2P_VALUE_F )
@@ -4669,7 +4669,7 @@ DEFINE CLASS c_conversor_base AS SESSION
DIMENSION laPropsAndValues( tnPropsAndValues_Count, lnArrayCols ) DIMENSION laPropsAndValues( tnPropsAndValues_Count, lnArrayCols )
ACOPY( taPropsAndValues, laPropsAndValues ) ACOPY( taPropsAndValues, laPropsAndValues )
WITH THIS AS c_conversor_base OF 'FOXBIN2PRG.PRG' WITH THIS AS C_CONVERSOR_BASE OF 'FOXBIN2PRG.PRG'
IF m.tnSortType >= 1 IF m.tnSortType >= 1
* CON SORT: * CON SORT:
* - A las que no tienen '.' les pongo 'A' por delante, y al resto 'B' por delante para que queden al final * - A las que no tienen '.' les pongo 'A' por delante, y al resto 'B' por delante para que queden al final
@@ -4933,7 +4933,7 @@ ENDDEFINE
******************************************************************************************************************* *******************************************************************************************************************
DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base DEFINE CLASS c_conversor_prg_a_bin AS C_CONVERSOR_BASE
#IF .F. #IF .F.
LOCAL THIS AS c_conversor_prg_a_bin OF 'FOXBIN2PRG.PRG' LOCAL THIS AS c_conversor_prg_a_bin OF 'FOXBIN2PRG.PRG'
#ENDIF #ENDIF
@@ -6095,7 +6095,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
, loLang as CL_LANG OF 'FOXBIN2PRG.PRG' , loLang as CL_LANG OF 'FOXBIN2PRG.PRG'
llBloqueEncontrado = .T. llBloqueEncontrado = .T.
loLang = _SCREEN.o_Foxbin2prg_lang loLang = _SCREEN.o_FoxBin2Prg_Lang
tcLine = CHRTRAN( tcLine, ['], ["] ) tcLine = CHRTRAN( tcLine, ['], ["] )
IF EMPTY(toClase._Fin_Cab) IF EMPTY(toClase._Fin_Cab)
@@ -9816,7 +9816,7 @@ ENDDEFINE && CLASS c_conversor_prg_a_mnx AS c_conversor_prg_a_bin
******************************************************************************************************************* *******************************************************************************************************************
DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base DEFINE CLASS c_conversor_bin_a_prg AS C_CONVERSOR_BASE
#IF .F. #IF .F.
LOCAL THIS AS c_conversor_bin_a_prg OF 'FOXBIN2PRG.PRG' LOCAL THIS AS c_conversor_bin_a_prg OF 'FOXBIN2PRG.PRG'
#ENDIF #ENDIF
@@ -11582,7 +11582,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg
STORE '' TO laMethods, laCode, laProtected, laPropsAndComments, laObjs, lcCodigo, laClasses, lcOutputFile ; STORE '' TO laMethods, laCode, laProtected, laPropsAndComments, laObjs, lcCodigo, laClasses, lcOutputFile ;
, C_FB2PRG_CODE, lcExternalHeader , C_FB2PRG_CODE, lcExternalHeader
STORE NULL TO loRegClass, loRegObj STORE NULL TO loRegClass, loRegObj
loLang = _SCREEN.o_Foxbin2prg_lang loLang = _SCREEN.o_FoxBin2Prg_Lang
WITH THIS AS c_conversor_vcx_a_prg OF 'FOXBIN2PRG.PRG' WITH THIS AS c_conversor_vcx_a_prg OF 'FOXBIN2PRG.PRG'
USE (.c_InputFile) SHARED AGAIN NOUPDATE ALIAS _TABLAORIG USE (.c_InputFile) SHARED AGAIN NOUPDATE ALIAS _TABLAORIG
@@ -11887,7 +11887,7 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg
STORE '' TO laMethods, laCode, laProtected, laPropsAndComments, laObjs, lcCodigo, laClasses, lcOutputFile ; STORE '' TO laMethods, laCode, laProtected, laPropsAndComments, laObjs, lcCodigo, laClasses, lcOutputFile ;
, C_FB2PRG_CODE, lcExternalHeader , C_FB2PRG_CODE, lcExternalHeader
STORE NULL TO loRegClass, loRegObj STORE NULL TO loRegClass, loRegObj
loLang = _SCREEN.o_foxbin2prg_lang loLang = _SCREEN.o_FoxBin2Prg_Lang
WITH THIS AS c_conversor_scx_a_prg OF 'FOXBIN2PRG.PRG' WITH THIS AS c_conversor_scx_a_prg OF 'FOXBIN2PRG.PRG'
USE (.c_InputFile) SHARED AGAIN NOUPDATE ALIAS _TABLAORIG USE (.c_InputFile) SHARED AGAIN NOUPDATE ALIAS _TABLAORIG
@@ -13777,7 +13777,7 @@ DEFINE CLASS CL_CLASE AS CL_CUS_BASE
_User = '' _User = ''
PROCEDURE Add_PathObjName PROCEDURE add_PathObjName
LPARAMETERS tcPathObjName, I LPARAMETERS tcPathObjName, I
WITH THIS AS CL_CLASE OF 'FOXBIN2PRG.PRG' WITH THIS AS CL_CLASE OF 'FOXBIN2PRG.PRG'