ChangeCompany X++

Changecompany kullanımı; bir şirket üzerindeyken belirlediğiniz farklı şirketlerden de data çekmenizde yardımcı olur. Aşağıdaki örneği inceleyebilirsiniz.

static void MAA__EInvoiceActiveCustVendParties_2(Args _args) 
{
    EInvoiceActiveCustVendParties   EInvoiceActiveCustVendParties;
    CustTable                       custTable;
    VendTable                       vendTable;

    ttsBegin;

    ChangeCompany("TRS")
    {
        EInvoiceActiveCustVendParties = null;

        while select forUpdate EInvoiceActiveCustVendParties
        {
            custTable = CustTable::find(EInvoiceActiveCustVendParties.CustAccount);
            if(custTable.TaxNumberType_TR == TaxNumberType_TR::TCIdentityID)
            {
                EInvoiceActiveCustVendParties.FirstName = custTable.FirstName;
                EInvoiceActiveCustVendParties.LastName  = custTable.LastName;
                EInvoiceActiveCustVendParties.Update();
            }

            vendTable = VendTable::find(EInvoiceActiveCustVendParties.VendAccount);
            if(vendTable.TaxNumberType_TR == TaxNumberType_TR::TCIdentityID)
            {
                EInvoiceActiveCustVendParties.FirstName = vendTable.FirstName;
                EInvoiceActiveCustVendParties.LastName  = vendTable.LastName;
                EInvoiceActiveCustVendParties.Update();
            }
        }
    }

    ChangeCompany("TAS")
    {
        EInvoiceActiveCustVendParties = null;

        while select forUpdate EInvoiceActiveCustVendParties
        {
            custTable = CustTable::find(EInvoiceActiveCustVendParties.CustAccount);
            if(custTable.TaxNumberType_TR == TaxNumberType_TR::TCIdentityID)
            {
                EInvoiceActiveCustVendParties.FirstName = custTable.FirstName;
                EInvoiceActiveCustVendParties.LastName  = custTable.LastName;
                EInvoiceActiveCustVendParties.Update();
            }

            vendTable = VendTable::find(EInvoiceActiveCustVendParties.VendAccount);
            if(vendTable.TaxNumberType_TR == TaxNumberType_TR::TCIdentityID)
            {
                EInvoiceActiveCustVendParties.FirstName = vendTable.FirstName;
                EInvoiceActiveCustVendParties.LastName  = vendTable.LastName;
                EInvoiceActiveCustVendParties.Update();
            }
        }
    }

    ttsCommit;
}