static void CreateAndPostSales(Args _args)

{

    List                        il = new List(Types::Record);

    SalesTable                  localSalesTable;

    SalesLine                   localSalesLine;

    SalesFormLetter             salesFormLetter;

    TmpFrmVirtual               localTmpFrmVirtual;

    CustPackingSlipJour         localCustPackingSlipJour;

    ;

    ttsbegin;

    localSalesTable.clear();

    localSalesTable.initValue();

    localSalesTable.CustAccount = "C-00001";

    localSalesTable.initFromCustTable();

    localSalesTable.SalesId = NumberSeq::newGetNumFromCode("SONUM").num();

    localSalesTable.SalesPoolId = "NOR";

    localSalesTable.ReceiptDateConfirmed  = systemDateGet();

    localSalesTable.ShippingDateConfirmed = systemDateGet();

    localSalesTable.CurrencyCode = "RMB";

    localSalesTable.insert();

    localSalesLine.clear();

    localSalesLine.initValue();

    localSalesLine.initFromSalesTable(localSalesTable);

    localSalesLine.ItemId           = "100XA00125";

    localSalesLine.initFromInventTable(InventTable::find(localSalesLine.ItemId));

    localSalesLine.SalesQty         = ;

    localSalesLine.SalesUnit        = InventTableModule::find(localSalesLine.ItemId,ModuleInventPurchSales::Invent).UnitId;

    localSalesLine.THK_2ndSalesQty  = ;

    localSalesLine.THK_2ndSalesUnit = InventTableModule::find(localSalesLine.ItemId,ModuleInventPurchSales::Invent).THK_2ndUnit;

    localSalesLine.SalesPrice       = ;

    localSalesLine.InventDimId      = "T06094862";

    localSalesLine.LineAmount       = localSalesLine.calcLineAmount();

    localSalesLine.ReceiptDateConfirmed     = systemDateGet();

    localSalesLine.ShippingDateConfirmed    = systemDateGet();

    localSalesLine.createLine(NoYes::No,             // Validate

                              NoYes::No,             // initFromSalesTable

                              NoYes::No,             // initFromInventTable

                              NoYes::Yes,            // calcInventQty

                              NoYes::No,             // searchMarkup

                              NoYes::No              // searchPrice

                              );

    info(strfmt("Sales %1 is created", localSalesTable.SalesId),'', SysInfoAction_TableField::newBuffer(localSalesTable));

    salesFormLetter = SalesFormLetter::construct(DocumentStatus::PackingSlip);

    salesFormLetter.getLast();

    salesFormLetter.allowEmptyTable(salesFormLetter.initAllowEmptyTable(true));

    salesFormLetter.transDate(systemdateget());

    salesFormLetter.update(localSalesTable, systemdateget(), SalesUpdate::All, AccountOrder::None, false, false);

    salesFormLetter.runShipCarrier();

    while select localCustPackingSlipJour

        where localCustPackingSlipJour.SalesId == localSalesTable.SalesId

    {

        localTmpFrmVirtual.clear();

        localTmpFrmVirtual.TableNum = tableNum(custPackingSlipJour);

        localTmpFrmVirtual.RecordNo = localCustPackingSlipJour.recid;

        localTmpFrmVirtual.insert();

        il.addEnd(localTmpFrmVirtual);

    }

    salesFormLetter = SalesFormLetter::construct(DocumentStatus::Invoice);

    salesFormLetter.getLast();

    salesFormLetter.allowEmptyTable(salesFormLetter.initAllowEmptyTable(true));

    salesFormLetter.transDate(systemdateget());

    salesFormLetter.setNumAndVoucher(NumberSeq::newGetNumFromCode("SOINV11").num(),NumberSeq::newGetNumFromCode("SOINV11").num());

    salesFormLetter.update(localSalesTable, systemdateget(), SalesUpdate::PackingSlip, AccountOrder::Account, false, false,false,false,il.pack());

    salesFormLetter.runShipCarrier();

    ttscommit;

}