lundi 12 mars 2012

Strings and Enum Type

    DictTable   dictTable; 
    int         FieldCount; 
    int         NumOfFields; 
    FieldId     fieldId; 
    TableId     tableId; 
    DictField   dictField; 
    DictEnum    dictEnum; 
    int         enumCount; 
    ; 
    tableId     = tableNum(CustInvoiceJour); 
    dictTable   = new DictTable(tableId); 
    NumOfFields = dictTable.fieldCnt(); 
    setPrefix(TableId2Name(tableId)); 
    for (FieldCount = 1; FieldCount <= NumOfFields; FieldCount++) 
    { 
        fieldId     = dictTable.fieldCnt2Id(FieldCount); 
        dictField   = new DictField(tableId, fieldId); 
        if (dictField.baseType() == Types::Enum) 
        { 
            dictEnum = new DictEnum(dictField.enumId()); 
            info(strfmt('Field Name - %1', dictTable.fieldName(FieldId))); 
            info(strfmt('   Enum Name - %1', dictEnum.name())); 
            for (enumCount=0;enumCount<=dictEnum.values() - 1;enumCount++) 
            { 
                info(strfmt('       %1 %2', enumCount, dictEnum.index2Label(enumCount))); 
            } 
        } 
    } 

Aucun commentaire:

Enregistrer un commentaire