Changeset: 137 v1.19.3 Change on TXT timestamps to preserve empty values / Optimization on TXT generation of ZOrders

This commit is contained in:
fernando
2014-01-18 17:00:58 +01:00
parent 9662864301
commit a57790bb56
19 changed files with 2725 additions and 483 deletions

View File

@@ -2,7 +2,7 @@
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! * (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*-------------------------------------------------------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.15" SourceFile="C:\DESA\FOXBIN2PRG\TESTS\DATOS_READONLY\FB2P_DBC.DBC" Generated="2013/12/17 16:01:00" /> (Para uso con Visual FoxPro 9.0) *< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
* *
<DATABASE> <DATABASE>
@@ -10,7 +10,7 @@
<Comment>Comentario de los eventos o de la BDD???</Comment> <Comment>Comentario de los eventos o de la BDD???</Comment>
<Version>11</Version> <Version>11</Version>
<DBCEvents>.T.</DBCEvents> <DBCEvents>.T.</DBCEvents>
<DBCEventFilename></DBCEventFilename> <DBCEventFilename>eventsfile.prg</DBCEventFilename>
<CONNECTIONS> <CONNECTIONS>
<CONNECTION> <CONNECTION>
@@ -74,17 +74,17 @@
<Name>depto</Name> <Name>depto</Name>
<Caption>"Depto.Caption"</Caption> <Caption>"Depto.Caption"</Caption>
<Comment>depto_field_comment</Comment> <Comment>depto_field_comment</Comment>
<DefaultValue>depto_field_def_value</DefaultValue> <DefaultValue>"Depto."</DefaultValue>
<DisplayClass>cl_optiongroup</DisplayClass> <DisplayClass>cl_optiongroup</DisplayClass>
<DisplayClassLibrary>c:\desa\foxbin2prg\tests\datos_readonly\fb2p_test.vcx</DisplayClassLibrary> <DisplayClassLibrary>c:\desa\foxbin2prg\tests\datos_readonly\fb2p_test.vcx</DisplayClassLibrary>
<Format>Disp.Format</Format> <Format>!</Format>
<InputMask>InputMask</InputMask> <InputMask>XXXXXXXXXX</InputMask>
<RuleExpression>depto_field_validation_rule()</RuleExpression> <RuleExpression>depto_field_validation_rule()</RuleExpression>
<RuleText>depto_field_validation_message()</RuleText> <RuleText>depto_field_validation_message()</RuleText>
</FIELD> </FIELD>
<FIELD> <FIELD>
<Name>descrip</Name> <Name>descrip</Name>
<Caption>aaaaaaaaaa</Caption> <Caption>Descripci<EFBFBD>n</Caption>
<Comment></Comment> <Comment></Comment>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
@@ -103,10 +103,6 @@
<IsUnique>.T.</IsUnique> <IsUnique>.T.</IsUnique>
</INDEX> </INDEX>
</INDEXES> </INDEXES>
<RELATIONS>
</RELATIONS>
</TABLE> </TABLE>
<TABLE> <TABLE>
@@ -190,28 +186,36 @@
<IsUnique>.T.</IsUnique> <IsUnique>.T.</IsUnique>
</INDEX> </INDEX>
<INDEX> <INDEX>
<Name>i_nombre</Name> <Name>edad_nd</Name>
<Comment></Comment> <Comment></Comment>
<IsUnique>.F.</IsUnique> <IsUnique>.F.</IsUnique>
</INDEX> </INDEX>
<INDEX>
<Name>notdeleted</Name>
<Comment></Comment>
<IsUnique>.F.</IsUnique>
</INDEX>
<INDEX>
<Name>edad</Name>
<Comment></Comment>
<IsUnique>.T.</IsUnique>
</INDEX>
<INDEX> <INDEX>
<Name>depto</Name> <Name>depto</Name>
<Comment></Comment> <Comment></Comment>
<IsUnique>.F.</IsUnique> <IsUnique>.F.</IsUnique>
</INDEX> </INDEX>
<INDEX>
<Name>nombre</Name>
<Comment></Comment>
<IsUnique>.F.</IsUnique>
</INDEX>
<INDEX>
<Name>i_nombre</Name>
<Comment></Comment>
<IsUnique>.F.</IsUnique>
</INDEX>
</INDEXES> </INDEXES>
<RELATIONS>
<RELATION>
<Name>Relation 1</Name>
<ChildTable>NOMBRELARGODELDBF</ChildTable>
<ParentTable>FB2P_DEPTO</ParentTable>
<ChildIndex>DEPTO</ChildIndex>
<ParentIndex>DEPTO</ParentIndex>
<RefIntegrity>ICR</RefIntegrity>
</RELATION>
</RELATIONS>
</TABLE> </TABLE>
</TABLES> </TABLES>
@@ -248,115 +252,147 @@
<Name>pk_name</Name> <Name>pk_name</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>C(30)</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.PK_NAME</UpdateName>
</FIELD> </FIELD>
<FIELD> <FIELD>
<Name>enabled</Name> <Name>enabled</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>N(3)</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.ENABLED</UpdateName>
</FIELD> </FIELD>
<FIELD> <FIELD>
<Name>evaluacion</Name> <Name>evaluacion</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>M</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.EVALUACION</UpdateName>
</FIELD> </FIELD>
<FIELD> <FIELD>
<Name>pk_metodo</Name> <Name>pk_metodo</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>C(30)</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.PK_METODO</UpdateName>
</FIELD> </FIELD>
<FIELD> <FIELD>
<Name>niveldebug</Name> <Name>niveldebug</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>N(3)</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.NIVELDEBUG</UpdateName>
</FIELD> </FIELD>
<FIELD> <FIELD>
<Name>f_desde</Name> <Name>f_desde</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>T</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.F_DESDE</UpdateName>
</FIELD> </FIELD>
<FIELD> <FIELD>
<Name>f_hasta</Name> <Name>f_hasta</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>T</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.F_HASTA</UpdateName>
</FIELD> </FIELD>
<FIELD> <FIELD>
<Name>direccion_ip</Name> <Name>direccion_ip</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>C(30)</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.DIRECCION_IP</UpdateName>
</FIELD> </FIELD>
<FIELD> <FIELD>
<Name>usuario</Name> <Name>usuario</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>C(30)</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>STROSNC.DB_DEBUG_SETUP.USUARIO</UpdateName>
</FIELD> </FIELD>
</FIELDS> </FIELDS>
<RELATIONS>
</RELATIONS>
</VIEW> </VIEW>
<VIEW> <VIEW>
@@ -389,67 +425,83 @@
<Name>descrip</Name> <Name>descrip</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>C(50)</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>fb2p_dbc!fb2p_depto.descrip</UpdateName>
</FIELD> </FIELD>
<FIELD> <FIELD>
<Name>nombre</Name> <Name>nombre</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>C(30)</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.T.</Updatable>
<UpdateName>fb2p_dbc!nombrelargodeldbf.nombre</UpdateName>
</FIELD> </FIELD>
<FIELD> <FIELD>
<Name>edad</Name> <Name>edad</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>N(3)</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.T.</Updatable>
<UpdateName>fb2p_dbc!nombrelargodeldbf.edad</UpdateName>
</FIELD> </FIELD>
<FIELD> <FIELD>
<Name>id</Name> <Name>id</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>I</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.T.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.F.</Updatable>
<UpdateName>fb2p_dbc!nombrelargodeldbf.id</UpdateName>
</FIELD> </FIELD>
<FIELD> <FIELD>
<Name>depto</Name> <Name>depto</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>C(10)</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.T.</Updatable>
<UpdateName>fb2p_dbc!nombrelargodeldbf.depto</UpdateName>
</FIELD> </FIELD>
</FIELDS> </FIELDS>
<RELATIONS>
</RELATIONS>
</VIEW> </VIEW>
<VIEW> <VIEW>
@@ -482,43 +534,51 @@
<Name>id_convenio</Name> <Name>id_convenio</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>C(15)</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.T.</Updatable>
<UpdateName>CONVENIOS.ID_CONVENIO</UpdateName>
</FIELD> </FIELD>
<FIELD> <FIELD>
<Name>nombre_convenio</Name> <Name>nombre_convenio</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>C(250)</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.T.</Updatable>
<UpdateName>CONVENIOS.NOMBRE_CONVENIO</UpdateName>
</FIELD> </FIELD>
<FIELD> <FIELD>
<Name>historico</Name> <Name>historico</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>C(1)</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.T.</Updatable>
<UpdateName>CONVENIOS.HISTORICO</UpdateName>
</FIELD> </FIELD>
</FIELDS> </FIELDS>
<RELATIONS>
</RELATIONS>
</VIEW> </VIEW>
<VIEW> <VIEW>
@@ -551,19 +611,19 @@
<Name>dummy</Name> <Name>dummy</Name>
<Caption></Caption> <Caption></Caption>
<Comment></Comment> <Comment></Comment>
<DataType>C(1)</DataType>
<DefaultValue></DefaultValue> <DefaultValue></DefaultValue>
<DisplayClass></DisplayClass> <DisplayClass></DisplayClass>
<DisplayClassLibrary></DisplayClassLibrary> <DisplayClassLibrary></DisplayClassLibrary>
<Format></Format> <Format></Format>
<InputMask></InputMask> <InputMask></InputMask>
<KeyField>.F.</KeyField>
<RuleExpression></RuleExpression> <RuleExpression></RuleExpression>
<RuleText></RuleText> <RuleText></RuleText>
<Updatable>.T.</Updatable>
<UpdateName>DUAL.DUMMY</UpdateName>
</FIELD> </FIELD>
</FIELDS> </FIELDS>
<RELATIONS>
</RELATIONS>
</VIEW> </VIEW>
</VIEWS> </VIEWS>
@@ -578,71 +638,84 @@ ENDPROC
PROCEDURE del_trg PROCEDURE del_trg
STRTOFILE( PROGRAM(), FORCEPATH( "LOG_DBC.TXT", JUSTPATH( EVL( DBC(),DBF() ) ) ) ) STRTOFILE( PROGRAM(), FORCEPATH( "LOG_DBC.TXT", JUSTPATH( EVL( DBC(),DBF() ) ) ) )
ENDPROC ENDPROC
PROCEDURE depto_field_validation_rule
ENDPROC
PROCEDURE depto_field_validation_message
RETURN 'Mensaje para Field Rule "depto_field_validation_rule"'
ENDPROC
PROCEDURE fb2p_depto_record_rule_validation
ENDPROC
PROCEDURE fb2p_depto_record_rule_validation_message
RETURN 'Mensaje para Record Rule "fb2p_depto_record_rule_validation"'
ENDPROC
PROCEDURE depto_field_def_value
RETURN 'Dpto.'
ENDPROC
*PROCEDURE dbc_OpenData PROCEDURE dbc_OpenData
* LPARAMETERS cDatabaseName, lExclusive, lNoUpdate, lValidate LPARAMETERS cDatabaseName, lExclusive, lNoUpdate, lValidate
* ? ' cDatabaseName = ' + TRANSFORM(cDatabaseName) + ' - ' + TYPE('cDatabaseName') * ? ' cDatabaseName = ' + TRANSFORM(cDatabaseName) + ' - ' + TYPE('cDatabaseName')
* ? ' lExclusive = ' + TRANSFORM(lExclusive) + ' - ' + TYPE('lExclusive') * ? ' lExclusive = ' + TRANSFORM(lExclusive) + ' - ' + TYPE('lExclusive')
* ? ' lNoUpdate = ' + TRANSFORM(lNoUpdate) + ' - ' + TYPE('lNoUpdate') * ? ' lNoUpdate = ' + TRANSFORM(lNoUpdate) + ' - ' + TYPE('lNoUpdate')
* ? ' lValidate = ' + TRANSFORM(lValidate) + ' - ' + TYPE('lValidate') * ? ' lValidate = ' + TRANSFORM(lValidate) + ' - ' + TYPE('lValidate')
*ENDPROC ENDPROC
**__RI_HEADER!@ Do NOT REMOVE or MODIFY this line!!!! @!__RI_HEADER** **__RI_HEADER!@ Do NOT REMOVE or MODIFY this line!!!! @!__RI_HEADER**
procedure RIDELETE PROCEDURE RIDELETE
local llRetVal LOCAL llRetVal
llRetVal=.t. llRetVal=.T.
IF (ISRLOCKED() and !deleted()) OR !RLOCK() IF (ISRLOCKED() AND !DELETED()) OR !RLOCK()
llRetVal=.F. llRetVal=.F.
ELSE ELSE
IF !deleted() IF !DELETED()
DELETE DELETE
IF CURSORGETPROP('BUFFERING') > 1 IF CURSORGETPROP('BUFFERING') > 1
=TABLEUPDATE() =TABLEUPDATE()
ENDIF ENDIF
ENDIF not already deleted ENDIF NOT already DELETED
ENDIF ENDIF
UNLOCK RECORD (RECNO()) UNLOCK RECORD (RECNO())
llRetVal=pnerror=0 llRetVal=pnerror=0
RETURN llRetVal RETURN llRetVal
procedure RIUPDATE PROCEDURE RIUPDATE
lparameters tcFieldName,tcNewValue,tcCascadeParent LPARAMETERS tcFieldName,tcNewValue,tcCascadeParent
local llRetVal LOCAL llRetVal
llRetVal=.t. llRetVal=.T.
IF ISRLOCKED() OR !RLOCK() IF ISRLOCKED() OR !RLOCK()
llRetVal=.F. llRetVal=.F.
ELSE ELSE
IF EVAL(tcFieldName)<>tcNewValue IF EVAL(tcFieldName)<>tcNewValue
PRIVATE pcCascadeParent PRIVATE pcCascadeParent
pcCascadeParent=upper(iif(type("tcCascadeParent")<>"C","",tcCascadeParent)) pcCascadeParent=UPPER(IIF(TYPE("tcCascadeParent")<>"C","",tcCascadeParent))
REPLACE (tcFieldName) WITH tcNewValue REPLACE (tcFieldName) WITH tcNewValue
IF CURSORGETPROP('BUFFERING') > 1 IF CURSORGETPROP('BUFFERING') > 1
=TABLEUPDATE() =TABLEUPDATE()
ENDIF ENDIF
ENDIF values don't already match ENDIF VALUES don't already match
ENDIF it's locked already, or I was able to lock it ENDIF it's locked already, or I was able to lock it
UNLOCK RECORD (RECNO()) UNLOCK RECORD (RECNO())
llRetVal=pnerror=0 llRetVal=pnerror=0
return llRetVal RETURN llRetVal
procedure rierror PROCEDURE rierror
parameters tnErrNo,tcMessage,tcCode,tcProgram PARAMETERS tnErrNo,tcMessage,tcCode,tcProgram
local lnErrorRows,lnXX LOCAL lnErrorRows,lnXX
lnErrorRows=alen(gaErrors,1) lnErrorRows=ALEN(gaErrors,1)
if type('gaErrors[lnErrorRows,1]')<>"L" IF TYPE('gaErrors[lnErrorRows,1]')<>"L"
dimension gaErrors[lnErrorRows+1,alen(gaErrors,2)] DIMENSION gaErrors[lnErrorRows+1,alen(gaErrors,2)]
lnErrorRows=lnErrorRows+1 lnErrorRows=lnErrorRows+1
endif ENDIF
gaErrors[lnErrorRows,1]=tnErrNo gaErrors[lnErrorRows,1]=tnErrNo
gaErrors[lnErrorRows,2]=tcMessage gaErrors[lnErrorRows,2]=tcMessage
gaErrors[lnErrorRows,3]=tcCode gaErrors[lnErrorRows,3]=tcCode
gaErrors[lnErrorRows,4]="" gaErrors[lnErrorRows,4]=""
lnXX=1 lnXX=1
do while !empty(program(lnXX)) DO WHILE !EMPTY(PROGRAM(lnXX))
gaErrors[lnErrorRows,4]=gaErrors[lnErrorRows,4]+","+; gaErrors[lnErrorRows,4]=gaErrors[lnErrorRows,4]+","+;
program(lnXX) PROGRAM(lnXX)
lnXX=lnXX+1 lnXX=lnXX+1
enddo ENDDO
gaErrors[lnErrorRows,5]=pcParentDBF gaErrors[lnErrorRows,5]=pcParentDBF
gaErrors[lnErrorRows,6]=pnParentRec gaErrors[lnErrorRows,6]=pnParentRec
gaErrors[lnErrorRows,7]=pcParentID gaErrors[lnErrorRows,7]=pcParentID
@@ -651,7 +724,7 @@ gaErrors[lnErrorRows,9]=pcChildDBF
gaErrors[lnErrorRows,10]=pnChildRec gaErrors[lnErrorRows,10]=pnChildRec
gaErrors[lnErrorRows,11]=pcChildID gaErrors[lnErrorRows,11]=pcChildID
gaErrors[lnErrorRows,12]=pcChildExpr gaErrors[lnErrorRows,12]=pcChildExpr
return tnErrNo RETURN tnErrNo
PROCEDURE riopen PROCEDURE riopen
@@ -670,37 +743,37 @@ FOR lnOccurance = 1 TO lnOccurs
ENDFOR ENDFOR
IF lnInUseSpot=0 IF lnInUseSpot=0
lcCurWkArea=select() lcCurWkArea=SELECT()
SELECT 0 SELECT 0
lcNewWkArea=select() lcNewWkArea=SELECT()
IF NOT EMPTY(tcOrder) IF NOT EMPTY(tcOrder)
USE (tcTable) AGAIN ORDER (tcOrder) ; USE (tcTable) AGAIN ORDER (tcOrder) ;
ALIAS ("__ri"+LTRIM(STR(SELECT()))) share ALIAS ("__ri"+LTRIM(STR(SELECT()))) SHARE
ELSE ELSE
USE (tcTable) AGAIN ALIAS ("__ri"+LTRIM(STR(SELECT()))) share USE (tcTable) AGAIN ALIAS ("__ri"+LTRIM(STR(SELECT()))) SHARE
ENDIF ENDIF
if pnerror=0 IF pnerror=0
pcRIcursors=pcRIcursors+upper(tcTable)+"?"+STR(SELECT(),5) pcRIcursors=pcRIcursors+UPPER(tcTable)+"?"+STR(SELECT(),5)
else
lcNewWkArea=0
endif something bad happened while attempting to open the file
ELSE ELSE
lcNewWkArea=val(substr(pcRIcursors,lnInUseSpot+len(tcTable)+1,5)) lcNewWkArea=0
pcRIcursors = strtran(pcRIcursors,upper(tcTable)+"*"+str(lcNewWkArea,5),; ENDIF something bad happened WHILE attempting TO OPEN the FILE
upper(tcTable)+"?"+str(lcNewWkArea,5)) ELSE
lcNewWkArea=VAL(SUBSTR(pcRIcursors,lnInUseSpot+LEN(tcTable)+1,5))
pcRIcursors = STRTRAN(pcRIcursors,UPPER(tcTable)+"*"+STR(lcNewWkArea,5),;
UPPER(tcTable)+"?"+STR(lcNewWkArea,5))
IF NOT EMPTY(tcOrder) IF NOT EMPTY(tcOrder)
SET ORDER TO (tcOrder) IN (lcNewWkArea) SET ORDER TO (tcOrder) IN (lcNewWkArea)
ENDIF sent an order ENDIF sent an ORDER
if pnerror<>0 IF pnerror<>0
lcNewWkArea=0 lcNewWkArea=0
endif something bad happened while setting order ENDIF something bad happened WHILE setting ORDER
ENDIF ENDIF
RETURN (lcNewWkArea) RETURN (lcNewWkArea)
PROCEDURE riend PROCEDURE riend
PARAMETERS tlSuccess PARAMETERS tlSuccess
local lnXX,lnSpot,lcWorkArea LOCAL lnXX,lnSpot,lcWorkArea
IF tlSuccess IF tlSuccess
END TRANSACTION END TRANSACTION
ELSE ELSE
@@ -713,9 +786,9 @@ IF EMPTY(pcRIolderror)
ELSE ELSE
ON ERROR &pcRIolderror. ON ERROR &pcRIolderror.
ENDIF ENDIF
FOR lnXX=1 TO occurs("*",pcRIcursors) FOR lnXX=1 TO OCCURS("*",pcRIcursors)
lnSpot=atc("*",pcRIcursors,lnXX)+1 lnSpot=ATC("*",pcRIcursors,lnXX)+1
USE IN (VAL(substr(pcRIcursors,lnSpot,5))) USE IN (VAL(SUBSTR(pcRIcursors,lnSpot,5)))
ENDFOR ENDFOR
IF pcOldCompat = "ON" IF pcOldCompat = "ON"
SET COMPATIBLE ON SET COMPATIBLE ON
@@ -729,35 +802,35 @@ ENDIF
IF pcOldTalk="ON" IF pcOldTalk="ON"
SET TALK ON SET TALK ON
ENDIF ENDIF
do case DO CASE
case empty(pcOldDBC) CASE EMPTY(pcOldDBC)
set data to SET DATA TO
case pcOldDBC<>DBC() CASE pcOldDBC<>DBC()
set data to (pcOldDBC) SET DATA TO (pcOldDBC)
endcase ENDCASE
RETURN .T. RETURN .T.
PROCEDURE rireuse PROCEDURE rireuse
* rireuse.prg * rireuse.prg
PARAMETERS tcTableName,tcWkArea PARAMETERS tcTableName,tcWkArea
pcRIcursors = strtran(pcRIcursors,upper(tcTableName)+"?"+str(tcWkArea,5),; pcRIcursors = STRTRAN(pcRIcursors,UPPER(tcTableName)+"?"+STR(tcWkArea,5),;
upper(tcTableName)+"*"+str(tcWkArea,5)) UPPER(tcTableName)+"*"+STR(tcWkArea,5))
RETURN .t. RETURN .T.
******************************************************************************** ********************************************************************************
** "Referential integrity delete trigger for" fb2p_depto ** "Referential integrity delete trigger for" fb2p_depto
PROCEDURE __RI_DELETE_fb2p_depto PROCEDURE __RI_DELETE_fb2p_depto
LOCAL llRetVal LOCAL llRetVal
llRetVal = .t. llRetVal = .T.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1 IF _TRIGGERLEVEL=1
BEGIN TRANSACTION BEGIN TRANSACTION
PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,; PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,pcOldDBC
pcOldTalk=SET("TALK") pcOldTalk=SET("TALK")
SET TALK OFF SET TALK OFF
pcOldDele=SET("DELETED") pcOldDele=SET("DELETED")
@@ -770,72 +843,72 @@ IF _triggerlevel=1
pcRIwkareas="" pcRIwkareas=""
pcRIolderror=ON("error") pcRIolderror=ON("error")
pnerror=0 pnerror=0
ON ERROR pnerror=rierror(ERROR(),message(),message(1),program()) ON ERROR pnerror=rierror(ERROR(),MESSAGE(),MESSAGE(1),PROGRAM())
IF TYPE('gaErrors(1)')<>"U" IF TYPE('gaErrors(1)')<>"U"
release gaErrors RELEASE gaErrors
ENDIF ENDIF
PUBLIC gaErrors(1,12) PUBLIC gaErrors(1,12)
pcOldDBC=DBC() pcOldDBC=DBC()
SET DATA TO ("FB2P_DBC") SET DATA TO ("FB2P_DBC")
ENDIF first trigger ENDIF FIRST TRIGGER
LOCAL lcParentID && parent's value to be sought in child LOCAL lcParentID && parent's value to be sought in child
LOCAL lcChildWkArea && child work area handle returned by riopen LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcParentWkArea LOCAL lcParentWkArea
LOCAL llDelHeaderarea LOCAL llDelHeaderarea
LOCAL lcStartArea LOCAL lcStartArea
lcStartArea=select() lcStartArea=SELECT()
llRetVal=.t. llRetVal=.T.
lcParentWkArea=select() lcParentWkArea=SELECT()
SELECT (lcParentWkArea) SELECT (lcParentWkArea)
pcParentDBF=dbf() pcParentDBF=DBF()
pnParentRec=recno() pnParentRec=RECNO()
STORE DEPTO TO lcParentID,pcParentID STORE DEPTO TO lcParentID,pcParentID
pcParentExpr="DEPTO" pcParentExpr="DEPTO"
lcChildWkArea=riopen("nombrelargodeldbf","depto") lcChildWkArea=riopen("nombrelargodeldbf","depto")
IF lcChildWkArea<=0 IF lcChildWkArea<=0
IF _triggerlevel=1 IF _TRIGGERLEVEL=1
DO riend WITH .F. DO riend WITH .F.
ENDIF at the end of the highest trigger level ENDIF AT the END OF the highest TRIGGER LEVEL
RETURN .F. RETURN .F.
ENDIF not able to open the child work area ENDIF NOT able TO OPEN the CHILD WORK area
pcChildDBF=dbf(lcChildWkArea) pcChildDBF=DBF(lcChildWkArea)
SELECT (lcChildWkArea) SELECT (lcChildWkArea)
SEEK lcParentID SEEK lcParentID
SCAN WHILE DEPTO=lcParentID AND llRetVal SCAN WHILE DEPTO=lcParentID AND llRetVal
pnChildRec=recno() pnChildRec=RECNO()
pcChildID=DEPTO pcChildID=DEPTO
pcChildExpr="DEPTO" pcChildExpr="DEPTO"
llRetVal=ridelete() llRetVal=RIDELETE()
ENDSCAN get all of the nombrelargodeldbf records ENDSCAN GET ALL OF the nombrelargodeldbf RECORDS
=rireuse("nombrelargodeldbf",lcChildWkArea) =rireuse("nombrelargodeldbf",lcChildWkArea)
IF NOT llRetVal IF NOT llRetVal
IF _triggerlevel=1 IF _TRIGGERLEVEL=1
DO riend WITH llRetVal DO riend WITH llRetVal
ENDIF at the end of the highest trigger level ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea) SELECT (lcStartArea)
RETURN llRetVal RETURN llRetVal
ENDIF ENDIF
IF _triggerlevel=1 IF _TRIGGERLEVEL=1
do riend with llRetVal DO riend WITH llRetVal
ENDIF at the end of the highest trigger level ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea) SELECT (lcStartArea)
RETURN llRetVal RETURN llRetVal
** "End of Referential integrity Delete trigger for" fb2p_depto ** "End of Referential integrity Delete trigger for" fb2p_depto
******************************************************************************** ********************************************************************************
******************************************************************************** ********************************************************************************
procedure __RI_UPDATE_nombrelargodeldbf PROCEDURE __RI_UPDATE_nombrelargodeldbf
** "Referential integrity update trigger for" nombrelargodeldbf ** "Referential integrity update trigger for" nombrelargodeldbf
LOCAL llRetVal LOCAL llRetVal
llRetVal = .t. llRetVal = .T.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1 IF _TRIGGERLEVEL=1
BEGIN TRANSACTION BEGIN TRANSACTION
PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,; PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,pcOldDBC
pcOldTalk=SET("TALK") pcOldTalk=SET("TALK")
SET TALK OFF SET TALK OFF
pcOldDele=SET("DELETED") pcOldDele=SET("DELETED")
@@ -848,14 +921,14 @@ IF _triggerlevel=1
pcRIwkareas="" pcRIwkareas=""
pcRIolderror=ON("error") pcRIolderror=ON("error")
pnerror=0 pnerror=0
ON ERROR pnerror=rierror(ERROR(),message(),message(1),program()) ON ERROR pnerror=rierror(ERROR(),MESSAGE(),MESSAGE(1),PROGRAM())
IF TYPE('gaErrors(1)')<>"U" IF TYPE('gaErrors(1)')<>"U"
release gaErrors RELEASE gaErrors
ENDIF ENDIF
PUBLIC gaErrors(1,12) PUBLIC gaErrors(1,12)
pcOldDBC=DBC() pcOldDBC=DBC()
SET DATA TO ("FB2P_DBC") SET DATA TO ("FB2P_DBC")
ENDIF first trigger ENDIF FIRST TRIGGER
LOCAL lcParentID && parent's value to be sought in child LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen LOCAL lcChildWkArea && child work area handle returned by riopen
@@ -863,58 +936,58 @@ LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea LOCAL lcStartArea
lcStartArea=select() lcStartArea=SELECT()
llRetVal=.t. llRetVal=.T.
lcChildWkArea=select() lcChildWkArea=SELECT()
IF _triggerlevel=1 or type("pccascadeparent")#"C" or (NOT pccascadeparent=="FB2P_DEPTO") IF _TRIGGERLEVEL=1 OR TYPE("pccascadeparent")#"C" OR (NOT pcCascadeParent=="FB2P_DEPTO")
SELECT (lcChildWkArea) SELECT (lcChildWkArea)
lcChildID=DEPTO lcChildID=DEPTO
lcOldChildID=oldval("DEPTO") lcOldChildID=OLDVAL("DEPTO")
pcChildDBF=dbf(lcChildWkArea) pcChildDBF=DBF(lcChildWkArea)
pnChildRec=recno(lcChildWkArea) pnChildRec=RECNO(lcChildWkArea)
pcChildID=lcOldChildID pcChildID=lcOldChildID
pcChildExpr="DEPTO" pcChildExpr="DEPTO"
if isnull(lcChildID) or isnull(lcOldChildID) or lcChildID <> lcOldChildID IF ISNULL(lcChildID) OR ISNULL(lcOldChildID) OR lcChildID <> lcOldChildID
lcParentWkArea=riopen("fb2p_depto","depto") lcParentWkArea=riopen("fb2p_depto","depto")
IF lcParentWkArea<=0 IF lcParentWkArea<=0
IF _triggerlevel=1 IF _TRIGGERLEVEL=1
DO riend WITH .F. DO riend WITH .F.
ENDIF at the end of the highest trigger level ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea) SELECT (lcStartArea)
RETURN .F. RETURN .F.
ENDIF not able to open the child work area ENDIF NOT able TO OPEN the CHILD WORK area
pcParentDBF=dbf(lcParentWkArea) pcParentDBF=DBF(lcParentWkArea)
llRetVal=SEEK(lcChildID,lcParentWkArea) llRetVal=SEEK(lcChildID,lcParentWkArea)
pnParentRec=recno(lcParentWkArea) pnParentRec=RECNO(lcParentWkArea)
if llRetVal and not (isrlocked(pnParentRec, lcParentWkArea) or ; IF llRetVal AND NOT (ISRLOCKED(pnParentRec, lcParentWkArea) OR ;
isflocked(lcParentWkArea)) ISFLOCKED(lcParentWkArea))
if rlock(lcParentWkArea) IF RLOCK(lcParentWkArea)
unlock record pnParentRec in (lcParentWkArea) UNLOCK RECORD pnParentRec IN (lcParentWkArea)
else ELSE
=rireuse("tparen",lcParentWkArea) =rireuse("tparen",lcParentWkArea)
pnError = rierror(-1,"Insert restrict rule violated.","","") pnerror = rierror(-1,"Insert restrict rule violated.","","")
IF _triggerlevel=1 IF _TRIGGERLEVEL=1
DO riend WITH llRetVal DO riend WITH llRetVal
ENDIF at the end of the highest trigger level ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea) SELECT (lcStartArea)
RETURN llRetVal RETURN llRetVal
endif ENDIF
endif ENDIF
=rireuse("fb2p_depto",lcParentWkArea) =rireuse("fb2p_depto",lcParentWkArea)
IF NOT llRetVal IF NOT llRetVal
pnError = rierror(-1,"Insert restrict rule violated.","","") pnerror = rierror(-1,"Insert restrict rule violated.","","")
IF _triggerlevel=1 IF _TRIGGERLEVEL=1
DO riend WITH llRetVal DO riend WITH llRetVal
ENDIF at the end of the highest trigger level ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea) SELECT (lcStartArea)
RETURN llRetVal RETURN llRetVal
ENDIF no parent ENDIF no PARENT
ENDIF this value was changed ENDIF THIS VALUE was changed
ENDIF not part of a cascade from "fb2p_depto" ENDIF NOT PART OF a CASCADE FROM "fb2p_depto"
lcParentWkArea=lcChildWkArea lcParentWkArea=lcChildWkArea
IF _triggerlevel=1 IF _TRIGGERLEVEL=1
do riend with llRetVal DO riend WITH llRetVal
ENDIF at the end of the highest trigger level ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea) SELECT (lcStartArea)
RETURN llRetVal RETURN llRetVal
** "End of Referential integrity Update trigger for" nombrelargodeldbf ** "End of Referential integrity Update trigger for" nombrelargodeldbf
@@ -924,15 +997,15 @@ RETURN llRetVal
** "Referential integrity insert trigger for" nombrelargodeldbf ** "Referential integrity insert trigger for" nombrelargodeldbf
PROCEDURE __RI_INSERT_nombrelargodeldbf PROCEDURE __RI_INSERT_nombrelargodeldbf
LOCAL llRetVal LOCAL llRetVal
llRetVal = .t. llRetVal = .T.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1 IF _TRIGGERLEVEL=1
BEGIN TRANSACTION BEGIN TRANSACTION
PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,; PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,pcOldDBC
pcOldTalk=SET("TALK") pcOldTalk=SET("TALK")
SET TALK OFF SET TALK OFF
pcOldDele=SET("DELETED") pcOldDele=SET("DELETED")
@@ -945,64 +1018,64 @@ IF _triggerlevel=1
pcRIwkareas="" pcRIwkareas=""
pcRIolderror=ON("error") pcRIolderror=ON("error")
pnerror=0 pnerror=0
ON ERROR pnerror=rierror(ERROR(),message(),message(1),program()) ON ERROR pnerror=rierror(ERROR(),MESSAGE(),MESSAGE(1),PROGRAM())
IF TYPE('gaErrors(1)')<>"U" IF TYPE('gaErrors(1)')<>"U"
release gaErrors RELEASE gaErrors
ENDIF ENDIF
PUBLIC gaErrors(1,12) PUBLIC gaErrors(1,12)
pcOldDBC=DBC() pcOldDBC=DBC()
SET DATA TO ("FB2P_DBC") SET DATA TO ("FB2P_DBC")
ENDIF first trigger ENDIF FIRST TRIGGER
LOCAL lcChildID && child's value to be sought in parent LOCAL lcChildID && child's value to be sought in parent
LOCAL lcParentWkArea && parentwork area handle returned by riopen LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcChildWkArea && child's work area LOCAL lcChildWkArea && child's work area
LOCAL lcStartArea LOCAL lcStartArea
lcStartArea=select() lcStartArea=SELECT()
llRetVal=.t. llRetVal=.T.
lcChildWkArea=SELECT() lcChildWkArea=SELECT()
SELECT (lcChildWkArea) SELECT (lcChildWkArea)
lcChildID=DEPTO lcChildID=DEPTO
pcChildDBF=dbf(lcChildWkArea) pcChildDBF=DBF(lcChildWkArea)
pnChildRec=recno(lcChildWkArea) pnChildRec=RECNO(lcChildWkArea)
pcChildID=lcChildID pcChildID=lcChildID
pcChildExpr="DEPTO" pcChildExpr="DEPTO"
lcParentWkArea=riopen("fb2p_depto","depto") lcParentWkArea=riopen("fb2p_depto","depto")
IF lcParentWkArea<=0 IF lcParentWkArea<=0
IF _triggerlevel=1 IF _TRIGGERLEVEL=1
DO riend WITH .F. DO riend WITH .F.
ENDIF at the end of the highest trigger level ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea) SELECT (lcStartArea)
RETURN .F. RETURN .F.
ENDIF not able to open the child work area ENDIF NOT able TO OPEN the CHILD WORK area
pcParentDBF=dbf(lcParentWkArea) pcParentDBF=DBF(lcParentWkArea)
llRetVal=SEEK(lcChildID,lcParentWkArea) llRetVal=SEEK(lcChildID,lcParentWkArea)
pnParentRec=recno(lcParentWkArea) pnParentRec=RECNO(lcParentWkArea)
if llRetVal and not (isrlocked(pnParentRec, lcParentWkArea) or ; IF llRetVal AND NOT (ISRLOCKED(pnParentRec, lcParentWkArea) OR ;
isflocked(lcParentWkArea)) ISFLOCKED(lcParentWkArea))
if rlock(lcParentWkArea) IF RLOCK(lcParentWkArea)
unlock record pnParentRec in (lcParentWkArea) UNLOCK RECORD pnParentRec IN (lcParentWkArea)
else ELSE
=rireuse("tparen",lcParentWkArea) =rireuse("tparen",lcParentWkArea)
pnError = rierror(-1,"Insert restrict rule violated.","","") pnerror = rierror(-1,"Insert restrict rule violated.","","")
IF _triggerlevel=1 IF _TRIGGERLEVEL=1
DO riend WITH llRetVal DO riend WITH llRetVal
ENDIF at the end of the highest trigger level ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea)
RETURN llRetVal
endif
endif
=rireuse("fb2p_depto",lcParentWkArea)
IF NOT llRetVal
pnError = rierror(-1,"Insert restrict rule violated.","","")
IF _triggerlevel=1
DO riend WITH llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea) SELECT (lcStartArea)
RETURN llRetVal RETURN llRetVal
ENDIF ENDIF
IF _triggerlevel=1 ENDIF
do riend with llRetVal =rireuse("fb2p_depto",lcParentWkArea)
ENDIF at the end of the highest trigger level IF NOT llRetVal
pnerror = rierror(-1,"Insert restrict rule violated.","","")
IF _TRIGGERLEVEL=1
DO riend WITH llRetVal
ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea)
RETURN llRetVal
ENDIF
IF _TRIGGERLEVEL=1
DO riend WITH llRetVal
ENDIF AT the END OF the highest TRIGGER LEVEL
SELECT (lcStartArea) SELECT (lcStartArea)
RETURN llRetVal RETURN llRetVal
** "End of Referential integrity insert trigger for" nombrelargodeldbf ** "End of Referential integrity insert trigger for" nombrelargodeldbf

