3280 lines
103 KiB
Plaintext
3280 lines
103 KiB
Plaintext
DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
|
||
|
||
#IF .F.
|
||
LOCAL THIS AS ut__foxbin2prg OF ut__foxbin2prg.prg
|
||
#ENDIF
|
||
|
||
#DEFINE C_FB2P_VALUE_I '<fb2p_value>'
|
||
#DEFINE C_FB2P_VALUE_F '</fb2p_value>'
|
||
#DEFINE CR_LF CHR(13) + CHR(10)
|
||
#DEFINE C_CR CHR(13)
|
||
#DEFINE C_LF CHR(10)
|
||
#DEFINE C_TAB CHR(9)
|
||
#DEFINE C_PROC 'PROCEDURE'
|
||
#DEFINE C_ENDPROC 'ENDPROC'
|
||
#DEFINE C_TEXT 'TEXT'
|
||
#DEFINE C_ENDTEXT 'ENDTEXT'
|
||
#DEFINE C_IF_F '#IF .F.'
|
||
#DEFINE C_ENDIF '#ENDIF'
|
||
#DEFINE C_DEFINE_CLASS 'DEFINE CLASS'
|
||
#DEFINE C_ENDDEFINE_CLASS 'ENDDEFINE'
|
||
icObj = NULL
|
||
|
||
|
||
*******************************************************************************************************************************************
|
||
FUNCTION SETUP
|
||
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
|
||
*LOCAL loObj AS c_conversor_base OF "FOXBIN2PRG.PRG"
|
||
SET PROCEDURE TO 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
|
||
oFXU_LIB = CREATEOBJECT('CL_FXU_CONFIG')
|
||
oFXU_LIB.setup_comun()
|
||
|
||
*THIS.icObj = NEWOBJECT("c_conversor_base", "FOXBIN2PRG.PRG")
|
||
*loObj = THIS.icObj
|
||
*loObj.l_Test = .F.
|
||
|
||
ENDFUNC
|
||
|
||
|
||
*******************************************************************************************************************************************
|
||
FUNCTION TearDown
|
||
#IF .F.
|
||
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
|
||
#ENDIF
|
||
THIS.icObj = NULL
|
||
|
||
IF VARTYPE(oFXU_LIB) = "O"
|
||
oFXU_LIB.teardown_comun()
|
||
oFXU_LIB = NULL
|
||
ENDIF
|
||
RELEASE PROCEDURE 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
|
||
|
||
ENDFUNC
|
||
|
||
|
||
*******************************************************************************************************************************************
|
||
FUNCTION Evaluate_results
|
||
LPARAMETERS toEx AS EXCEPTION, tnCodError_Esperado, tc_InputFile, tcParent, tcClass, tcObjName, toReg, toReg_Esperado
|
||
|
||
#IF .F.
|
||
PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG'
|
||
#ENDIF
|
||
*LOCAL loObj AS c_conversor_base OF "FOXBIN2PRG.PRG"
|
||
*loObj = THIS.icObj
|
||
|
||
IF PCOUNT() = 0
|
||
THIS.messageout( "* Support method, not a valid test." )
|
||
RETURN .T.
|
||
ENDIF
|
||
|
||
IF ISNULL(toEx)
|
||
LOCAL laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
|
||
, lnPropsAndComments_Count, lnPropsAndComments_Count_Esperado, laPropsAndComments(1,2), laPropsAndComments_Esperado(1,2) ;
|
||
, laProtected(1), lnProtected_Count, laProtected_Esperado(1), lnProtected_Count_Esperado ;
|
||
, laMethods(1,2), lnMethods_Count, laMethods_Esperado(1,2), lnMethods_Count_Esperado
|
||
LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
|
||
|
||
*-- Algunos ajustes para mejor visualizaci<63>n de caracteres especiales
|
||
*tcPropValue = oFXU_LIB.mejorarPresentacionCaracteresEspeciales( tcPropValue )
|
||
loObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG")
|
||
|
||
*-- Reserved3
|
||
loObj.get_PropsAndCommentsFrom_RESERVED3( toReg.RESERVED3, .F., @laPropsAndComments, @lnPropsAndComments_Count, '' )
|
||
loObj.get_PropsAndCommentsFrom_RESERVED3( toReg_Esperado.RESERVED3, .F., @laPropsAndComments_Esperado, @lnPropsAndComments_Count_Esperado, '' )
|
||
|
||
*-- Properties
|
||
loObj.get_PropsAndValuesFrom_PROPERTIES( toReg.PROPERTIES, 0, @laPropsAndValues, @lnPropsAndValues_Count, '' )
|
||
loObj.get_PropsAndValuesFrom_PROPERTIES( toReg_Esperado.PROPERTIES, 0, @laPropsAndValues_Esperado, @lnPropsAndValues_Count_Esperado, '' )
|
||
|
||
*-- Protected
|
||
loObj.get_PropsFrom_PROTECTED( toReg.PROTECTED, .F., @laProtected, @lnProtected_Count, '' )
|
||
loObj.get_PropsFrom_PROTECTED( toReg_Esperado.PROTECTED, .F., @laProtected_Esperado, @lnProtected_Count_Esperado, '' )
|
||
|
||
*-- Methods
|
||
loObj.get_ADD_OBJECT_METHODS( toReg, toReg, '', @laMethods, '', @lnMethods_Count )
|
||
loObj.get_ADD_OBJECT_METHODS( toReg_Esperado, toReg_Esperado, '', @laMethods_Esperado, '', @lnMethods_Count_Esperado )
|
||
|
||
|
||
|
||
*-- Visualizaci<63>n de valores
|
||
THIS.messageout( LOWER(PROGRAM(PROGRAM(-1)-1)) )
|
||
|
||
THIS.messageout( '' )
|
||
THIS.messageout( 'PROPERTIES esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(lnPropsAndValues_Count_Esperado) )
|
||
*THIS.messageout( REPLICATE('-',80) )
|
||
*FOR I = 1 TO lnPropsAndValues_Count_Esperado
|
||
* THIS.messageout( 'PropName = ' + TRANSFORM(laPropsAndValues_Esperado(I,1)) )
|
||
*ENDFOR
|
||
|
||
THIS.messageout( '' )
|
||
THIS.messageout( 'PROTECTED esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(lnProtected_Count_Esperado) )
|
||
*THIS.messageout( REPLICATE('-',80) )
|
||
*FOR I = 1 TO lnProtected_Count_Esperado
|
||
* THIS.messageout( 'PropName = ' + TRANSFORM(laProtected_Esperado(I,1)) )
|
||
*ENDFOR
|
||
|
||
THIS.messageout( '' )
|
||
THIS.messageout( 'RESERVED3 esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(lnPropsAndComments_Count_Esperado) )
|
||
*THIS.messageout( REPLICATE('-',80) )
|
||
*FOR I = 1 TO lnPropsAndComments_Count_Esperado
|
||
* THIS.messageout( 'PropName = ' + TRANSFORM(laPropsAndComments_Esperado(I,1)) )
|
||
*ENDFOR
|
||
|
||
THIS.messageout( '' )
|
||
THIS.messageout( 'METHODS esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(lnMethods_Count_Esperado) )
|
||
*THIS.messageout( REPLICATE('-',80) )
|
||
*FOR I = 1 TO lnMethods_Count_Esperado
|
||
* THIS.messageout( 'Name = ' + TRANSFORM(laMethods_Esperado(I,1)) )
|
||
*ENDFOR
|
||
|
||
|
||
*-- Evaluaci<63>n de valores
|
||
*-- Reserved1
|
||
THIS.assertequals( toReg_Esperado.Reserved1, toReg.Reserved1, "Valor de Reserved1" )
|
||
|
||
*-- Reserved2
|
||
THIS.assertequals( toReg_Esperado.Reserved2, toReg.Reserved2, "Valor de Reserved2" )
|
||
|
||
*-- Reserved4
|
||
THIS.assertequals( toReg_Esperado.Reserved4, toReg.Reserved4, "Valor de Reserved4" )
|
||
|
||
*-- Reserved5
|
||
THIS.assertequals( toReg_Esperado.Reserved5, toReg.Reserved5, "Valor de Reserved5" )
|
||
|
||
*-- Reserved6
|
||
THIS.assertequals( toReg_Esperado.Reserved6, toReg.Reserved6, "Valor de Reserved6" )
|
||
|
||
*-- Reserved7
|
||
THIS.assertequals( toReg_Esperado.Reserved7, toReg.Reserved7, "Valor de Reserved7" )
|
||
|
||
*-- Reserved8
|
||
THIS.assertequals( toReg_Esperado.Reserved8, toReg.Reserved8, "Valor de Reserved8" )
|
||
|
||
*-- 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<63>n de que existe la Property "' + TRANSFORM(taPropsAndValues_Esperado(I,1)) + '"' )
|
||
ENDFOR
|
||
|
||
*-- RESERVED3
|
||
THIS.assertequals( lnPropsAndValues_Count_Esperado, lnPropsAndValues_Count, "Cantidad de Reserved3" )
|
||
FOR I = 1 TO lnPropsAndValues_Count_Esperado
|
||
THIS.asserttrue( ASCAN( laPropsAndComments, laPropsAndComments_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobaci<63>n de que existe la Reserved3 "' + TRANSFORM(taPropsAndValues_Esperado(I,1)) + '"' )
|
||
ENDFOR
|
||
|
||
*-- PROTECTED
|
||
THIS.assertequals( lnProtected_Count_Esperado, lnProtected_Count, "Cantidad de Protected" )
|
||
FOR I = 1 TO lnProtected_Count_Esperado
|
||
THIS.asserttrue( ASCAN( laProtected, laProtected_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobaci<63>n de que existe la Protected "' + TRANSFORM(taPropsAndValues_Esperado(I,1)) + '"' )
|
||
ENDFOR
|
||
|
||
*-- METHODS
|
||
THIS.assertequals( lnMethods_Count_Esperado, lnMethods_Count, "Cantidad de Methods" )
|
||
FOR I = 1 TO lnPropsAndValues_Count_Esperado
|
||
THIS.asserttrue( ASCAN( laMethods, laMethods_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobaci<63>n de que existe el Method "' + TRANSFORM(taPropsAndValues_Esperado(I,1)) + '"' )
|
||
ENDFOR
|
||
|
||
ELSE
|
||
*-- Evaluaci<63>n de errores
|
||
THIS.messageout( "Error " + TRANSFORM(toEx.ERRORNO) + ', ' + TRANSFORM(toEx.MESSAGE) )
|
||
THIS.messageout( toEx.PROCEDURE + ', ' + TRANSFORM(toEx.LINENO) )
|
||
THIS.messageout( TRANSFORM(toEx.LINECONTENTS) )
|
||
|
||
THIS.assertequals( tnCodError_Esperado, toEx.ERRORNO, 'Error' )
|
||
ENDIF
|
||
ENDFUNC
|
||
|
||
|
||
*******************************************************************************************************************************************
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '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'
|
||
|
||
|
||
*-- 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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR PLATFORM=="COMMENT " AND UniqueID=="Screen "
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> el registro de cabecera "Screen"'
|
||
ENDIF
|
||
SCATTER MEMO NAME loReg
|
||
USE IN (SELECT("TABLABIN"))
|
||
|
||
*--
|
||
CATCH TO loEx
|
||
ENDTRY
|
||
|
||
THIS.Evaluate_results( loEx, lnCodError_Esperado, lc_InputFile, lcParent, lcClass, lcObjName, loReg, loReg_Esperado )
|
||
|
||
ENDFUNC
|
||
|
||
|
||
*******************************************************************************************************************************************
|
||
FUNCTION Deberia_Ejecutar_FOXBIN2PRG_ParaElForm_FB2P_SCX_YValidarElCampo_PROPERTIES_ParaElObjeto__dataenvironment
|
||
LOCAL lnCodError, lcMenError, lnCodError_Esperado ;
|
||
, lc_InputFile, lcType_na, lcTextName_na, llGenText_na, lcDontShowErrors, lcDebug, lcDontShowProgress ;
|
||
, loModulo AS CL_CLASE OF "FOXBIN2PRG.PRG" ;
|
||
, loCnv AS c_foxbin2prg OF "FOXBIN2PRG.PRG" ;
|
||
, lcParent, lcClass, lcObjName, lcMemo, loReg, loReg_Esperado ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
TEXT TO loReg_Esperado.Reserved3 NOSHOW FLAGS 1+2 PRETEXT 1+2+4
|
||
Top = 404
|
||
Left = 11
|
||
Width = 520
|
||
Height = 200
|
||
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<74> 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<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
Top = 20
|
||
Left = 10
|
||
Height = 98
|
||
Width = 102
|
||
Alias = "encuestas"
|
||
CursorSource = encuestas.dbf
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
Top = 0
|
||
Left = 0
|
||
Height = 345
|
||
Width = 644
|
||
DoCreate = .T.
|
||
Name = "Cl_form1"
|
||
Cl_optiongroup1.Option1.Value = 0
|
||
Cl_optiongroup1.Option1.Left = 8
|
||
Cl_optiongroup1.Option1.Top = 8
|
||
Cl_optiongroup1.Option1.Name = "Option1"
|
||
Cl_optiongroup1.Option2.Value = 1
|
||
Cl_optiongroup1.Option2.Left = 124
|
||
Cl_optiongroup1.Option2.Top = 8
|
||
Cl_optiongroup1.Option2.Name = "Option2"
|
||
Cl_optiongroup1.Value = 2
|
||
Cl_optiongroup1.ZOrderSet = 1
|
||
Cl_optiongroup1.propiedad_de_clase_sin_valor = Valor reescrito en el form!
|
||
Cl_optiongroup1.Name = "Cl_optiongroup1"
|
||
Cl_commandgroup1.Command1.Top = 4
|
||
Cl_commandgroup1.Command1.Left = 8
|
||
Cl_commandgroup1.Command1.Name = "Command1"
|
||
Cl_commandgroup1.Command2.Top = 4
|
||
Cl_commandgroup1.Command2.Left = 124
|
||
Cl_commandgroup1.Command2.Name = "Command2"
|
||
Cl_commandgroup1.ZOrderSet = 2
|
||
Cl_commandgroup1.una_prop_cmgroup = Ahora tiene valor
|
||
Cl_commandgroup1.Name = "Cl_commandgroup1"
|
||
Cl_imagen1.Left = 268
|
||
Cl_imagen1.Top = 292
|
||
Cl_imagen1.ZOrderSet = 3
|
||
Cl_imagen1.Name = "Cl_imagen1"
|
||
Cl_imagen2.Left = 316
|
||
Cl_imagen2.Top = 292
|
||
Cl_imagen2.ZOrderSet = 4
|
||
Cl_imagen2.Name = "Cl_imagen2"
|
||
ENDTEXT
|
||
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
Top = 284
|
||
Left = 264
|
||
Height = 49
|
||
Width = 101
|
||
BorderStyle = 2
|
||
BorderWidth = 1
|
||
Curvature = 16
|
||
SpecialEffect = 0
|
||
ZOrderSet = 0
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
Comment = ""
|
||
ControlSource = "encuestas.promotor"
|
||
Height = 23
|
||
Left = 328
|
||
MaxLength = 20
|
||
ReadOnly = .T.
|
||
TabIndex = 4
|
||
Top = 164
|
||
Width = 149
|
||
ForeColor = 0,0,255
|
||
DisabledForeColor = 0,0,160
|
||
ZOrderSet = 5
|
||
Name = "txtPromotor"
|
||
ENDTEXT
|
||
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
AutoSize = .T.
|
||
WordWrap = .T.
|
||
BackStyle = 0
|
||
Caption = "Promotor"
|
||
Left = 271
|
||
Top = 164
|
||
Width = 51
|
||
TabIndex = 3
|
||
ZOrderSet = 6
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
Comment = ""
|
||
ControlSource = "encuestas.idenc"
|
||
Height = 23
|
||
Left = 328
|
||
MaxLength = 20
|
||
ReadOnly = .T.
|
||
TabIndex = 6
|
||
Top = 192
|
||
Width = 149
|
||
ForeColor = 0,0,255
|
||
DisabledForeColor = 0,0,160
|
||
ZOrderSet = 7
|
||
Name = "txtIdenc"
|
||
ENDTEXT
|
||
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
AutoSize = .T.
|
||
WordWrap = .T.
|
||
BackStyle = 0
|
||
Caption = "Idenc"
|
||
Left = 292
|
||
Top = 192
|
||
Width = 30
|
||
TabIndex = 5
|
||
ZOrderSet = 8
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
Comment = ""
|
||
ControlSource = "encuestas.calific"
|
||
Height = 23
|
||
Left = 532
|
||
MaxLength = 2
|
||
ReadOnly = .T.
|
||
TabIndex = 8
|
||
Top = 164
|
||
Width = 38
|
||
ForeColor = 0,0,255
|
||
DisabledForeColor = 0,0,160
|
||
ZOrderSet = 9
|
||
Name = "txtCalific"
|
||
ENDTEXT
|
||
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
AutoSize = .T.
|
||
WordWrap = .T.
|
||
BackStyle = 0
|
||
Caption = "Calific"
|
||
Left = 491
|
||
Top = 164
|
||
Width = 34
|
||
TabIndex = 7
|
||
ZOrderSet = 10
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
Comment = ""
|
||
ControlSource = "encuestas.fecha"
|
||
Height = 23
|
||
Left = 532
|
||
ReadOnly = .T.
|
||
TabIndex = 10
|
||
Top = 192
|
||
Width = 73
|
||
ForeColor = 0,0,255
|
||
DisabledForeColor = 0,0,160
|
||
ZOrderSet = 11
|
||
Name = "txtFecha"
|
||
ENDTEXT
|
||
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
AutoSize = .T.
|
||
WordWrap = .T.
|
||
BackStyle = 0
|
||
Caption = "Fecha"
|
||
Left = 491
|
||
Top = 192
|
||
Width = 34
|
||
TabIndex = 9
|
||
ZOrderSet = 12
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
Comment = ""
|
||
ControlSource = "encuestas.resultado"
|
||
Height = 23
|
||
Left = 532
|
||
MaxLength = 10
|
||
ReadOnly = .T.
|
||
TabIndex = 12
|
||
Top = 220
|
||
Width = 81
|
||
ForeColor = 0,0,255
|
||
DisabledForeColor = 0,0,160
|
||
ZOrderSet = 13
|
||
Name = "txtResultado"
|
||
ENDTEXT
|
||
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
AutoSize = .T.
|
||
WordWrap = .T.
|
||
BackStyle = 0
|
||
Caption = "Resultado"
|
||
Left = 472
|
||
Top = 220
|
||
Width = 57
|
||
TabIndex = 11
|
||
ZOrderSet = 14
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
ColumnCount = 5
|
||
DeleteMark = .F.
|
||
Height = 140
|
||
Left = 268
|
||
Panel = 1
|
||
ReadOnly = .T.
|
||
RecordSource = "encuestas"
|
||
RecordSourceType = 1
|
||
Top = 12
|
||
Width = 320
|
||
ZOrderSet = 15
|
||
Name = "grdEncuestas"
|
||
Column1.ControlSource = "encuestas.promotor"
|
||
Column1.Width = 58
|
||
Column1.ReadOnly = .T.
|
||
Column1.Name = "Column1"
|
||
Column2.ControlSource = "encuestas.idenc"
|
||
Column2.Width = 46
|
||
Column2.ReadOnly = .T.
|
||
Column2.Name = "Column2"
|
||
Column3.ControlSource = "encuestas.calific"
|
||
Column3.Width = 41
|
||
Column3.ReadOnly = .T.
|
||
Column3.Name = "Column3"
|
||
Column4.ControlSource = "encuestas.fecha"
|
||
Column4.Width = 69
|
||
Column4.ReadOnly = .T.
|
||
Column4.Name = "Column4"
|
||
Column5.ControlSource = "encuestas.resultado"
|
||
Column5.Width = 58
|
||
Column5.ReadOnly = .T.
|
||
Column5.Name = "Column5"
|
||
ENDTEXT
|
||
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
BorderStyle = 0
|
||
Margin = 0
|
||
ReadOnly = .T.
|
||
ForeColor = 0,0,0
|
||
BackColor = 255,255,255
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
BorderStyle = 0
|
||
Margin = 0
|
||
ReadOnly = .T.
|
||
ForeColor = 0,0,0
|
||
BackColor = 255,255,255
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
BorderStyle = 0
|
||
Margin = 0
|
||
ReadOnly = .T.
|
||
ForeColor = 0,0,0
|
||
BackColor = 255,255,255
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
BorderStyle = 0
|
||
Margin = 0
|
||
ReadOnly = .T.
|
||
ForeColor = 0,0,0
|
||
BackColor = 255,255,255
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
BorderStyle = 0
|
||
Margin = 0
|
||
ReadOnly = .T.
|
||
ForeColor = 0,0,0
|
||
BackColor = 255,255,255
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
ButtonCount = 2
|
||
Value = 1
|
||
Height = 76
|
||
Left = 8
|
||
Top = 172
|
||
Width = 244
|
||
BackColor = 255,128,255
|
||
ZOrderSet = 16
|
||
Name = "Commandgroup1"
|
||
Command1.Top = 8
|
||
Command1.Left = 12
|
||
Command1.Height = 56
|
||
Command1.Width = 100
|
||
Command1.Picture = bmps\carpetaabierta.bmp
|
||
Command1.Caption = "\<Abrir"
|
||
Command1.Name = "Command1"
|
||
Command2.Top = 8
|
||
Command2.Left = 128
|
||
Command2.Height = 56
|
||
Command2.Width = 96
|
||
Command2.Picture = bmps\carpetacerrada.bmp
|
||
Command2.Caption = "\<Cerrar"
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
ButtonCount = 2
|
||
Value = 2
|
||
Height = 72
|
||
Left = 8
|
||
Top = 256
|
||
Width = 244
|
||
BackColor = 0,128,255
|
||
ZOrderSet = 17
|
||
Name = "Optiongroup1"
|
||
Option1.Picture = bmps\scccheckout.bmp
|
||
Option1.Caption = "Option1"
|
||
Option1.Value = 0
|
||
Option1.Height = 48
|
||
Option1.Left = 16
|
||
Option1.Style = 1
|
||
Option1.Top = 12
|
||
Option1.Width = 92
|
||
Option1.Name = "Option1"
|
||
Option2.Picture = bmps\scccheckout.bmp
|
||
Option2.Caption = "Option2"
|
||
Option2.Value = 1
|
||
Option2.Height = 48
|
||
Option2.Left = 132
|
||
Option2.Style = 1
|
||
Option2.Top = 12
|
||
Option2.Width = 88
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
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 ;
|
||
, loEx AS EXCEPTION
|
||
|
||
loEx = NULL
|
||
oFXU_LIB.copiarArchivosParaTest( 'FB2P_FRM_1.SC?' )
|
||
|
||
*-- DATOS DE ENTRADA
|
||
STORE 0 TO lnCodError
|
||
lc_InputFile = 'TESTS\DATOS_TEST\fb2p_frm_1.scx'
|
||
lcDontShowErrors = '1'
|
||
|
||
*-- DATOS ESPERADOS
|
||
STORE 0 TO lnCodError_Esperado
|
||
loReg_Esperado = CREATEOBJECT("EMPTY")
|
||
|
||
*-- Reserved1
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved1', '' )
|
||
*-- Reserved2
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved2', '' )
|
||
*-- Reserved3
|
||
ADDPROPERTY( loReg_Esperado, 'Reserved3', '' )
|
||
*-- 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
|
||
Top = 256
|
||
Left = 484
|
||
Height = 67
|
||
Width = 131
|
||
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<74> el archivo "' + lc_InputFile + '"'
|
||
ENDIF
|
||
|
||
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
|
||
IF NOT FOUND()
|
||
ERROR 'No se encontr<74> 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 )
|
||
|
||
ENDFUNC
|
||
|
||
|
||
ENDDEFINE
|