pickup.cpp

一个以前收集的基于C/S架构的ERP客户端源代码

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Pickup.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "BillBaseForm"
#pragma link "fpanel"
#pragma link "DateEdit"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmPickup *frmPickup;
//---------------------------------------------------------------------------
__fastcall TfrmPickup::TfrmPickup(TComponent* Owner)
        : TBillBaseForm(Owner,euSdPickuph,")
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmPickup::InitEditControl()
{
    ClientGroup->AddComponent(1,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(1,false,true,true,sePickuphCode,sePickuphCode->Name);
    ClientGroup->AddComponent(2,false,false,true,FloatPanel2,FloatPanel2->Name);
    ClientGroup->AddComponent(1,false,true,true,scPickuphStockupCode,scPickuphStockupCode->Name);
   //Pickuph
    FillComboWithSQL(scPickuphSoCode,"SELECT SohCode FROM sdSoh where SohCheck=1","SohCode","",0);
    FillComboWithSQL(scPickuphUserCode,"SELECT UserCode FROM sdUser","UserCode","",0);
    FillComboWithSQL(scPickuphStockupCode,"SELECT StockuphCode FROM SdStockuph","StockuphCode","",0);
    //Pickupd
    FillComboWithSQL(scPickupdLocCode,"SELECT LocCode FROM sdLoc","LocCode","",0);
    FillComboWithSQL(scPickupdTransCode,"SELECT TransModeCode FROM SdTransMode","TransModeCode","",0);
    FillComboWithSQL(scPickupdSettleCode,"SELECT SettleModeCode FROM SdSettleMode","SettleModeCode","",0);
}


void __fastcall TfrmPickup:: ClearControl(int Section, bool BringToNext)
{
    if(!BringToNext)
    switch(Section)
    {
    case 1:
        sePickuphCode->Text="";
        scPickuphType->Text="";
        scPickuphSoCode->Text="";
        scPickuphStockupCode->Text="";
        scPickuphUserCode->Text="";
        dePickuphDate->Text="";
        dePickuphSysDate->Text="";
        cbPickuphCheck->Checked=false;
        scPickuphChecker->Text="";
        sePickuphDesc->Text="";
        //
        sgPickup->RowCount=1;
       break;
    case 2:
         sePickupdLine->Text="";
         sePickupdSodLine->Text="";
         sePickupdStockupLine->Text="";
         sePickupdBatchCode->Text="";
         sePickupdGoodsCode->Text="";
         sePickupdGoodsName->Text="";
         sePickupdUnitCode->Text="";
         sePickupdEnrate->Text="";
         sePickupdQty->Text="";
         scPickupdLocCode->Text="";
         scPickupdTransCode->Text="";
         scPickupdSettleCode->Text="";
      break;
     }
}

void __fastcall TfrmPickup::GetDataFromComObject(int Section)
{
    switch(Section)
    {
    case 1:
         sePickuphCode->Text=GetHeadValue("PickuphCode);
         scPickuphType->Text=GetHeadValue("PickuphType);
         scPickuphSoCode->Text=GetHeadValue("PickuphSoCode);
         scPickuphStockupCode->Text=GetHeadValue("PickuphStockupCode);
         scPickuphUserCode->Text=GetHeadValue("PickuphUserCode);
         dePickuphDate->Text=GetHeadValue("PickuphDate);
         dePickuphSysDate->Text=GetHeadValue("PickuphSysDate);
         cbPickuphCheck->Checked=(GetHeadValue("PickuphCheck)=="1"?true:false);
         scPickuphChecker->Text=GetHeadValue("PickuphChecker);
         sePickuphDesc->Text=GetHeadValue("PickuphDesc);
         break;
    case 2:
         sePickupdLine->Text=GetDetailValue("PickupdLine);
         sePickupdSodLine->Text=GetDetailValue("PickupdSodLine);
         sePickupdStockupLine->Text=GetDetailValue("PickupdStockupLine);
         sePickupdBatchCode->Text=GetDetailValue("PickupdBatchCode);
         sePickupdGoodsCode->Text=GetDetailValue("PickupdGoodsCode);
         sePickupdGoodsName->Text=GetDetailValue("PickupdGoodsName);
         sePickupdUnitCode->Text=GetDetailValue("PickupdUnitCode);
         sePickupdEnrate->Text=GetDetailValue("PickupdEnrate);
         sePickupdQty->Text=GetDetailValue("PickupdQty);
         scPickupdLocCode->Text=GetDetailValue("PickupdLocCode);
         scPickupdTransCode->Text=GetDetailValue("PickupdTransCode);
         scPickupdSettleCode->Text=GetDetailValue("PickupdSettleCode);
         AnsiString SQLText="select StockupdQty,stockupdPickupQty from sdStockupd where StockupdCode='"
                            +Trim(scPickuphStockupCode->Text)+"' and StockupdLine='"
                            +Trim(sePickupdStockupLine->Text)+"'";
         FillEditWithSQL(seStockupdQty,SQLText,"StockupdQty");
         FillEditWithSQL(seStockupdPickupQty,SQLText,"StockupdPickupQty");
         break;
    }
}


void __fastcall TfrmPickup::SendDataToComObject(int Section)
{
        switch(Section)
        {
        case 1:
              SetHeadValue(fiPickuphCode,sePickuphCode->Text );
              SetHeadValue(fiPickuphSoCode,scPickuphSoCode->Text );
              SetHeadValue(fiPickuphType,scPickuphType->Text);
              SetHeadValue(fiPickuphStockupCode,scPickuphStockupCode->Text);
              SetHeadValue(fiPickuphUserCode,scPickuphUserCode->Text );
              SetHeadValue(fiPickuphDate,dePickuphDate->Text );
              SetHeadValue(fiPickuphSysDate,dePickuphSysDate->Text );
              SetHeadValue(fiPickuphCheck,cbPickuphCheck->Checked?"1":"0" );
              SetHeadValue(fiPickuphChecker,scPickuphChecker->Text );
              SetHeadValue(fiPickuphDesc,sePickuphDesc->Text );
             break;
        case 2:
             SetDetailValue(fiPickupdLine,sePickupdLine->Text);
             //提货单号:
             SetDetailValue(fiPickupdCode,sePickuphCode->Text);
             //销售订单号:
             SetDetailValue(fiPickupdSoCode,scPickuphSoCode->Text);
             //备货单号：
             SetDetailValue(fiPickupdStockupCode,scPickuphStockupCode->Text);

             SetDetailValue(fiPickupdSodLine,sePickupdSodLine->Text);
             SetDetailValue(fiPickupdStockupLine,sePickupdStockupLine->Text);
             SetDetailValue(fiPickupdGoodsCode,sePickupdGoodsCode->Text);
             SetDetailValue(fiPickupdGoodsName,sePickupdGoodsName->Text);
             SetDetailValue(fiPickupdUnitCode,sePickupdUnitCode->Text);
             SetDetailValue(fiPickupdEnrate,sePickupdEnrate->Text);
             SetDetailValue(fiPickupdQty,sePickupdQty->Text);
             SetDetailValue(fiPickupdLocCode,scPickupdLocCode->Text);
             SetDetailValue(fiPickupdBatchCode,sePickupdBatchCode->Text);
             SetDetailValue(fiPickupdTransCode,scPickupdTransCode->Text);
             SetDetailValue(fiPickupdSettleCode,scPickupdSettleCode->Text);
             break;
       }
}


void __fastcall TfrmPickup::WaitUserInput(int Section)
{
       if (Section ==1)
          sePickuphCode->SetFocus();
       else
       {
          sgPickup->Visible=false;
          FloatPanel2->Visible=true;
          sePickupdLine->SetFocus();
         }

}


void __fastcall TfrmPickup::RefreshGridData(int mAction)
{
        int i;
        AnsiString ItemStr;
        switch(mAction)
        {
           case 0:
             ItemStr="\t"+GetDetailValue("PickupdLine")+"\t"+GetDetailValue("PickupdStockupLine)+"\t"
                + GetDetailValue("PickupdGoodsCode")+"\t"+GetDetailValue("PickupdUnitCode)+"\t"
                +GetDetailValue("PickupdQty")+"\t"+GetDetailValue("PickupdBatchCode)+"\t"
                +GetDetailValue("PickupdGoodsName);
             sgPickup->AddItem(ItemStr);
             break;
           case 1:
             i=sgPickup->Row;
             ItemStr="\t"+GetDetailValue("PickupdLine")+"\t"+GetDetailValue("PickupdStockupLine)+"\t"
                + GetDetailValue("PickupdGoodsCode")+"\t"+GetDetailValue("PickupdUnitCode)+"\t"
                +GetDetailValue("PickupdQty")+"\t"+GetDetailValue("PickupdBatchCode)+"\t"
                +GetDetailValue("PickupdGoodsName);
             sgPickup->RemoveItem(i);
             sgPickup->AddItem(ItemStr,i);
             break;
           case 2:
             sgPickup->RemoveItem(sgPickup->Row);
        }

}


void __fastcall TfrmPickup::DisplayBill()
{
        GetDataFromComObject(1);
        FillGridWithData();
        if (sgPickup->RowCount >1)
        {
           AnsiString Keystr;
           Keystr=sgPickup->Cells[1][sgPickup->Row];
           comServer->LocateItemByKey(WideString(Keystr));
           GetDataFromComObject(2);
        }

}


void __fastcall TfrmPickup::GetBill(AnsiString BillID)
{
       int iRow;

       comServer->Find(WideString("PickuphCode='"+BillID+"'"),&iRow);
       if (iRow>0)      //FIND THIS BILL
       {
           DisplayBill();
       }
       else
         if (ShowMessageWindow("在数据库中没有查到记录："+BillID+",要增加吗？",mwsConfirmation)==IDYES)
           {
               AddHeadRecord();
           }

}