From 786292b6d096986c067227b8b4d3fb9c6da85ad1 Mon Sep 17 00:00:00 2001 From: fernando Date: Fri, 6 Dec 2013 01:55:51 +0100 Subject: [PATCH] Changeset: 30 Changeset: 30 --- ...fxu_lib_objetos_y_funciones_de_soporte.prg | 4 +- TESTS/ut__foxbin2prg.prg | 2220 +++++++++++++---- foxbin2prg.prg | 320 ++- 3 files changed, 1949 insertions(+), 595 deletions(-) diff --git a/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg b/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg index 6cf4a40..6ac91b2 100644 --- a/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg +++ b/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg @@ -51,13 +51,13 @@ DEFINE CLASS CL_FXU_CONFIG AS CUSTOM *---------------------------------------------------------------------------------------- PROCEDURE SETUP_COMUN - + ERASE (FORCEPATH( '*.*', THIS.cPathDatosTest ) ) ENDPROC *---------------------------------------------------------------------------------------- PROCEDURE TEARDOWN_COMUN - + USE IN (SELECT("TABLABIN")) ENDPROC diff --git a/TESTS/ut__foxbin2prg.prg b/TESTS/ut__foxbin2prg.prg index a1e009a..1306ecc 100644 --- a/TESTS/ut__foxbin2prg.prg +++ b/TESTS/ut__foxbin2prg.prg @@ -54,9 +54,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg ******************************************************************************************************************************************* FUNCTION Evaluate_results - LPARAMETERS toEx AS EXCEPTION, tnCodError_Esperado ; - , tc_InputFile, taPropsAndValues, tnPropsAndValues_Count ; - , taPropsAndValues_Esperado, tnPropsAndValues_Count_Esperado, tcParent, tcClass, tcObjName + LPARAMETERS toEx AS EXCEPTION, tnCodError_Esperado, tc_InputFile, tcParent, tcClass, tcObjName, toReg, toReg_Esperado #IF .F. PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' @@ -70,24 +68,110 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg ENDIF IF ISNULL(toEx) + LOCAL laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; + , lnPropsAndComments_Count, lnPropsAndComments_Count_Esperado, laPropsAndComments(1,2), laPropsAndComments_Esperado(1,2) ; + , laProtected(1), lnProtected_Count, laProtected_Esperado(1), lnProtected_Count_Esperado ; + , laMethods(1,2), lnMethods_Count, laMethods_Esperado(1,2), lnMethods_Count_Esperado + LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" + *-- Algunos ajustes para mejor visualización de caracteres especiales *tcPropValue = oFXU_LIB.mejorarPresentacionCaracteresEspeciales( tcPropValue ) + loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") + + *-- Reserved3 + loObj.get_PropsAndCommentsFrom_RESERVED3( toReg.RESERVED3, .F., @laPropsAndComments, @lnPropsAndComments_Count, '' ) + loObj.get_PropsAndCommentsFrom_RESERVED3( toReg_Esperado.RESERVED3, .F., @laPropsAndComments_Esperado, @lnPropsAndComments_Count_Esperado, '' ) + + *-- Properties + loObj.get_PropsAndValuesFrom_PROPERTIES( toReg.PROPERTIES, 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + loObj.get_PropsAndValuesFrom_PROPERTIES( toReg_Esperado.PROPERTIES, 0, @laPropsAndValues_Esperado, @lnPropsAndValues_Count_Esperado, '' ) + + *-- Protected + loObj.get_PropsFrom_PROTECTED( toReg.PROTECTED, .F., @laProtected, @lnProtected_Count, '' ) + loObj.get_PropsFrom_PROTECTED( toReg_Esperado.PROTECTED, .F., @laProtected_Esperado, @lnProtected_Count_Esperado, '' ) + + *-- Methods + loObj.get_ADD_OBJECT_METHODS( toReg, toReg, '', @laMethods, '', @lnMethods_Count ) + loObj.get_ADD_OBJECT_METHODS( toReg_Esperado, toReg_Esperado, '', @laMethods_Esperado, '', @lnMethods_Count_Esperado ) + *-- Visualización de valores THIS.messageout( LOWER(PROGRAM(PROGRAM(-1)-1)) ) + THIS.messageout( '' ) - THIS.messageout( 'Propiedades esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' ) - THIS.messageout( REPLICATE('-',80) ) - FOR I = 1 TO tnPropsAndValues_Count_Esperado - THIS.messageout( 'PropName = ' + TRANSFORM(taPropsAndValues_Esperado(I,1)) ) - ENDFOR + THIS.messageout( 'PROPERTIES esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(lnPropsAndValues_Count_Esperado) ) + *THIS.messageout( REPLICATE('-',80) ) + *FOR I = 1 TO lnPropsAndValues_Count_Esperado + * THIS.messageout( 'PropName = ' + TRANSFORM(laPropsAndValues_Esperado(I,1)) ) + *ENDFOR + + THIS.messageout( '' ) + THIS.messageout( 'PROTECTED esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(lnProtected_Count_Esperado) ) + *THIS.messageout( REPLICATE('-',80) ) + *FOR I = 1 TO lnProtected_Count_Esperado + * THIS.messageout( 'PropName = ' + TRANSFORM(laProtected_Esperado(I,1)) ) + *ENDFOR + + THIS.messageout( '' ) + THIS.messageout( 'RESERVED3 esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(lnPropsAndComments_Count_Esperado) ) + *THIS.messageout( REPLICATE('-',80) ) + *FOR I = 1 TO lnPropsAndComments_Count_Esperado + * THIS.messageout( 'PropName = ' + TRANSFORM(laPropsAndComments_Esperado(I,1)) ) + *ENDFOR + + THIS.messageout( '' ) + THIS.messageout( 'METHODS esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(lnMethods_Count_Esperado) ) + *THIS.messageout( REPLICATE('-',80) ) + *FOR I = 1 TO lnMethods_Count_Esperado + * THIS.messageout( 'Name = ' + TRANSFORM(laMethods_Esperado(I,1)) ) + *ENDFOR *-- Evaluación de valores - THIS.assertequals( tnPropsAndValues_Count_Esperado, tnPropsAndValues_Count, "Cantidad de propiedades" ) - FOR I = 1 TO tnPropsAndValues_Count_Esperado - THIS.asserttrue( ASCAN( taPropsAndValues, taPropsAndValues_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobación de que existe la propiedad "' + TRANSFORM(taPropsAndValues_Esperado(I,1)) + '"' ) + *-- Reserved1 + THIS.assertequals( toReg_Esperado.Reserved1, toReg.Reserved1, "Valor de Reserved1" ) + + *-- Reserved2 + THIS.assertequals( toReg_Esperado.Reserved2, toReg.Reserved2, "Valor de Reserved2" ) + + *-- Reserved4 + THIS.assertequals( toReg_Esperado.Reserved4, toReg.Reserved4, "Valor de Reserved4" ) + + *-- Reserved5 + THIS.assertequals( toReg_Esperado.Reserved5, toReg.Reserved5, "Valor de Reserved5" ) + + *-- Reserved6 + THIS.assertequals( toReg_Esperado.Reserved6, toReg.Reserved6, "Valor de Reserved6" ) + + *-- Reserved7 + THIS.assertequals( toReg_Esperado.Reserved7, toReg.Reserved7, "Valor de Reserved7" ) + + *-- Reserved8 + THIS.assertequals( toReg_Esperado.Reserved8, toReg.Reserved8, "Valor de Reserved8" ) + + *-- PROPERTIES + THIS.assertequals( lnPropsAndValues_Count_Esperado, lnPropsAndValues_Count, "Cantidad de Properties" ) + FOR I = 1 TO lnPropsAndValues_Count_Esperado + THIS.asserttrue( ASCAN( laPropsAndValues, laPropsAndValues_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobación de que existe la Property "' + TRANSFORM(taPropsAndValues_Esperado(I,1)) + '"' ) + ENDFOR + + *-- RESERVED3 + THIS.assertequals( lnPropsAndValues_Count_Esperado, lnPropsAndValues_Count, "Cantidad de Reserved3" ) + FOR I = 1 TO lnPropsAndValues_Count_Esperado + THIS.asserttrue( ASCAN( laPropsAndComments, laPropsAndComments_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobación de que existe la Reserved3 "' + TRANSFORM(taPropsAndValues_Esperado(I,1)) + '"' ) + ENDFOR + + *-- PROTECTED + THIS.assertequals( lnProtected_Count_Esperado, lnProtected_Count, "Cantidad de Protected" ) + FOR I = 1 TO lnProtected_Count_Esperado + THIS.asserttrue( ASCAN( laProtected, laProtected_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobación de que existe la Protected "' + TRANSFORM(taPropsAndValues_Esperado(I,1)) + '"' ) + ENDFOR + + *-- METHODS + THIS.assertequals( lnMethods_Count_Esperado, lnMethods_Count, "Cantidad de Methods" ) + FOR I = 1 TO lnPropsAndValues_Count_Esperado + THIS.asserttrue( ASCAN( laMethods, laMethods_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobación de que existe el Method "' + TRANSFORM(taPropsAndValues_Esperado(I,1)) + '"' ) ENDFOR ELSE @@ -102,15 +186,14 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__dataenvironment + FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElRegistroDeCabecera LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -121,11 +204,101 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', 'VERSION = 3.00' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('dataenvironment') lcParent = '' lcObjName = 'Dataenvironment' - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + + *-- TEST + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF + + LOCATE FOR PLATFORM=="COMMENT " AND UniqueID=="Screen " + IF NOT FOUND() + ERROR 'No se encontró el registro de cabecera "Screen"' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) + + *-- + CATCH TO loEx + ENDTRY + + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + + ENDFUNC + + + ******************************************************************************************************************************************* + FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__dataenvironment + LOCAL lnCodError, lcMenError, lnCodError_Esperado ; + , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + , loEx AS EXCEPTION + + loEx = NULL + oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) + + *-- DATOS DE ENTRADA + STORE 0 TO lnCodError + lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx' + lcDontShowErrors = '1' + + *-- DATOS ESPERADOS + STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + TEXT TO loReg_Esperado.Reserved3 NOSHOW FLAGS 1+2 PRETEXT 1+2+4 Top = 404 Left = 11 Width = 520 @@ -133,33 +306,60 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg DataSource = .NULL. Name = "Dataenvironment" ENDTEXT + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) - lnPropsAndValues_Count_Esperado = ALINES( laProps, lcMemo, 1+4 ) - DIMENSION laPropsAndValues_Esperado(lnPropsAndValues_Count_Esperado,2) - - FOR I = 1 TO lnPropsAndValues_Count_Esperado - loObj.get_SeparatedPropAndValue( laProps(I), @lcProp, @lcValue ) - laPropsAndValues_Esperado(I,1) = lcProp - laPropsAndValues_Esperado(I,2) = lcValue - ENDFOR + lcClass = LOWER('dataenvironment') + lcParent = '' + lcObjName = 'Dataenvironment' *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF +SET STEP ON + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + CATCH TO loEx + ENDTRY - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -168,12 +368,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__dataenvironment__Cursor1 LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -184,6 +383,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('cursor') lcParent = 'Dataenvironment' lcObjName = 'Cursor1' @@ -209,21 +433,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -232,12 +472,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1 LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -248,6 +487,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('cl_form') lcParent = '' lcObjName = 'Cl_form1' @@ -301,21 +565,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -324,12 +604,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__shape1 LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -340,6 +619,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('shape') lcParent = 'Cl_form1' lcObjName = 'Shape1' @@ -368,21 +672,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -391,12 +711,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__txtPromotor LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -407,6 +726,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('textbox') lcParent = 'Cl_form1' lcObjName = 'txtPromotor' @@ -438,21 +782,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -461,12 +821,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__lblPromotor LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -477,6 +836,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('label') lcParent = 'Cl_form1' lcObjName = 'lblPromotor' @@ -505,21 +889,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -528,12 +928,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__txtIdenc LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -544,6 +943,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('textbox') lcParent = 'Cl_form1' lcObjName = 'txtIdenc' @@ -575,21 +999,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -598,12 +1038,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__lblIdenc LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -614,6 +1053,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('label') lcParent = 'Cl_form1' lcObjName = 'lblIdenc' @@ -642,21 +1106,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -665,12 +1145,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__txtCalific LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -681,6 +1160,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('textbox') lcParent = 'Cl_form1' lcObjName = 'txtCalific' @@ -712,21 +1216,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -735,12 +1255,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__lblCalific LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -751,6 +1270,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('label') lcParent = 'Cl_form1' lcObjName = 'lblCalific' @@ -779,21 +1323,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -802,12 +1362,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__lblCalific LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -818,6 +1377,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('textbox') lcParent = 'Cl_form1' lcObjName = 'txtFecha' @@ -848,21 +1432,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -871,12 +1471,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__lblFecha LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -887,6 +1486,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('label') lcParent = 'Cl_form1' lcObjName = 'lblFecha' @@ -915,21 +1539,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -938,12 +1578,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__txtResultado LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -954,6 +1593,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('textbox') lcParent = 'Cl_form1' lcObjName = 'txtResultado' @@ -985,21 +1649,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -1008,12 +1688,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__lblResultado LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -1024,6 +1703,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('label') lcParent = 'Cl_form1' lcObjName = 'lblResultado' @@ -1052,21 +1756,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -1075,12 +1795,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1__grdEncuestas LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -1091,6 +1810,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('grid') lcParent = 'Cl_form1' lcObjName = 'grdEncuestas' @@ -1141,21 +1885,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -1164,12 +1924,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column1__Header1 LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -1180,6 +1939,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('header') lcParent = 'Cl_form1.grdEncuestas.Column1' lcObjName = 'Header1' @@ -1200,21 +1984,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -1223,12 +2023,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column1__Text1 LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -1239,6 +2038,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('textbox') lcParent = 'Cl_form1.grdEncuestas.Column1' lcObjName = 'Text1' @@ -1263,21 +2087,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -1286,12 +2126,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column2__Header1 LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -1302,6 +2141,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('header') lcParent = 'Cl_form1.grdEncuestas.Column2' lcObjName = 'Header1' @@ -1322,21 +2186,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -1345,12 +2225,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column2__Text1 LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -1361,6 +2240,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('textbox') lcParent = 'Cl_form1.grdEncuestas.Column2' lcObjName = 'Text1' @@ -1385,21 +2289,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -1408,12 +2328,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column3__Header1 LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -1424,6 +2343,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('header') lcParent = 'Cl_form1.grdEncuestas.Column3' lcObjName = 'Header1' @@ -1444,21 +2388,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -1467,12 +2427,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column3__Text1 LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -1483,6 +2442,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('textbox') lcParent = 'Cl_form1.grdEncuestas.Column3' lcObjName = 'Text1' @@ -1507,21 +2491,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -1530,12 +2530,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column4__Header1 LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -1546,6 +2545,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('header') lcParent = 'Cl_form1.grdEncuestas.Column4' lcObjName = 'Header1' @@ -1566,21 +2590,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -1589,12 +2629,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column4__Text1 LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -1605,6 +2644,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('textbox') lcParent = 'Cl_form1.grdEncuestas.Column4' lcObjName = 'Text1' @@ -1629,21 +2693,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -1652,12 +2732,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column5__Header1 LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -1668,6 +2747,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('header') lcParent = 'Cl_form1.grdEncuestas.Column5' lcObjName = 'Header1' @@ -1688,21 +2792,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -1711,12 +2831,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1_grdEncuestas_Column5__Text1 LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -1727,6 +2846,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('textbox') lcParent = 'Cl_form1.grdEncuestas.Column5' lcObjName = 'Text1' @@ -1751,21 +2895,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -1774,12 +2934,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1___Commandgroup1 LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -1790,6 +2949,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('commandgroup') lcParent = 'Cl_form1' lcObjName = 'Commandgroup1' @@ -1831,21 +3015,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -1854,12 +3054,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1___Optiongroup1 LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -1870,6 +3069,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('Optiongroup') lcParent = 'Cl_form1' lcObjName = 'Optiongroup1' @@ -1915,21 +3139,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC @@ -1938,12 +3178,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__Cl_form1___Cl_olecontrol1 LOCAL lnCodError, lcMenError, lnCodError_Esperado ; , lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ; - , laDatos(1,1), lcParent, lcClass, lcObjName, lcMemo, laProps(1), lcProp, lcValue ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; + , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; , loEx AS EXCEPTION - LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" - loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") loEx = NULL oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) @@ -1954,6 +3193,31 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado + loReg_Esperado = CREATEOBJECT("EMPTY") + + *-- Reserved1 + ADDPROPERTY( loReg_Esperado, 'Reserved1', '' ) + *-- Reserved2 + ADDPROPERTY( loReg_Esperado, 'Reserved2', '' ) + *-- Reserved3 + ADDPROPERTY( loReg_Esperado, 'Reserved3', '' ) + *-- Reserved4 + ADDPROPERTY( loReg_Esperado, 'Reserved4', '' ) + *-- Reserved5 + ADDPROPERTY( loReg_Esperado, 'Reserved5', '' ) + *-- Reserved6 + ADDPROPERTY( loReg_Esperado, 'Reserved6', '' ) + *-- Reserved7 + ADDPROPERTY( loReg_Esperado, 'Reserved7', '' ) + *-- Reserved8 + ADDPROPERTY( loReg_Esperado, 'Reserved8', '' ) + *-- Properties + ADDPROPERTY( loReg_Esperado, 'Properties', '' ) + *-- Protected + ADDPROPERTY( loReg_Esperado, 'Protected', '' ) + *-- Methods + ADDPROPERTY( loReg_Esperado, 'Methods', '' ) + lcClass = LOWER('Cl_olecontrol') lcParent = 'Cl_form1' lcObjName = 'Cl_olecontrol1' @@ -1977,21 +3241,37 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST - DO FOXBIN2PRG.prg WITH lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress - DO FOXBIN2PRG.prg WITH FORCEEXT(lc_InputFile,'VC2'), lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress + TRY + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. + lnCodError = loCnv.Convertir( lc_InputFile, @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + lnCodError = loCnv.Convertir( FORCEEXT(lc_InputFile,'SC2'), @loModulo, @loEx ) + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(lc_InputFile) + USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + lc_InputFile + '"' + ENDIF - IF FILE(lc_InputFile) - USE (lc_InputFile) SHARED NOUPDATE ALIAS TABLABIN - ELSE - ERROR 'No se encontró el archivo "' + lc_InputFile + '"' - ENDIF + LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro buscado' + ENDIF + SCATTER MEMO NAME loReg + USE IN (SELECT("TABLABIN")) - SELECT Properties FROM TABLABIN WHERE CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName INTO ARRAY laDatos - USE IN (SELECT("TABLABIN")) - loObj.get_PropsAndValuesFrom_PROPERTIES( laDatos(1), 0, @laPropsAndValues, @lnPropsAndValues_Count, '' ) + CATCH TO loEx + ENDTRY - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, @laPropsAndValues, lnPropsAndValues_Count ; - , @laPropsAndValues_Esperado, lnPropsAndValues_Count_Esperado, lcParent, lcClass, lcObjName ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) ENDFUNC diff --git a/foxbin2prg.prg b/foxbin2prg.prg index 68b863d..26ab1bc 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -283,9 +283,9 @@ TRY CATCH TO loEx IF llExisteConfig - goCnv.writeLog( 'ERROR: ' + TRANSFORM(loEx.ErrorNo) + ', ' + loEx.Message + CR_LF ; - + loEx.Procedure + ', line ' + TRANSFORM(loEx.LineNo) + CR_LF ; - + loEx.Details ) + goCnv.writeLog( 'ERROR: ' + TRANSFORM(loEx.ERRORNO) + ', ' + loEx.MESSAGE + CR_LF ; + + loEx.PROCEDURE + ', line ' + TRANSFORM(loEx.LINENO) + CR_LF ; + + loEx.DETAILS ) ENDIF FINALLY @@ -314,6 +314,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM + [] ; + [] ; + [] ; + + [] ; + [] ; + [] ; + [] ; @@ -337,6 +338,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM c_LogFile = '' c_OutputFile = '' l_Debug = .F. + l_Test = .F. l_ShowErrors = .F. lFileMode = .F. nClassTimeStamp = '' @@ -380,10 +382,10 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM ******************************************************************************************************************* PROCEDURE Convertir - LPARAMETERS tc_InputFile + LPARAMETERS tc_InputFile, toModulo, toEx AS EXCEPTION TRY - LOCAL lnCodError, loEx AS EXCEPTION, lcErrorInfo + LOCAL lnCodError, lcErrorInfo lnCodError = 0 THIS.c_InputFile = FULLPATH( tc_InputFile ) THIS.c_CurDir = JUSTPATH( THIS.c_InputFile ) @@ -442,13 +444,14 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM THIS.o_Conversor.c_OutputFile = THIS.c_OutputFile THIS.o_Conversor.c_LogFile = THIS.c_LogFile THIS.o_Conversor.l_Debug = THIS.l_Debug + THIS.o_Conversor.l_Test = THIS.l_Test THIS.o_Conversor.n_FB2PRG_Version = THIS.n_FB2PRG_Version - THIS.o_Conversor.Convertir() + THIS.o_Conversor.Convertir( @toModulo ) THIS.o_Conversor = NULL - CATCH TO loEx - lnCodError = loEx.ERRORNO - lcErrorInfo = THIS.Exception2Str(loEx) + CR_LF + CR_LF + 'Fuente: ' + THIS.c_InputFile + CATCH TO toEx + lnCodError = toEx.ERRORNO + lcErrorInfo = THIS.Exception2Str(toEx) + CR_LF + CR_LF + 'Fuente: ' + THIS.c_InputFile TRY STRTOFILE( lcErrorInfo, THIS.c_InputFile + '.ERR' ) @@ -651,6 +654,7 @@ DEFINE CLASS c_conversor_base AS SESSION ******************************************************************************************************************* PROCEDURE Convertir + LPARAMETERS toModulo, toEx AS EXCEPTION THIS.writeLog( '' ) THIS.writeLog( 'Convirtiendo archivo ' + THIS.c_OutputFile + '...' ) ENDPROC @@ -1348,7 +1352,8 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base ******************************************************************************************************************* PROCEDURE Convertir - DODEFAULT() + LPARAMETERS toModulo, toEx AS EXCEPTION + DODEFAULT( @toModulo, @toEx ) ENDPROC @@ -1752,14 +1757,16 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base lcMemo = '' IF toClase._Prop_Count > 0 - DIMENSION laProps( toClase._Prop_Count, 2 ) + DIMENSION laProps( toClase._Prop_Count, 3 ) ACOPY( toClase._Props, laProps ) lnPropsAndValues_Count = 0 WITH THIS *-- OBTENGO LAS PROPIEDADES Y SUS VALORES FOR I = 1 TO toClase._Prop_Count - .get_SeparatedPropAndValue( toClase._Props(I,1), @lcPropName, @lcValue ) + *.get_SeparatedPropAndValue( toClase._Props(I,1), @lcPropName, @lcValue ) + lcPropName = toClase._Props(I,1) + lcValue = toClase._Props(I,2) DO CASE CASE EMPTY(lcPropName) @@ -1829,14 +1836,15 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base IF toObjeto._Prop_Count > 0 DIMENSION laPropsAndValues( toObjeto._Prop_Count, 2 ) + ACOPY( toObjeto._Props, laPropsAndValues ) - WITH THIS - FOR I = 1 TO toObjeto._Prop_Count - .get_SeparatedPropAndValue( toObjeto._Props(I,1), @lcPropName, @lcValue ) - laPropsAndValues(I,1) = lcPropName - laPropsAndValues(I,2) = lcValue - ENDFOR - ENDWITH && THIS + *WITH THIS + * FOR I = 1 TO toObjeto._Prop_Count + * .get_SeparatedPropAndValue( toObjeto._Props(I,1), @lcPropName, @lcValue ) + * laPropsAndValues(I,1) = lcPropName + * laPropsAndValues(I,2) = lcValue + * ENDFOR + *ENDWITH && THIS *-- REORDENO LAS PROPIEDADES @@ -2537,7 +2545,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base *toProject.setParsedProjInfoLine( @tcLine ) lnPos = AT( ' ', tcLine, 1 ) lnPos2 = AT( '&'+'&', tcLine ) - + IF lnPos2 > 0 *-- Con comentarios lcDefinedPAM = lcDefinedPAM ; @@ -2590,7 +2598,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base IF LEFT( tcLine, 11 ) == 'ADD OBJECT ' *-- Estructura a reconocer: ADD OBJECT 'frm_a.Check1' AS check [WITH] llBloqueEncontrado = .T. - LOCAL laPropsAndValues(1,2), lnPropsAndValues_Count, Z + LOCAL laPropsAndValues(1,2), lnPropsAndValues_Count, Z, lcProp, lcValue tcLine = CHRTRAN( tcLine, ['], ["] ) IF EMPTY(toClase._Fin_Cab) @@ -2647,10 +2655,12 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base IF RIGHT(tcLine, 3) == ', ;' *toObjeto.add_Property( .desnormalizarAsignacion( LEFT(tcLine, LEN(tcLine) - 3) ) ) - toObjeto.add_Property( LEFT(tcLine, LEN(tcLine) - 3) ) + .get_SeparatedPropAndValue( LEFT(tcLine, LEN(tcLine) - 3), @lcProp, @lcValue ) + toObjeto.add_Property( @lcProp, @lcValue ) ELSE *toObjeto.add_Property( .desnormalizarAsignacion( RTRIM(tcLine) ) ) - toObjeto.add_Property( RTRIM(tcLine) ) + .get_SeparatedPropAndValue( RTRIM(tcLine), @lcProp, @lcValue ) + toObjeto.add_Property( @lcProp, @lcValue ) ENDIF ENDFOR @@ -2719,7 +2729,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base IF LEFT(tcLine + ' ', 13) == C_DEFINE_CLASS + ' ' TRY llBloqueEncontrado = .T. - LOCAL Z, loEx AS EXCEPTION ; + LOCAL Z, lcProp, lcValue, loEx AS EXCEPTION ; , llMETADATA_Completed, llPROTECTED_Completed, llHIDDEN_Completed, llDEFINED_PAM_Completed ; , llINCLUDE_Completed, llCLASS_PROPERTY_Completed @@ -2803,7 +2813,8 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base CASE NOT llCLASS_PROPERTY_Completed AND EMPTY( toClase._Fin_Cab ) && Propiedades del DEFINE CLASS *toClase.add_Property( THIS.desnormalizarAsignacion( RTRIM(tcLine) ), RTRIM(tc_Comentario) ) - toClase.add_Property( RTRIM(tcLine), RTRIM(tc_Comentario) ) + .get_SeparatedPropAndValue( RTRIM(tcLine), @lcProp, @lcValue ) + toClase.add_Property( @lcProp, @lcValue, RTRIM(tc_Comentario) ) OTHERWISE @@ -2822,6 +2833,18 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base + 'para el identificador [' + toClase._Nombre + ']' ENDIF + toClase._PROPERTIES = THIS.classProps2Memo( toClase ) + toClase._PROTECTED = THIS.hiddenAndProtected_PAM( toClase ) + toClase._METHODS = THIS.classMethods2Memo( toClase ) + *toClase._RESERVED1 = IIF( THIS.c_Type = 'SCX', 'Screen', 'Class' ) + toClase._RESERVED2 = TRANSFORM( toClase._AddObject_Count + 1 ) + toClase._RESERVED3 = THIS.defined_PAM2Memo( toClase ) + toClase._RESERVED4 = toClase._ClassIcon + toClase._RESERVED5 = toClase._ProjectClassIcon + toClase._RESERVED6 = toClase._Scale + toClase._RESERVED7 = toClase._Comentario + toClase._RESERVED8 = toClase._includeFile + CATCH TO loEx IF THIS.l_Debug AND _VFP.STARTMODE = 0 SET STEP ON @@ -3010,11 +3033,12 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin ******************************************************************************************************************* PROCEDURE Convertir - DODEFAULT() + LPARAMETERS toModulo, toEx AS EXCEPTION + DODEFAULT( @toModulo, @toEx ) TRY - LOCAL lnCodError, loEx AS EXCEPTION, loReg, lcLine, laCodeLines(1), lnCodeLines, lnFB2P_Version, lcSourceFile ; - , laBloquesExclusion(1,2), lnBloquesExclusion, I, toModulo + LOCAL lnCodError, loReg, lcLine, laCodeLines(1), lnCodeLines, lnFB2P_Version, lcSourceFile ; + , laBloquesExclusion(1,2), lnBloquesExclusion, I STORE 0 TO lnCodError, lnCodeLines, lnFB2P_Version STORE '' TO lcLine, lcSourceFile STORE NULL TO loReg, toModulo @@ -3031,9 +3055,7 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin THIS.escribirArchivoBin( @toModulo ) - CATCH TO loEx - lnCodError = loEx.ERRORNO - + CATCH TO toEx IF THIS.l_Debug AND _VFP.STARTMODE = 0 SET STEP ON ENDIF @@ -3042,7 +3064,7 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin ENDTRY - RETURN lnCodError + RETURN ENDPROC @@ -3165,14 +3187,14 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin , loClase._BaseClass ; , loClase._ObjName ; , loClase._Parent ; - , THIS.classProps2Memo( loClase ) ; - , THIS.hiddenAndProtected_PAM( loClase ) ; - , THIS.classMethods2Memo( loClase ) ; + , loClase._PROPERTIES ; + , loClase._PROTECTED ; + , loClase._METHODS ; , loClase._Ole ; , loClase._Ole2 ; - , 'Class' ; - , TRANSFORM( loClase._AddObject_Count + 1 ) ; - , THIS.defined_PAM2Memo( loClase ) ; + , loClase._RESERVED1 ; + , loClase._RESERVED2 ; + , loClase._RESERVED3 ; , loClase._ClassIcon ; , loClase._ProjectClassIcon ; , loClase._Scale ; @@ -3270,11 +3292,12 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin ******************************************************************************************************************* PROCEDURE Convertir - DODEFAULT() + LPARAMETERS toModulo, toEx AS EXCEPTION + DODEFAULT( @toModulo, @toEx ) TRY - LOCAL lnCodError, loEx AS EXCEPTION, loReg, lcLine, laCodeLines(1), lnCodeLines, lnFB2P_Version, lcSourceFile ; - , laBloquesExclusion(1,2), lnBloquesExclusion, I, toModulo + LOCAL lnCodError, loReg, lcLine, laCodeLines(1), lnCodeLines, lnFB2P_Version, lcSourceFile ; + , laBloquesExclusion(1,2), lnBloquesExclusion, I STORE 0 TO lnCodError, lnCodeLines, lnFB2P_Version STORE '' TO lcLine, lcSourceFile STORE NULL TO loReg, toModulo @@ -3291,9 +3314,7 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin THIS.escribirArchivoBin( @toModulo ) - CATCH TO loEx - lnCodError = loEx.ERRORNO - + CATCH TO toEx IF THIS.l_Debug AND _VFP.STARTMODE = 0 SET STEP ON ENDIF @@ -3302,7 +3323,7 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin ENDTRY - RETURN lnCodError + RETURN ENDPROC @@ -3430,14 +3451,14 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin , loClase._BaseClass ; , loClase._ObjName ; , loClase._Parent ; - , THIS.classProps2Memo( loClase ) ; - , THIS.hiddenAndProtected_PAM( loClase ) ; - , THIS.classMethods2Memo( loClase ) ; + , loClase._PROPERTIES ; + , loClase._PROTECTED ; + , loClase._METHODS ; , loClase._Ole ; , loClase._Ole2 ; - , '' ; - , TRANSFORM( loClase._AddObject_Count + 1 ) ; - , THIS.defined_PAM2Memo( loClase ) ; + , loClase._RESERVED1 ; + , loClase._RESERVED2 ; + , loClase._RESERVED3 ; , loClase._ClassIcon ; , loClase._ProjectClassIcon ; , loClase._Scale ; @@ -3506,8 +3527,6 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin CATCH TO loEx - lnCodError = loEx.ERRORNO - IF THIS.l_Debug AND _VFP.STARTMODE = 0 SET STEP ON ENDIF @@ -3519,7 +3538,7 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin ENDTRY - RETURN lnCodError + RETURN ENDPROC ENDDEFINE @@ -3545,12 +3564,16 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin ******************************************************************************************************************* PROCEDURE Convertir - DODEFAULT() + LPARAMETERS toModulo, toEx AS EXCEPTION + DODEFAULT( @toModulo, @toEx ) + + #IF .F. + LOCAL toProject AS CL_PROJECT OF 'FOXBIN2PRG.PRG' + #ENDIF TRY - LOCAL lnCodError, loEx AS EXCEPTION, loReg, lcLine, laCodeLines(1), lnCodeLines, lnFB2P_Version, lcSourceFile ; - , laBloquesExclusion(1,2), lnBloquesExclusion, I ; - , loProject AS CL_PROJECT OF 'FOXBIN2PRG.PRG' + LOCAL lnCodError, loReg, lcLine, laCodeLines(1), lnCodeLines, lnFB2P_Version, lcSourceFile ; + , laBloquesExclusion(1,2), lnBloquesExclusion, I STORE 0 TO lnCodError, lnCodeLines, lnFB2P_Version STORE '' TO lcLine, lcSourceFile STORE NULL TO loReg, toModulo @@ -3562,14 +3585,12 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin *THIS.identificarBloquesDeExclusion( @laCodeLines, .F., @laBloquesExclusion, @lnBloquesExclusion ) *-- Identifico el inicio/fin de bloque, definición, cabecera y cuerpo de cada clase - THIS.identificarBloquesDeCodigo( @laCodeLines, lnCodeLines, @laBloquesExclusion, lnBloquesExclusion, @loProject ) + THIS.identificarBloquesDeCodigo( @laCodeLines, lnCodeLines, @laBloquesExclusion, lnBloquesExclusion, @toProject ) - THIS.escribirArchivoBin( @loProject ) + THIS.escribirArchivoBin( @toProject ) - CATCH TO loEx - lnCodError = loEx.ERRORNO - + CATCH TO toEx IF THIS.l_Debug AND _VFP.STARTMODE = 0 SET STEP ON ENDIF @@ -3578,7 +3599,7 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin ENDTRY - RETURN lnCodError + RETURN ENDPROC @@ -4274,7 +4295,8 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base ******************************************************************************************************************* PROCEDURE Convertir - DODEFAULT() + LPARAMETERS toModulo, toEx AS EXCEPTION + DODEFAULT( @toModulo, @toEx ) ENDPROC @@ -4306,38 +4328,36 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base ******************************************************************************************************************* PROCEDURE get_ADD_OBJECT_METHODS - LPARAMETERS toRegObj, toRegClass, tcMethods + LPARAMETERS toRegObj, toRegClass, tcMethods, taMethods, taCode, tnMethodCount TRY - LOCAL laMethods(1,3), laCode(1), lnMethodCount - - THIS.SortMethod( toRegObj.METHODS, @laMethods, @laCode, '', @lnMethodCount ) + THIS.SortMethod( toRegObj.METHODS, @taMethods, @taCode, '', @tnMethodCount ) *-- Ubico los métodos protegidos y les cambio la definición. *-- Los métodos se deben generar con la ruta completa, porque si no es imposible saber a que objeto corresponden, *-- o si son de la clase. - IF lnMethodCount > 0 THEN - FOR I = 1 TO lnMethodCount + IF tnMethodCount > 0 THEN + FOR I = 1 TO tnMethodCount IF EMPTY(toRegObj.PARENT) - lcMethodName = toRegObj.OBJNAME + '.' + laMethods(I,1) + tcMethodName = toRegObj.OBJNAME + '.' + taMethods(I,1) ELSE DO CASE CASE '.' $ toRegObj.PARENT - lcMethodName = SUBSTR(toRegObj.PARENT, AT('.', toRegObj.PARENT) + 1) + '.' + toRegObj.OBJNAME + '.' + laMethods(I,1) + tcMethodName = SUBSTR(toRegObj.PARENT, AT('.', toRegObj.PARENT) + 1) + '.' + toRegObj.OBJNAME + '.' + taMethods(I,1) CASE LEFT(toRegObj.PARENT + '.', LEN( toRegClass.OBJNAME + '.' ) ) == toRegClass.OBJNAME + '.' - lcMethodName = toRegObj.OBJNAME + '.' + laMethods(I,1) + tcMethodName = toRegObj.OBJNAME + '.' + taMethods(I,1) OTHERWISE - lcMethodName = toRegObj.PARENT + '.' + toRegObj.OBJNAME + '.' + laMethods(I,1) + tcMethodName = toRegObj.PARENT + '.' + toRegObj.OBJNAME + '.' + taMethods(I,1) ENDCASE ENDIF *-- Genero el método SIN indentar, ya que se hace luego TEXT TO tcMethods ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 - <<'PROCEDURE'>> <> - <> + <<'PROCEDURE'>> <> + <> <<'ENDPROC'>> ENDTEXT ENDFOR @@ -4767,8 +4787,8 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base ENDTEXT ENDIF ENDPROC - - + + ******************************************************************************************************************* PROCEDURE write_CABECERA_REPORTE LPARAMETERS toReg @@ -4777,7 +4797,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base LOCAL lc_TAG_REPORTE lc_TAG_REPORTE_I = '<' + C_TAG_REPORTE + ' ' lc_TAG_REPORTE_F = ' >' - + TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 <> ENDTEXT @@ -4878,8 +4898,8 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base RETURN ENDPROC - - + + ******************************************************************************************************************* PROCEDURE write_DETALLE_REPORTE LPARAMETERS toReg @@ -4888,7 +4908,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base LOCAL lc_TAG_REPORTE lc_TAG_REPORTE_I = '<' + C_TAG_REPORTE + ' ' lc_TAG_REPORTE_F = ' >' - + TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 <> ENDTEXT @@ -4989,8 +5009,8 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base RETURN ENDPROC - - + + ******************************************************************************************************************* PROCEDURE write_DATAENVIRONMENT_REPORTE LPARAMETERS toReg @@ -4999,7 +5019,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base LOCAL lc_TAG_REPORTE lc_TAG_REPORTE_I = '<' + C_TAG_REPORTE + ' ' lc_TAG_REPORTE_F = ' >' - + TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 <> ENDTEXT @@ -5721,10 +5741,11 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg ******************************************************************************************************************* PROCEDURE Convertir - DODEFAULT() + LPARAMETERS toModulo, toEx AS EXCEPTION + DODEFAULT( @toModulo, @toEx ) TRY - LOCAL lnCodError, loEx AS EXCEPTION, loRegClass, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1) ; + LOCAL lnCodError, loRegClass, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1) ; , laPropsAndValues(1), laPropsAndComments(1), lnLastClass, lnRecno, lcMethods, lcObjName, la_NombresObjsOle(1) STORE 0 TO lnCodError, lnLastClass STORE '' TO laMethods(1), laCode(1), laProtected(1), laPropsAndComments(1) @@ -5812,13 +5833,16 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg THIS.write_ENDDEFINE_SiCorresponde( lnLastClass ) *-- Genero el VC2 - IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 - ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' + IF THIS.l_Test + toModulo = C_FB2PRG_CODE + ELSE + IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' + ENDIF ENDIF - CATCH TO loEx - lnCodError = loEx.ERRORNO + CATCH TO toEx IF THIS.l_Debug AND _VFP.STARTMODE = 0 SET STEP ON ENDIF @@ -5830,7 +5854,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg ENDTRY - RETURN lnCodError + RETURN ENDPROC ENDDEFINE @@ -5847,10 +5871,15 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg ******************************************************************************************************************* PROCEDURE Convertir - DODEFAULT() + LPARAMETERS toModulo, toEx AS EXCEPTION + DODEFAULT( @toModulo, @toEx ) + + #IF .F. + LOCAL toModulo AS CL_MODULO OF 'FOXBIN2PRG.PRG' + #ENDIF TRY - LOCAL lnCodError, loEx AS EXCEPTION, loRegClass, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1) ; + LOCAL lnCodError, loRegClass, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1) ; , laPropsAndValues(1), laPropsAndComments(1), lnLastClass, lnRecno, lcMethods, lcObjName, la_NombresObjsOle(1) STORE 0 TO lnCodError, lnLastClass STORE '' TO laMethods(1), laCode(1), laProtected(1), laPropsAndComments(1) @@ -5861,6 +5890,9 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg INDEX ON PADR(LOWER(PLATFORM + IIF(EMPTY(PARENT),'',ALLTRIM(PARENT)+'.')+OBJNAME),240) TAG PARENT_OBJ OF TABLABIN ADDITIVE SET ORDER TO 0 IN TABLABIN + *toModulo = NULL + *toModulo = CREATEOBJECT('CL_MODULO') + THIS.write_PROGRAM_HEADER() THIS.get_NombresObjetosOLEPublic( @la_NombresObjsOle ) @@ -5891,7 +5923,10 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg SCAN ALL FOR TABLABIN.PLATFORM = "WINDOWS" ; AND (EMPTY(TABLABIN.PARENT) ; AND (TABLABIN.BASECLASS == 'dataenvironment' OR TABLABIN.BASECLASS == 'form' OR TABLABIN.BASECLASS == 'formset' ) ) + + *loRegClass = NULL SCATTER MEMO NAME loRegClass + *toModulo.add_Class( loRegClass ) lcObjName = ALLTRIM(loRegClass.OBJNAME) THIS.write_ENDDEFINE_SiCorresponde( lnLastClass ) @@ -5954,13 +5989,16 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg THIS.write_ENDDEFINE_SiCorresponde( lnLastClass ) *-- Genero el SC2 - IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 - ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' + IF THIS.l_Test + toModulo = C_FB2PRG_CODE + ELSE + IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' + ENDIF ENDIF - CATCH TO loEx - lnCodError = loEx.ERRORNO + CATCH TO toEx IF THIS.l_Debug AND _VFP.STARTMODE = 0 SET STEP ON ENDIF @@ -5968,11 +6006,13 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg THROW FINALLY + loRegObj = NULL + loRegClass = NULL USE IN (SELECT("TABLABIN")) ENDTRY - RETURN lnCodError + RETURN ENDPROC ENDDEFINE @@ -6003,7 +6043,8 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg ******************************************************************************************************************* PROCEDURE Convertir - DODEFAULT() + LPARAMETERS toModulo, toEx AS EXCEPTION + DODEFAULT( @toModulo, @toEx ) TRY LOCAL lnCodError, lcStr, lnPos, lnLen, lnServerCount, loReg, lcDevInfo ; @@ -6248,18 +6289,22 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg *-- Genero el PJ2 - IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 - ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' + IF THIS.l_Test + toModulo = C_FB2PRG_CODE + ELSE + IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' + ENDIF + *COMPILE ( THIS.c_outputFile ) ENDIF - *COMPILE ( THIS.c_outputFile ) - CATCH TO loEx - lnCodError = loEx.ERRORNO + CATCH TO toEx + lnCodError = toEx.ERRORNO DO CASE CASE lnCodError = 2062 && The specified key already exists ==> loProject.ADD( loReg, loReg.NAME ) - loEx.USERVALUE = 'Archivo duplicado: ' + loReg.NAME + toEx.USERVALUE = 'Archivo duplicado: ' + loReg.NAME ENDCASE IF THIS.l_Debug AND _VFP.STARTMODE = 0 @@ -6273,7 +6318,7 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg ENDTRY - RETURN lnCodError + RETURN ENDPROC ENDDEFINE @@ -6290,17 +6335,18 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg ******************************************************************************************************************* PROCEDURE Convertir - DODEFAULT() + LPARAMETERS toModulo, toEx AS EXCEPTION + DODEFAULT( @toModulo, @toEx ) TRY - LOCAL lnCodError, loEx AS EXCEPTION, loRegCab, loRegDataEnv, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1) ; + LOCAL lnCodError, loRegCab, loRegDataEnv, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1) ; , laPropsAndValues(1), laPropsAndComments(1), lnLastClass, lnRecno, lcMethods, lcObjName, la_NombresObjsOle(1) STORE 0 TO lnCodError, lnLastClass STORE '' TO laMethods(1), laCode(1), laProtected(1), laPropsAndComments(1) STORE NULL TO loRegObj, loRegCab, loRegDataEnv USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS TABLABIN_0 - + GO TOP && Tiene que ser objType = 1 SCATTER MEMO NAME loRegCab GOTO BOTTOM && Tiene que ser objType = 25 @@ -6321,7 +6367,7 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg SELECT TABLABIN GOTO TOP THIS.write_CABECERA_REPORTE( @loRegCab ) - + SCAN ALL SCATTER MEMO NAME loRegObj THIS.write_DETALLE_REPORTE( @loRegObj ) @@ -6330,13 +6376,16 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg THIS.write_DATAENVIRONMENT_REPORTE( @loRegDataEnv ) *-- Genero el SC2 - IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 - ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' + IF THIS.l_Test + toModulo = C_FB2PRG_CODE + ELSE + IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' + ENDIF ENDIF - CATCH TO loEx - lnCodError = loEx.ERRORNO + CATCH TO toEx IF THIS.l_Debug AND _VFP.STARTMODE = 0 SET STEP ON ENDIF @@ -6349,7 +6398,7 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg ENDTRY - RETURN lnCodError + RETURN ENDPROC ENDDEFINE @@ -6528,9 +6577,21 @@ DEFINE CLASS CL_CLASE AS CL_BASE + [] ; + [] ; + [] ; - + [] ; + + [] ; + + [] ; + + [] ; + + [] ; + + [] ; + + [] ; + + [] ; + + [] ; + + [] ; + + [] ; + + [] ; + + [] ; + [] + DIMENSION _Props[1,2], _AddObjects[1], _Procedures[1] _Nombre = '' _ObjName = '' @@ -6564,6 +6625,17 @@ DEFINE CLASS CL_CLASE AS CL_BASE _includeFile = '' _AddObject_Count = 0 _Procedure_Count = 0 + _PROPERTIES = '' + _PROTECTED = '' + _METHODS = '' + _RESERVED1 = '' + _RESERVED2 = '' + _RESERVED3 = '' + _RESERVED4 = '' + _RESERVED5 = '' + _RESERVED6 = '' + _RESERVED7 = '' + _RESERVED8 = '' _User = '' @@ -6583,11 +6655,12 @@ DEFINE CLASS CL_CLASE AS CL_BASE ************************************************************************************************ PROCEDURE add_Property - LPARAMETERS tcProperty AS STRING, tcComment AS STRING + LPARAMETERS tcProperty AS STRING, tcValue AS STRING, tcComment AS STRING THIS._Prop_Count = THIS._Prop_Count + 1 - DIMENSION THIS._Props( THIS._Prop_Count, 2 ) + DIMENSION THIS._Props( THIS._Prop_Count, 3 ) THIS._Props( THIS._Prop_Count, 1 ) = tcProperty - THIS._Props( THIS._Prop_Count, 2 ) = tcComment + THIS._Props( THIS._Prop_Count, 2 ) = tcValue + THIS._Props( THIS._Prop_Count, 3 ) = tcComment ENDPROC @@ -6708,10 +6781,11 @@ DEFINE CLASS CL_OBJETO AS CL_BASE ************************************************************************************************ PROCEDURE add_Property - LPARAMETERS tcProperty + LPARAMETERS tcProperty AS STRING, tcValue AS STRING THIS._Prop_Count = THIS._Prop_Count + 1 - DIMENSION THIS._Props( THIS._Prop_Count, 1 ) + DIMENSION THIS._Props( THIS._Prop_Count, 2 ) THIS._Props( THIS._Prop_Count, 1 ) = tcProperty + THIS._Props( THIS._Prop_Count, 2 ) = tcValue ENDPROC