Madde kartlrında Boyutların zorunluluğu | Dynamics Ax

Madde kartlrında Boyutların zorunluluğu

Madde kartında bulunan Madde grubu alanına göre boyutların zorunlu hale gelmesinde aşağıdaki kodu PurchTabe formunun datasource'unda bulunan PurcLine'ın methods'una yazdığınızda buradaki kontroller çalışacaktır.
Böylece madde grubunda belirlediğiniz zorunlu alanlar formda boş geçilmeyecektir. Aynı kodu SalesTable için de yazabilirsiniz.

void checkDimension()
{
    ItemGroupMandSetupTable     itemGroupMandSetupTable;
    ;

    PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 1)).allowEdit(false);
    PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 1)).mandatory(false);
    PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 2)).allowEdit(false);
    PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 2)).mandatory(false);
    PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 3)).allowEdit(false);
    PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 3)).mandatory(false);
    PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 4)).allowEdit(false);
    PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 4)).mandatory(false);
    PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 5)).allowEdit(false);
    PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 5)).mandatory(false);

    while select itemGroupMandSetupTable
        where ItemGroupMandSetupTable.InventItemGroupId == InventTable::find(PurchLine.ItemId).ItemGroupId
    {
        if(itemGroupMandSetupTable.DimensionCode == SysDimension::Department)
        {
            if(!PurchLine.Dimension[1])
            {
                PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 1)).allowEdit(true);
                PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 1)).mandatory(true);
            }
        }

        if(itemGroupMandSetupTable.DimensionCode == SysDimension::Center)
        {
            if(!PurchLine.Dimension[2])
            {
                PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 2)).allowEdit(true);
                PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 2)).mandatory(true);
            }
        }

        if(itemGroupMandSetupTable.DimensionCode == SysDimension::Purpose)
        {
            if(!PurchLine.Dimension[3])
            {
                PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 3)).allowEdit(true);
                PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 3)).mandatory(true);
            }
        }

        if(itemGroupMandSetupTable.DimensionCode == SysDimension::Person)
        {
            if(!PurchLine.Dimension[4])
            {
                PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 4)).allowEdit(true);
                PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 4)).mandatory(true);
            }
        }
        if(itemGroupMandSetupTable.DimensionCode == SysDimension::Vehicle)
        {
            if(!PurchLine.Dimension[5])
            {
                PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 5)).allowEdit(true);
                PurchLine_ds.object(fieldid2ext(fieldnum(PurchLine, Dimension), 5)).mandatory(true);
            }
        }
    }
}