Creating sales orders with the SalesAutoCreate class

这个例子来自Google，有点绕，通过类SalesAutoCreate和中间表实现销售订单导入，中间表主要储存销售订单行关键信息。

 

Many projects use an interface to import their sales orders, because of this a SalesAutoCreate class was created. This class is easily extendable and customizable.The first thing to do is designing a buffer table, like this one for.

After this we can start extending a new class from the SalesAutoCreate class and modifying the construct on the SalesAutoCreateClass .

class TSTSalesAutoCreate extends SalesAutoCreate
{
    TSTSalesImport  TSTSalesImport;
}
static SalesAutoCreate construct(Common       buffer = null,
                                 Object       object = null,
                                 Common       buffer2 = null)　　//Factory method, instance the class
{
    switch (buffer.TableId)
    {
        case tablenum(SalesCreateReleaseOrderLineTmp)     : return new SalesAutoCreate_ReleaseOrder(buffer,object,buffer2);
        case tablenum(PurchLine)                          : return new SalesAutoCreate_ProjPurchLine(buffer,object);
        case tablenum(SalesBasketLine)                    : return new SalesAutoCreate_Basket(buffer,object);
        //-> TST
        case tablenum(TSTSalesImport)                     : return new TSTSalesAutoCreate(buffer,object);　　//Instance the class
        //<- TST
    }

 　　throw error(strfmt("@SYS23419",tableid2name(buffer.TableId)));
}

After the construct your buffer record should be passed in the new or a parm method could also be an option.

void new(Common _initFromBuffer, Object _callBackClass)
{
    ;

    super(_initFromBuffer,_callBackClass);
 
    TSTSalesImport  = _initFromBuffer;
}

When extending from the SalesAutoCreate class some methods must be implemented:

• setCust
• salesType
• recordExist
• nextRecord
• invoiceAccount

In my example I’ve implemented them like this:

protected void setCust()
{
    ;

    custTable   = CustTable::find(TSTSalesImport.CustAccount);
 
    if(!custTable)
    {
        throw error("Custtable not found!");
    }
}
 
protected SalesType salesType()
{
    ;

    return SalesType::Sales;
}
 
protected boolean recordExist()
{
    ;

    return TSTSalesImport.RecId != 0;
}
 
protected void nextRecord()
{
   ;

   next TSTSalesImport;
}
 
protected CustInvoiceAccount invoiceAccount()
{
    CustInvoiceAccount  ret = custTable.InvoiceAccount;
    ;
 
    if(!ret)
    {
        ret = custTable.AccountNum;
    }
 
    return ret;
}

The next step is setting our table and line fields by overriding the setSalesTable and setSalesLine methods and make sure that you always call the super first. Notice that you need to call the createSalesTable and createSalesLine to do the insert.

protected void setSalesTable()
{
    ;

    super();
 
    this.createSalesTable();
}
 
protected void setSalesLine()
{
    ;

    super();
 
    salesLine.ItemId    = TSTSalesImport.ItemId;
    salesLine.itemIdChanged();
    salesLine.SalesQty  = TSTSalesImport.SalesOrderedQty;
 
    this.createSalesLine();
}

you should have a class looking like this.

the final step is to call the logic from a job or a RunBaseBatch class, make sure that you select records on the same tier as the nextRecord will run or else it will fail. Preferably on the server tier.

select forupdate TSTSalesImport;
 
SalesAutoCreate = SalesAutoCreate::construct(TSTSalesImport);
SalesAutoCreate.create();

This example lacks some validation whether the record has already been processed or not, so it will created the same records every time it is called. You could implement your own method on the SalesAutoCreate class, call it from the create method and override it on your custom class, like this.

void  create()
{
    #OCCRetryCount
    try
    {
        setprefix("@SYS55110");
        ttsbegin;
         while (this.recordExist())
        {
             this.setCust();
            setprefix(#PreFixField(CustTable,AccountNum));
             this.setSalesTable();
            this.setSalesLine();
            setprefix(#PreFixField(SalesLine,ItemId));
            //-> TST
            this.deleteProcessed();
            //<- TST
            this.nextRecord();
        }
        this.endUpdate();

       ttscommit;
    }
    catch (Exception::Deadlock)
    {
        retry;
    }
    catch (Exception::UpdateConflict)
    {
        if (appl.ttsLevel() == 0)
        {
            if (xSession::currentRetryCount() >= #RetryNum)
            {
                throw Exception::UpdateConflictNotRecovered;
            }
            else
            {
                retry;
            }
        }
        else
        {
            throw Exception::UpdateConflict;
        }
    }
 
}
 
//SalesAutoCreate
protected void deleteProcessed()
{
}
 
//TSTSalesImport
protected void deleteProcessed()
{;
    super();
 
    TSTSalesImport.selectForUpdate(true);
    TSTSalesImport.delete();
}