View File

@@ -2,13 +2,13 @@
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! * (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*-------------------------------------------------------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.18" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\fb2p_dbf.dbf" Generated="2014/01/05 19:10:49" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) *< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\fb2p_dbf.dbf" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
* *
<TABLE> <TABLE>
<MemoFile></MemoFile> <MemoFile></MemoFile>
<CodePage>1252</CodePage> <CodePage>1252</CodePage>
<LastUpdate>2014/01/05</LastUpdate> <LastUpdate>2014/01/06</LastUpdate>
<Database>fb2p_dbc.dbc</Database> <Database>fb2p_dbc.dbc</Database>
<FileType>0x00000031</FileType> <FileType>0x00000031</FileType>
<FileType_Descrip>Visual FoxPro, autoincrement enabled</FileType_Descrip> <FileType_Descrip>Visual FoxPro, autoincrement enabled</FileType_Descrip>
@@ -71,7 +71,7 @@
<Upd_Trig_Exp></Upd_Trig_Exp> <Upd_Trig_Exp></Upd_Trig_Exp>
<Del_Trig_Exp></Del_Trig_Exp> <Del_Trig_Exp></Del_Trig_Exp>
<TableComment></TableComment> <TableComment></TableComment>
<Autoinc_Nextval>20</Autoinc_Nextval> <Autoinc_Nextval>30</Autoinc_Nextval>
<Autoinc_Step>2</Autoinc_Step> <Autoinc_Step>2</Autoinc_Step>
</FIELD> </FIELD>
<FIELD> <FIELD>
@@ -122,31 +122,15 @@
<INDEXES> <INDEXES>
<INDEX> <INDEX>
<TagName>ID</TagName> <TagName>ID</TagName>
<TagType>PRINCIPAL</TagType> <TagType>PRIMARY</TagType>
<Key>ID</Key> <Key>ID</Key>
<Filter></Filter> <Filter></Filter>
<Order>ASCENDING</Order> <Order>ASCENDING</Order>
<Collate>MACHINE</Collate> <Collate>MACHINE</Collate>
</INDEX> </INDEX>
<INDEX>
<TagName>I_NOMBRE</TagName>
<TagType>NORMAL</TagType>
<Key>NOMBRE</Key>
<Filter></Filter>
<Order>ASCENDING</Order>
<Collate>GENERAL</Collate>
</INDEX>
<INDEX>
<TagName>DEPTO</TagName>
<TagType>NORMAL</TagType>
<Key>DEPTO</Key>
<Filter></Filter>
<Order>ASCENDING</Order>
<Collate>MACHINE</Collate>
</INDEX>
<INDEX> <INDEX>
<TagName>EDAD_ND</TagName> <TagName>EDAD_ND</TagName>
<TagType>NORMAL</TagType> <TagType>REGULAR</TagType>
<Key>EDAD</Key> <Key>EDAD</Key>
<Filter>.NOT.DELETED()</Filter> <Filter>.NOT.DELETED()</Filter>
<Order>ASCENDING</Order> <Order>ASCENDING</Order>
@@ -154,7 +138,7 @@
</INDEX> </INDEX>
<INDEX> <INDEX>
<TagName>NOTDELETED</TagName> <TagName>NOTDELETED</TagName>
<TagType>BINARIO</TagType> <TagType>BINARY</TagType>
<Key>.NOT.DELETED()</Key> <Key>.NOT.DELETED()</Key>
<Filter></Filter> <Filter></Filter>
<Order>ASCENDING</Order> <Order>ASCENDING</Order>
@@ -162,12 +146,36 @@
</INDEX> </INDEX>
<INDEX> <INDEX>
<TagName>EDAD</TagName> <TagName>EDAD</TagName>
<TagType>CANDIDATO</TagType> <TagType>CANDIDATE</TagType>
<Key>EDAD</Key> <Key>EDAD</Key>
<Filter></Filter> <Filter></Filter>
<Order>DESCENDING</Order> <Order>DESCENDING</Order>
<Collate>MACHINE</Collate> <Collate>MACHINE</Collate>
</INDEX> </INDEX>
<INDEX>
<TagName>DEPTO</TagName>
<TagType>REGULAR</TagType>
<Key>DEPTO</Key>
<Filter>.NOT.DELETED().AND..T.</Filter>
<Order>ASCENDING</Order>
<Collate>GENERAL</Collate>
</INDEX>
<INDEX>
<TagName>NOMBRE</TagName>
<TagType>REGULAR</TagType>
<Key>NOMBRE</Key>
<Filter>.NOT.DELETED().AND..T..AND..T.</Filter>
<Order>ASCENDING</Order>
<Collate>GENERAL</Collate>
</INDEX>
<INDEX>
<TagName>I_NOMBRE</TagName>
<TagType>REGULAR</TagType>
<Key>NOMBRE</Key>
<Filter>.NOT.DELETED().AND..T..AND..NOT..F.</Filter>
<Order>DESCENDING</Order>
<Collate>GENERAL</Collate>
</INDEX>
</INDEXES> </INDEXES>
</TABLE> </TABLE>

