装箱单过发票

以下 总结了三种情况下的以装箱单过发票

1.简单的对某个销售订单开票

	public static str60 shipSalesOrder(str salesId)
	{
	    SalesFormLetter     clsSalesFormLetter;
	    SalesTable              salesTable;
	    str                         ret='';
	    System.Exception    err;
	    ;
	    try
	    {
	        //Get SalesTable
	        tSalesTable = SalesTable::find(salesId);
	
	        //Packing Slip update
	        clsSalesFormLetter = SalesFormLetter::construct(DocumentStatus::PackingSlip);
	        clsSalesFormLetter.update(salesTable,systemDateGet(),SalesUpdate::All,AccountOrder::None,NoYes::No,NoYes::No);
	        clsSalesFormLetter.checkCloseDialog(clsSalesFormLetter);
	
	       //Invoice update
	        clsSalesFormLetter = SalesFormLetter::construct(DocumentStatus::Invoice);
	        clsSalesFormLetter.update(salesTable,systemDateGet(),SalesUpdate::PackingSlip,AccountOrder::None,NoYes::No,NoYes::No);
	        clsSalesFormLetter= null;
	        ret = 'OK';
	        return ret;
	    }
	    catch (Exception::CLRError)
	    {
	        err = CLRInterop::getLastException();
	        ret = err.ToString();
	        return ret;
	    }
	}

2.合并装箱单批量开票（系统原有功能），可以根据某些条件筛选对装箱单开票

	static void RB_PostSalesInvoice(Args _args)
	{
	    SalesTable salesTable;
	    SalesFormLetter salesFormLetter;
	    Query query;
	    QueryRun queryRun;
	    QueryBuildDataSource qbds;
	
	    salesTable = SalesTable::find('CNMF_00001');
	    query = new Query(QueryStr(SalesUpdatePackingSlip));
	    qbds = query.dataSourceTable(tableNum(SalesLine));
	
	    // Build query range to find those lines which needs to be posted.
	
	    qbds.addRange(fieldNum(SalesLine, SalesId)).value('CNMF_00001');
	    qbds.addRange(fieldNum(SalesLine, SalesStatus)).value(queryValue(SalesStatus::Backorder));
	    qbds.addRange(fieldNum(SalesLine, itemId)).value('D0001');
	    queryRun = new queryRun(query);
	
	    salesFormLetter = SalesFormLetter::construct(DocumentStatus::Invoice);
	    salesFormLetter.chooseLinesQuery(queryRun);
	    salesFormLetter.update(salesTable);
	}

3. 多选装箱单以当前交货量的方法批量开票

 

class PostInvoiceBySettle
{             
    public   static void main(Args _args)
    {
        Test_SalesParmLine                salesParmLine, salesParmLineUpdate, salesParmLineTmp;
        Test_SalesSettleTable            salesSettleTable;
        FormDataSource                  formDataSource;
        SalesLine                       salesline, saleslineUpdate,salesLineTmp;
        SettlePostInvoiceTmp            settlePostInvoiceTmp;
        PostInvoiceBySettle                postInvoiceBySettle  = new PostInvoiceBySettle();
        SalesFormLetter                 salesFormLetter;
        SalesTable                      salesTable;
        SalesParmLine                   parmLine;
        Qty                             deliveryQty, settleQty,salesPrice, salesLineAmount;
        Query                            query;
        SysQueryRun                        queryRun;
        QueryBuildDataSource            qbds;
        container                       con, conParmLine;
        CustInvoiceJour                 custInvoiceJour;
        SalesParmUpdate                 salesParmUpdate;
        int                             i, conLenth;
        SalesId                         salesId;
        InventTransId                   inventTransId;        
        ;       

        if(!_args)
        {
            throw Error("@SYS22539");
        }

        if(_args.dataset() == tableNum(Test_SalesSettleTable))
        {
            salesSettleTable = _args.record();

            if(salesSettleTable)
            {                
                ttsbegin;
                         
                while  select sum(SettleQty), sum(SettleAmount) from salesParmLineTmp
                    group by   salesParmLineTmp.InventTransId
                    where salesParmLineTmp.SalesSettlementId   == salesSettleTable.SalesSettlementId
                     &&   salesParmLineTmp.SettledQty          != salesParmLineTmp.DeliverNow
                {                   
                        
                    salesline   = SalesLine::findInventTransId(salesParmLineTmp.InventTransId, true);
                    
                    if(salesline)
                    {
                        salesline.SalesDeliverNow       = salesParmLineTmp.SettleQty;
                        salesline.modifiedField(fieldNum(SalesLine, SalesDeliverNow));
                        salesline.update();
                    }
                    
                    if(!salesId || salesId != salesParmLine.OrigSalesId)
                    {
                        con           += salesParmLine.OrigSalesId;
                    }
                    salesId         = salesParmLine.OrigSalesId;
                }

                query   = new  Query(queryStr(SalesUpdate));
                qbds    = query.dataSourceTable(tableNum(SalesTable));
                qbds.addRange(fieldNum(SalesTable, SalesId)).value(con2Str(con));

                queryRun  = new  SysQueryRun(query);
        
                salesFormLetter =  SalesFormLetter::construct(DocumentStatus::Invoice);
                salesFormLetter.chooseLinesQuery(queryRun);
                salesFormLetter.transDate (systemDateGet());
                salesFormLetter.specQty (SalesUpdate::DeliverNow);
                salesFormLetter.printFormLetter(false);
                salesFormLetter.chooseLines(false, true);
                salesFormLetter.reArrangeNow(true);
                salesFormLetter.sumBy(AccountOrder::Account);
                salesParmUpdate = salesFormLetter.salesParmUpdate();
                salesFormLetter.run();
                                                              
                ttscommit;

                select   firstonly custInvoiceJour
                    where custInvoiceJour.ParmId  ==  salesParmUpdate.ParmId;

                if(custInvoiceJour)
                {
                    ttsbegin;
                    
                    salesSettleTable.selectForUpdate(true);
                    salesSettleTable.InvoiceId  = salesSettleTable.InvoiceId ? (salesSettleTable.InvoiceId + ',' + custInvoiceJour.InvoiceId) : custInvoiceJour.InvoiceId;
                    salesSettleTable.doUpdate();
                   
                    while select settlePostInvoiceTmp
                        where settlePostInvoiceTmp.InventTransId      
                    {   
                        saleslineUpdate   = SalesLine::findInventTransId(settlePostInvoiceTmp.InventTransId, true);

                        if(saleslineUpdate)
                        {
                            saleslineUpdate.SalesDeliverNow     = settlePostInvoiceTmp.DeliveryQty;
                            salesline.modifiedField(fieldNum(SalesLine, SalesDeliverNow));
                            saleslineUpdate.update();
                        }             
                    }                                 
                    ttscommit;
                }
            }           
        }      
    }
}

 

转载于:https://www.cnblogs.com/sunny-technology/p/11585465.html