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

- Arreglo de la información de los índices que se había desacomodado por ordenarlos alfabéticamente

Browse Source 
- Arreglo del test de índices para que no tenga en cuenta el orden de los mismos, sino su estructura
- Nueva vista local offline para testear la BDD
This commit is contained in:
fdbozzo
2015-03-22 02:08:51 +01:00
parent ed7d5eba4f
commit dfafc7ff38
9 changed files with 149 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

131
TESTS/DATOS_READONLY/FB2P_DBC.DC2
View File

@@ -190,17 +190,12 @@
<INDEXES>
<INDEX>
<Name>id</Name>
<Comment></Comment>
<IsUnique>.T.</IsUnique>
</INDEX>
<INDEX>
<Name>edad_nd</Name>
<Name>depto</Name>
<Comment></Comment>
<IsUnique>.F.</IsUnique>
</INDEX>
<INDEX>
<Name>notdeleted</Name>
<Name>edad_nd</Name>
<Comment></Comment>
<IsUnique>.F.</IsUnique>
</INDEX>
@@ -210,17 +205,22 @@
<IsUnique>.T.</IsUnique>
</INDEX>
<INDEX>
<Name>depto</Name>
<Name>i_nombre</Name>
<Comment></Comment>
<IsUnique>.F.</IsUnique>
</INDEX>
<INDEX>
<Name>id</Name>
<Comment></Comment>
<IsUnique>.T.</IsUnique>
</INDEX>
<INDEX>
<Name>nombre</Name>
<Comment></Comment>
<IsUnique>.F.</IsUnique>
</INDEX>
<INDEX>
<Name>i_nombre</Name>
<Name>notdeleted</Name>
<Comment></Comment>
<IsUnique>.F.</IsUnique>
</INDEX>
@@ -533,6 +533,119 @@
</VIEW>
<VIEW>
<Name>VW_LOCAL_ENCUESTAS</Name>
<Comment></Comment>
<Tables></Tables>
<SQL>SELECT ENCUESTAS.Promotor,ENCUESTAS.Idenc,ENCUESTAS.Calific,ENCUESTAS.Fecha, ENCUESTAS.Resultado FROM C:\DESA\FOXBIN2PRG\TESTS\DATOS_READONLY\ENCUESTAS.DBF ENCUESTAS</SQL>
<AllowSimultaneousFetch>.F.</AllowSimultaneousFetch>
<BatchUpdateCount>1</BatchUpdateCount>
<CompareMemo>.T.</CompareMemo>
<ConnectName></ConnectName>
<FetchAsNeeded>.F.</FetchAsNeeded>
<FetchMemo>.T.</FetchMemo>
<FetchSize>100</FetchSize>
<MaxRecords>-1</MaxRecords>
<Offline>.T.</Offline>
<ParameterList></ParameterList>
<Prepared>.F.</Prepared>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<SendUpdates>.F.</SendUpdates>
<ShareConnection>.T.</ShareConnection>
<SourceType>1</SourceType>
<UpdateType>1</UpdateType>
<UseMemoSize>255</UseMemoSize>
<WhereType>3</WhereType>
<FIELDS>
<FIELD>
<Name>promotor</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(20)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>promotor</UpdateName>
</FIELD>
<FIELD>
<Name>idenc</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(20)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>idenc</UpdateName>
</FIELD>
<FIELD>
<Name>calific</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(2)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>calific</UpdateName>
</FIELD>
<FIELD>
<Name>fecha</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>D</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>fecha</UpdateName>
</FIELD>
<FIELD>
<Name>resultado</Name>
<Caption></Caption>
<Comment></Comment>
<DataType>C(10)</DataType>
<DefaultValue></DefaultValue>
<DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary>
<Format></Format>
<InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression>
<RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>resultado</UpdateName>
</FIELD>
</FIELDS>
<RELATIONS>
</RELATIONS>
</VIEW>
<VIEW>
<Name>VW_ORA_CONVENIOS</Name>
<Comment></Comment>

BIN
TESTS/DATOS_READONLY/fb2p_dbc.dbc
View File

Binary file not shown.

BIN
TESTS/DATOS_READONLY/fb2p_dbc.dct
View File

Binary file not shown.

BIN
TESTS/DATOS_READONLY/fb2p_dbc.dcx
View File

Binary file not shown.

1
TESTS/DATOS_READONLY/foxbin2prg.cfg Normal file
View File

@@ -0,0 +1 @@
DBF_Conversion_Support:4

BIN
TESTS/DATOS_READONLY/vw_local_encuestas.dbf Normal file
View File

Binary file not shown.

BIN
TESTS/DATOS_READONLY/vw_local_encuestas.tbf Normal file
View File

Binary file not shown.

16
TESTS/ft__foxbin2prg__c_conversor_prg_a_dbf.prg
View File

@@ -360,8 +360,22 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_dbf AS FxuTestCase OF FxuTestCase
this.assertequals( lnIndices_OUT, lnIndices_IN, '[Cantidad de campos IN y OUT]' )
FOR I = 1 TO lnIndices_IN
*- Busco el <20>ndice a evaluar
FOR Z = 1 TO lnIndices_OUT
IF LOWER(laIndices_OUT(Z,1)) == LOWER(laIndices_IN(I,1))
EXIT
ENDIF
ENDFOR
*-- Si no se encontr<74>, registro error
THIS.asserttrue( Z <= lnIndices_OUT, 'El <20>ndice "' + laIndices_IN(I,1) + '" no se encontr<74>' )
IF Z > lnIndices_OUT THEN
LOOP
ENDIF
*-- Si se encontr<74>, comparo su especificaci<63>n
FOR X = 1 TO 6
THIS.assertequals( laIndices_IN(I,X), laIndices_OUT(I,X), '[Comparando estructura del indice ' + laIndices_IN(I,1) + ']' )
THIS.assertequals( laIndices_IN(I,X), laIndices_OUT(Z,X), '[Comparando estructura del indice ' + laIndices_IN(I,1) + ']' )
ENDFOR
ENDFOR