装箱单过发票

最新推荐文章于 2024-07-02 15:51:23 发布

weixin_30746117

最新推荐文章于 2024-07-02 15:51:23 发布

阅读量756

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/sunny-technology/p/11585465.html

本文详细介绍了三种批量开票的处理方法：基于单一销售订单的发票生成、根据筛选条件对装箱单进行合并开票以及针对多个装箱单按当前交货量批量开票的过程。通过具体的代码实现，展示了如何在不同场景下高效完成销售订单到发票的转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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;
                }
            }           
        }      
    }
}