View File

@@ -0,0 +1,460 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\fb2p_foxuser.frx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJ8" timestamp="1132960734" objtype="1" objcode="53" name="" vpos="1.000" hpos="5000.000" height="1000.000" width="-1.000" order="" unique=".F." comment="" environ=".T." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="0" fontsize="10" mode="0" ruler="1" rulerlines="0" grid=".T." gridv="12" gridh="12" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".T." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="1" curpos=".T." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr="" >
<picture><![CDATA[]]>
<tag><![CDATA[{8}{0}{18}{0}1{0}{1}{0}winspool{0}{0}Microsoft XPS Document Writer{0}{0}XPSPort:{0}{0}{0}{0}{0}{0}{0}{0}{0}{0}{0}{0}{0}{0}{0}{0}{0}{0}]]>
<tag2><![CDATA[TWljcm9zb2Z0IFhQUyBEb2N1bWVudCBXcml0ZXIAAAABBAAGnABYAwP/AAABAAkAmgs0CGQAAQAPAFgCAgABAFgCAgAAAEE0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAEAAAACAAAAAQAAAP////8AAAAAAAAAAAAAAAAAAAAARElOVSIAEAFMAwwAytL2cgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJAAAAAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAQAQAAU01USgAAAAAQAAABTQBpAGMAcgBvAHMAbwBmAHQAIABYAFAAUwAgAEQAbwBjAHUAbQBlAG4AdAAgAFcAcgBpAHQAZQByAAAASW5wdXRCaW4ARk9STVNPVVJDRQBSRVNETEwAVW5pcmVzRExMAEludGVybGVhdmluZwBPRkYASW1hZ2VUeXBlAEpQRUdNZWQAT3JpZW50YXRpb24AUE9SVFJBSVQAQ29sbGF0ZQBPRkYAUmVzb2x1dGlvbgBPcHRpb24xAFBhcGVyU2l6ZQBMRVRURVIAQ29sb3JNb2RlADI0YnBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABNWERXAQEAAA==]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[DRIVER=winspool
DEVICE=Microsoft XPS Document Writer
OUTPUT=XPSPort:
ORIENTATION=0
PAPERSIZE=9
COPIES=1
DEFAULTSOURCE=15
PRINTQUALITY=600
COLOR=2
DUPLEX=1
YRESOLUTION=600
TTOPTION=2
COLLATE=0
]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJI" timestamp="1132960734" objtype="9" objcode="0" name="" vpos="0.000" hpos="0.000" height="6459.000" width="0.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJJ" timestamp="1132960734" objtype="9" objcode="1" name="" vpos="0.000" hpos="0.000" height="5209.000" width="0.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJK" timestamp="1132960734" objtype="9" objcode="3" name="" vpos="0.000" hpos="0.000" height="2709.000" width="17085.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[DTOS(UPDATED)]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJL" timestamp="1132960734" objtype="9" objcode="4" name="" vpos="0.000" hpos="0.000" height="4479.000" width="0.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJM" timestamp="1132960734" objtype="9" objcode="5" name="" vpos="0.000" hpos="0.000" height="4479.000" width="0.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJN" timestamp="1132960734" objtype="9" objcode="7" name="" vpos="0.000" hpos="0.000" height="3021.000" width="0.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJO" timestamp="1132960734" objtype="9" objcode="8" name="" vpos="0.000" hpos="0.000" height="4479.000" width="0.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y10SMDRX" timestamp="0" objtype="23" objcode="0" name="" vpos="14.000" hpos="5.000" height="11.000" width="21.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="2" fontsize="8" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[3]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y10SMDS0" timestamp="0" objtype="23" objcode="0" name="" vpos="14.000" hpos="5.000" height="11.000" width="29.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="0" fontsize="8" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[3]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y10SMDRY" timestamp="0" objtype="23" objcode="0" name="" vpos="15.000" hpos="6.000" height="12.000" width="32.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="1" fontsize="9" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[3]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y10SMDRV" timestamp="0" objtype="23" objcode="0" name="" vpos="16.000" hpos="6.000" height="13.000" width="35.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="0" fontsize="10" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[3]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y10SMDRZ" timestamp="0" objtype="23" objcode="0" name="" vpos="16.000" hpos="6.000" height="13.000" width="34.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="1" fontsize="10" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[3]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y10SMDRW" timestamp="0" objtype="23" objcode="0" name="" vpos="23.000" hpos="9.000" height="18.000" width="50.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="1" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="1" fontsize="14" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[4]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJP" timestamp="1132960734" objtype="6" objcode="0" name="" vpos="1145.833" hpos="208.333" height="416.667" width="71666.667" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="4" penpat="8" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="1" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJQ" timestamp="1132960734" objtype="5" objcode="0" name="" vpos="1979.167" hpos="729.167" height="2395.833" width="9583.333" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="1" fontsize="14" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="1" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA["FOXUSER"]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJR" timestamp="1132960734" objtype="8" objcode="0" name="" vpos="4479.167" hpos="625.000" height="1666.667" width="6979.167" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar="C" pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="2" fontsize="8" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="2" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="1" resoid="1" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[DATE()]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJS" timestamp="1132960734" objtype="6" objcode="0" name="" vpos="9166.667" hpos="208.333" height="416.667" width="71666.667" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="4" penpat="8" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="1" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJV" timestamp="1132960734" objtype="5" objcode="0" name="" vpos="9791.667" hpos="729.167" height="1562.500" width="4895.833" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="-1" penblue="-1" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="1" fontsize="9" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="1" curpos=".F." supalways=".T." supovflow=".T." suprpcol="0" supgroup="6" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA["Updated"]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJY" timestamp="1132960734" objtype="5" objcode="0" name="" vpos="9791.667" hpos="16979.167" height="1562.500" width="2708.333" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="-1" penblue="-1" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="1" fontsize="9" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="1" curpos=".T." supalways=".T." supovflow=".T." suprpcol="0" supgroup="6" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA["Type"]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NK1" timestamp="1132960734" objtype="5" objcode="0" name="" vpos="9791.667" hpos="30416.667" height="1562.500" width="1041.667" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="-1" penblue="-1" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="1" fontsize="9" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="1" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA["Id"]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NK4" timestamp="1132960734" objtype="5" objcode="0" name="" vpos="9791.667" hpos="43750.000" height="1562.500" width="3437.500" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="-1" penblue="-1" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="1" fontsize="9" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="1" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA["Name"]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NK6" timestamp="1132960734" objtype="5" objcode="0" name="" vpos="11458.333" hpos="16979.167" height="1562.500" width="5416.667" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="-1" penblue="-1" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="1" fontsize="9" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="1" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA["Readonly"]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NK8" timestamp="1132960734" objtype="5" objcode="0" name="" vpos="11458.333" hpos="29479.167" height="1562.500" width="3229.167" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="-1" penblue="-1" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="1" fontsize="9" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="1" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA["Ckval"]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NKE" timestamp="1132960734" objtype="6" objcode="0" name="" vpos="13333.333" hpos="208.333" height="416.667" width="71666.667" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="4" penpat="8" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="1" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJT" timestamp="1132960734" objtype="7" objcode="4" name="" vpos="15833.333" hpos="208.333" height="2708.333" width="71666.667" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="1" penpat="8" fillpat="1" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".T." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJW" timestamp="1132960734" objtype="8" objcode="0" name="" vpos="16250.000" hpos="729.167" height="1875.000" width="6250.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar="C" pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="1" fontsize="10" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="1" resoid="1" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[DTOC(UPDATED)]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJU" timestamp="1132960734" objtype="7" objcode="4" name="" vpos="20625.000" hpos="208.333" height="4479.167" width="71666.667" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="1" penpat="8" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".T." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJX" timestamp="1132960734" objtype="6" objcode="0" name="" vpos="20729.167" hpos="15833.333" height="4270.833" width="104.167" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="1" penpat="8" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".T." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NK0" timestamp="1132960734" objtype="6" objcode="0" name="" vpos="20729.167" hpos="29166.667" height="4270.833" width="104.167" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="1" penpat="8" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".T." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NK3" timestamp="1132960734" objtype="6" objcode="0" name="" vpos="20729.167" hpos="42604.167" height="4270.833" width="104.167" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="1" penpat="8" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".T." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NJZ" timestamp="1132960734" objtype="8" objcode="0" name="" vpos="21145.833" hpos="16979.167" height="1666.667" width="11041.667" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar="C" pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="0" fontsize="8" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".T." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="2" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="1" resoid="1" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="6" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[TYPE]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NK2" timestamp="1132960734" objtype="8" objcode="0" name="" vpos="21145.833" hpos="30416.667" height="1666.667" width="11041.667" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar="C" pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="0" fontsize="8" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".T." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="2" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="1" resoid="1" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="6" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[ID]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NK5" timestamp="1132960734" objtype="8" objcode="0" name="" vpos="21145.833" hpos="43750.000" height="1666.667" width="26354.167" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar="C" pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="0" fontsize="8" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".T." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".T." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="2" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="1" resoid="1" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[NAME]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NK7" timestamp="1132960734" objtype="8" objcode="0" name="" vpos="22916.667" hpos="16770.833" height="1666.667" width="2083.333" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar="C" pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="0" fontsize="8" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".T." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".T." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="2" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="1" resoid="1" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="6" supvalchng=".F." supexpr=""
<picture><![CDATA["Y"]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[READONLY]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NK9" timestamp="1132960734" objtype="8" objcode="0" name="" vpos="22916.667" hpos="24583.333" height="1666.667" width="7916.667" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar="N" pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="0" fontsize="8" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".T." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".T." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="2" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="1" topmargin="0" botmargin="0" totaltype="0" resettotal="1" resoid="1" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="6" supvalchng=".F." supexpr=""
<picture><![CDATA["999,999,999"]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[CKVAL]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NKC" timestamp="1132960734" objtype="8" objcode="0" name="" vpos="27708.333" hpos="729.167" height="1666.667" width="16250.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar="C" pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="0" fontsize="8" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".T." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".T." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="2" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="1" topmargin="0" botmargin="0" totaltype="0" resettotal="1" resoid="1" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="6" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[[Count for ]+DTOC(UPDATED)+[:]]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NKA" timestamp="1132960734" objtype="8" objcode="0" name="" vpos="27708.333" hpos="16979.167" height="1666.667" width="11041.667" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar="N" pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="0" fontsize="8" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".T." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".T." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="2" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="1" topmargin="0" botmargin="0" totaltype="1" resettotal="6" resoid="1" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="6" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[TYPE]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NKF" timestamp="1132960734" objtype="8" objcode="0" name="" vpos="34375.000" hpos="729.167" height="1666.667" width="14375.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar="C" pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="2" fontsize="8" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="2" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="1" resoid="1" curpos=".F." supalways=".T." supovflow=".T." suprpcol="0" supgroup="6" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA["Page " + TRANSFORM(_PAGENO)]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NKD" timestamp="1132960734" objtype="8" objcode="0" name="" vpos="39270.833" hpos="729.167" height="1666.667" width="6562.500" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar="C" pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="0" fontsize="8" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".T." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".T." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="2" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="1" topmargin="0" botmargin="0" totaltype="0" resettotal="1" resoid="1" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="6" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[[Total Count:]]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y0056NKB" timestamp="1132960734" objtype="8" objcode="0" name="" vpos="39270.833" hpos="16979.167" height="1666.667" width="11041.667" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar="N" pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="0" fontsize="8" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".T." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".T." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="2" double=".T." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="1" topmargin="0" botmargin="0" totaltype="1" resettotal="1" resoid="1" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="6" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[TYPE]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y10SMDS1" timestamp="0" objtype="25" objcode="0" name="dataenvironment" vpos="0.000" hpos="0.000" height="0.000" width="0.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[
]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[Top = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y10SMDS2" timestamp="0" objtype="26" objcode="0" name="cursor" vpos="0.000" hpos="0.000" height="0.000" width="0.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[Alias = "foxuser"
Order = "wizard_1"
CursorSource = ..\..\..\test\varios\vcx2xml\foxuser_fdbozzo.dbf
Name = "cursor1"
]]>
<user><![CDATA[]]>
</Reportes>

View File

@@ -0,0 +1,122 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\fb2p_foxuser.lbx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
<Reportes
platform="WINDOWS " uniqueid="_3Y11C8XLX" timestamp="1133012625" objtype="1" objcode="53" name="" vpos="2.000" hpos="2750.000" height="1000.000" width="40000.000" order="" unique=".F." comment="" environ=".T." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Courier New" fontstyle="0" fontsize="10" mode="0" ruler="1" rulerlines="1" grid=".T." gridv="12" gridh="12" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".T." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".T." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr="" >
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y11C8XLY" timestamp="1133012625" objtype="9" objcode="1" name="" vpos="0.000" hpos="0.000" height="0.000" width="0.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y11C8XLZ" timestamp="1133012625" objtype="9" objcode="2" name="" vpos="0.000" hpos="0.000" height="0.000" width="0.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y11C8XM0" timestamp="1133012625" objtype="9" objcode="4" name="" vpos="0.000" hpos="0.000" height="10000.000" width="0.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y11C8XM1" timestamp="1133012625" objtype="9" objcode="6" name="" vpos="0.000" hpos="0.000" height="0.000" width="0.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y11C8XM2" timestamp="1133012625" objtype="9" objcode="7" name="" vpos="0.000" hpos="0.000" height="0.000" width="0.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y11CBDHY" timestamp="0" objtype="23" objcode="0" name="" vpos="14.000" hpos="5.000" height="11.000" width="30.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="0" fontsize="8" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[3]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y11CBDHX" timestamp="0" objtype="23" objcode="0" name="" vpos="16.000" hpos="8.000" height="12.000" width="9.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="Courier New" fontstyle="0" fontsize="10" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[4]]>
<style><![CDATA[]]>
<expr><![CDATA[]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y11C8XM3" timestamp="1133012625" objtype="8" objcode="0" name="" vpos="8333.333" hpos="2604.168" height="1666.667" width="34791.665" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar="C" pengreen="-1" penblue="-1" fillred="-1" fillgreen="-1" fillblue="-1" pensize="0" penpat="0" fillpat="0" fontface="Arial" fontstyle="0" fontsize="8" mode="1" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".T." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="2" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="1" resoid="0" curpos=".F." supalways=".T." supovflow=".F." suprpcol="3" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[-1]]>
<style><![CDATA[]]>
<expr><![CDATA[ALLT(Type)+ALLT(Id)+IIF(Readonly,'Y','N')+LTRIM(STR(Ckval,6,0))+DTOC(Updated)]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y11CBDHZ" timestamp="0" objtype="25" objcode="0" name="dataenvironment" vpos="0.000" hpos="0.000" height="0.000" width="0.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[
]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[Name = "Dataenvironment"
]]>
<user><![CDATA[]]>
</Reportes>
<Reportes
platform="WINDOWS " uniqueid="_3Y11CBDI0" timestamp="0" objtype="26" objcode="0" name="cursor" vpos="0.000" hpos="0.000" height="0.000" width="0.000" order="" unique=".F." comment="" environ=".F." boxchar=" " fillchar=" " pengreen="0" penblue="0" fillred="0" fillgreen="0" fillblue="0" pensize="0" penpat="0" fillpat="0" fontface="" fontstyle="0" fontsize="0" mode="0" ruler="0" rulerlines="0" grid=".F." gridv="0" gridh="0" float=".F." stretch=".F." stretchtop=".F." top=".F." bottom=".F." suptype="0" suprest="0" norepeat=".F." resetrpt="0" pagebreak=".F." colbreak=".F." resetpage=".F." general="0" spacing="0" double=".F." swapheader=".F." swapfooter=".F." ejectbefor=".F." ejectafter=".F." plain=".F." summary=".F." addalias=".F." offset="0" topmargin="0" botmargin="0" totaltype="0" resettotal="0" resoid="0" curpos=".F." supalways=".F." supovflow=".F." suprpcol="0" supgroup="0" supvalchng=".F." supexpr=""
<picture><![CDATA[]]>
<tag><![CDATA[]]>
<tag2><![CDATA[]]>
<penred><![CDATA[0]]>
<style><![CDATA[]]>
<expr><![CDATA[Order = "updated"
Alias = "foxuser_fdbozzo"
CursorSource = foxuser_fdbozzo.dbf
Name = "cursor1"
]]>
<user><![CDATA[]]>
</Reportes>

View File

@@ -0,0 +1,520 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\fb2p_frm_1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*< OLE: Nombre="Cl_form1.Cl_olecontrol1" Parent="Cl_form1" ObjName="Cl_olecontrol1" OLEObject="C:\Windows\system32\richtx32.ocx" Checksum="1767681336" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHCT7i+++c4BAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAOAAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAAIAAAABwAAAP7///8JAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP////8AAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACACwAAAEFwcGVhcmFuY2UACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsZQAJAAAASQoAAAABAAAADQAAAAAAAAUAAIAAAAAAAAABAAAAAAABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dABCdWxsZXRJbmRlbnQAEQAAAE4NAAAABwAAAAAAAAAAAAAAEAAAAERpc2FibGVOb1Njcm9sbAAFAAAATAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABSaWdodE1hcmdpbgARAAAATg0AAAAHAAAAAAAAAAAAAAAFAAAAVGV4dAAUAAAASAAAAAALAAAAT2xlY29udHJvbDENAAAAQXV0b1ZlcmJNZW51AAUAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
*
DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="2013/12/15 18:50:25" Scale="" Uniqueid="_3XW0B1R2O" />
AllowOutput = .T.
AlwaysOnBottom = .F.
AlwaysOnTop = .F.
AutoCenter = .T.
BackColor = 240,240,240
BindControls = .T.
BorderStyle = 3
BufferMode = 0
Caption = "Form"
ClipControls = .T.
Closable = .T.
ColorSource = 4
Comment = ""
ContinuousScroll = .T.
ControlBox = .T.
DataSession = 1
DefOleLCID = 0
Desktop = .F.
Dockable = 0
DoCreate = .T.
DrawMode = 13
DrawStyle = 0
DrawWidth = 1
Enabled = .T.
FillColor = 0,0,0
FillStyle = 1
FontBold = .F.
FontCharSet = 0
FontCondense = .F.
FontExtend = .F.
FontItalic = .F.
FontName = "Arial"
FontOutline = .F.
FontShadow = .F.
FontSize = 9
FontStrikethru = .F.
FontUnderline = .F.
ForeColor = 0,0,0
HalfHeightCaption = .F.
Height = 346
HelpContextID = 0
HScrollSmallChange = 10
Icon = ..\..\
KeyPreview = .F.
LockScreen = .F.
MacDesktop = 0
MaxButton = .T.
MaxHeight = -1
MaxLeft = -1
MaxTop = -1
MaxWidth = -1
MDIForm = .F.
MinButton = .T.
MinHeight = -1
MinWidth = -1
MouseIcon = ..\..\
MousePointer = 0
Movable = .T.
Name = "Cl_form1"
OLEDragMode = 0
OLEDragPicture = ..\..\
OLEDropEffects = 3
OLEDropMode = 0
Picture = ..\..\
RightToLeft = .F.
ScaleMode = 3
ScrollBars = 0
ShowInTaskBar = .T.
ShowTips = .F.
ShowWindow = 0
SizeBox = .F.
TabIndex = 1
TabStop = .T.
Tag = ""
Themes = .T.
TitleBar = 1
Visible = .T.
VScrollSmallChange = 10
WhatsThisButton = .F.
WhatsThisHelp = .F.
WhatsThisHelpID = -1
Width = 648
WindowState = 0
WindowType = 0
ZoomBox = .F.
Cl_commandgroup1.Command1.Left = 8
Cl_commandgroup1.Command1.Name = "Command1"
Cl_commandgroup1.Command1.RightToLeft = .F.
Cl_commandgroup1.Command1.Top = 4
Cl_commandgroup1.Command2.Left = 124
Cl_commandgroup1.Command2.Name = "Command2"
Cl_commandgroup1.Command2.RightToLeft = .F.
Cl_commandgroup1.Command2.Top = 4
Cl_commandgroup1.Name = "Cl_commandgroup1"
Cl_commandgroup1.una_prop_cmgroup = Ahora tiene valor
Cl_commandgroup1.ZOrderSet = 2
Cl_imagen1.Left = 268
Cl_imagen1.Name = "Cl_imagen1"
Cl_imagen1.Top = 292
Cl_imagen1.ZOrderSet = 3
Cl_imagen2.Left = 316
Cl_imagen2.Name = "Cl_imagen2"
Cl_imagen2.Top = 292
Cl_imagen2.ZOrderSet = 4
Cl_optiongroup1.Name = "Cl_optiongroup1"
Cl_optiongroup1.Option1.Left = 8
Cl_optiongroup1.Option1.Name = "Option1"
Cl_optiongroup1.Option1.RightToLeft = .F.
Cl_optiongroup1.Option1.Top = 8
Cl_optiongroup1.Option1.Value = 0
Cl_optiongroup1.Option2.Left = 124
Cl_optiongroup1.Option2.Name = "Option2"
Cl_optiongroup1.Option2.RightToLeft = .F.
Cl_optiongroup1.Option2.Top = 8
Cl_optiongroup1.Option2.Value = 1
Cl_optiongroup1.propiedad_de_clase_sin_valor = Valor reescrito en el form!
Cl_optiongroup1.Value = 2
Cl_optiongroup1.ZOrderSet = 1
ADD OBJECT 'Cl_olecontrol1' AS cl_olecontrol WITH ;
Height = 67, ;
Left = 484, ;
Name = "Cl_olecontrol1", ;
Top = 256, ;
Width = 131
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="olecontrol" UniqueID="_3XW0BXGCR" Timestamp="2013/12/03 20:18:24" ZOrder="2900" OLEObject="C:\Windows\system32\richtx32.ocx" CheckSum="1767681336" />
ADD OBJECT 'Commandgroup1' AS commandgroup WITH ;
BackColor = 255,128,255, ;
ButtonCount = 2, ;
Height = 76, ;
Left = 8, ;
Name = "Commandgroup1", ;
Top = 172, ;
Value = 1, ;
Width = 244, ;
ZOrderSet = 16, ;
Command1.Caption = "\<Abrir", ;
Command1.Height = 56, ;
Command1.Left = 12, ;
Command1.Name = "Command1", ;
Command1.Picture = bmps\carpetaabierta.bmp, ;
Command1.RightToLeft = .F., ;
Command1.Top = 8, ;
Command1.Width = 100, ;
Command2.Caption = "\<Cerrar", ;
Command2.Height = 56, ;
Command2.Left = 128, ;
Command2.Name = "Command2", ;
Command2.Picture = bmps\carpetacerrada.bmp, ;
Command2.RightToLeft = .F., ;
Command2.Top = 8, ;
Command2.Width = 96
*< END OBJECT: BaseClass="commandgroup" UniqueID="_3XW0BCM76" Timestamp="2013/12/03 20:18:24" ZOrder="2700" />
ADD OBJECT 'grdEncuestas' AS grid WITH ;
ColumnCount = 5, ;
DeleteMark = .F., ;
Height = 140, ;
Left = 268, ;
Name = "grdEncuestas", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordSource = "encuestas", ;
RecordSourceType = 1, ;
RightToLeft = .F., ;
Top = 12, ;
Width = 320, ;
ZOrderSet = 15, ;
Column1.ControlSource = "encuestas.promotor", ;
Column1.Name = "Column1", ;
Column1.ReadOnly = .T., ;
Column1.Width = 58, ;
Column2.ControlSource = "encuestas.idenc", ;
Column2.Name = "Column2", ;
Column2.ReadOnly = .T., ;
Column2.Width = 46, ;
Column3.ControlSource = "encuestas.calific", ;
Column3.Name = "Column3", ;
Column3.ReadOnly = .T., ;
Column3.Width = 41, ;
Column4.ControlSource = "encuestas.fecha", ;
Column4.Name = "Column4", ;
Column4.ReadOnly = .T., ;
Column4.Width = 69, ;
Column5.ControlSource = "encuestas.resultado", ;
Column5.Name = "Column5", ;
Column5.ReadOnly = .T., ;
Column5.Width = 58
*< END OBJECT: BaseClass="grid" UniqueID="_3XW0B58PA" Timestamp="2013/12/15 18:50:25" ZOrder="1600" />
ADD OBJECT 'grdEncuestas.Column1.Header1' AS header WITH ;
Caption = "promotor", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" UniqueID="_3XW0B58PB" Timestamp="2013/12/03 19:56:18" ZOrder="1700" />
ADD OBJECT 'grdEncuestas.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
RightToLeft = .F.
*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58PC" Timestamp="2013/12/15 18:50:25" ZOrder="1800" />
ADD OBJECT 'grdEncuestas.Column2.Header1' AS header WITH ;
Caption = "idenc", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" UniqueID="_3XW0B58PD" Timestamp="2013/12/03 19:56:18" ZOrder="1900" />
ADD OBJECT 'grdEncuestas.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
RightToLeft = .F.
*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58PE" Timestamp="2013/12/15 18:50:25" ZOrder="2000" />
ADD OBJECT 'grdEncuestas.Column3.Header1' AS header WITH ;
Caption = "calific", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" UniqueID="_3XW0B58PF" Timestamp="2013/12/03 19:56:18" ZOrder="2100" />
ADD OBJECT 'grdEncuestas.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
RightToLeft = .F.
*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58PG" Timestamp="2013/12/15 18:50:25" ZOrder="2200" />
ADD OBJECT 'grdEncuestas.Column4.Header1' AS header WITH ;
Caption = "fecha", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" UniqueID="_3XW0B58PH" Timestamp="2013/12/03 19:56:18" ZOrder="2300" />
ADD OBJECT 'grdEncuestas.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
RightToLeft = .F.
*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58PI" Timestamp="2013/12/15 18:50:25" ZOrder="2400" />
ADD OBJECT 'grdEncuestas.Column5.Header1' AS header WITH ;
Caption = "resultado", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" UniqueID="_3XW0B58PJ" Timestamp="2013/12/03 19:56:18" ZOrder="2500" />
ADD OBJECT 'grdEncuestas.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
RightToLeft = .F.
*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58PK" Timestamp="2013/12/15 18:50:25" ZOrder="2600" />
ADD OBJECT 'lblCalific' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Calific", ;
Left = 491, ;
Name = "lblCalific", ;
RightToLeft = .F., ;
TabIndex = 7, ;
Top = 164, ;
Width = 34, ;
WordWrap = .T., ;
ZOrderSet = 10
*< END OBJECT: BaseClass="label" UniqueID="_3XW0B58P5" Timestamp="2013/12/15 18:50:25" ZOrder="1100" />
ADD OBJECT 'lblFecha' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Fecha", ;
Left = 491, ;
Name = "lblFecha", ;
RightToLeft = .F., ;
TabIndex = 9, ;
Top = 192, ;
Width = 34, ;
WordWrap = .T., ;
ZOrderSet = 12
*< END OBJECT: BaseClass="label" UniqueID="_3XW0B58P7" Timestamp="2013/12/15 18:50:25" ZOrder="1300" />
ADD OBJECT 'lblIdenc' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Idenc", ;
Left = 292, ;
Name = "lblIdenc", ;
RightToLeft = .F., ;
TabIndex = 5, ;
Top = 192, ;
Width = 30, ;
WordWrap = .T., ;
ZOrderSet = 8
*< END OBJECT: BaseClass="label" UniqueID="_3XW0B58P3" Timestamp="2013/12/15 18:50:25" ZOrder="900" />
ADD OBJECT 'lblPromotor' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Promotor", ;
Left = 271, ;
Name = "lblPromotor", ;
RightToLeft = .F., ;
TabIndex = 3, ;
Top = 164, ;
Width = 51, ;
WordWrap = .T., ;
ZOrderSet = 6
*< END OBJECT: BaseClass="label" UniqueID="_3XW0B58P1" Timestamp="2013/12/15 18:50:25" ZOrder="700" />
ADD OBJECT 'lblResultado' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Resultado", ;
Left = 472, ;
Name = "lblResultado", ;
RightToLeft = .F., ;
TabIndex = 11, ;
Top = 220, ;
Width = 57, ;
WordWrap = .T., ;
ZOrderSet = 14
*< END OBJECT: BaseClass="label" UniqueID="_3XW0B58P9" Timestamp="2013/12/15 18:50:25" ZOrder="1500" />
ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
BackColor = 0,128,255, ;
ButtonCount = 2, ;
Height = 72, ;
Left = 8, ;
Name = "Optiongroup1", ;
Top = 256, ;
Value = 2, ;
Width = 244, ;
ZOrderSet = 17, ;
Option1.Caption = "Option1", ;
Option1.Height = 48, ;
Option1.Left = 16, ;
Option1.Name = "Option1", ;
Option1.Picture = bmps\scccheckout.bmp, ;
Option1.RightToLeft = .F., ;
Option1.Style = 1, ;
Option1.Top = 12, ;
Option1.Value = 0, ;
Option1.Width = 92, ;
Option2.Caption = "Option2", ;
Option2.Height = 48, ;
Option2.Left = 132, ;
Option2.Name = "Option2", ;
Option2.Picture = bmps\scccheckout.bmp, ;
Option2.RightToLeft = .F., ;
Option2.Style = 1, ;
Option2.Top = 12, ;
Option2.Value = 1, ;
Option2.Width = 88
*< END OBJECT: BaseClass="optiongroup" UniqueID="_3XW0BCM77" Timestamp="2013/12/03 20:18:24" ZOrder="2800" />
ADD OBJECT 'Shape1' AS shape WITH ;
BorderStyle = 2, ;
BorderWidth = 1, ;
Curvature = 16, ;
Height = 49, ;
Left = 264, ;
Name = "Shape1", ;
SpecialEffect = 0, ;
Top = 284, ;
Width = 101, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="shape" UniqueID="_3XW0BQM70" Timestamp="2013/12/03 20:18:24" ZOrder="500" />
ADD OBJECT 'txtCalific' AS textbox WITH ;
Comment = "", ;
ControlSource = "encuestas.calific", ;
DisabledForeColor = 0,0,160, ;
ForeColor = 0,0,255, ;
Height = 23, ;
Left = 532, ;
MaxLength = 2, ;
Name = "txtCalific", ;
ReadOnly = .T., ;
RightToLeft = .F., ;
TabIndex = 8, ;
Top = 164, ;
Width = 38, ;
ZOrderSet = 9
*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58P4" Timestamp="2013/12/15 18:50:25" ZOrder="1000" />
ADD OBJECT 'txtFecha' AS textbox WITH ;
Comment = "", ;
ControlSource = "encuestas.fecha", ;
DisabledForeColor = 0,0,160, ;
ForeColor = 0,0,255, ;
Height = 23, ;
Left = 532, ;
Name = "txtFecha", ;
ReadOnly = .T., ;
RightToLeft = .F., ;
TabIndex = 10, ;
Top = 192, ;
Width = 73, ;
ZOrderSet = 11
*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58P6" Timestamp="2013/12/15 18:50:25" ZOrder="1200" />
ADD OBJECT 'txtIdenc' AS textbox WITH ;
Comment = "", ;
ControlSource = "encuestas.idenc", ;
DisabledForeColor = 0,0,160, ;
ForeColor = 0,0,255, ;
Height = 23, ;
Left = 328, ;
MaxLength = 20, ;
Name = "txtIdenc", ;
ReadOnly = .T., ;
RightToLeft = .F., ;
TabIndex = 6, ;
Top = 192, ;
Width = 149, ;
ZOrderSet = 7
*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58P2" Timestamp="2013/12/15 18:50:25" ZOrder="800" />
ADD OBJECT 'txtPromotor' AS textbox WITH ;
Comment = "", ;
ControlSource = "encuestas.promotor", ;
DisabledForeColor = 0,0,160, ;
ForeColor = 0,0,255, ;
Height = 23, ;
Left = 328, ;
MaxLength = 20, ;
Name = "txtPromotor", ;
ReadOnly = .T., ;
RightToLeft = .F., ;
TabIndex = 4, ;
Top = 164, ;
Width = 149, ;
ZOrderSet = 5
*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58P0" Timestamp="2013/12/15 18:50:25" ZOrder="600" />
ADD OBJECT 'txtResultado' AS textbox WITH ;
Comment = "", ;
ControlSource = "encuestas.resultado", ;
DisabledForeColor = 0,0,160, ;
ForeColor = 0,0,255, ;
Height = 23, ;
Left = 532, ;
MaxLength = 10, ;
Name = "txtResultado", ;
ReadOnly = .T., ;
RightToLeft = .F., ;
TabIndex = 12, ;
Top = 220, ;
Width = 81, ;
ZOrderSet = 13
*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58P8" Timestamp="2013/12/15 18:50:25" ZOrder="1400" />
PROCEDURE grdEncuestas.AfterRowColChange
LPARAMETERS nColIndex
thisform.Refresh()
ENDPROC
ENDDEFINE
DEFINE CLASS Dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="2013/12/15 18:50:25" Scale="" Uniqueid="_3XW0B1R2N" ClassIcon="1" />
AutoCloseTables = .T.
AutoOpenTables = .T.
Comment = ""
DataSource = .NULL.
DataSourceType = ""
Height = 200
InitialSelectedAlias = ""
Left = 11
Name = "Dataenvironment"
OpenViews = 0
Tag = ""
Top = 404
Width = 520
ADD OBJECT 'Cursor1' AS cursor WITH ;
Alias = "encuestas", ;
BufferModeOverride = 1, ;
Comment = "", ;
CursorSource = encuestas.dbf, ;
Exclusive = .F., ;
Filter = "", ;
Height = 98, ;
Left = 10, ;
Name = "Cursor1", ;
NoDataOnLoad = .F., ;
Order = "", ;
OrderDirection = 0, ;
ReadOnly = .F., ;
Tag = "", ;
Top = 20, ;
Width = 102
*< END OBJECT: BaseClass="cursor" UniqueID="_3XW0B58OZ" Timestamp="2013/12/15 18:50:25" ZOrder="300" />
ENDDEFINE

View File

@@ -0,0 +1,176 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\fb2p_frm_2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS Dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="2013/12/03 19:54:07" Scale="" Uniqueid="_3XW0B26O0" ClassIcon="1" />
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
ENDDEFINE
DEFINE CLASS Form1 AS form
*< CLASSDATA: Baseclass="form" Timestamp="2013/12/15 18:41:14" Scale="" Uniqueid="_3XW0B26O1" />
*<DefinedPropArrayMethod>
*p: a_otra
*a: ^a_prop[1,0] && array
*p: _prop
*</DefinedPropArrayMethod>
AllowOutput = .T.
AlwaysOnBottom = .F.
AlwaysOnTop = .F.
AutoCenter = .F.
a_otra = .F.
BackColor = 240,240,240
BindControls = .T.
BorderStyle = 3
BufferMode = 0
Caption = "Form1"
ClipControls = .T.
Closable = .T.
ColorSource = 4
ContinuousScroll = .T.
ControlBox = .T.
DataSession = 1
DefOleLCID = 0
Dockable = 0
DoCreate = .T.
DrawMode = 13
DrawStyle = 0
DrawWidth = 1
Enabled = .T.
FillColor = 0,0,0
FillStyle = 1
FontBold = .F.
FontCondense = .F.
FontExtend = .F.
FontItalic = .F.
FontName = "Arial"
FontOutline = .F.
FontShadow = .F.
FontSize = 9
FontStrikethru = .F.
FontUnderline = .F.
ForeColor = 0,0,0
HalfHeightCaption = .F.
Height = 250
HelpContextID = 0
HScrollSmallChange = 10
Icon = ..\..\
KeyPreview = .F.
Left = 0
LockScreen = .F.
MacDesktop = 0
MaxButton = .T.
MaxHeight = -1
MaxLeft = -1
MaxTop = -1
MaxWidth = -1
MDIForm = .F.
MinButton = .T.
MinHeight = -1
MinWidth = -1
MousePointer = 0
Movable = .T.
Name = "Form1"
OLEDragMode = 0
OLEDragPicture = ..\..\
OLEDropEffects = 3
OLEDropMode = 0
RightToLeft = .F.
ScaleMode = 3
ScrollBars = 0
ShowInTaskBar = .T.
ShowTips = .F.
ShowWindow = 0
SizeBox = .F.
TabIndex = 1
TabStop = .T.
Tag = ""
Themes = .T.
TitleBar = 1
Top = 0
Visible = .T.
VScrollSmallChange = 10
WhatsThisButton = .F.
WhatsThisHelp = .F.
WhatsThisHelpID = -1
Width = 375
WindowState = 0
WindowType = 0
ZoomBox = .F.
_prop = .F.
ADD OBJECT 'Commandgroup1' AS commandgroup WITH ;
ButtonCount = 2, ;
Height = 66, ;
Left = 12, ;
Name = "Commandgroup1", ;
Top = 8, ;
Value = 1, ;
Width = 94, ;
Command1.Caption = "Command1", ;
Command1.Height = 27, ;
Command1.Left = 5, ;
Command1.Name = "Command1", ;
Command1.Top = 5, ;
Command1.Width = 84, ;
Command2.Alignment = 2, ;
Command2.Anchor = 0, ;
Command2.AutoSize = .F., ;
Command2.BackColor = 240,240,240, ;
Command2.Cancel = .F., ;
Command2.Caption = "Command2", ;
Command2.ColorScheme = 1, ;
Command2.ColorSource = 4, ;
Command2.Default = .F., ;
Command2.DisabledBackColor = 240,240,240, ;
Command2.DisabledForeColor = 109,109,109, ;
Command2.DragMode = 0, ;
Command2.Enabled = .T., ;
Command2.FontBold = .F., ;
Command2.FontCondense = .F., ;
Command2.FontExtend = .F., ;
Command2.FontItalic = .F., ;
Command2.FontName = "Arial", ;
Command2.FontOutline = .F., ;
Command2.FontShadow = .F., ;
Command2.FontSize = 9, ;
Command2.FontStrikethru = .F., ;
Command2.FontUnderline = .F., ;
Command2.ForeColor = 0,0,0, ;
Command2.Height = 27, ;
Command2.HelpContextID = 0, ;
Command2.Left = 5, ;
Command2.MousePointer = 0, ;
Command2.Name = "Command2", ;
Command2.OLEDragMode = 0, ;
Command2.OLEDragPicture = ..\..\, ;
Command2.OLEDropEffects = 3, ;
Command2.OLEDropMode = 0, ;
Command2.Picture = ..\..\, ;
Command2.RightToLeft = .F., ;
Command2.SpecialEffect = 0, ;
Command2.StatusBarText = "", ;
Command2.Style = 0, ;
Command2.TabIndex = 2, ;
Command2.TabStop = .T., ;
Command2.Tag = "", ;
Command2.TerminateRead = .F., ;
Command2.Themes = .T., ;
Command2.ToolTipText = "", ;
Command2.Top = 34, ;
Command2.Visible = .T., ;
Command2.WhatsThisHelpID = -1, ;
Command2.Width = 84, ;
Command2.WordWrap = .F.
*< END OBJECT: BaseClass="commandgroup" UniqueID="_3Y813WLQU" Timestamp="2013/12/15 18:41:14" ZOrder="400" />
ENDDEFINE

View File

@@ -0,0 +1,128 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\fb2p_test.pjx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
LPARAMETERS tcDir
lcCurdir = SYS(5)+CURDIR()
CD ( EVL( tcDir, JUSTPATH( SYS(16) ) ) )
*<DevInfo>
_Author = "El autor"
_Company = "La compan<61>a"
_Address = "La direcci<63>n"
_City = "Ciudad"
_State = "State"
_PostalCode = "Cod.Post"
_Country = "Pa<50>s"
*--
_Comments = "Comentarios"
_CompanyName = "Company Name"
_FileDescription = "File Description"
_LegalCopyright = "Legal Copyright"
_LegalTrademark = "Legal Trademark"
_ProductName = "Product Name"
_MajorVer = "1"
_MinorVer = "0"
_Revision = "5"
_LanguageID = "Language ID"
_AutoIncrement = "1"
*</DevInfo>
*<ServerHead>
_LibraryName = 'C:\DESA\test2\fb2p_test.exe'
_InternalName = 'fb2p_test'
_ProjectName = 'fb2p_test'
_TypeLibDesc = 'fb2p_test Type Library'
_ServerType = ' 0'
_TypeLib = '{97DF3026-912D-4604-B06D-60EF52C19B70}'
*</ServerHead>
*<ServerData>
_HelpContextID = '0'
_ServerName = 'fb2p_test.cl_form'
_Description = 'mi OLE server DLL'
_HelpFile = ''
_ServerClass = 'cl_form'
_ClassLibrary = 'c:\desa\test2\fb2p_test.vcx'
_Instancing = '1'
_CLSID = '{E888ECF1-F911-4F1B-A5DC-8739057087B1}'
_Interface = '{63194B79-0E07-44E6-9FC3-2EBCAA27787A}'
*</ServerData>
*<ServerData>
_HelpContextID = '0'
_ServerName = 'fb2p_test.cl_imagen'
_Description = 'otro ole'
_HelpFile = ''
_ServerClass = 'cl_imagen'
_ClassLibrary = 'c:\desa\test2\fb2p_test.vcx'
_Instancing = '1'
_CLSID = '{BA0AD3CE-E874-402F-A835-85AE1CDCE515}'
_Interface = '{6B05B62A-2C51-4C45-921F-E09FA0E66CF5}'
*</ServerData>
*<BuildProj>
*<.HomeDir = 'c:\desa\foxbin2prg\tests\datos_readonly' />
FOR EACH loProject IN _VFP.Projects FOXOBJECT
loProject.Close()
ENDFOR
STRTOFILE( '', '__newproject.f2b' )
BUILD PROJECT fb2p_test.pjx FROM '__newproject.f2b'
FOR EACH loProject IN _VFP.Projects FOXOBJECT
loProject.Close()
ENDFOR
MODIFY PROJECT 'fb2p_test.pjx' NOWAIT NOSHOW NOPROJECTHOOK
loProject = _VFP.Projects('fb2p_test.pjx')
WITH loProject.FILES
.ADD('bmps\carpetaabierta.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="1132700438" ObjRev="0" />
.ADD('bmps\carpetacerrada.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="1132700438" ObjRev="0" />
.ADD('bmps\scccheckout.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="1132700438" ObjRev="0" />
.ADD('bmps\sobrepostal.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="1132700438" ObjRev="0" />
.ADD('bmps\treeview.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="1132700438" ObjRev="0" />
.ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="1132700450" ObjRev="0" />
.ADD('fb2p_frm_1.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="1132700357" ObjRev="0" />
.ADD('fb2p_frm_2.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="1132700358" ObjRev="0" />
.ADD('fb2p_test.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="1132700355" ObjRev="0" />
*</BuildProj>
.ITEM('__newproject.f2b').Remove()
*<FileComments>
.ITEM(lcCurdir + 'fb2p_test.vcx').Description = 'clase descrip'
*</FileComments>
*<ExcludedFiles>
.ITEM(lcCurdir + 'config\config.fpw').Exclude = .T.
*</ExcludedFiles>
*<TextFiles>
.ITEM(lcCurdir + 'config\config.fpw').Type = 'T'
*</TextFiles>
ENDWITH
WITH loProject
*<ProjectProperties>
.SetMain(lcCurdir + 'fb2p_test.vcx')
.Icon = lcCurdir + 'bmps\container.ico'
.Debug = .T.
.Encrypted = .T.
*<.CmntStyle = 1 />
*<.NoLogo = .F. />
*<.SaveCode = .T. />
.ProjectHookLibrary = 'fb2p_test.vcx'
.ProjectHookClass = 'proj_hook'
*</ProjectProperties>
ENDWITH
_VFP.Projects('fb2p_test.pjx').Close()
*ERASE '__newproject.f2b'
CD (lcCurdir)
RETURN

View File

@@ -0,0 +1,199 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\fb2p_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*< OLE: Nombre="cl_olecontrol" Parent="" ObjName="cl_olecontrol" OLEObject="C:\Windows\system32\richtx32.ocx" Checksum="3873290752" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADDfG05c8M4BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAD+////BwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYAoAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPAAAAAAUAAIAAAAAAAAABAAAAAQABAAIACAAAAHtccnRmMVxhbnNpXGRlZmYwe1xmb250dGJse1xmMFxmbmlsXGxlY29udHJvbDEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
*
DEFINE CLASS cl_commandgroup AS commandgroup && Descripci<63>n de cl_CommandGroup
*< CLASSDATA: Baseclass="commandgroup" Timestamp="2013/12/03 19:51:29" Scale="Pixels" Uniqueid="_3XW0ATDKL" />
*<DefinedPropArrayMethod>
*p: una_prop_cmgroup && Con comentario, pero sin valor
*</DefinedPropArrayMethod>
ButtonCount = 2
Height = 66
Name = "cl_commandgroup"
una_prop_cmgroup = .F. && Con comentario, pero sin valor
Value = 1
Width = 94
Command1.Caption = "Command1"
Command1.Height = 27
Command1.Left = 5
Command1.Name = "Command1"
Command1.Top = 5
Command1.Width = 84
Command2.Caption = "Command2"
Command2.Height = 27
Command2.Left = 5
Command2.Name = "Command2"
Command2.Top = 34
Command2.Width = 84
ENDDEFINE
DEFINE CLASS cl_form AS form OLEPUBLIC && mi OLE server DLL
*< CLASSDATA: Baseclass="form" Timestamp="2014/01/07 19:58:17" Scale="Pixels" Uniqueid="_3XW0AGC4F" ProjectClassIcon="bmps\container.ico" ClassIcon="bmps\container.ico" />
Caption = "Form"
DoCreate = .T.
Height = 345
Left = 0
Name = "cl_form"
Top = 0
Width = 570
ADD OBJECT 'Cl_commandgroup1' AS cl_commandgroup WITH ;
BackColor = 255,128,192, ;
Height = 66, ;
Left = 8, ;
Name = "Cl_commandgroup1", ;
Top = 88, ;
Width = 244, ;
Command1.Caption = "Abrir", ;
Command1.Height = 52, ;
Command1.Left = 8, ;
Command1.Name = "Command1", ;
Command1.Picture = bmps\carpetaabierta.bmp, ;
Command1.Top = 4, ;
Command1.Width = 104, ;
Command2.Caption = "Cerrar", ;
Command2.Height = 52, ;
Command2.Left = 124, ;
Command2.Name = "Command2", ;
Command2.Picture = bmps\carpetacerrada.bmp, ;
Command2.Top = 4, ;
Command2.Width = 104
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="commandgroup" UniqueID="_3XW0AX81B" Timestamp="2013/12/03 19:50:23" ZOrder="1000" />
ADD OBJECT 'Cl_imagen1' AS cl_imagen WITH ;
Height = 34, ;
Left = 452, ;
Name = "Cl_imagen1", ;
Picture = bmps\sobrepostal.bmp, ;
Stretch = 1, ;
Top = 276, ;
Width = 38
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="image" UniqueID="_3XW0AGC4F" Timestamp="2014/01/07 19:58:17" ZOrder="1100" />
ADD OBJECT 'Cl_imagen2' AS cl_imagen WITH ;
Height = 34, ;
Left = 500, ;
Name = "Cl_imagen2", ;
Picture = bmps\treeview.bmp, ;
Stretch = 1, ;
Top = 276, ;
Width = 38
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="image" UniqueID="_3XW0BP1GV" Timestamp="2014/01/07 19:58:17" ZOrder="1200" />
ADD OBJECT 'Cl_optiongroup1' AS cl_optiongroup WITH ;
BackColor = 0,128,255, ;
Height = 68, ;
Left = 8, ;
Name = "Cl_optiongroup1", ;
Top = 12, ;
Width = 244, ;
Option1.Height = 52, ;
Option1.Left = 8, ;
Option1.Name = "Option1", ;
Option1.Picture = bmps\scccheckout.bmp, ;
Option1.Style = 1, ;
Option1.Top = 8, ;
Option1.Width = 104, ;
Option2.Height = 52, ;
Option2.Left = 124, ;
Option2.Name = "Option2", ;
Option2.Picture = bmps\scccheckout.bmp, ;
Option2.Style = 1, ;
Option2.Top = 8, ;
Option2.Width = 104
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="optiongroup" UniqueID="_3XW0AONF4" Timestamp="2013/12/07 02:23:11" ZOrder="900" />
PROCEDURE Cl_optiongroup1.Init
*-- Prueba para comprobar que respeta espacios y TABS del c<>digo
TEXT TO xx
* TAB a la izquierda del asterisco
* 2 TAB a la izquierda del asterisco
* 1 ESPACIO a la izquierda del asterisco
* 2 ESPACIOS a la izquierda del asterisco
1 TAB a la derecha del asterisco *
1 ESPACIO a la derecha del asterisco *
ENDTEXT && Esto termina sin ENTER
ENDPROC
ENDDEFINE
DEFINE CLASS cl_imagen AS image OLEPUBLIC && otro ole
*< CLASSDATA: Baseclass="image" Timestamp="2014/01/07 20:06:20" Scale="Pixels" Uniqueid="_3XW0BNCFT" />
*<DefinedPropArrayMethod>
*m: *un_metodo_de_clase && Para testear si el c<>digo se va a la clase cl_form
*</DefinedPropArrayMethod>
Height = 16
Name = "cl_imagen"
Picture = bmps\sobrepostal.bmp
Width = 17
PROCEDURE un_metodo_de_clase && Para testear si el c<>digo se va a la clase cl_form
* ESTE CODIGO ES DE "cl_imagen::un_metodo_de_clase"
ENDPROC
ENDDEFINE
DEFINE CLASS cl_olecontrol AS olecontrol
*< CLASSDATA: Baseclass="olecontrol" Timestamp="2013/12/03 20:17:14" Scale="Pixels" Uniqueid="_3XW0BVZ14" OLEObject="C:\Windows\system32\richtx32.ocx" CheckSum="3873290752" />
Height = 67
Name = "cl_olecontrol"
Width = 131
ENDDEFINE
DEFINE CLASS cl_optiongroup AS optiongroup && descripcion
*< CLASSDATA: Baseclass="optiongroup" Timestamp="2013/12/03 19:43:10" Scale="Pixels" Uniqueid="_3XW0ALVUS" />
*<DefinedPropArrayMethod>
*m: *propiedad_de_clase_con_valor_access
*m: *propiedad_de_clase_con_valor_assign
*p: propiedad_de_clase_con_valor && Tiene un valor por defecto
*p: propiedad_de_clase_sin_valor && Una propiedad sin valor para heredar
*</DefinedPropArrayMethod>
ButtonCount = 2
Height = 46
Name = "cl_optiongroup"
propiedad_de_clase_con_valor = UN VALOR DE LA CLASE && Tiene un valor por defecto
propiedad_de_clase_sin_valor = .F. && Una propiedad sin valor para heredar
Value = 1
Width = 71
Option1.Caption = "Option1"
Option1.Height = 17
Option1.Left = 5
Option1.Name = "Option1"
Option1.Top = 5
Option1.Value = 1
Option1.Width = 61
Option2.Caption = "Option2"
Option2.Height = 17
Option2.Left = 5
Option2.Name = "Option2"
Option2.Top = 24
Option2.Width = 61
PROCEDURE propiedad_de_clase_con_valor_access
*To do: Modify this routine for the Access method
RETURN THIS.propiedad_de_clase_con_valor
ENDPROC
PROCEDURE propiedad_de_clase_con_valor_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.propiedad_de_clase_con_valor = m.vNewVal
ENDPROC
ENDDEFINE
DEFINE CLASS proj_hook AS projecthook
*< CLASSDATA: Baseclass="projecthook" Timestamp="2014/01/07 20:48:17" Scale="Pixels" Uniqueid="_3YX18LJ09" />
Height = 22
Name = "proj_hook"
Width = 23
ENDDEFINE

View File

@@ -0,0 +1,41 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\fb2p_test_bug_estructural.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS cl_form AS form
*< CLASSDATA: Baseclass="form" Timestamp="2013/12/07 13:49:13" Scale="Pixels" Uniqueid="_3Y01DDRR1" />
Caption = "Form"
DoCreate = .T.
Name = "cl_form"
ADD OBJECT 'Command1' AS commandbutton WITH ;
Caption = "Command1", ;
Height = 27, ;
Left = 36, ;
Name = "Command1", ;
Top = 32, ;
Width = 84
*< END OBJECT: BaseClass="commandbutton" UniqueID="_3Y01DE207" Timestamp="2013/12/07 13:33:15" ZOrder="300" />
PROCEDURE Load
TEXT && COMPROBACI<43>N DE CIERRE DE ESTRUCTURA "ENDPROC"
*-- Dejando la <20>ltim l<>nea sin ENTER se comprueba si el ENDPROC
*-- se queda pegado a la misma o no por faltar un CR+LF antes del mismo.
ENDTEXT && Esto termina sin ENTER.
ENDPROC
PROCEDURE Command1.Click
TEXT && COMPROBACI<43>N DE CIERRE DE ESTRUCTURA "ENDPROC"
*-- Dejando la <20>ltim l<>nea sin ENTER se comprueba si el ENDPROC
*-- se queda pegado a la misma o no por faltar un CR+LF antes del mismo.
ENDTEXT && Esto termina sin ENTER.
ENDPROC
ENDDEFINE

View File

@@ -0,0 +1,68 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\fb2p_test_bug_metodo_movido.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS cl_commandgroup AS commandgroup
*< CLASSDATA: Baseclass="commandgroup" Timestamp="2013/12/07 12:33:09" Scale="Pixels" Uniqueid="_3Y01AZERO" />
ButtonCount = 2
Height = 66
Name = "cl_commandgroup"
Value = 1
Width = 94
Command1.Caption = "Command1"
Command1.Height = 27
Command1.Left = 5
Command1.Name = "Command1"
Command1.Top = 5
Command1.Width = 84
Command2.Caption = "Command2"
Command2.Height = 27
Command2.Left = 5
Command2.Name = "Command2"
Command2.Top = 34
Command2.Width = 84
PROCEDURE Command1.Click
TEXT && CL_COMMANDGROUP::Command1.Click()
* ESTE ES EL <20>NICO C<>DIGO QUE DEBER<45>A TENER ESTE M<>TODO.
* SI HAY M<>S C<>DIGO FUERA DEL TEXT/ENDTEXT, ES PORQUE SE EST<53> MEZCLANDO.
ENDTEXT
ENDPROC
ENDDEFINE
DEFINE CLASS cl_optiongroup AS optiongroup
*< CLASSDATA: Baseclass="optiongroup" Timestamp="2013/12/07 12:25:17" Scale="Pixels" Uniqueid="_3Y01AVUO1" />
ButtonCount = 2
Height = 46
Name = "cl_optiongroup"
Value = 1
Width = 71
Option1.Caption = "Option1"
Option1.Height = 17
Option1.Left = 5
Option1.Name = "Option1"
Option1.Top = 5
Option1.Value = 1
Option1.Width = 61
Option2.Caption = "Option2"
Option2.Height = 17
Option2.Left = 5
Option2.Name = "Option2"
Option2.Top = 24
Option2.Width = 61
PROCEDURE Option1.Click
TEXT && CL_OPTIONGROUP::Option1.Click()
* BUG DEL M<>TODO MOVIDO:
* Este m<>todo es para reproducir un bug, por el cu<63>l el <20>ltimo PROCEDURE de un OBJETO
* de la clase anterior se queda referenciado en un obejeto que no se limpia,
* y por el cu<63>l el siguiente PROCEDURE de OBJETO de la siguiente CLASE se agrega
* al mismo, quedando esa clase con un m<>todo vac<61>o. (O sea, esta)
ENDTEXT
ENDPROC
ENDDEFINE

View File

@@ -0,0 +1,106 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\menu1.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>1</MenuType>
*<MenuLocation>APPEND</MenuLocation>
*<SetupCode>
*-- Setup code
*</SetupCode>
*<MenuCode>
DEFINE MENU _MSYSMENU BAR
DEFINE PAD _3Z80ZOKX5 OF _MSYSMENU PROMPT "Opci<63>n A con submen<65>" COLOR SCHEME 3 ;
NEGOTIATE NONE, LEFT ;
KEY DEL, "Pulsar <DEL>" ;
SKIP FOR SKIP_FOR() ;
MESSAGE "Mensaje para Opci<63>n A con submen<65>" && Comentario
ON PAD _3Z80ZOKX5 OF _MSYSMENU ACTIVATE POPUP Opci<63>nA_CS
*----------------------------------
DEFINE POPUP Opci<63>nA_CS MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Opci<63>nA_CS PROMPT "Opci<63>n A-1" ;
PICTURE "..\..\foxunit\fxuacknowledgements.bmp"
ON BAR 1 OF Opci<63>nA_CS ACTIVATE POPUP Opci<63>nA1
*----------------------------------
DEFINE POPUP Opci<63>nA1 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR Shortcut_Menu_Title OF Opci<63>nA1 PROMPT "Opci<63>nA-1-Sub" ;
PICTURE "..\..\foxunit\fxuacknowledgements.bmp"
ON SELECTION BAR Shortcut_Menu_Title OF Opci<63>nA1 wait window "Ejecuta Comando o funci<63>n para Opci<63>n A-1"
DEFINE BAR 2 OF Opci<63>nA_CS PROMPT "Opci<63>n A-2"
ON BAR 2 OF Opci<63>nA_CS ACTIVATE POPUP Opci<63>nA2Su
*----------------------------------
DEFINE POPUP Opci<63>nA2Su MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Opci<63>nA2Su PROMPT "Opci<63>n A-2-Sub.1" ;
MESSAGE "Message para Opci<63>n A-2-Sub.1 (Tipo Procedure)"
ON SELECTION BAR 1 OF Opci<63>nA2Su DO Menu1_Opci<63>n_A_2_Sub_SNIPPET
DEFINE BAR 2 OF Opci<63>nA2Su PROMPT "O\<pci<63>n A-2-Sub.2" ;
KEY CTRL+E, "Pulsar CTRL+E" ;
SKIP FOR NOT glEnabled_Opc_A_2_Sub_2 ;
MESSAGE "Mensaje para _Opc_A_2_Sub_2 (Tipo Command y con Bar # 2)" && Comentario para Opci<63>n A-2-Sub.2 (Tipo Command y con Bar # 2)
ON SELECTION BAR 2 OF Opci<63>nA2Su wait window "Ejecuta Comando o funci<63>n para Opci<63>n A-2-Sub.2"
DEFINE BAR 3 OF Opci<63>nA2Su PROMPT "Opci<63>n A-2-Sub.4" ;
MESSAGE "Message para Opci<63>n A-2-Sub.4 (Tipo Submenu)"
ON BAR 3 OF Opci<63>nA2Su ACTIVATE POPUP _3yl0d68e0
*----------------------------------
DEFINE POPUP _3yl0d68e0 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _3yl0d68e0 PROMPT "FIN!" ;
MESSAGE "Message para FIN! (Tipo Command)"
ON SELECTION BAR 1 OF _3yl0d68e0 QUIT
ON SELECTION POPUP _3yl0d68e0 *-- Sin procedure, pero podria ir aqu<71>
DEFINE BAR _MFI_SYSPRINT OF Opci<63>nA2Su PROMPT "Opci<63>n A-2-Sub.3" ;
KEY CTRL+R, "CTRL+R" ;
SKIP FOR NOT glEnabled_Opc_A_2_Sub_3 ;
PICTRES _mfi_sysprint ;
MESSAGE "Message para Opci<63>n A-2-Sub.3 (Tipo Bar#)" && Comentarios para Opci<63>n A-2-Sub.3
ON SELECTION POPUP Opci<63>nA_CS *-- PROCEDURE Le cambi<62> el nombre!
DEFINE PAD opc_b OF _MSYSMENU PROMPT "Opci<63>n B con comando" COLOR SCHEME 3 ;
KEY CTRL+B, "Pulse CTRL+B" ;
SKIP FOR NOT glEnabled_Opc_B ;
MESSAGE "Mensaje para Opci<63>n B con Command" && Comentario de la Opci<63>n b
ON SELECTION PAD opc_b OF _MSYSMENU WAIT WINDOW "Opci<63>n B"
ON SELECTION POPUP ALL DO MenuBarProc
ON SELECTION MENU _MSYSMENU DO SELECTION_MENU__MSYSMENU_FB2P
*</MenuCode>
*<Procedures>
PROCEDURE Menu1_Opci<63>n_A_2_Sub_SNIPPET
#NAME Menu1_Opci<63>n_A_2_Sub_SNIPPET
*PROCEDURE Menu1_Opci<63>n_A_2_Sub
*-- Mi procedure!
*ENDPROC
ENDPROC && Menu1_Opci<63>n_A_2_Sub_SNIPPET
PROCEDURE MenuBarProc
#NAME MenuBarProc
WAIT WINDOW "Menu Bar Procedure"
WAIT WINDOW "Y ahora??"
ENDPROC && MenuBarProc
PROCEDURE SELECTION_MENU__MSYSMENU_FB2P
*-- Menu Procedure
wait window "Y ahora es Procedure!"
ENDPROC && SELECTION_MENU__MSYSMENU_FB2P
*</Procedures>
*<CleanupCode>
*-- Cleanup code
*</CleanupCode>

View File

@@ -0,0 +1,95 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\menu2.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>5</MenuType>
*<MenuLocation>APPEND</MenuLocation>
*<SetupCode>
*-- Setup code
*</SetupCode>
*<MenuCode>
DEFINE MENU _MSYSMENU BAR
DEFINE PAD _3Z80ZOKYJ OF _MSYSMENU PROMPT "Opci<63>n A con submen<65>" COLOR SCHEME 3 ;
NEGOTIATE NONE, LEFT ;
KEY DEL, "Pulsar <DEL>" ;
SKIP FOR SKIP_FOR() ;
MESSAGE "Mensaje para Opci<63>n A con submen<65>" && Comentario
ON PAD _3Z80ZOKYJ OF _MSYSMENU ACTIVATE POPUP Opci<63>nA_CS
*----------------------------------
DEFINE POPUP Opci<63>nA_CS MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Opci<63>nA_CS PROMPT "Opci<63>n A-1" ;
PICTURE "..\..\foxunit\fxuacknowledgements.bmp"
ON BAR 1 OF Opci<63>nA_CS ACTIVATE POPUP Opci<63>nA1
*----------------------------------
DEFINE POPUP Opci<63>nA1 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR Shortcut_Menu_Title OF Opci<63>nA1 PROMPT "Opci<63>nA-1-Sub" ;
PICTURE "..\..\foxunit\fxuacknowledgements.bmp"
ON SELECTION BAR Shortcut_Menu_Title OF Opci<63>nA1 wait window "Ejecuta Comando o funci<63>n para Opci<63>n A-1"
DEFINE BAR 2 OF Opci<63>nA_CS PROMPT "Opci<63>n A-2"
ON BAR 2 OF Opci<63>nA_CS ACTIVATE POPUP Opci<63>nA2Su
*----------------------------------
DEFINE POPUP Opci<63>nA2Su MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Opci<63>nA2Su PROMPT "Opci<63>n A-2-Sub.1" ;
MESSAGE "Message para Opci<63>n A-2-Sub.1 (Tipo Procedure)"
ON SELECTION BAR 1 OF Opci<63>nA2Su DO Menu1_Opci<63>n_A_2_Sub_SNIPPET
DEFINE BAR 2 OF Opci<63>nA2Su PROMPT "O\<pci<63>n A-2-Sub.2" ;
KEY CTRL+E, "Pulsar CTRL+E" ;
SKIP FOR NOT glEnabled_Opc_A_2_Sub_2 ;
MESSAGE "Mensaje para _Opc_A_2_Sub_2 (Tipo Command y con Bar # 2)" && Comentario para Opci<63>n A-2-Sub.2 (Tipo Command y con Bar # 2)
ON SELECTION BAR 2 OF Opci<63>nA2Su wait window "Ejecuta Comando o funci<63>n para Opci<63>n A-2-Sub.2"
DEFINE BAR 3 OF Opci<63>nA2Su PROMPT "Opci<63>n A-2-Sub.4" ;
MESSAGE "Message para Opci<63>n A-2-Sub.4 (Tipo Submenu)"
ON BAR 3 OF Opci<63>nA2Su ACTIVATE POPUP _3yl0d68e0
*----------------------------------
DEFINE POPUP _3yl0d68e0 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _3yl0d68e0 PROMPT "FIN!" ;
MESSAGE "Message para FIN! (Tipo Command)"
ON SELECTION BAR 1 OF _3yl0d68e0 QUIT
ON SELECTION POPUP _3yl0d68e0 *-- Sin procedure, pero podria ir aqu<71>
DEFINE BAR _MFI_SYSPRINT OF Opci<63>nA2Su PROMPT "Opci<63>n A-2-Sub.3" ;
KEY CTRL+R, "CTRL+R" ;
SKIP FOR NOT glEnabled_Opc_A_2_Sub_3 ;
PICTRES _mfi_sysprint ;
MESSAGE "Message para Opci<63>n A-2-Sub.3 (Tipo Bar#)" && Comentarios para Opci<63>n A-2-Sub.3
ON SELECTION POPUP Opci<63>nA_CS *-- PROCEDURE Le cambi<62> el nombre!
DEFINE PAD opc_b OF _MSYSMENU PROMPT "Opci<63>n B con comando" COLOR SCHEME 3 ;
KEY CTRL+B, "Pulse CTRL+B" ;
SKIP FOR NOT glEnabled_Opc_B ;
MESSAGE "Mensaje para Opci<63>n B con Command" && Comentario de la Opci<63>n b
ON SELECTION PAD opc_b OF _MSYSMENU WAIT WINDOW "Opci<63>n B"
ON SELECTION POPUP ALL *- Menu bar procedure
ON SELECTION MENU _MSYSMENU *-- Menu Procedure
*</MenuCode>
*<Procedures>
PROCEDURE Menu1_Opci<63>n_A_2_Sub_SNIPPET
#NAME Menu1_Opci<63>n_A_2_Sub_SNIPPET
*PROCEDURE Menu1_Opci<63>n_A_2_Sub
*-- Mi procedure!
*ENDPROC
ENDPROC && Menu1_Opci<63>n_A_2_Sub_SNIPPET
*</Procedures>
*<CleanupCode>
*-- Cleanup code
*</CleanupCode>

View File

@@ -0,0 +1,28 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\menu3.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>1</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE MENU _MSYSMENU BAR
DEFINE PAD _3Z80ZOKZN OF _MSYSMENU PROMPT "ejemplo" COLOR SCHEME 3
ON SELECTION PAD _3Z80ZOKZN OF _MSYSMENU do test
DEFINE PAD _3Z80ZOKZO OF _MSYSMENU PROMPT "ejemplo2" COLOR SCHEME 3
ON SELECTION PAD _3Z80ZOKZO OF _MSYSMENU DO TEST
*</MenuCode>
*<Procedures>
PROCEDURE TEST
#NAME TEST
WAIT WINDOW PROGRAM() + ' (menu)'
ENDPROC && TEST
*</Procedures>

View File

@@ -0,0 +1,98 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\menu_shortcut.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<SetupCode>
*-- Setup code
*</SetupCode>
*<MenuCode>
DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Shortcut PROMPT "Opci<63>n A con submen<65>" ;
KEY DEL, "Pulsar <DEL>" ;
SKIP FOR SKIP_FOR() ;
MESSAGE "Mensaje para Opci<63>n A con submen<65>" && Comentario
ON BAR 1 OF Shortcut ACTIVATE POPUP Opci<63>nA_CS
*----------------------------------
DEFINE POPUP Opci<63>nA_CS SHORTCUT RELATIVE
DEFINE BAR 1 OF Opci<63>nA_CS PROMPT "Opci<63>n A-1" ;
PICTURE "..\..\foxunit\fxuacknowledgements.bmp"
ON BAR 1 OF Opci<63>nA_CS ACTIVATE POPUP Opci<63>nA1
*----------------------------------
DEFINE POPUP Opci<63>nA1 SHORTCUT RELATIVE
DEFINE BAR 1 OF Opci<63>nA1 PROMPT "Opci<63>nA-1-Sub" ;
PICTURE "..\..\foxunit\fxuacknowledgements.bmp"
ON SELECTION BAR 1 OF Opci<63>nA1 wait window "Ejecuta Comando o funci<63>n para Opci<63>n A-1"
DEFINE BAR 2 OF Opci<63>nA_CS PROMPT "Opci<63>n A-2"
ON BAR 2 OF Opci<63>nA_CS ACTIVATE POPUP Opci<63>nA2SU
*----------------------------------
DEFINE POPUP Opci<63>nA2SU SHORTCUT RELATIVE
DEFINE BAR 1 OF Opci<63>nA2SU PROMPT "Opci<63>n A-2-Sub.1" ;
MESSAGE "Message para Opci<63>n A-2-Sub.1 (Tipo Procedure)"
ON SELECTION BAR 1 OF Opci<63>nA2SU DO BAR_1_OF_Opci<63>nA2SU_FB2P
DEFINE BAR 2 OF Opci<63>nA2SU PROMPT "O\<pci<63>n A-2-Sub.2" ;
KEY CTRL+E, "Pulsar CTRL+E" ;
SKIP FOR NOT glEnabled_Opc_A_2_Sub_2 ;
MESSAGE "Mensaje para _Opc_A_2_Sub_2 (Tipo Command y con Bar # 2)" && Comentario para Opci<63>n A-2-Sub.2 (Tipo Command y con Bar # 2)
ON SELECTION BAR 2 OF Opci<63>nA2SU wait window "Ejecuta Comando o funci<63>n para Opci<63>n A-2-Sub.2"
DEFINE BAR 3 OF Opci<63>nA2SU PROMPT "Opci<63>n A-2-Sub.4" ;
MESSAGE "Message para Opci<63>n A-2-Sub.4 (Tipo Submenu)"
ON BAR 3 OF Opci<63>nA2SU ACTIVATE POPUP _3ym134xpb
*----------------------------------
DEFINE POPUP _3ym134xpb SHORTCUT RELATIVE
DEFINE BAR 1 OF _3ym134xpb PROMPT "FIN!" ;
MESSAGE "Message para FIN! (Tipo Command)"
ON SELECTION BAR 1 OF _3ym134xpb QUIT
DEFINE BAR _MFI_SYSPRINT OF Opci<63>nA2SU PROMPT "Opci<63>n A-2-Sub.3" ;
KEY CTRL+R, "CTRL+R" ;
SKIP FOR NOT glEnabled_Opc_A_2_Sub_3 ;
PICTRES _mfi_sysprint ;
MESSAGE "Message para Opci<63>n A-2-Sub.3 (Tipo Bar#)" && Comentarios para Opci<63>n A-2-Sub.3
DEFINE BAR 2 OF Shortcut PROMPT "Opci<63>n B con comando" ;
KEY CTRL+B, "Pulse CTRL+B" ;
SKIP FOR NOT glEnabled_Opc_B ;
MESSAGE "Mensaje para Opci<63>n B con Command" && Comentario de la Opci<63>n b
ON BAR 2 OF Shortcut ACTIVATE POPUP opc_b
*----------------------------------
DEFINE POPUP opc_b SHORTCUT RELATIVE
DEFINE BAR 1 OF opc_b PROMPT "Opci<63>n B con comando" ;
KEY CTRL+B, "Pulse CTRL+B" ;
SKIP FOR NOT glEnabled_Opc_B ;
MESSAGE "Mensaje para Opci<63>n B con Command" && Comentario de la Opci<63>n b
ON SELECTION BAR 1 OF opc_b WAIT WINDOW "Opci<63>n B"
ON SELECTION POPUP Shortcut *- Menu procedure (secundario)
ON SELECTION POPUP ALL *-- Menu Procedure GENERAL (Setup/Cleanup)
ACTIVATE POPUP Shortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Opci<63>nA2SU_FB2P
*PROCEDURE Menu1_Opci<63>n_A_2_Sub
*-- Mi procedure!
*ENDPROC
ENDPROC && BAR_1_OF_Opci<63>nA2SU_FB2P
*</Procedures>
*<CleanupCode>
*-- Cleanup code
*</CleanupCode>

View File

@@ -0,0 +1,98 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\menu_shortcut2.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<SetupCode>
*-- Setup code
*</SetupCode>
*<MenuCode>
DEFINE POPUP MiShortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF MiShortcut PROMPT "Opci<63>n A con submen<65>" ;
KEY DEL, "Pulsar <DEL>" ;
SKIP FOR SKIP_FOR() ;
MESSAGE "Mensaje para Opci<63>n A con submen<65>" && Comentario
ON BAR 1 OF MiShortcut ACTIVATE POPUP Opci<63>nA_CS
*----------------------------------
DEFINE POPUP Opci<63>nA_CS SHORTCUT RELATIVE
DEFINE BAR 1 OF Opci<63>nA_CS PROMPT "Opci<63>n A-1" ;
PICTURE "..\..\foxunit\fxuacknowledgements.bmp"
ON BAR 1 OF Opci<63>nA_CS ACTIVATE POPUP Opci<63>nA1
*----------------------------------
DEFINE POPUP Opci<63>nA1 SHORTCUT RELATIVE
DEFINE BAR 1 OF Opci<63>nA1 PROMPT "Opci<63>nA-1-Sub" ;
PICTURE "..\..\foxunit\fxuacknowledgements.bmp"
ON SELECTION BAR 1 OF Opci<63>nA1 wait window "Ejecuta Comando o funci<63>n para Opci<63>n A-1"
DEFINE BAR 2 OF Opci<63>nA_CS PROMPT "Opci<63>n A-2"
ON BAR 2 OF Opci<63>nA_CS ACTIVATE POPUP Opci<63>nA2SU
*----------------------------------
DEFINE POPUP Opci<63>nA2SU SHORTCUT RELATIVE
DEFINE BAR 1 OF Opci<63>nA2SU PROMPT "Opci<63>n A-2-Sub.1" ;
MESSAGE "Message para Opci<63>n A-2-Sub.1 (Tipo Procedure)"
ON SELECTION BAR 1 OF Opci<63>nA2SU DO BAR_1_OF_Opci<63>nA2SU_FB2P
DEFINE BAR 2 OF Opci<63>nA2SU PROMPT "O\<pci<63>n A-2-Sub.2" ;
KEY CTRL+E, "Pulsar CTRL+E" ;
SKIP FOR NOT glEnabled_Opc_A_2_Sub_2 ;
MESSAGE "Mensaje para _Opc_A_2_Sub_2 (Tipo Command y con Bar # 2)" && Comentario para Opci<63>n A-2-Sub.2 (Tipo Command y con Bar # 2)
ON SELECTION BAR 2 OF Opci<63>nA2SU wait window "Ejecuta Comando o funci<63>n para Opci<63>n A-2-Sub.2"
DEFINE BAR 3 OF Opci<63>nA2SU PROMPT "Opci<63>n A-2-Sub.4" ;
MESSAGE "Message para Opci<63>n A-2-Sub.4 (Tipo Submenu)"
ON BAR 3 OF Opci<63>nA2SU ACTIVATE POPUP _3ym134xpb
*----------------------------------
DEFINE POPUP _3ym134xpb SHORTCUT RELATIVE
DEFINE BAR 1 OF _3ym134xpb PROMPT "FIN!" ;
MESSAGE "Message para FIN! (Tipo Command)"
ON SELECTION BAR 1 OF _3ym134xpb QUIT
DEFINE BAR _MFI_SYSPRINT OF Opci<63>nA2SU PROMPT "Opci<63>n A-2-Sub.3" ;
KEY CTRL+R, "CTRL+R" ;
SKIP FOR NOT glEnabled_Opc_A_2_Sub_3 ;
PICTRES _mfi_sysprint ;
MESSAGE "Message para Opci<63>n A-2-Sub.3 (Tipo Bar#)" && Comentarios para Opci<63>n A-2-Sub.3
DEFINE BAR 2 OF MiShortcut PROMPT "Opci<63>n B con comando" ;
KEY CTRL+B, "Pulse CTRL+B" ;
SKIP FOR NOT glEnabled_Opc_B ;
MESSAGE "Mensaje para Opci<63>n B con Command" && Comentario de la Opci<63>n b
ON BAR 2 OF MiShortcut ACTIVATE POPUP opc_b
*----------------------------------
DEFINE POPUP opc_b SHORTCUT RELATIVE
DEFINE BAR 1 OF opc_b PROMPT "Opci<63>n B con comando" ;
KEY CTRL+B, "Pulse CTRL+B" ;
SKIP FOR NOT glEnabled_Opc_B ;
MESSAGE "Mensaje para Opci<63>n B con Command" && Comentario de la Opci<63>n b
ON SELECTION BAR 1 OF opc_b WAIT WINDOW "Opci<63>n B"
ON SELECTION POPUP MiShortcut *- Menu procedure
ON SELECTION POPUP ALL *-- Menu Procedure Principal
ACTIVATE POPUP MiShortcut
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Opci<63>nA2SU_FB2P
*PROCEDURE Menu1_Opci<63>n_A_2_Sub
*-- Mi procedure!
*ENDPROC
ENDPROC && BAR_1_OF_Opci<63>nA2SU_FB2P
*</Procedures>
*<CleanupCode>
*-- Cleanup code
*</CleanupCode>

View File

@@ -26,7 +26,7 @@ _LegalTrademark = "Open Source"
_ProductName = " FOXBIN2PRG" _ProductName = " FOXBIN2PRG"
_MajorVer = "1" _MajorVer = "1"
_MinorVer = "19" _MinorVer = "19"
_Revision = " 189" _Revision = " 194"
_LanguageID = "1034" _LanguageID = "1034"
_AutoIncrement = "1" _AutoIncrement = "1"
*</DevInfo> *</DevInfo>
@@ -51,7 +51,7 @@ loProject = _VFP.Projects('foxbin2prg.pjx')
WITH loProject.FILES WITH loProject.FILES
.ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="1132857145" ID="1131721714" ObjRev="0" /> .ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="1132857145" ID="1131721714" ObjRev="0" />
.ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1143829709" ID="1130644423" ObjRev="544" /> .ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1144160955" ID="1130644423" ObjRev="544" />
*</BuildProj> *</BuildProj>
.ITEM('__newproject.f2b').Remove() .ITEM('__newproject.f2b').Remove()

Binary file not shown.

Binary file not shown.

View File

@@ -1117,7 +1117,7 @@ DEFINE CLASS c_conversor_base AS SESSION
l_Test = .F. l_Test = .F.
c_InputFile = '' c_InputFile = ''
c_OutputFile = '' c_OutputFile = ''
lFileMode = .T. lFileMode = .F.
nClassTimeStamp = '' nClassTimeStamp = ''
n_FB2PRG_Version = 1.0 n_FB2PRG_Version = 1.0
c_Foxbin2prg_FullPath = '' c_Foxbin2prg_FullPath = ''
@@ -1754,6 +1754,12 @@ DEFINE CLASS c_conversor_base AS SESSION
*-- CONVIERTE UN DATO TIPO DATETIME EN TIMESTAMP NUMERICO USADO POR LOS ARCHIVOS SCX/VCX/etc. *-- CONVIERTE UN DATO TIPO DATETIME EN TIMESTAMP NUMERICO USADO POR LOS ARCHIVOS SCX/VCX/etc.
LOCAL lcTimeValue, tnTimeStamp LOCAL lcTimeValue, tnTimeStamp
TRY
IF EMPTY(ltDateTime)
tnTimeStamp = 0
EXIT
ENDIF
IF VARTYPE(m.ltDateTime) <> 'T' IF VARTYPE(m.ltDateTime) <> 'T'
m.ltDateTime = DATETIME() m.ltDateTime = DATETIME()
ENDIF ENDIF
@@ -1764,6 +1770,8 @@ DEFINE CLASS c_conversor_base AS SESSION
+ HOUR(m.ltDateTime) * 2^11 ; + HOUR(m.ltDateTime) * 2^11 ;
+ MINUTE(m.ltDateTime) * 2^5 ; + MINUTE(m.ltDateTime) * 2^5 ;
+ SEC(m.ltDateTime) + SEC(m.ltDateTime)
ENDTRY
RETURN INT(tnTimeStamp) RETURN INT(tnTimeStamp)
ENDFUNC ENDFUNC
@@ -7827,7 +7835,9 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg
STORE '' TO laMethods(1), laCode(1), laProtected(1), laPropsAndComments(1) STORE '' TO laMethods(1), laCode(1), laProtected(1), laPropsAndComments(1)
STORE NULL TO loRegClass, loRegObj STORE NULL TO loRegClass, loRegObj
USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS TABLABIN USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS _TABLAORIG
SELECT * FROM _TABLAORIG INTO CURSOR TABLABIN
USE IN (SELECT("_TABLAORIG"))
INDEX ON PADR(LOWER(PLATFORM + IIF(EMPTY(PARENT),'',ALLTRIM(PARENT)+'.')+OBJNAME),240) TAG PARENT_OBJ OF TABLABIN ADDITIVE INDEX ON PADR(LOWER(PLATFORM + IIF(EMPTY(PARENT),'',ALLTRIM(PARENT)+'.')+OBJNAME),240) TAG PARENT_OBJ OF TABLABIN ADDITIVE
SET ORDER TO 0 IN TABLABIN SET ORDER TO 0 IN TABLABIN
@@ -7968,7 +7978,9 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg
STORE '' TO laMethods(1), laCode(1), laProtected(1), laPropsAndComments(1) STORE '' TO laMethods(1), laCode(1), laProtected(1), laPropsAndComments(1)
STORE NULL TO loRegClass, loRegObj STORE NULL TO loRegClass, loRegObj
USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS TABLABIN USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS _TABLAORIG
SELECT * FROM _TABLAORIG INTO CURSOR TABLABIN
USE IN (SELECT("_TABLAORIG"))
INDEX ON PADR(LOWER(PLATFORM + IIF(EMPTY(PARENT),'',ALLTRIM(PARENT)+'.')+OBJNAME),240) TAG PARENT_OBJ OF TABLABIN ADDITIVE INDEX ON PADR(LOWER(PLATFORM + IIF(EMPTY(PARENT),'',ALLTRIM(PARENT)+'.')+OBJNAME),240) TAG PARENT_OBJ OF TABLABIN ADDITIVE
SET ORDER TO 0 IN TABLABIN SET ORDER TO 0 IN TABLABIN
@@ -8132,7 +8144,11 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg
, loServerData AS CL_PROJ_SRV_DATA OF 'FOXBIN2PRG.PRG' , loServerData AS CL_PROJ_SRV_DATA OF 'FOXBIN2PRG.PRG'
STORE NULL TO loProject, loReg, loServerHead, loServerData STORE NULL TO loProject, loReg, loServerHead, loServerData
USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS TABLABIN
USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS _TABLAORIG
SELECT * FROM _TABLAORIG INTO CURSOR TABLABIN
USE IN (SELECT("_TABLAORIG"))
loServerHead = CREATEOBJECT('CL_PROJ_SRV_HEAD') loServerHead = CREATEOBJECT('CL_PROJ_SRV_HEAD')
@@ -8812,7 +8828,9 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg
STORE '' TO laMethods(1), laCode(1), laProtected(1), laPropsAndComments(1) STORE '' TO laMethods(1), laCode(1), laProtected(1), laPropsAndComments(1)
STORE NULL TO loRegObj, loRegCab, loRegDataEnv, loRegCur STORE NULL TO loRegObj, loRegCab, loRegDataEnv, loRegCur
USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS TABLABIN_0 USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS _TABLAORIG
SELECT * FROM _TABLAORIG INTO CURSOR TABLABIN_0
USE IN (SELECT("_TABLAORIG"))
*-- Header *-- Header
LOCATE FOR ObjType = 1 LOCATE FOR ObjType = 1
@@ -8937,6 +8955,7 @@ DEFINE CLASS c_conversor_dbf_a_prg AS c_conversor_bin_a_prg
loDBFUtils.getDBFmetadata( THIS.c_InputFile, @ln_HexFileType, @ll_FileHasCDX, @ll_FileHasMemo, @ll_FileIsDBC, @lc_DBC_Name ) loDBFUtils.getDBFmetadata( THIS.c_InputFile, @ln_HexFileType, @ll_FileHasCDX, @ll_FileHasMemo, @ll_FileIsDBC, @lc_DBC_Name )
lc_FileTypeDesc = loDBFUtils.fileTypeDescription(ln_HexFileType) lc_FileTypeDesc = loDBFUtils.fileTypeDescription(ln_HexFileType)
lnDatabases_Count = ADATABASES(laDatabases) lnDatabases_Count = ADATABASES(laDatabases)
USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS TABLABIN USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS TABLABIN
C_FB2PRG_CODE = C_FB2PRG_CODE + toFoxbin2prg.get_PROGRAM_HEADER() C_FB2PRG_CODE = C_FB2PRG_CODE + toFoxbin2prg.get_PROGRAM_HEADER()
@@ -9032,6 +9051,7 @@ DEFINE CLASS c_conversor_dbc_a_prg AS c_conversor_bin_a_prg
STORE 0 TO lnCodError STORE 0 TO lnCodError
lnDatabases_Count = ADATABASES(laDatabases) lnDatabases_Count = ADATABASES(laDatabases)
USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS TABLABIN USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS TABLABIN
OPEN DATABASE (THIS.c_InputFile) SHARED NOUPDATE OPEN DATABASE (THIS.c_InputFile) SHARED NOUPDATE
@@ -9100,7 +9120,9 @@ DEFINE CLASS c_conversor_mnx_a_prg AS c_conversor_bin_a_prg
LOCAL lnCodError, lnLen LOCAL lnCodError, lnLen
STORE 0 TO lnCodError STORE 0 TO lnCodError
USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS TABLABIN USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS _TABLAORIG
SELECT * FROM _TABLAORIG INTO CURSOR TABLABIN
USE IN (SELECT("_TABLAORIG"))
*-- Verificaci<63>n de men<65> VFP 9 *-- Verificaci<63>n de men<65> VFP 9
IF FCOUNT() < 25 OR EMPTY(FIELD("RESNAME")) OR EMPTY(FIELD("SYSRES")) IF FCOUNT() < 25 OR EMPTY(FIELD("RESNAME")) OR EMPTY(FIELD("SYSRES"))