weph.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#include <vcl.h>
#include "Weph.h"
#include "Pmu.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "BillBaseForm"
#pragma link "DateEdit"
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"

TfrmWeph *frmWeph;
//---------------------------------------------------------------------------
__fastcall TfrmWeph::TfrmWeph(TComponent* Owner)
        : TBillBaseForm(Owner,euSdWeph,"")
{
    AutoCtl=seWephCode;
}
//---------------------------------------------------------------------------
void __fastcall TfrmWeph::InitEditControl()
{
    //Weph
    ClientGroup->AddComponent(1,false,false,true,fpWepHead,fpWepHead->Name);
    ClientGroup->AddComponent(1,false,true,false,seWephCode,seWephCode->Name);
    ClientGroup->AddComponent(1,true,true,true,chkWephCheck,chkWephCheck->Name);
    ClientGroup->AddComponent(1,true,true,true,scWephFmonth,scWephFmonth->Name);
    ClientGroup->AddComponent(1,true,true,true,scWephState,scWephState->Name);
    //Wepd
    ClientGroup->AddComponent(2,false,false,true,fpWepDetail,fpWepDetail->Name);
    ClientGroup->AddComponent(2,false,false,false,btnCancel,btnCancel->Name);
    ClientGroup->AddComponent(2,false,true,true,btnOK,btnOK->Name);
    ClientGroup->AddComponent(2,false,true,true,seWepdWo,seWepdWo->Name);
    ClientGroup->AddComponent(2,true,true,true,seWepdGoods,seWepdGoods->Name);
    ClientGroup->AddComponent(2,true,true,true,seWepdGoodsName,seWepdGoodsName->Name);
    ClientGroup->AddComponent(2,true,true,true,seWepdSod,seWepdSod->Name);
    ClientGroup->AddComponent(2,true,true,true,seWepdSodLine,seWepdSodLine->Name);
    ClientGroup->AddComponent(2,true,true,true,scWepdBatch,scWepdBatch->Name);
    ClientGroup->AddComponent(2,true,true,false,sbPmu,sbPmu->Name);
    ClientGroup->AddComponent(2,true,true,true,seWepdIQty,seWepdIQty->Name);
    ClientGroup->AddComponent(2,true,true,true,seWepdEQty,seWepdEQty->Name);
    ClientGroup->AddComponent(2,true,true,true,seWepdRQty,seWepdRQty->Name);
    //Weph
    FillComboBox(scWephFmonth,"SELECT FcMonth FROM sdFc order by FcMonth","FcMonth");
    FillComboBox(scWephPosType,"Select PosTypeName,PosTypeCode from sdPosType where PosTypeFlg=3 order by PosTypeCode","PosTypeName","PosTypeCode");
    scWephState->ClearAll();
    scWephState->AddItems("1-已登记","1");
    scWephState->AddItems("2-已审核","2");
    scWephState->AddItems("3-已入库","3");
    //Wepd
    FillEdit(seWepdLoc,"select LocName,LocCode from sdLoc","LocName","LocCode");
    FillComboBox(scWepdBatch,"SELECT BatchDesc,BatchCode FROM sdBatch order by BatchCode","BatchDesc","BatchCode");
    FillComboBox(scWepdWsr,"select WsrDesc,WsrCode from sdWsr","WsrDesc","WsrCode");
}
//---------------------------------------------------------------------------
void __fastcall TfrmWeph::RefreshUpdateData(int MsgSrc,int MsgType)
{
    try
    {
       switch(MsgSrc)
       {
         case euSdFc:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(scWephFmonth,"SELECT FcMonth FROM sdFc order by FcMonth","FcMonth");
	           EndWaitForm();
	           break;
           }
         case euSdPosType:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(scWephPosType,"Select PosTypeName,PosTypeCode from sdPosType order by PosTypeCode","PosTypeName","PosTypeCode");
	           EndWaitForm();
	           break;
           }
         case euSdLoc:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
             FillEdit(seWepdLoc,"select LocName,LocCode from sdLoc ","LocName","LocCode");
	           EndWaitForm();
	           break;
           }
         case euSdBatch:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(scWepdBatch,"SELECT BatchDesc,BatchCode FROM sdBatch order by BatchCode","BatchDesc","BatchCode");
	           EndWaitForm();
	           break;
           }
         case euSdWsr:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(scWepdWsr,"select WsrDesc,WsrCode from sdWsr","WsrDesc","WsrCode");
	           EndWaitForm();
	           break;
           }
         default:
           break;
       }
    }
    __finally
    {
        //AddCode;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmWeph::ClearControl(int Section,bool BringToNext)
{
    if(Section==1){
       if(!BringToNext){
          seWephCode->Text = "";
          deWephDate->Text = g_sdCurDate;
          scWephFmonth->Text = g_sdMMonth;
          scWephPosType->ItemIndex = -1;
          scWephPosType->Text = "";
          scWephState->ItemIndex = 0;
          chkWephCheck->Checked = false;
          labCheckDate->Caption = "";
          labChecker->Caption = "";
          labWephUser->Caption = g_sdUserCode;
          memDesc->Text ="";
       }
       sgWeph->RowCount=1;
    }
    else if(Section==2){
       if(!BringToNext){
          seWepdLine->Text =AnsiString(comServer->ItemCount+1);
          seWepdWo->Text="";
          seWepdGoods->Text="";
          seWepdGoodsName->Text="";
          seWepdLoc->ItemIndex=-1;
          scWepdBatch->ItemIndex=-1;
          seWepdSod->Text ="";
          seWepdSodLine->Text="";
          seWepdCQty->Text ="0";  //完工数量
          seWepdIQty->Text ="0";
          seWepdEQty->Text ="0";
          seWepdWQty->Text ="0";
          seWepdRQty->Text ="0";
          seWepdSQty->Text ="0";
          scWepdWsr->ItemIndex =-1;
          memWepdDesc->Text ="";
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmWeph::GetDataFromComObject(int Section)
{
    if(Section==1)
    {
        seWephCode->Text = GetHeadValue(fiWephCode);
        deWephDate->Text = GetHeadValue(fiWephDate);
        scWephFmonth->Text = GetHeadValue(fiWephFmonth);
        scWephPosType->LocateKey(GetHeadValue(fiWephPosType));
        scWephState->LocateKey(GetHeadValue(fiWephState));
        chkWephCheck->Checked = GetHeadValue(fiWephCheck)=="1";
        if(chkWephCheck->Checked)
           SetCheckToolbarStatus(true);
        else
           SetCheckToolbarStatus(false);
        labCheckDate->Caption = GetHeadValue(fiWephCheckDate);
        labChecker->Caption  = GetHeadValue(fiWephChecker);
        labWephUser->Caption = GetHeadValue(fiWephUser);
        memDesc->Text = GetHeadValue(fiWephDesc);
    }
    else
    {
        seWepdLine->Text = GetDetailValue(fiWepdLine);
        seWepdWo->Text = GetDetailValue(fiWepdWo);
        seWepdGoods->Text = GetDetailValue(fiWepdGoods);
        g_sdRsGoods->LocateByKey(WideString(seWepdGoods->Text));
        seWepdGoodsName->Text=GetGoodsValue("GoodsName");
        seWepdLoc->LocateKey(GetDetailValue(fiWepdLoc));
        scWepdBatch->LocateKey(GetDetailValue(fiWepdBatch));
        seWepdSod->Text = GetDetailValue(fiWepdSod);
        if(!seWepdSod->Text.IsEmpty())
           seWepdSodLine->Text = GetDetailValue(fiWepdSodLine);
        else
           seWepdSodLine->Text = "0";
        seWepdCQty->Text = GetDetailValue(fiWepdCQty);
        seWepdIQty->Text = GetDetailValue(fiWepdIQty);
        seWepdEQty->Text = GetDetailValue(fiWepdEQty);
        seWepdWQty->Text = GetDetailValue(fiWepdWQty);
        seWepdRQty->Text = GetDetailValue(fiWepdRQty);
        seWepdSQty->Text = GetDetailValue(fiWepdSQty);
        scWepdWsr->LocateKey(GetDetailValue(fiWepdWsr));
        scWepdWsr->Text = scWepdWsr->ItemData[0];
        memWepdDesc->Text = GetDetailValue(fiWepdDesc);
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmWeph::SendDataToComObject(int Section)
{
    if(Section==1){
      SetHeadValue(fiWephCode,seWephCode->Text);
      SetHeadValue(fiWephDate,deWephDate->Text);
      SetHeadValue(fiWephFmonth,scWephFmonth->Text);
      SetHeadValue(fiWephPosType,scWephPosType->ItemData[1]);
      SetHeadValue(fiWephState,scWephState->ItemData[1]);
      SetHeadValue(fiWephDesc,memDesc->Text);
      SetHeadValue(fiWephUser,labWephUser->Caption);
    }
    else{
      SetDetailValue(fiWepdCode,seWephCode->Text);
      SetDetailValue(fiWepdLine,seWepdLine->Text);
      SetDetailValue(fiWepdWo,seWepdWo->Text);
      SetDetailValue(fiWepdLoc,seWepdLoc->ItemData[1]);
      SetDetailValue(fiWepdBatch,scWepdBatch->ItemData[1]);
      SetDetailValue(fiWepdCQty,seWepdCQty->Text);
      SetDetailValue(fiWepdSQty,seWepdSQty->Text);
      SetDetailValue(fiWepdWQty,seWepdWQty->Text);
      SetDetailValue(fiWepdWsr,scWepdWsr->ItemData[1]);      
      /*
      SetDetailValue(fiWepdIQty,seWepdIQty->Text);
      SetDetailValue(fiWepdEQty,seWepdEQty->Text);
      SetDetailValue(fiWepdRQty,seWepdRQty->Text);
      */
      SetDetailValue(fiWepdDesc,memWepdDesc->Text);
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmWeph::WaitUserInput(int Section)
{
   if(Section==1){
      if(CurrentState==caAddHead)
         seWephCode->SetFocus();
      else
         deWephDate->SetFocus();
   }
   else
   {
      ChangeToBrowseState(false);
      if(seWepdLine->Enabled)
         seWepdLine->SetFocus();
   }
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmWeph::GetDataToGrid()
{
    AnsiString ItemStr;
    ItemStr=GetDetailValue(fiWepdLine)+
            "\t"+GetDetailValue(fiWepdWo)+
            "\t"+GetDetailValue(fiWepdGoods)+