Источник:
http://DAX-Lessons.spaces.live.com/B...FCD1!139.entry
==============
Creating detail technical document in projects is very time consuming. Isn’tit?
Particularly if there are many objects in the project it will take more timein creating it.
The jobs which I am going to explain will reduce time in preparing technicaldocument.
This job will list the table fields properties like table field name,help text(Description),type, Size etc.
static voidsgx_TehnicalDocument_Tables(Args _args)
{
COM document;
COM wordDocument;
COM wordRange;
COM app;
str tableContent;
SysDictTable dictTable;
SysDictField dictField;
Counter fieldCounter;
Counter arrayCounter;
str typeofTheField(DictField df, Types _types)
{
str typeName;
SysDictType dictType;
SysDictEnum dictEnum;
;
switch(_types)
{
case Types::UserType : dictType = new SysDictType(dictField.typeId());
returndictType.name();
case Types::Container : return 'container';
case Types::Date : return 'date';
case Types::Enum : dictEnum = new SysDictEnum(dictField.enumId());
if(dictEnum)
return dictEnum.name();
case Types::Integer :
return 'int';
case Types::Int64 :
return 'int64';
case Types::Real :
return 'real';
case Types::Record :
return 'record';
case Types::VarString :
case Types::RString :
case Types::String : return 'str';
case Types::BLOB : return 'blob';
case Types::DateTime : return 'datetime' ;
case Types::Guid : return 'guid' ;
default : return '';
}
}
;
app = new com("Word.Application");
app.visible(true);
document = app.Documents();
wordDocument = document.add();
wordDocument.activate();
wordRange =wordDocument.range(0,0);
dictTable = new SysDictTable(tablenum(CustTable)); // Mention your table here
<strong><span style="color:rgb(153, 51, 102);font-weight:normal"> for (fieldCounter = 1; fieldCounter