diff --git a/TESTS/ut__foxbin2prg.prg b/TESTS/ut__foxbin2prg.prg index 514169d..143e928 100644 --- a/TESTS/ut__foxbin2prg.prg +++ b/TESTS/ut__foxbin2prg.prg @@ -54,13 +54,11 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg ******************************************************************************************************************************************* FUNCTION Evaluate_results - LPARAMETERS toEx AS EXCEPTION, tnCodError_Esperado, tc_InputFile, tcParent, tcClass, tcObjName, toReg_Esperado + LPARAMETERS toEx AS EXCEPTION, tnCodError_Esperado, tc_OutputFile, tcParent, tcClass, tcObjName, toReg_Esperado #IF .F. PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' #ENDIF - *LOCAL loObj AS c_conversor_base OF "FOXBIN2PRG.PRG" - *loObj = THIS.icObj IF PCOUNT() = 0 THIS.messageout( "* Support method, not a valid test." ) @@ -74,33 +72,36 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- TEST TRY - loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") - *loCnv.l_Debug = .F. - loCnv.l_ShowErrors = .F. - *loCnv.l_Test = .T. - lcTipoBinario = UPPER( JUSTEXT( tc_InputFile ) ) - lnCodError = loCnv.Convertir( tc_InputFile, @loModulo, @toEx ) - IF lnCodError > 0 - EXIT - ENDIF +*!* loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") +*!* *loCnv.l_Debug = .F. +*!* loCnv.l_ShowErrors = .F. +*!* *loCnv.l_Test = .T. + lcTipoBinario = UPPER( JUSTEXT( tc_OutputFile ) ) - DO CASE - CASE lcTipoBinario = 'SCX' - lnCodError = loCnv.Convertir( FORCEEXT(tc_InputFile,'SC2'), @loModulo, @toEx ) - CASE lcTipoBinario = 'VCX' - lnCodError = loCnv.Convertir( FORCEEXT(tc_InputFile,'VC2'), @loModulo, @toEx ) - OTHERWISE - ERROR 'Archivo [' + tc_InputFile + '] no contemplado en los tests!' - ENDCASE +*!* lnCodError = loCnv.Convertir( tc_OutputFile, @loModulo, @toEx ) - IF lnCodError > 0 - EXIT - ENDIF - - IF FILE(tc_InputFile) - USE (tc_InputFile) SHARED NOUPDATE ALIAS TABLABIN +*!* IF lnCodError > 0 +*!* EXIT +*!* ENDIF + +*!* DO CASE +*!* CASE lcTipoBinario = 'SCX' +*!* lnCodError = loCnv.Convertir( FORCEEXT(tc_OutputFile,'SC2'), @loModulo, @toEx ) +*!* CASE lcTipoBinario = 'VCX' +*!* lnCodError = loCnv.Convertir( FORCEEXT(tc_OutputFile,'VC2'), @loModulo, @toEx ) +*!* OTHERWISE +*!* ERROR 'Archivo [' + tc_OutputFile + '] no contemplado en los tests!' +*!* ENDCASE + +*!* IF lnCodError > 0 +*!* EXIT +*!* ENDIF + + IF FILE(tc_OutputFile) + SELECT 0 + USE (tc_OutputFile) SHARED NOUPDATE ALIAS TABLABIN ELSE - ERROR 'No se encontró el archivo "' + tc_InputFile + '"' + ERROR 'No se encontró el archivo "' + tc_OutputFile + '"' ENDIF IF EMPTY(tcParent) AND EMPTY(tcClass) AND EMPTY(tcObjName) @@ -110,13 +111,16 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg CASE lcTipoBinario = 'VCX' LOCATE FOR PLATFORM=="COMMENT " AND UniqueID=="Class " ENDCASE + IF NOT FOUND() + ERROR 'No se encontró el registro de cabecera "' + UniqueID + '"' + ENDIF ELSE LOCATE FOR CLASS==tcClass AND PARENT==tcParent AND objName==tcObjName + IF NOT FOUND() + ERROR 'No se encontró el registro para CLASS=="' + tcClass + '" AND PARENT=="' + tcParent + '" AND objName=="' + tcObjName + '"' + ENDIF ENDIF - - IF NOT FOUND() - ERROR 'No se encontró el registro de cabecera "Screen"' - ENDIF + SCATTER MEMO NAME toReg CATCH TO toEx @@ -131,7 +135,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg , 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") @@ -143,15 +147,15 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- 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 @@ -185,49 +189,44 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg * THIS.messageout( 'Name = ' + TRANSFORM(laMethods_Esperado(I,1)) ) *ENDFOR + THIS.messageout( '' ) + THIS.messageout( 'OLE2 esperado para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(toReg_Esperado.OLE2) ) + + THIS.messageout( '' ) + THIS.messageout( 'Checksum OLE esperado para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(SYS(2007, toReg_Esperado.OLE)) ) + *-- Evaluación de valores - *-- 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" ) + THIS.assertequals( toReg_Esperado.OLE2, toReg.OLE2, "Valor de OLE2" ) + THIS.assertequals( SYS(2007, toReg_Esperado.OLE), SYS(2007, toReg.OLE), "Valor de OLE (Checksum)" ) *-- PROPERTIES - THIS.assertequals( lnPropsAndValues_Count_Esperado, lnPropsAndValues_Count, "Cantidad de 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(laPropsAndValues_Esperado(I,1)) + '"' ) ENDFOR *-- RESERVED3 - THIS.assertequals( lnPropsAndComments_Count_Esperado, lnPropsAndComments_Count, "Cantidad de Reserved3" ) + THIS.assertequals( lnPropsAndComments_Count_Esperado, lnPropsAndComments_Count, "Cantidad de RESERVED3" ) FOR I = 1 TO lnPropsAndComments_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(laPropsAndValues_Esperado(I,1)) + '"' ) ENDFOR *-- PROTECTED - THIS.assertequals( lnProtected_Count_Esperado, lnProtected_Count, "Cantidad de 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(laPropsAndValues_Esperado(I,1)) + '"' ) ENDFOR *-- METHODS - THIS.assertequals( lnMethods_Count_Esperado, lnMethods_Count, "Cantidad de Methods" ) + THIS.assertequals( lnMethods_Count_Esperado, lnMethods_Count, "Cantidad de METHODS" ) FOR I = 1 TO lnMethods_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(laPropsAndValues_Esperado(I,1)) + '"' ) ENDFOR @@ -236,1932 +235,124 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- Evaluación de errores THIS.messageout( "Error " + TRANSFORM(toEx.ERRORNO) + ', ' + TRANSFORM(toEx.MESSAGE) ) THIS.messageout( toEx.PROCEDURE + ', ' + TRANSFORM(toEx.LINENO) ) - THIS.messageout( TRANSFORM(toEx.LINECONTENTS) ) + IF NOT INLIST( toEx.ERRORNO, 1098, 2071 ) && Error del usuario (ERROR y THROW) + THIS.messageout( TRANSFORM(toEx.LINECONTENTS) ) + ENDIF THIS.assertequals( tnCodError_Esperado, toEx.ERRORNO, 'Error' ) ENDIF + + THIS.messageout( '' ) + THIS.messageout( REPLICATE('*',80) ) ENDFUNC ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElRegistroDeCabecera + FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCamposDelRegistro LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; + , lc_File, lc_InputFile, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; , loEx AS EXCEPTION #IF .F. PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' #ENDIF - loEx = NULL - oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) + + TRY + loEx = NULL + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. - *-- DATOS DE ENTRADA - STORE 0 TO lnCodError - lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx' - lcDontShowErrors = '1' + *-- DATOS DE ENTRADA + STORE 0 TO lnCodError + lc_File = 'fb2p_frm_1.scx' + lc_InputFile = FORCEPATH( lc_File, 'TESTS\DATOS_READONLY' ) + lc_OutputFile = FORCEPATH( lc_File, 'TESTS\DATOS_TEST' ) + oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) ) - *-- DATOS ESPERADOS - STORE 0 TO lnCodError_Esperado - lcClass = LOWER('') - lcParent = '' - lcObjName = '' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - loReg_Esperado.Reserved1 = 'VERSION = 3.00' + loCnv.Convertir( lc_OutputFile, .F., .F., .T. ) + loCnv.Convertir( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_File),2 ) + '2' ), .F., .F., .T. ) + SELECT 0 + USE (lc_InputFile) SHARED AGAIN NOUPDATE ALIAS ARCHIBOBIN_IN - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) + SCAN ALL FOR NOT DELETED() AND ( UniqueID==PADR('Form',10) OR PLATFORM==PADR("WINDOWS",8) ) + *-- DATOS ESPERADOS + STORE 0 TO lnCodError_Esperado + SCATTER MEMO NAME loReg_Esperado + lcClass = loReg_Esperado.CLASS + lcParent = loReg_Esperado.PARENT + lcObjName = loReg_Esperado.objName + + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) + ENDSCAN + + CATCH TO loEx + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) + + FINALLY + USE IN (SELECT("ARCHIBOBIN_IN")) + ENDTRY ENDFUNC ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__dataenvironment + FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCamposDelRegistro LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; + , lc_File, lc_InputFile, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; , loEx AS EXCEPTION #IF .F. PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' #ENDIF - loEx = NULL - oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' ) + + TRY + loEx = NULL + loCnv = NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG") + *loCnv.l_Debug = .F. + loCnv.l_ShowErrors = .F. + *loCnv.l_Test = .T. - *-- DATOS DE ENTRADA - STORE 0 TO lnCodError - lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx' - lcDontShowErrors = '1' + *-- DATOS DE ENTRADA + STORE 0 TO lnCodError + lc_File = 'fb2p_test.vcx' + lc_InputFile = FORCEPATH( lc_File, 'TESTS\DATOS_READONLY' ) + lc_OutputFile = FORCEPATH( lc_File, 'TESTS\DATOS_TEST' ) + oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) ) - *-- DATOS ESPERADOS - STORE 0 TO lnCodError_Esperado - lcClass = LOWER('dataenvironment') - lcParent = '' - lcObjName = 'Dataenvironment' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - loReg_Esperado.Reserved2 = '2' - loReg_Esperado.Reserved4 = '1' - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Top = 404 - Left = 11 - Width = 520 - Height = 200 - DataSource = .NULL. - Name = "Dataenvironment" - ENDTEXT + loCnv.Convertir( lc_OutputFile, .F., .F., .T. ) + loCnv.Convertir( FORCEEXT(lc_OutputFile, LEFT( JUSTEXT(lc_File),2 ) + '2' ), .F., .F., .T. ) + SELECT 0 + USE (lc_InputFile) SHARED AGAIN NOUPDATE ALIAS ARCHIBOBIN_IN - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) + SCAN ALL FOR NOT DELETED() AND ( UniqueID==PADR('Class',10) OR PLATFORM==PADR("WINDOWS",8) ) + *-- DATOS ESPERADOS + STORE 0 TO lnCodError_Esperado + SCATTER MEMO NAME loReg_Esperado + lcClass = loReg_Esperado.CLASS + lcParent = loReg_Esperado.PARENT + lcObjName = loReg_Esperado.objName + + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) + ENDSCAN + + CATCH TO loEx + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_OutputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) + + FINALLY + USE IN (SELECT("ARCHIBOBIN_IN")) + ENDTRY ENDFUNC - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__dataenvironment__Cursor1 - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('cursor') - lcParent = 'Dataenvironment' - lcObjName = 'Cursor1' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Top = 20 - Left = 10 - Height = 98 - Width = 102 - Alias = "encuestas" - CursorSource = encuestas.dbf - Name = "Cursor1" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1 - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('cl_form') - lcParent = '' - lcObjName = 'Cl_form1' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Top = 0 - Left = 0 - Height = 345 - Width = 644 - DoCreate = .T. - Name = "Cl_form1" - Cl_optiongroup1.Option1.Value = 0 - Cl_optiongroup1.Option1.Left = 8 - Cl_optiongroup1.Option1.Top = 8 - Cl_optiongroup1.Option1.Name = "Option1" - Cl_optiongroup1.Option2.Value = 1 - Cl_optiongroup1.Option2.Left = 124 - Cl_optiongroup1.Option2.Top = 8 - Cl_optiongroup1.Option2.Name = "Option2" - Cl_optiongroup1.Value = 2 - Cl_optiongroup1.ZOrderSet = 1 - Cl_optiongroup1.propiedad_de_clase_sin_valor = Valor reescrito en el form! - Cl_optiongroup1.Name = "Cl_optiongroup1" - Cl_commandgroup1.Command1.Top = 4 - Cl_commandgroup1.Command1.Left = 8 - Cl_commandgroup1.Command1.Name = "Command1" - Cl_commandgroup1.Command2.Top = 4 - Cl_commandgroup1.Command2.Left = 124 - Cl_commandgroup1.Command2.Name = "Command2" - Cl_commandgroup1.ZOrderSet = 2 - Cl_commandgroup1.una_prop_cmgroup = Ahora tiene valor - Cl_commandgroup1.Name = "Cl_commandgroup1" - Cl_imagen1.Left = 268 - Cl_imagen1.Top = 292 - Cl_imagen1.ZOrderSet = 3 - Cl_imagen1.Name = "Cl_imagen1" - Cl_imagen2.Left = 316 - Cl_imagen2.Top = 292 - Cl_imagen2.ZOrderSet = 4 - Cl_imagen2.Name = "Cl_imagen2" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1__shape1 - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('shape') - lcParent = 'Cl_form1' - lcObjName = 'Shape1' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Top = 284 - Left = 264 - Height = 49 - Width = 101 - BorderStyle = 2 - BorderWidth = 1 - Curvature = 16 - SpecialEffect = 0 - ZOrderSet = 0 - Name = "Shape1" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1__txtPromotor - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('textbox') - lcParent = 'Cl_form1' - lcObjName = 'txtPromotor' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Comment = "" - ControlSource = "encuestas.promotor" - Height = 23 - Left = 328 - MaxLength = 20 - ReadOnly = .T. - TabIndex = 4 - Top = 164 - Width = 149 - ForeColor = 0,0,255 - DisabledForeColor = 0,0,160 - ZOrderSet = 5 - Name = "txtPromotor" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1__lblPromotor - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('label') - lcParent = 'Cl_form1' - lcObjName = 'lblPromotor' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - AutoSize = .T. - WordWrap = .T. - BackStyle = 0 - Caption = "Promotor" - Left = 271 - Top = 164 - Width = 51 - TabIndex = 3 - ZOrderSet = 6 - Name = "lblPromotor" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1__txtIdenc - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('textbox') - lcParent = 'Cl_form1' - lcObjName = 'txtIdenc' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Comment = "" - ControlSource = "encuestas.idenc" - Height = 23 - Left = 328 - MaxLength = 20 - ReadOnly = .T. - TabIndex = 6 - Top = 192 - Width = 149 - ForeColor = 0,0,255 - DisabledForeColor = 0,0,160 - ZOrderSet = 7 - Name = "txtIdenc" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1__lblIdenc - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('label') - lcParent = 'Cl_form1' - lcObjName = 'lblIdenc' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - AutoSize = .T. - WordWrap = .T. - BackStyle = 0 - Caption = "Idenc" - Left = 292 - Top = 192 - Width = 30 - TabIndex = 5 - ZOrderSet = 8 - Name = "lblIdenc" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1__txtCalific - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('textbox') - lcParent = 'Cl_form1' - lcObjName = 'txtCalific' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Comment = "" - ControlSource = "encuestas.calific" - Height = 23 - Left = 532 - MaxLength = 2 - ReadOnly = .T. - TabIndex = 8 - Top = 164 - Width = 38 - ForeColor = 0,0,255 - DisabledForeColor = 0,0,160 - ZOrderSet = 9 - Name = "txtCalific" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1__lblCalific - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('label') - lcParent = 'Cl_form1' - lcObjName = 'lblCalific' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - AutoSize = .T. - WordWrap = .T. - BackStyle = 0 - Caption = "Calific" - Left = 491 - Top = 164 - Width = 34 - TabIndex = 7 - ZOrderSet = 10 - Name = "lblCalific" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1__lblCalific - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('textbox') - lcParent = 'Cl_form1' - lcObjName = 'txtFecha' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Comment = "" - ControlSource = "encuestas.fecha" - Height = 23 - Left = 532 - ReadOnly = .T. - TabIndex = 10 - Top = 192 - Width = 73 - ForeColor = 0,0,255 - DisabledForeColor = 0,0,160 - ZOrderSet = 11 - Name = "txtFecha" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1__lblFecha - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('label') - lcParent = 'Cl_form1' - lcObjName = 'lblFecha' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - AutoSize = .T. - WordWrap = .T. - BackStyle = 0 - Caption = "Fecha" - Left = 491 - Top = 192 - Width = 34 - TabIndex = 9 - ZOrderSet = 12 - Name = "lblFecha" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1__txtResultado - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('textbox') - lcParent = 'Cl_form1' - lcObjName = 'txtResultado' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Comment = "" - ControlSource = "encuestas.resultado" - Height = 23 - Left = 532 - MaxLength = 10 - ReadOnly = .T. - TabIndex = 12 - Top = 220 - Width = 81 - ForeColor = 0,0,255 - DisabledForeColor = 0,0,160 - ZOrderSet = 13 - Name = "txtResultado" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1__lblResultado - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('label') - lcParent = 'Cl_form1' - lcObjName = 'lblResultado' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - AutoSize = .T. - WordWrap = .T. - BackStyle = 0 - Caption = "Resultado" - Left = 472 - Top = 220 - Width = 57 - TabIndex = 11 - ZOrderSet = 14 - Name = "lblResultado" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1__grdEncuestas - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('grid') - lcParent = 'Cl_form1' - lcObjName = 'grdEncuestas' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - ColumnCount = 5 - DeleteMark = .F. - Height = 140 - Left = 268 - Panel = 1 - ReadOnly = .T. - RecordSource = "encuestas" - RecordSourceType = 1 - Top = 12 - Width = 320 - ZOrderSet = 15 - Name = "grdEncuestas" - Column1.ControlSource = "encuestas.promotor" - Column1.Width = 58 - Column1.ReadOnly = .T. - Column1.Name = "Column1" - Column2.ControlSource = "encuestas.idenc" - Column2.Width = 46 - Column2.ReadOnly = .T. - Column2.Name = "Column2" - Column3.ControlSource = "encuestas.calific" - Column3.Width = 41 - Column3.ReadOnly = .T. - Column3.Name = "Column3" - Column4.ControlSource = "encuestas.fecha" - Column4.Width = 69 - Column4.ReadOnly = .T. - Column4.Name = "Column4" - Column5.ControlSource = "encuestas.resultado" - Column5.Width = 58 - Column5.ReadOnly = .T. - Column5.Name = "Column5" - ENDTEXT - TEXT TO loReg_Esperado.Methods NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - <<'PROCEDURE AfterRowColChange'>> - LPARAMETERS nColIndex - - thisform.Refresh() - - <<'ENDPROC'>> - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1_grdEncuestas_Column1__Header1 - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('header') - lcParent = 'Cl_form1.grdEncuestas.Column1' - lcObjName = 'Header1' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Caption = "promotor" - Name = "Header1" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1_grdEncuestas_Column1__Text1 - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('textbox') - lcParent = 'Cl_form1.grdEncuestas.Column1' - lcObjName = 'Text1' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - BorderStyle = 0 - Margin = 0 - ReadOnly = .T. - ForeColor = 0,0,0 - BackColor = 255,255,255 - Name = "Text1" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1_grdEncuestas_Column2__Header1 - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('header') - lcParent = 'Cl_form1.grdEncuestas.Column2' - lcObjName = 'Header1' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Caption = "idenc" - Name = "Header1" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1_grdEncuestas_Column2__Text1 - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('textbox') - lcParent = 'Cl_form1.grdEncuestas.Column2' - lcObjName = 'Text1' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - BorderStyle = 0 - Margin = 0 - ReadOnly = .T. - ForeColor = 0,0,0 - BackColor = 255,255,255 - Name = "Text1" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1_grdEncuestas_Column3__Header1 - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('header') - lcParent = 'Cl_form1.grdEncuestas.Column3' - lcObjName = 'Header1' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Caption = "calific" - Name = "Header1" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1_grdEncuestas_Column3__Text1 - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('textbox') - lcParent = 'Cl_form1.grdEncuestas.Column3' - lcObjName = 'Text1' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - BorderStyle = 0 - Margin = 0 - ReadOnly = .T. - ForeColor = 0,0,0 - BackColor = 255,255,255 - Name = "Text1" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1_grdEncuestas_Column4__Header1 - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('header') - lcParent = 'Cl_form1.grdEncuestas.Column4' - lcObjName = 'Header1' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Caption = "fecha" - Name = "Header1" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1_grdEncuestas_Column4__Text1 - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('textbox') - lcParent = 'Cl_form1.grdEncuestas.Column4' - lcObjName = 'Text1' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - BorderStyle = 0 - Margin = 0 - ReadOnly = .T. - ForeColor = 0,0,0 - BackColor = 255,255,255 - Name = "Text1" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1_grdEncuestas_Column5__Header1 - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('header') - lcParent = 'Cl_form1.grdEncuestas.Column5' - lcObjName = 'Header1' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Caption = "resultado" - Name = "Header1" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1_grdEncuestas_Column5__Text1 - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('textbox') - lcParent = 'Cl_form1.grdEncuestas.Column5' - lcObjName = 'Text1' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - BorderStyle = 0 - Margin = 0 - ReadOnly = .T. - ForeColor = 0,0,0 - BackColor = 255,255,255 - Name = "Text1" - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1___Commandgroup1 - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - 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 - lcClass = LOWER('commandgroup') - lcParent = 'Cl_form1' - lcObjName = 'Commandgroup1' - oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - ButtonCount = 2 - Value = 1 - Height = 76 - Left = 8 - Top = 172 - Width = 244 - BackColor = 255,128,255 - ZOrderSet = 16 - Name = "Commandgroup1" - Command1.Top = 8 - Command1.Left = 12 - Command1.Height = 56 - Command1.Width = 100 - Command1.Picture = bmps\carpetaabierta.bmp - Command1.Caption = "\> - *To do: Modify this routine for the Access method - RETURN THIS.propiedad_de_clase_con_valor - <<'ENDPROC'>> - <<'PROCEDURE propiedad_de_clase_con_valor_assign'>> - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.propiedad_de_clase_con_valor = m.vNewVal - - <<'ENDPROC'>> - - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - ENDFUNC - - - - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto____cl_optiongroup - - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - loEx = NULL - oFXU_LIB.copiarArchivosParaTest( 'FB2P_TEST.VC?' ) - - - *-- DATOS DE ENTRADA - STORE 0 TO lnCodError - lc_InputFile = 'TESTS\DATOS_TEST\fb2p_test.vcx' - lcDontShowErrors = '1' - - - *-- DATOS ESPERADOS - STORE 0 TO lnCodError_Esperado - lcClass = LOWER('') - lcParent = '' - lcObjName = 'cl_optiongroup' - oFXU_LIB.prepararObjetoReg_VCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Arial, 0, 9, 5, 15, 12, 32, 3, 0 - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - - ENDFUNC - - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto____cl_commandgroup - - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - loEx = NULL - oFXU_LIB.copiarArchivosParaTest( 'FB2P_TEST.VC?' ) - - - *-- DATOS DE ENTRADA - STORE 0 TO lnCodError - lc_InputFile = 'TESTS\DATOS_TEST\fb2p_test.vcx' - lcDontShowErrors = '1' - - - *-- DATOS ESPERADOS - STORE 0 TO lnCodError_Esperado - lcClass = LOWER('commandgroup') - lcParent = '' - lcObjName = 'cl_commandgroup' - oFXU_LIB.prepararObjetoReg_VCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - loReg_Esperado.Reserved1 = 'Class' - loReg_Esperado.Reserved2 = '1' - TEXT TO loReg_Esperado.Reserved3 NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - una_prop_cmgroup Con comentario, pero sin valor - - ENDTEXT - loReg_Esperado.Reserved6 = 'Pixels' - loReg_Esperado.Reserved7 = 'Descripción de cl_CommandGroup' - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - ButtonCount = 2 -Value = 1 -Height = 66 -Width = 94 -una_prop_cmgroup = .F. -Name = "cl_commandgroup" -Command1.Top = 5 -Command1.Left = 5 -Command1.Height = 27 -Command1.Width = 84 -Command1.Caption = "Command1" -Command1.Name = "Command1" -Command2.Top = 34 -Command2.Left = 5 -Command2.Height = 27 -Command2.Width = 84 -Command2.Caption = "Command2" -Command2.Name = "Command2" - - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - -ENDFUNC - - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto____cl_commandgroup - - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - loEx = NULL - oFXU_LIB.copiarArchivosParaTest( 'FB2P_TEST.VC?' ) - - - *-- DATOS DE ENTRADA - STORE 0 TO lnCodError - lc_InputFile = 'TESTS\DATOS_TEST\fb2p_test.vcx' - lcDontShowErrors = '1' - - - *-- DATOS ESPERADOS - STORE 0 TO lnCodError_Esperado - lcClass = LOWER('') - lcParent = '' - lcObjName = 'cl_commandgroup' - oFXU_LIB.prepararObjetoReg_VCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Arial, 0, 9, 5, 15, 12, 32, 3, 0 - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - -ENDFUNC - - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto____cl_imagen - - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - loEx = NULL - oFXU_LIB.copiarArchivosParaTest( 'FB2P_TEST.VC?' ) - - - *-- DATOS DE ENTRADA - STORE 0 TO lnCodError - lc_InputFile = 'TESTS\DATOS_TEST\fb2p_test.vcx' - lcDontShowErrors = '1' - - - *-- DATOS ESPERADOS - STORE 0 TO lnCodError_Esperado - lcClass = LOWER('image') - lcParent = '' - lcObjName = 'cl_imagen' - oFXU_LIB.prepararObjetoReg_VCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - loReg_Esperado.Reserved1 = 'Class' - loReg_Esperado.Reserved2 = '1' - loReg_Esperado.Reserved6 = 'Pixels' - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Picture = bmps\sobrepostal.bmp -Height = 16 -Width = 17 -Name = "cl_imagen" - - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - -ENDFUNC - - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto____cl_imagen - - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - loEx = NULL - oFXU_LIB.copiarArchivosParaTest( 'FB2P_TEST.VC?' ) - - - *-- DATOS DE ENTRADA - STORE 0 TO lnCodError - lc_InputFile = 'TESTS\DATOS_TEST\fb2p_test.vcx' - lcDontShowErrors = '1' - - - *-- DATOS ESPERADOS - STORE 0 TO lnCodError_Esperado - lcClass = LOWER('') - lcParent = '' - lcObjName = 'cl_imagen' - oFXU_LIB.prepararObjetoReg_VCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - -ENDFUNC - - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto____cl_form - - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - loEx = NULL - oFXU_LIB.copiarArchivosParaTest( 'FB2P_TEST.VC?' ) - - - *-- DATOS DE ENTRADA - STORE 0 TO lnCodError - lc_InputFile = 'TESTS\DATOS_TEST\fb2p_test.vcx' - lcDontShowErrors = '1' - - - *-- DATOS ESPERADOS - STORE 0 TO lnCodError_Esperado - lcClass = LOWER('form') - lcParent = '' - lcObjName = 'cl_form' - oFXU_LIB.prepararObjetoReg_VCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - loReg_Esperado.Reserved1 = 'Class' - loReg_Esperado.Reserved2 = '5' - loReg_Esperado.Reserved6 = 'Pixels' - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Top = 0 -Left = 0 -Height = 345 -Width = 570 -DoCreate = .T. -Caption = "Form" -Name = "cl_form" - - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - -ENDFUNC - - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto__cl_form__Cl_optiongroup1 - - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - loEx = NULL - oFXU_LIB.copiarArchivosParaTest( 'FB2P_TEST.VC?' ) - - - *-- DATOS DE ENTRADA - STORE 0 TO lnCodError - lc_InputFile = 'TESTS\DATOS_TEST\fb2p_test.vcx' - lcDontShowErrors = '1' - - - *-- DATOS ESPERADOS - STORE 0 TO lnCodError_Esperado - lcClass = LOWER('cl_optiongroup') - lcParent = 'cl_form' - lcObjName = 'Cl_optiongroup1' - oFXU_LIB.prepararObjetoReg_VCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Height = 68 -Left = 8 -Top = 12 -Width = 244 -BackColor = 0,128,255 -Name = "Cl_optiongroup1" -Option1.Picture = bmps\scccheckout.bmp -Option1.Height = 52 -Option1.Left = 8 -Option1.Style = 1 -Option1.Top = 8 -Option1.Width = 104 -Option1.Name = "Option1" -Option2.Picture = bmps\scccheckout.bmp -Option2.Height = 52 -Option2.Left = 124 -Option2.Style = 1 -Option2.Top = 8 -Option2.Width = 104 -Option2.Name = "Option2" - - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - -ENDFUNC - - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto__cl_form__Cl_commandgroup1 - - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - loEx = NULL - oFXU_LIB.copiarArchivosParaTest( 'FB2P_TEST.VC?' ) - - - *-- DATOS DE ENTRADA - STORE 0 TO lnCodError - lc_InputFile = 'TESTS\DATOS_TEST\fb2p_test.vcx' - lcDontShowErrors = '1' - - - *-- DATOS ESPERADOS - STORE 0 TO lnCodError_Esperado - lcClass = LOWER('cl_commandgroup') - lcParent = 'cl_form' - lcObjName = 'Cl_commandgroup1' - oFXU_LIB.prepararObjetoReg_VCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Height = 66 -Left = 8 -Top = 88 -Width = 244 -BackColor = 255,128,192 -Name = "Cl_commandgroup1" -Command1.Top = 4 -Command1.Left = 8 -Command1.Height = 52 -Command1.Width = 104 -Command1.Picture = bmps\carpetaabierta.bmp -Command1.Caption = "Abrir" -Command1.Name = "Command1" -Command2.Top = 4 -Command2.Left = 124 -Command2.Height = 52 -Command2.Width = 104 -Command2.Picture = bmps\carpetacerrada.bmp -Command2.Caption = "Cerrar" -Command2.Name = "Command2" - - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - -ENDFUNC - - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto__cl_form__Cl_imagen1 - - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - loEx = NULL - oFXU_LIB.copiarArchivosParaTest( 'FB2P_TEST.VC?' ) - - - *-- DATOS DE ENTRADA - STORE 0 TO lnCodError - lc_InputFile = 'TESTS\DATOS_TEST\fb2p_test.vcx' - lcDontShowErrors = '1' - - - *-- DATOS ESPERADOS - STORE 0 TO lnCodError_Esperado - lcClass = LOWER('cl_imagen') - lcParent = 'cl_form' - lcObjName = 'Cl_imagen1' - oFXU_LIB.prepararObjetoReg_VCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Picture = bmps\sobrepostal.bmp -Stretch = 1 -Height = 34 -Left = 452 -Top = 276 -Width = 38 -Name = "Cl_imagen1" - - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - -ENDFUNC - - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto__cl_form__Cl_imagen2 - - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - loEx = NULL - oFXU_LIB.copiarArchivosParaTest( 'FB2P_TEST.VC?' ) - - - *-- DATOS DE ENTRADA - STORE 0 TO lnCodError - lc_InputFile = 'TESTS\DATOS_TEST\fb2p_test.vcx' - lcDontShowErrors = '1' - - - *-- DATOS ESPERADOS - STORE 0 TO lnCodError_Esperado - lcClass = LOWER('cl_imagen') - lcParent = 'cl_form' - lcObjName = 'Cl_imagen2' - oFXU_LIB.prepararObjetoReg_VCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Picture = bmps\treeview.bmp -Stretch = 1 -Height = 34 -Left = 500 -Top = 276 -Width = 38 -Name = "Cl_imagen2" - - ENDTEXT - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - -ENDFUNC - - - - ******************************************************************************************************************************************* - FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto____cl_olecontrol - - LOCAL lnCodError, lnCodError_Esperado ; - , lc_InputFile, lcDontShowErrors, lcDebug, lcDontShowProgress ; - , lcParent, lcClass, lcObjName, loReg_Esperado ; - , loEx AS EXCEPTION - #IF .F. - PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' - #ENDIF - loEx = NULL - oFXU_LIB.copiarArchivosParaTest( 'FB2P_TEST.VC?' ) - - - *-- DATOS DE ENTRADA - STORE 0 TO lnCodError - lc_InputFile = 'TESTS\DATOS_TEST\fb2p_test.vcx' - lcDontShowErrors = '1' - - - *-- DATOS ESPERADOS - STORE 0 TO lnCodError_Esperado - lcClass = LOWER('olecontrol') - lcParent = '' - lcObjName = 'cl_olecontrol' - oFXU_LIB.prepararObjetoReg_VCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) - loReg_Esperado.Reserved1 = 'Class' - loReg_Esperado.Reserved2 = '1' - loReg_Esperado.Reserved6 = 'Pixels' - TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - Height = 67 -Width = 131 -Name = "cl_olecontrol" - - ENDTEXT - TEXT TO loReg_Esperado.OLE2 NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - OLEObject = C:\Windows\system32\richtx32.ocx - - ENDTEXT - TEXT TO lcOLE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2+3 - 0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADDfG05c8M4BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAD+////BwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYAoAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPAAAAAAUAAIAAAAAAAAABAAAAAQABAAIACAAAAHtccnRmMVxhbnNpXGRlZmYwe1xmb250dGJse1xmMFxmbmlsXGxlY29udHJvbDEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== - ENDTEXT - loReg_Esperado.OLE = STRCONV( lcOLE,14 ) - - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) - -ENDFUNC - - ENDDEFINE diff --git a/foxbin2prg.prg b/foxbin2prg.prg index 912e9e6..80de78f 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -386,7 +386,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM ******************************************************************************************************************* PROCEDURE Convertir - LPARAMETERS tc_InputFile, toModulo, toEx AS EXCEPTION + LPARAMETERS tc_InputFile, toModulo, toEx AS EXCEPTION, tlRelanzarError TRY LOCAL lnCodError, lcErrorInfo @@ -471,6 +471,9 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM IF THIS.l_Debug AND THIS.l_ShowErrors MESSAGEBOX( lcErrorInfo, 0+16+4096, 'FOXBIN2PRG: ERROR!!', 10000 ) ENDIF + IF tlRelanzarError && Usado en Unit Testing + THROW + ENDIF ENDTRY RETURN lnCodError @@ -1448,6 +1451,12 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base lnLastPos = 1 DIMENSION taPropsAndValues( lnCantComillas / 2, 2 ) + *------------------------------------------------------------------------------------- + * IMPORTANTE!! + * ------------ + * SI SE SEPARAN LAS IGUALDADES CON ESPACIOS, ÉSTAS DEJAN DE RECONOCERSE!! (prop = "valor" en vez de prop="valor") + * TENER EN CUENTA AL GENERAR EL TEXTO O AL MODIFICARLO MANUALMENTE AL MERGEAR + *------------------------------------------------------------------------------------- FOR I = 1 TO lnCantComillas STEP 2 X = X + 1 @@ -2592,7 +2601,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base toClase._UniqueID = .get_ValueByName_FromListNamesWithValues( 'UniqueID', 'C', @laPropsAndValues ) toClase._ProjectClassIcon = .get_ValueByName_FromListNamesWithValues( 'ProjectClassIcon', 'C', @laPropsAndValues ) toClase._ClassIcon = .get_ValueByName_FromListNamesWithValues( 'ClassIcon', 'C', @laPropsAndValues ) - toClase._Ole2 = .get_ValueByName_FromListNamesWithValues( 'Ole2', 'C', @laPropsAndValues ) + toClase._Ole2 = .get_ValueByName_FromListNamesWithValues( 'OLEObject', 'C', @laPropsAndValues ) ENDWITH && THIS IF NOT EMPTY( toClase._Ole2 ) && Le agrego "OLEObject = " delante @@ -2974,7 +2983,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base 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._RESERVED1 = IIF( THIS.c_Type = 'SCX', '', 'Class' ) toClase._RESERVED2 = IIF( THIS.c_Type = 'VCX' OR toClase._Nombre == 'Dataenvironment', TRANSFORM( toClase._AddObject_Count + 1 ), '' ) toClase._RESERVED3 = THIS.defined_PAM2Memo( toClase ) toClase._RESERVED4 = toClase._ClassIcon @@ -5185,8 +5194,9 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base ENDTEXT IF NOT EMPTY(toRegClass.OLE2) + *FDB* OLEObject="<>" Parent="<>" ObjName="<>" + OLEObject="<