diff --git a/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg b/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg index 6ac91b2..f12c2be 100644 --- a/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg +++ b/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg @@ -17,6 +17,8 @@ DEFINE CLASS CL_FXU_CONFIG AS CUSTOM + [] ; + [] ; + [] ; + + [] ; + + [] ; + [] @@ -86,4 +88,48 @@ DEFINE CLASS CL_FXU_CONFIG AS CUSTOM ENDFUNC + *---------------------------------------------------------------------------------------- + PROCEDURE prepararObjetoReg_SCX + LPARAMETERS toReg, tcClass, tcParent, tcObjName + + toReg = CREATEOBJECT("EMPTY") + ADDPROPERTY( toReg, 'Class', tcClass ) + ADDPROPERTY( toReg, 'Parent', tcParent ) + ADDPROPERTY( toReg, 'objName', tcObjName ) + ADDPROPERTY( toReg, 'Reserved1', '' ) + ADDPROPERTY( toReg, 'Reserved2', '' ) + ADDPROPERTY( toReg, 'Reserved3', '' ) + ADDPROPERTY( toReg, 'Reserved4', '' ) + ADDPROPERTY( toReg, 'Reserved5', '' ) + ADDPROPERTY( toReg, 'Reserved6', '' ) + ADDPROPERTY( toReg, 'Reserved7', '' ) + ADDPROPERTY( toReg, 'Reserved8', '' ) + ADDPROPERTY( toReg, 'Properties', '' ) + ADDPROPERTY( toReg, 'Protected', '' ) + ADDPROPERTY( toReg, 'Methods', '' ) + ENDPROC + + + *---------------------------------------------------------------------------------------- + PROCEDURE prepararObjetoReg_VCX + LPARAMETERS toReg, tcClass, tcParent, tcObjName + + toReg = CREATEOBJECT("EMPTY") + ADDPROPERTY( toReg, 'Class', tcClass ) + ADDPROPERTY( toReg, 'Parent', tcParent ) + ADDPROPERTY( toReg, 'objName', tcObjName ) + ADDPROPERTY( toReg, 'Reserved1', '' ) + ADDPROPERTY( toReg, 'Reserved2', '' ) + ADDPROPERTY( toReg, 'Reserved3', '' ) + ADDPROPERTY( toReg, 'Reserved4', '' ) + ADDPROPERTY( toReg, 'Reserved5', '' ) + ADDPROPERTY( toReg, 'Reserved6', '' ) + ADDPROPERTY( toReg, 'Reserved7', '' ) + ADDPROPERTY( toReg, 'Reserved8', '' ) + ADDPROPERTY( toReg, 'Properties', '' ) + ADDPROPERTY( toReg, 'Protected', '' ) + ADDPROPERTY( toReg, 'Methods', '' ) + ENDPROC + + ENDDEFINE diff --git a/TESTS/ut__foxbin2prg.prg b/TESTS/ut__foxbin2prg.prg index 1306ecc..50c409f 100644 --- a/TESTS/ut__foxbin2prg.prg +++ b/TESTS/ut__foxbin2prg.prg @@ -54,7 +54,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg ******************************************************************************************************************************************* FUNCTION Evaluate_results - LPARAMETERS toEx AS EXCEPTION, tnCodError_Esperado, tc_InputFile, tcParent, tcClass, tcObjName, toReg, toReg_Esperado + LPARAMETERS toEx AS EXCEPTION, tnCodError_Esperado, tc_InputFile, tcParent, tcClass, tcObjName, toReg_Esperado #IF .F. PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' @@ -67,13 +67,66 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg RETURN .T. ENDIF + + LOCAL lnCodError, lcTipoBinario, toReg ; + , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; + , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.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 + + 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 + + IF lnCodError > 0 + EXIT + ENDIF + + IF FILE(tc_InputFile) + USE (tc_InputFile) SHARED NOUPDATE ALIAS TABLABIN + ELSE + ERROR 'No se encontró el archivo "' + tc_InputFile + '"' + ENDIF + + IF EMPTY(tcParent) AND EMPTY(tcClass) AND EMPTY(tcObjName) + LOCATE FOR PLATFORM=="COMMENT " AND UniqueID=="Screen " + ELSE + LOCATE FOR CLASS==tcClass AND PARENT==tcParent AND objName==tcObjName + ENDIF + + IF NOT FOUND() + ERROR 'No se encontró el registro de cabecera "Screen"' + ENDIF + SCATTER MEMO NAME toReg + + CATCH TO loEx + FINALLY + USE IN (SELECT("TABLABIN")) + ENDTRY + + 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") @@ -153,25 +206,25 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg *-- 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)) + '"' ) + 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( 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)) + '"' ) + 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" ) 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)) + '"' ) + 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" ) - 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)) + '"' ) + 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 ELSE @@ -187,118 +240,65 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg ******************************************************************************************************************************************* 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' + lcClass = LOWER('') + lcParent = '' + lcObjName = '' + oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) + loReg_Esperado.Reserved1 = 'VERSION = 3.00' - *-- 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 ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, 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 ; + FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__dataenvironment + 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 - 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 + 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 @@ -306,113 +306,39 @@ 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', '' ) - - lcClass = LOWER('dataenvironment') - lcParent = '' - lcObjName = 'Dataenvironment' - *-- 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 -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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 @@ -422,101 +348,38 @@ SET STEP ON Name = "Cursor1" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 @@ -554,101 +417,38 @@ SET STEP ON Cl_imagen2.Name = "Cl_imagen2" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 @@ -661,101 +461,38 @@ SET STEP ON Name = "Shape1" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 @@ -771,101 +508,38 @@ SET STEP ON Name = "txtPromotor" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 @@ -878,101 +552,38 @@ SET STEP ON Name = "lblPromotor" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 @@ -988,101 +599,38 @@ SET STEP ON Name = "txtIdenc" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 @@ -1095,101 +643,38 @@ SET STEP ON Name = "lblIdenc" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 @@ -1205,101 +690,38 @@ SET STEP ON Name = "txtCalific" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 @@ -1312,101 +734,38 @@ SET STEP ON Name = "lblCalific" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 @@ -1421,101 +780,38 @@ SET STEP ON Name = "txtFecha" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 @@ -1528,101 +824,38 @@ SET STEP ON Name = "lblFecha" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 @@ -1638,101 +871,38 @@ SET STEP ON Name = "txtResultado" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 @@ -1745,101 +915,38 @@ SET STEP ON Name = "lblResultado" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 @@ -1873,201 +980,83 @@ SET STEP ON Column5.ReadOnly = .T. Column5.Name = "Column5" ENDTEXT + TEXT TO loReg_Esperado.Methods NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + PROCEDURE AfterRowColChange + LPARAMETERS nColIndex - 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 + thisform.Refresh() + + ENDPROC + ENDTEXT - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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. @@ -2076,200 +1065,74 @@ SET STEP ON Name = "Text1" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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. @@ -2278,200 +1141,74 @@ SET STEP ON Name = "Text1" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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. @@ -2480,200 +1217,74 @@ SET STEP ON Name = "Text1" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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. @@ -2682,200 +1293,74 @@ SET STEP ON Name = "Text1" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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. @@ -2884,101 +1369,38 @@ SET STEP ON Name = "Text1" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + 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 @@ -3004,101 +1426,38 @@ SET STEP ON Command2.Name = "Command2" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1___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_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', '' ) - *-- 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + lcClass = LOWER('Optiongroup') + lcParent = 'Cl_form1' + lcObjName = 'Optiongroup1' + 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 = 2 Height = 72 @@ -3128,101 +1487,38 @@ SET STEP ON Option2.Name = "Option2" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC ******************************************************************************************************************************************* - 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 ; - , loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ; - , loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ; - , lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ; + FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1___Cl_olecontrol1 + 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 - 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' - - TEXT TO lcMemo NOSHOW FLAGS 1+2 PRETEXT 1+2+4 + lcClass = LOWER('Cl_olecontrol') + lcParent = 'Cl_form1' + lcObjName = 'Cl_olecontrol1' + oFXU_LIB.prepararObjetoReg_SCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) + TEXT TO loReg_Esperado.Properties NOSHOW FLAGS 1+2 PRETEXT 1+2+4 Top = 256 Left = 484 Height = 67 @@ -3230,50 +1526,112 @@ SET STEP ON Name = "Cl_olecontrol1" ENDTEXT - 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 - - *-- 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 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")) - - CATCH TO loEx - ENDTRY - - THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado ) + THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg_Esperado ) ENDFUNC + ******************************************************************************************************************************************* + FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElRegistroDeCabecera + 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 = '' + oFXU_LIB.prepararObjetoReg_VCX( @loReg_Esperado, lcClass, lcParent, lcObjName ) + loReg_Esperado.Reserved1 = 'VERSION = 3.00' + + + 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_form1___Cl_olecontrol1 +*!* ENDFUNC + + +*!* ******************************************************************************************************************************************* +*!* FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1___Cl_olecontrol1 +*!* ENDFUNC + + +*!* ******************************************************************************************************************************************* +*!* FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1___Cl_olecontrol1 +*!* ENDFUNC + + +*!* ******************************************************************************************************************************************* +*!* FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1___Cl_olecontrol1 +*!* ENDFUNC + + +*!* ******************************************************************************************************************************************* +*!* FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1___Cl_olecontrol1 +*!* ENDFUNC + + +*!* ******************************************************************************************************************************************* +*!* FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1___Cl_olecontrol1 +*!* ENDFUNC + + +*!* ******************************************************************************************************************************************* +*!* FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1___Cl_olecontrol1 +*!* ENDFUNC + + +*!* ******************************************************************************************************************************************* +*!* FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1___Cl_olecontrol1 +*!* ENDFUNC + + +*!* ******************************************************************************************************************************************* +*!* FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1___Cl_olecontrol1 +*!* ENDFUNC + + +*!* ******************************************************************************************************************************************* +*!* FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1___Cl_olecontrol1 +*!* ENDFUNC + + +*!* ******************************************************************************************************************************************* +*!* FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1___Cl_olecontrol1 +*!* ENDFUNC + + +*!* ******************************************************************************************************************************************* +*!* FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1___Cl_olecontrol1 +*!* ENDFUNC + + +*!* ******************************************************************************************************************************************* +*!* FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1___Cl_olecontrol1 +*!* ENDFUNC + + +*!* ******************************************************************************************************************************************* +*!* FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaLaLibreria_FB2P_TEST_VCX_YValidarLosCampos_MEMO_ParaElObjeto__Cl_form1___Cl_olecontrol1 +*!* ENDFUNC + + ENDDEFINE diff --git a/foxbin2prg.prg b/foxbin2prg.prg index 82f835f..912e9e6 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -2975,7 +2975,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base 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._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 toClase._RESERVED5 = toClase._ProjectClassIcon