LPARAMETERS liIDProp,luValue
* liIDProp - Property ID
* luValue - Property value
LOCAL liType
liType=This.GetValueType(liIDProp)
* Check value if is valid
IF !This.CheckValue(liIDProp,liType,luValue)
RETURN .NULL.
ENDIF
IF !This.IsBaseType(liType) AND !ISNULL(This.oConnector)
RETURN This.oConnector.ValueToDBCValue(liType,luValue)
ENDIF
RETURN IIF(ISNULL(luValue),.NULL.,;
IIF(liType=_DBC_ValueType_String ,luValue+CHR(0),;
IIF(liType=_DBC_ValueType_Byte,CHR(luValue),;
IIF(liType=_DBC_ValueType_SI32R,;
IIF(luValue=-1,CHR(255)+CHR(255)+CHR(255)+CHR(255),This.IToC4Rev(@luValue)),;
IIF(liType=_DBC_ValueType_I32R,This.IToC4Rev(@luValue),;
IIF(liType=_DBC_ValueType_Boolean,IIF(luValue,CHR(1),CHR(0)),.NULL.))))))