Changeset: 92 Modificaciones DBC Ofi
This commit is contained in:
fernando
528
foxbin2prg.prg
528
foxbin2prg.prg
@@ -690,7 +690,7 @@ DEFINE CLASS c_conversor_base AS SESSION
|
||||
+ [<memberdata name="normalizarvalorxml" display="normalizarValorXML"/>] ;
|
||||
+ [<memberdata name="sortpropsandvalues" display="sortPropsAndValues"/>] ;
|
||||
+ [<memberdata name="sortpropsandvalues_setandgetscxpropnames" type="method" display="sortPropsAndValues_SetAndGetSCXPropNames"/>] ;
|
||||
+ [<memberdata name="writelog" display="writeLog"/>] ;
|
||||
+ [<memberdata name="writelog" display="writeLog"/>] ;
|
||||
+ [<memberdata name="write_dbf_metadata" display="write_DBF_Metadata"/>] ;
|
||||
+ [<memberdata name="c_curdir" display="c_CurDir"/>] ;
|
||||
+ [<memberdata name="c_inputfile" display="c_InputFile"/>] ;
|
||||
@@ -1737,7 +1737,7 @@ DEFINE CLASS c_conversor_base AS SESSION
|
||||
lnPropType = 2 && User property
|
||||
lcPropName = 'A998' + lcPropName
|
||||
ENDCASE
|
||||
|
||||
|
||||
RETURN lcPropName
|
||||
ENDPROC
|
||||
|
||||
@@ -1832,7 +1832,7 @@ DEFINE CLASS c_conversor_base AS SESSION
|
||||
DIMENSION laPropsAndValues( tnPropsAndValues_Count, lnArrayCols )
|
||||
ACOPY( taPropsAndValues, laPropsAndValues )
|
||||
|
||||
WITH THIS AS C_CONVERSOR_BASE OF 'FOXBIN2PRG.PRG'
|
||||
WITH THIS AS c_conversor_base OF 'FOXBIN2PRG.PRG'
|
||||
IF m.tnSortType >= 1
|
||||
* CON SORT:
|
||||
* - A las que no tienen '.' les pongo 'A' por delante, y al resto 'B' por delante para que queden al final
|
||||
@@ -1870,7 +1870,7 @@ DEFINE CLASS c_conversor_base AS SESSION
|
||||
|
||||
FOR I = 1 TO m.tnPropsAndValues_Count
|
||||
*taPropsAndValues(I,1) = SUBSTR( laPropsAndValues(I,1), 2 ) && Quitar el car<61>cter agregado
|
||||
|
||||
|
||||
*-- Quitar caracteres agregados antes del SORT
|
||||
IF '.' $ laPropsAndValues(I,1)
|
||||
IF m.tnSortType = 2
|
||||
@@ -1886,7 +1886,7 @@ DEFINE CLASS c_conversor_base AS SESSION
|
||||
taPropsAndValues(I,1) = SUBSTR( laPropsAndValues(I,1), 2 )
|
||||
ENDIF
|
||||
ENDIF
|
||||
|
||||
|
||||
taPropsAndValues(I,2) = laPropsAndValues(I,2)
|
||||
|
||||
IF lnArrayCols >= 3
|
||||
@@ -8980,11 +8980,15 @@ DEFINE CLASS CL_DBC_BASE AS CL_CUS_BASE
|
||||
_MEMBERDATA = [<VFPData>] ;
|
||||
+ [<memberdata name="_name" display="_Name"/>] ;
|
||||
+ [<memberdata name="__objectid" display="__ObjectID"/>] ;
|
||||
+ [<memberdata name="dbgetprop" display="DBGETPROP"/>] ;
|
||||
+ [<memberdata name="dbsetprop" display="DBSETPROP"/>] ;
|
||||
+ [<memberdata name="getbinpropertydatarecord" display="getBinPropertyDataRecord"/>] ;
|
||||
+ [<memberdata name="getcodememo" display="getCodeMemo"/>] ;
|
||||
+ [<memberdata name="getdbcpropertyidbyname" display="getDBCPropertyIDByName"/>] ;
|
||||
+ [<memberdata name="getdbcpropertyvaluetypebyid" display="getDBCPropertyValueTypeByID"/>] ;
|
||||
+ [<memberdata name="getid" display="getID"/>] ;
|
||||
+ [<memberdata name="getobjecttype" display="getObjectType"/>] ;
|
||||
+ [<memberdata name="getmemowithproperties" display="getMemoWithProperties"/>] ;
|
||||
+ [<memberdata name="getbinmemofromproperties" display="getBinMemoFromProperties"/>] ;
|
||||
+ [<memberdata name="getreferentialintegrityinfo" display="getReferentialIntegrityInfo"/>] ;
|
||||
+ [<memberdata name="getusermemo" display="getUserMemo"/>] ;
|
||||
+ [<memberdata name="setnextid" display="setNextID"/>] ;
|
||||
@@ -8996,20 +9000,304 @@ DEFINE CLASS CL_DBC_BASE AS CL_CUS_BASE
|
||||
_Name = ''
|
||||
|
||||
|
||||
PROCEDURE getDBCPropertyIDByName
|
||||
LPARAMETERS tcPropertyName
|
||||
LOCAL lnID
|
||||
tcPropertyName = LOWER(RTRIM(tcPropertyName))
|
||||
|
||||
DO CASE
|
||||
CASE tcPropertyName == 'null'
|
||||
lnID = 0
|
||||
CASE tcPropertyName == 'path'
|
||||
lnID = 1
|
||||
CASE tcPropertyName == 'class'
|
||||
lnID = 2
|
||||
CASE tcPropertyName == 'comment'
|
||||
lnID = 7
|
||||
CASE tcPropertyName == 'ruleexpression'
|
||||
lnID = 9
|
||||
CASE tcPropertyName == 'ruletext'
|
||||
lnID = 10
|
||||
CASE tcPropertyName == 'defaultvalue'
|
||||
lnID = 11
|
||||
CASE tcPropertyName == 'parameterlist'
|
||||
lnID = 12
|
||||
CASE tcPropertyName == 'childtag'
|
||||
lnID = 13
|
||||
CASE tcPropertyName == 'inserttrigger'
|
||||
lnID = 14
|
||||
CASE tcPropertyName == 'updatetrigger'
|
||||
lnID = 15
|
||||
CASE tcPropertyName == 'deletetrigger'
|
||||
lnID = 16
|
||||
CASE tcPropertyName == 'isunique'
|
||||
lnID = 17
|
||||
CASE tcPropertyName == 'relatedtable'
|
||||
lnID = 18
|
||||
CASE tcPropertyName == 'relatedtag'
|
||||
lnID = 19
|
||||
CASE tcPropertyName == 'primarykey'
|
||||
lnID = 20
|
||||
CASE tcPropertyName == 'version'
|
||||
lnID = 24
|
||||
CASE tcPropertyName == 'batchupdatecount'
|
||||
lnID = 28
|
||||
CASE tcPropertyName == 'datasource'
|
||||
lnID = 29
|
||||
CASE tcPropertyName == 'connectname'
|
||||
lnID = 32
|
||||
CASE tcPropertyName == 'updatename'
|
||||
lnID = 35
|
||||
CASE tcPropertyName == 'fetchmemo'
|
||||
lnID = 36
|
||||
CASE tcPropertyName == 'fetchsize'
|
||||
lnID = 37
|
||||
CASE tcPropertyName == 'keyfield'
|
||||
lnID = 38
|
||||
CASE tcPropertyName == 'maxrecords'
|
||||
lnID = 39
|
||||
CASE tcPropertyName == 'shareconnection'
|
||||
lnID = 40
|
||||
CASE tcPropertyName == 'sourcetype'
|
||||
lnID = 41
|
||||
CASE tcPropertyName == 'sql'
|
||||
lnID = 42
|
||||
CASE tcPropertyName == 'tables'
|
||||
lnID = 43
|
||||
CASE tcPropertyName == 'sendupdates'
|
||||
lnID = 44
|
||||
CASE tcPropertyName == 'updatablefield' OR tcPropertyName == 'updatable'
|
||||
lnID = 45
|
||||
CASE tcPropertyName == 'updatetype'
|
||||
lnID = 46
|
||||
CASE tcPropertyName == 'usememosize'
|
||||
lnID = 47
|
||||
CASE tcPropertyName == 'wheretype'
|
||||
lnID = 48
|
||||
CASE tcPropertyName == 'displayclass' && Undocumented
|
||||
lnID = 50
|
||||
CASE tcPropertyName == 'displayclasslibrary' && Undocumented
|
||||
lnID = 51
|
||||
CASE tcPropertyName == 'inputmask' && Undocumented
|
||||
lnID = 54
|
||||
CASE tcPropertyName == 'format' && Undocumented
|
||||
lnID = 55
|
||||
CASE tcPropertyName == 'caption'
|
||||
lnID = 56
|
||||
CASE tcPropertyName == 'asynchronous'
|
||||
lnID = 64
|
||||
CASE tcPropertyName == 'batchmode'
|
||||
lnID = 65
|
||||
CASE tcPropertyName == 'connectstring'
|
||||
lnID = 66
|
||||
CASE tcPropertyName == 'connecttimeout'
|
||||
lnID = 67
|
||||
CASE tcPropertyName == 'displogin'
|
||||
lnID = 68
|
||||
CASE tcPropertyName == 'dispwarnings'
|
||||
lnID = 69
|
||||
CASE tcPropertyName == 'idletimeout'
|
||||
lnID = 70
|
||||
CASE tcPropertyName == 'querytimeout'
|
||||
lnID = 71
|
||||
CASE tcPropertyName == 'password'
|
||||
lnID = 72
|
||||
CASE tcPropertyName == 'transactions'
|
||||
lnID = 73
|
||||
CASE tcPropertyName == 'userid'
|
||||
lnID = 74
|
||||
CASE tcPropertyName == 'waittime'
|
||||
lnID = 75
|
||||
CASE tcPropertyName == 'timestamp'
|
||||
lnID = 76
|
||||
CASE tcPropertyName == 'datatype'
|
||||
lnID = 77
|
||||
CASE tcPropertyName == 'packetsize' && Undocumented
|
||||
lnID = 78
|
||||
CASE tcPropertyName == 'prepared' && Undocumented
|
||||
lnID = 80
|
||||
CASE tcPropertyName == 'comparememo' && Undocumented
|
||||
lnID = 81
|
||||
CASE tcPropertyName == 'fetchasneeded' && Undocumented
|
||||
lnID = 82
|
||||
CASE tcPropertyName == 'offline' && Undocumented
|
||||
lnID = 83
|
||||
CASE tcPropertyName == 'recordcount' && Undocumented
|
||||
lnID = 84
|
||||
CASE tcPropertyName == 'undocumented_view_prop_85' && Undocumented
|
||||
lnID = 85
|
||||
CASE tcPropertyName == 'allowsimultaneousfetch' && Undocumented
|
||||
lnID = 88
|
||||
CASE tcPropertyName == 'disconnectrollback' && Undocumented
|
||||
lnID = 89
|
||||
OTHERWISE
|
||||
ERROR 1559, (tcPropertyName)
|
||||
ENDCASE
|
||||
|
||||
RETURN lnID
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE getDBCPropertyValueTypeByID
|
||||
LPARAMETERS tnID
|
||||
LOCAL lcValueType
|
||||
lcValueType = ''
|
||||
|
||||
DO CASE
|
||||
CASE INLIST(tnID,17,36,38,40,44,45,64,65,69,80,81,82,83,88,89)
|
||||
lcValueType = 'L'
|
||||
|
||||
CASE INLIST(tnID,24,28,37,39,41,46,47,48,67,68,70,71,73,75,76,78,84,85)
|
||||
lcValueType = 'N'
|
||||
|
||||
OTHERWISE
|
||||
lcValueType = 'C'
|
||||
ENDCASE
|
||||
|
||||
RETURN lcValueType
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE DBGETPROP
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
* PAR<41>METROS: !=Obligatorio, ?=Opcional, @=Pasar por referencia, v=Pasar por valor (IN/OUT)
|
||||
* tcName (v! IN ) Nombre del objeto
|
||||
* tcType (v! IN ) Tipo de objeto (Table, Index, Field, View, Relation)
|
||||
* tcProperty (v! IN ) Nombre de la propiedad
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS tcName, tcType, tcProperty
|
||||
|
||||
TRY
|
||||
LOCAL lcValue, leValue, lnSelect, laProperty(1,1), lnRecordLen, lcBinRecord, lnDataConceptCode ;
|
||||
, lnLastPos, lnLenCCode, lcDataType, lnSerchedDataCC, lcDBF, lnLenData, lnLenHeader
|
||||
lnSelect = SELECT()
|
||||
leValue = ''
|
||||
tcName = PROPER(RTRIM(tcName))
|
||||
tcType = PROPER(RTRIM(tcType))
|
||||
tcProperty = PROPER(RTRIM(tcProperty))
|
||||
lcDBF = DBF()
|
||||
|
||||
SELECT 0
|
||||
USE (lcDBF) AGAIN SHARED NOUPDATE ALIAS C_TABLABIN2
|
||||
|
||||
IF INLIST( tcType, 'Index', 'Field' )
|
||||
SELECT TB.Property FROM C_TABLABIN2 TB ;
|
||||
INNER JOIN C_TABLABIN2 TB2 ON STR(TB.ParentID)+TB.ObjectType+LOWER(TB.objectName) = STR(TB2.ObjectID)+PADR(tcType,10)+PADR(LOWER(JUSTEXT(tcName)),128) ;
|
||||
AND TB2.objectName = PADR(LOWER(JUSTSTEM(tcName)),128) ;
|
||||
INTO ARRAY laProperty
|
||||
|
||||
ELSE
|
||||
SELECT TB.Property FROM C_TABLABIN2 TB ;
|
||||
INNER JOIN C_TABLABIN2 TB2 ON STR(TB.ParentID)+TB.ObjectType+LOWER(TB.objectName) = STR(TB2.ObjectID)+PADR(tcType,10)+PADR(LOWER(tcName),128) ;
|
||||
INTO ARRAY laProperty
|
||||
|
||||
ENDIF
|
||||
|
||||
IF _TALLY > 0
|
||||
IF EMPTY(laProperty(1,1))
|
||||
EXIT
|
||||
ENDIF
|
||||
|
||||
lnLastPos = 1
|
||||
lnSerchedDataCC = THIS.getDBCPropertyIDByName( tcProperty )
|
||||
|
||||
DO WHILE lnLastPos < LEN(laProperty(1,1))
|
||||
lnRecordLen = CTOBIN( SUBSTR(laProperty(1,1), lnLastPos, 4), "4RS" )
|
||||
lcBinRecord = SUBSTR(laProperty(1,1), lnLastPos, lnRecordLen)
|
||||
lnLenCCode = CTOBIN( SUBSTR(lcBinRecord, 4+1, 2), "2RS" )
|
||||
lnDataConceptCode = ASC( SUBSTR(lcBinRecord, 4+2+1, lnLenCCode) )
|
||||
|
||||
IF lnDataConceptCode = lnSerchedDataCC
|
||||
lcDataType = THIS.getDBCPropertyValueTypeByID( lnDataConceptCode )
|
||||
lnLenHeader = 4 + 2 + lnLenCCode
|
||||
lcValue = SUBSTR(lcBinRecord, lnLenHeader + 1)
|
||||
|
||||
DO CASE
|
||||
CASE lcDataType = 'L'
|
||||
IF lnLenHeader = lnRecordLen
|
||||
leValue = .F.
|
||||
ELSE
|
||||
leValue = ( CTOBIN( lcValue, "1S" ) = 1 )
|
||||
ENDIF
|
||||
|
||||
CASE lcDataType = 'N'
|
||||
IF lnLenHeader = lnRecordLen
|
||||
leValue = 0
|
||||
ELSE
|
||||
leValue = CTOBIN( lcValue, "4S" )
|
||||
ENDIF
|
||||
|
||||
OTHERWISE && Asume 'C'
|
||||
IF lnLenHeader = lnRecordLen
|
||||
leValue = ''
|
||||
ELSE
|
||||
leValue = LEFT( lcValue, AT( CHR(0), lcValue ) - 1 )
|
||||
ENDIF
|
||||
ENDCASE
|
||||
|
||||
EXIT
|
||||
ENDIF
|
||||
|
||||
lnLastPos = lnLastPos + lnRecordLen
|
||||
ENDDO
|
||||
ELSE
|
||||
ERROR 1562, (tcName)
|
||||
ENDIF
|
||||
|
||||
|
||||
CATCH TO loEx
|
||||
IF THIS.l_Debug AND _VFP.STARTMODE = 0
|
||||
SET STEP ON
|
||||
ENDIF
|
||||
|
||||
THROW
|
||||
|
||||
FINALLY
|
||||
USE IN (SELECT("C_TABLABIN2"))
|
||||
SELECT (lnSelect)
|
||||
ENDTRY
|
||||
|
||||
RETURN leValue
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE DBSETPROP
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
* PAR<41>METROS: !=Obligatorio, ?=Opcional, @=Pasar por referencia, v=Pasar por valor (IN/OUT)
|
||||
* tcName (v! IN ) Nombre del objeto
|
||||
* tcType (v! IN ) Tipo de objeto (Table, Index, Field, View, Relation)
|
||||
* tcProperty (v! IN ) Nombre de la propiedad
|
||||
* tePropertyValue (v! IN ) Valor de la propiedad
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS tcName, tcType, tcProperty, tePropertyValue
|
||||
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE getBinPropertyDataRecord
|
||||
LPARAMETERS teData, tnDataType
|
||||
LOCAL lcBinRecord, lnLen
|
||||
|
||||
LPARAMETERS teData, tnDataConceptCode
|
||||
LOCAL lcBinRecord, lnLen, lcDataType
|
||||
|
||||
lcBinRecord = ''
|
||||
|
||||
IF VARTYPE(teData) = 'N'
|
||||
teData = BINTOC( teData, "4RS" )
|
||||
lcDataType = VARTYPE(tcDataType)
|
||||
|
||||
DO CASE
|
||||
CASE VARTYPE(teData) = 'L'
|
||||
teData = BINTOC( tePropertyValue, "1S" )
|
||||
lnLen = 4 + 2 + 1 + 1
|
||||
lcBinRecord = BINTOC( lnLen, "4RS" ) + BINTOC( 1, "2RS" ) + CHR(tnDataConceptCode) + teData
|
||||
|
||||
CASE VARTYPE(teData) = 'N'
|
||||
teData = BINTOC( tePropertyValue, "4S" )
|
||||
lnLen = 4 + 2 + 1 + 4
|
||||
lcBinRecord = BINTOC( lnLen, "4RS" ) + BINTOC( 1, "2RS" ) + CHR(tnDataConceptCode) + teData
|
||||
|
||||
OTHERWISE && Asume 'C'
|
||||
teData = tePropertyValue
|
||||
lnLen = 4 + 2 + 1 + LEN(teData) + 1
|
||||
lcBinRecord = BINTOC( lnLen, "4RS" ) + BINTOC( 1, "2RS" ) + CHR(tnDataType) + teData
|
||||
ELSE
|
||||
lnLen = 4 + 2 + 1 + LEN(teData) + 1
|
||||
lcBinRecord = BINTOC( lnLen, "4RS" ) + BINTOC( 1, "2RS" ) + CHR(tnDataType) + teData + CHR(0)
|
||||
ENDIF
|
||||
lcBinRecord = BINTOC( lnLen, "4RS" ) + BINTOC( 1, "2RS" ) + CHR(tnDataConceptCode) + teData + CHR(0)
|
||||
|
||||
ENDCASE
|
||||
|
||||
RETURN lcBinRecord
|
||||
ENDPROC
|
||||
@@ -9030,7 +9318,7 @@ DEFINE CLASS CL_DBC_BASE AS CL_CUS_BASE
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE getMemoWithProperties
|
||||
PROCEDURE getBinMemoFromProperties
|
||||
RETURN ''
|
||||
ENDPROC
|
||||
|
||||
@@ -9066,7 +9354,7 @@ DEFINE CLASS CL_DBC_BASE AS CL_CUS_BASE
|
||||
lcType = 'Field'
|
||||
|
||||
OTHERWISE
|
||||
ERROR 'Clase [' + THIS.Class + '] desconocida'
|
||||
ERROR 'Clase [' + THIS.CLASS + '] desconocida'
|
||||
|
||||
ENDCASE
|
||||
|
||||
@@ -9095,7 +9383,7 @@ DEFINE CLASS CL_DBC_BASE AS CL_CUS_BASE
|
||||
|
||||
WITH THIS AS CL_DBC_BASE OF 'FOXBIN2PRG.PRG'
|
||||
.setNextID( @tnLastID )
|
||||
lcMemoWithProperties = .getMemoWithProperties()
|
||||
lcMemoWithProperties = .getBinMemoFromProperties()
|
||||
lcCodeMemo = .getCodeMemo()
|
||||
lcObjectType = .getObjectType()
|
||||
lcRI_Info = .getReferentialIntegrityInfo()
|
||||
@@ -9106,7 +9394,7 @@ DEFINE CLASS CL_DBC_BASE AS CL_CUS_BASE
|
||||
( ObjectID ;
|
||||
, ParentID ;
|
||||
, ObjectType ;
|
||||
, ObjectName ;
|
||||
, objectName ;
|
||||
, Property ;
|
||||
, CODE ;
|
||||
, RIInfo ;
|
||||
@@ -9255,19 +9543,6 @@ DEFINE CLASS CL_DBC AS CL_DBC_BASE
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE DBSETPROP
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
* PAR<41>METROS: !=Obligatorio, ?=Opcional, @=Pasar por referencia, v=Pasar por valor (IN/OUT)
|
||||
* cName (v! IN ) Nombre del objeto
|
||||
* cType (v! IN ) Tipo de objeto (Table, Index, Field, View, Relation)
|
||||
* cProperty (v! IN ) Nombre de la propiedad
|
||||
* ePropertyValue (v! IN ) Valor de la propiedad
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS cName, cType, cProperty, ePropertyValue
|
||||
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE updateDBC
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
* PAR<41>METROS: !=Obligatorio, ?=Opcional, @=Pasar por referencia, v=Pasar por valor (IN/OUT)
|
||||
@@ -9285,7 +9560,6 @@ DEFINE CLASS CL_DBC AS CL_DBC_BASE
|
||||
loTables = THIS._Tables
|
||||
loConnections = THIS._Connections
|
||||
loViews = THIS._Views
|
||||
loRelations = THIS._Relations
|
||||
|
||||
CREATE DATABASE (tc_OutputFile)
|
||||
CLOSE DATABASES
|
||||
@@ -9640,24 +9914,25 @@ DEFINE CLASS CL_DBC_CONNECTION AS CL_DBC_BASE
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE getMemoWithProperties
|
||||
PROCEDURE getBinMemoFromProperties
|
||||
LOCAL lcBinData
|
||||
lcBinData = ''
|
||||
*fdb*
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._Comment, 7 )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._DataSource, 29 )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._Asynchronous, 64 )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._BatchMode, 65 )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._ConnectString, 66 )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( INT( VAL(THIS._ConnectTimeout) ) , 67 )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._DispLogin, 68 )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._DispWarnings, 69 )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._IdleTimeout, 70 )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._QueryTimeout, 71 )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._PassWord, 72 )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._Transactions, 73 )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._UserId, 74 )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._WaitTime, 75 )
|
||||
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._Comment, THIS.getDBCPropertyIDByName('Comment') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._DataSource, THIS.getDBCPropertyIDByName('DataSource') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._Asynchronous), THIS.getDBCPropertyIDByName('Asynchronous') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._BatchMode), THIS.getDBCPropertyIDByName('BatchMode') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._ConnectString, THIS.getDBCPropertyIDByName('ConnectString') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._ConnectTimeout) , THIS.getDBCPropertyIDByName('ConnectTimeout') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._DispLogin), THIS.getDBCPropertyIDByName('DispLogin') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._DispWarnings), THIS.getDBCPropertyIDByName('DispWarnings') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._IdleTimeout), THIS.getDBCPropertyIDByName('IdleTimeout') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._QueryTimeout), THIS.getDBCPropertyIDByName('QueryTimeout') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._PassWord, THIS.getDBCPropertyIDByName('PassWord') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._Transactions), THIS.getDBCPropertyIDByName('Transactions') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._UserId, THIS.getDBCPropertyIDByName('UserId') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._WaitTime), THIS.getDBCPropertyIDByName('WaitTime') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._PacketSize), THIS.getDBCPropertyIDByName('PacketSize') ) && Undocumented
|
||||
|
||||
RETURN lcBinData
|
||||
ENDPROC
|
||||
@@ -9876,7 +10151,7 @@ DEFINE CLASS CL_DBC_TABLE AS CL_DBC_BASE
|
||||
loIndexes.analizarBloque( @tcLine, @taCodeLines, @I, tnCodeLines )
|
||||
|
||||
CASE C_RELATIONS_I $ tcLine
|
||||
loRelations = THIS._Indexes
|
||||
loRelations = THIS._Relations
|
||||
loRelations.analizarBloque( @tcLine, @taCodeLines, @I, tnCodeLines )
|
||||
|
||||
OTHERWISE && Propiedad de TABLE
|
||||
@@ -9976,7 +10251,25 @@ DEFINE CLASS CL_DBC_TABLE AS CL_DBC_BASE
|
||||
tnParentID = THIS.__ObjectID
|
||||
THIS._Fields.updateDBC( tc_OutputFile, @tnLastID, tnParentID )
|
||||
THIS._Indexes.updateDBC( tc_OutputFile, @tnLastID, tnParentID )
|
||||
loRelations.updateDBC( tc_OutputFile, @tnLastID, tnParentID )
|
||||
THIS._Relations.updateDBC( tc_OutputFile, @tnLastID, tnParentID )
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE getBinMemoFromProperties
|
||||
LOCAL lcBinData
|
||||
lcBinData = ''
|
||||
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( 1, THIS.getDBCPropertyIDByName('Class') ) && Clase 1
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._Path, THIS.getDBCPropertyIDByName('Path') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._Comment, THIS.getDBCPropertyIDByName('Comment') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._RuleExpression, THIS.getDBCPropertyIDByName('RuleExpression') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._RuleText, THIS.getDBCPropertyIDByName('RuleText') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._InsertTrigger, THIS.getDBCPropertyIDByName('InsertTrigger') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._UpdateTrigger, THIS.getDBCPropertyIDByName('UpdateTrigger') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._DeleteTrigger, THIS.getDBCPropertyIDByName('DeleteTrigger') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._PrimaryKey, THIS.getDBCPropertyIDByName('PrimaryKey') )
|
||||
|
||||
RETURN lcBinData
|
||||
ENDPROC
|
||||
|
||||
|
||||
@@ -10060,9 +10353,9 @@ DEFINE CLASS CL_DBC_FIELDS_DB AS CL_DBC_COL_BASE
|
||||
lcText = ''
|
||||
|
||||
_TALLY = 0
|
||||
SELECT LOWER(TB.ObjectName) FROM TABLABIN TB ;
|
||||
SELECT LOWER(TB.objectName) FROM TABLABIN TB ;
|
||||
INNER JOIN TABLABIN TB2 ON STR(TB.ParentID)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Field',10) ;
|
||||
AND TB2.ObjectName = PADR(LOWER(tcTable),128) ;
|
||||
AND TB2.objectName = PADR(LOWER(tcTable),128) ;
|
||||
INTO ARRAY laFields
|
||||
lnField_Count = _TALLY
|
||||
|
||||
@@ -10237,6 +10530,24 @@ DEFINE CLASS CL_DBC_FIELD_DB AS CL_DBC_BASE
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE getBinMemoFromProperties
|
||||
LOCAL lcBinData
|
||||
lcBinData = ''
|
||||
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._Comment, THIS.getDBCPropertyIDByName('Comment') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._DefaultValue, THIS.getDBCPropertyIDByName('DefaultValue') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._DisplayClass, THIS.getDBCPropertyIDByName('DisplayClass') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._DisplayClassLibrary, THIS.getDBCPropertyIDByName('DisplayClassLibrary') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._Caption, THIS.getDBCPropertyIDByName('Caption') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._Format, THIS.getDBCPropertyIDByName('Format') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._InputMask, THIS.getDBCPropertyIDByName('InputMask') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._RuleExpression, THIS.getDBCPropertyIDByName('RuleExpression') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._RuleText, THIS.getDBCPropertyIDByName('RuleText') )
|
||||
|
||||
RETURN lcBinData
|
||||
ENDPROC
|
||||
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
|
||||
@@ -10323,9 +10634,9 @@ DEFINE CLASS CL_DBC_INDEXES_DB AS CL_DBC_COL_BASE
|
||||
lcText = ''
|
||||
|
||||
_TALLY = 0
|
||||
SELECT LOWER(TB.ObjectName) FROM TABLABIN TB ;
|
||||
SELECT LOWER(TB.objectName) FROM TABLABIN TB ;
|
||||
INNER JOIN TABLABIN TB2 ON STR(TB.ParentID)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Index',10) ;
|
||||
AND TB2.ObjectName = PADR(LOWER(tcTable),128) ;
|
||||
AND TB2.objectName = PADR(LOWER(tcTable),128) ;
|
||||
INTO ARRAY laIndexes
|
||||
lnIndex_Count = _TALLY
|
||||
|
||||
@@ -10338,7 +10649,7 @@ DEFINE CLASS CL_DBC_INDEXES_DB AS CL_DBC_COL_BASE
|
||||
loIndex = CREATEOBJECT('CL_DBC_INDEX_DB')
|
||||
|
||||
FOR X = 1 TO lnIndex_Count
|
||||
lcText = lcText + loIndex.toText( laIndexes(X) )
|
||||
lcText = lcText + loIndex.toText( tcTable + '.' + laIndexes(X) )
|
||||
ENDFOR
|
||||
|
||||
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
|
||||
@@ -10446,7 +10757,7 @@ DEFINE CLASS CL_DBC_INDEX_DB AS CL_DBC_BASE
|
||||
PROCEDURE toText
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
* PAR<41>METROS: !=Obligatorio, ?=Opcional, @=Pasar por referencia, v=Pasar por valor (IN/OUT)
|
||||
* tcIndex (v! IN ) Nombre del <20>ndice
|
||||
* tcIndex (v! IN ) Nombre del <20>ndice en la forma "tabla.indice"
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS tcIndex
|
||||
|
||||
@@ -10456,7 +10767,9 @@ DEFINE CLASS CL_DBC_INDEX_DB AS CL_DBC_BASE
|
||||
|
||||
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
|
||||
<<>> <INDEX>
|
||||
<<>> <Name><<RTRIM(tcIndex)>></Name>
|
||||
<<>> <Name><<RTRIM(JUSTEXT(tcIndex))>></Name>
|
||||
<<>> <Comment><<RTRIM( THIS.DBGETPROP(tcIndex,'Index','Comment') )>></Comment>
|
||||
<<>> <IsUnique><<THIS.DBGETPROP(tcIndex,'Index','IsUnique')>></IsUnique>
|
||||
<<>> </INDEX>
|
||||
ENDTEXT
|
||||
|
||||
@@ -10475,6 +10788,16 @@ DEFINE CLASS CL_DBC_INDEX_DB AS CL_DBC_BASE
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE getBinMemoFromProperties
|
||||
LOCAL lcBinData
|
||||
lcBinData = ''
|
||||
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._IsUnique), THIS.getDBCPropertyIDByName('IsUnique') )
|
||||
|
||||
RETURN lcBinData
|
||||
ENDPROC
|
||||
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
|
||||
@@ -10632,6 +10955,8 @@ DEFINE CLASS CL_DBC_VIEW AS CL_DBC_BASE
|
||||
+ [<memberdata name="_fetchsize" display="_FetchSize"/>] ;
|
||||
+ [<memberdata name="_maxrecords" display="_MaxRecords"/>] ;
|
||||
+ [<memberdata name="_offline" display="_Offline"/>] ;
|
||||
+ [<memberdata name="_recordcount" display="_RecordCount"/>] ;
|
||||
+ [<memberdata name="_path" display="_Path"/>] ;
|
||||
+ [<memberdata name="_parameterlist" display="_ParameterList"/>] ;
|
||||
+ [<memberdata name="_prepared" display="_Prepared"/>] ;
|
||||
+ [<memberdata name="_ruleexpression" display="_RuleExpression"/>] ;
|
||||
@@ -10661,6 +10986,8 @@ DEFINE CLASS CL_DBC_VIEW AS CL_DBC_BASE
|
||||
_FetchSize = ''
|
||||
_MaxRecords = ''
|
||||
_Offline = ''
|
||||
_RecordCount = ''
|
||||
_Path = ''
|
||||
_ParameterList = ''
|
||||
_Prepared = ''
|
||||
_RuleExpression = ''
|
||||
@@ -10725,7 +11052,7 @@ DEFINE CLASS CL_DBC_VIEW AS CL_DBC_BASE
|
||||
loIndexes.analizarBloque( @tcLine, @taCodeLines, @I, tnCodeLines )
|
||||
|
||||
CASE C_RELATIONS_I $ tcLine
|
||||
loRelations = THIS._Indexes
|
||||
loRelations = THIS._Relations
|
||||
loRelations.analizarBloque( @tcLine, @taCodeLines, @I, tnCodeLines )
|
||||
|
||||
OTHERWISE && Propiedad de VIEW
|
||||
@@ -10797,6 +11124,18 @@ DEFINE CLASS CL_DBC_VIEW AS CL_DBC_BASE
|
||||
<<>> <WhereType><<DBGETPROP(tcView,"VIEW","WhereType")>></WhereType>
|
||||
ENDTEXT
|
||||
|
||||
*-- ALGUNOS VALORES QUE EL DBGETPROP OFICIAL NO DEVUELVE
|
||||
*fdb*
|
||||
*-- Path
|
||||
*-- OfflineRecordCount
|
||||
IF NOT EMPTY(THIS._Offline) AND EVALUATE(THIS._Offline)
|
||||
TEXT TO lcText TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
|
||||
<<>> <Path><<THIS.DBGETPROP(tcView,"VIEW","Path")>></Path>
|
||||
<<>> <RecordCount><<THIS.DBGETPROP(tcView,"VIEW","RecordCount")>></RecordCount>
|
||||
ENDTEXT
|
||||
ENDIF
|
||||
*--
|
||||
|
||||
loFields = THIS._Fields
|
||||
lcText = lcText + loFields.toText( tcView )
|
||||
|
||||
@@ -10839,6 +11178,41 @@ DEFINE CLASS CL_DBC_VIEW AS CL_DBC_BASE
|
||||
tnParentID = THIS.__ObjectID
|
||||
THIS._Fields.updateDBC( tc_OutputFile, @tnLastID, tnParentID )
|
||||
THIS._Indexes.updateDBC( tc_OutputFile, @tnLastID, tnParentID )
|
||||
THIS._Relations.updateDBC( tc_OutputFile, @tnLastID, tnParentID )
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE getBinMemoFromProperties
|
||||
LOCAL lcBinData
|
||||
lcBinData = ''
|
||||
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( 6, THIS.getDBCPropertyIDByName('Class') ) && Clase 6
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._Comment, THIS.getDBCPropertyIDByName('Comment') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._RuleExpression, THIS.getDBCPropertyIDByName('RuleExpression') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._RuleText, THIS.getDBCPropertyIDByName('RuleText') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._ParameterList, THIS.getDBCPropertyIDByName('ParameterList') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._BatchUpdateCount), THIS.getDBCPropertyIDByName('BatchUpdateCount') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._ConnectName, THIS.getDBCPropertyIDByName('ConnectName') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._FetchMemo, THIS.getDBCPropertyIDByName('FetchMemo') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._FetchSize), THIS.getDBCPropertyIDByName('FetchSize') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._MaxRecords), THIS.getDBCPropertyIDByName('MaxRecords') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._ShareConnection), THIS.getDBCPropertyIDByName('ShareConnection') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._SourceType), THIS.getDBCPropertyIDByName('SourceType') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._SQL, THIS.getDBCPropertyIDByName('SQL') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._Tables, THIS.getDBCPropertyIDByName('Tables') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._SendUpdates), THIS.getDBCPropertyIDByName('SendUpdates') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._UpdateType), THIS.getDBCPropertyIDByName('UpdateType') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._UseMemoSize), THIS.getDBCPropertyIDByName('UseMemoSize') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._WhereType), THIS.getDBCPropertyIDByName('WhereType') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._Prepared), THIS.getDBCPropertyIDByName('Prepared') ) && Undocumented
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._CompareMemo), THIS.getDBCPropertyIDByName('CompareMemo') ) && Undocumented
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._FetchAsNeeded), THIS.getDBCPropertyIDByName('FetchAsNeeded') ) && Undocumented
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._Offline), THIS.getDBCPropertyIDByName('Offline') ) && Undocumented
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._RecordCount), THIS.getDBCPropertyIDByName('RecordCount') ) && Undocumented
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( 0, THIS.getDBCPropertyIDByName('undocumented_view_prop_85') ) && Undocumented
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._AllowSimultaneousFetch), THIS.getDBCPropertyIDByName('AllowSimultaneousFetch') ) && Undocumented
|
||||
|
||||
RETURN lcBinData
|
||||
ENDPROC
|
||||
|
||||
|
||||
@@ -10924,9 +11298,9 @@ DEFINE CLASS CL_DBC_FIELDS_VW AS CL_DBC_COL_BASE
|
||||
lcText = ''
|
||||
|
||||
_TALLY = 0
|
||||
SELECT LOWER(TB.ObjectName) FROM TABLABIN TB ;
|
||||
SELECT LOWER(TB.objectName) FROM TABLABIN TB ;
|
||||
INNER JOIN TABLABIN TB2 ON STR(TB.ParentID)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Field',10) ;
|
||||
AND TB2.ObjectName = PADR(LOWER(tcView),128) ;
|
||||
AND TB2.objectName = PADR(LOWER(tcView),128) ;
|
||||
INTO ARRAY laFields
|
||||
lnField_Count = _TALLY
|
||||
|
||||
@@ -11086,6 +11460,8 @@ DEFINE CLASS CL_DBC_FIELD_VW AS CL_DBC_BASE
|
||||
<<>> <Comment><<DBGETPROP( RTRIM(tcView) + '.' + RTRIM(tcField),"FIELD","Comment")>></Comment>
|
||||
<<>> <DataType><<DBGETPROP( RTRIM(tcView) + '.' + RTRIM(tcField),"FIELD","DataType")>></DataType>
|
||||
<<>> <DefaultValue><<DBGETPROP( RTRIM(tcView) + '.' + RTRIM(tcField),"FIELD","DefaultValue")>></DefaultValue>
|
||||
<<>> <DisplayClass><<DBGETPROP( RTRIM(tcView) + '.' + RTRIM(tcField),"FIELD","DefaultValue")>></DisplayClass>
|
||||
<<>> <DisplayClassLibrary><<DBGETPROP( RTRIM(tcView) + '.' + RTRIM(tcField),"FIELD","DefaultValue")>></DisplayClassLibrary>
|
||||
<<>> <Format><<DBGETPROP( RTRIM(tcView) + '.' + RTRIM(tcField),"FIELD","Format")>></Format>
|
||||
<<>> <InputMask><<DBGETPROP( RTRIM(tcView) + '.' + RTRIM(tcField),"FIELD","InputMask")>></InputMask>
|
||||
<<>> <KeyField><<DBGETPROP( RTRIM(tcView) + '.' + RTRIM(tcField),"FIELD","KeyField")>></KeyField>
|
||||
@@ -11112,6 +11488,28 @@ DEFINE CLASS CL_DBC_FIELD_VW AS CL_DBC_BASE
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE getBinMemoFromProperties
|
||||
LOCAL lcBinData
|
||||
lcBinData = ''
|
||||
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._Comment, THIS.getDBCPropertyIDByName('Comment') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._DataType, THIS.getDBCPropertyIDByName('DataType') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._KeyField), THIS.getDBCPropertyIDByName('KeyField') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( EVALUATE(THIS._Updatable), THIS.getDBCPropertyIDByName('UpdatableField') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._UpdateName, THIS.getDBCPropertyIDByName('UpdateName') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._DefaultValue, THIS.getDBCPropertyIDByName('DefaultValue') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._DisplayClass, THIS.getDBCPropertyIDByName('DisplayClass') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._DisplayClassLibrary, THIS.getDBCPropertyIDByName('DisplayClassLibrary') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._Caption, THIS.getDBCPropertyIDByName('Caption') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._Format, THIS.getDBCPropertyIDByName('Format') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._InputMask, THIS.getDBCPropertyIDByName('InputMask') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._RuleExpression, THIS.getDBCPropertyIDByName('RuleExpression') )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._RuleText, THIS.getDBCPropertyIDByName('RuleText') )
|
||||
|
||||
RETURN lcBinData
|
||||
ENDPROC
|
||||
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
|
||||
@@ -11357,14 +11755,14 @@ DEFINE CLASS CL_DBC_RELATION AS CL_DBC_BASE
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE getMemoWithProperties
|
||||
PROCEDURE getBinMemoFromProperties
|
||||
LOCAL lcBinData
|
||||
lcBinData = ''
|
||||
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._ChildIndex, 13 )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._ParentTable, 18 )
|
||||
lcBinData = lcBinData + THIS.getBinPropertyDataRecord( THIS._ParentIndex, 19 )
|
||||
*_ChildTable not used.
|
||||
*_ChildTable is used to link the name of the related table.
|
||||
|
||||
RETURN lcBinData
|
||||
ENDPROC
|
||||
|
||||
Reference in New Issue
Block a user