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, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TBillBaseForm(Owner,chWnd,MidCode,WhereStr)
{
   // AutoCtl=seWephCode;
    SetAutoCodeString(seWephCode,"ACM-025");
//    l_RsGoods=new TComResultSet(Handle,g_ClientHandle);
//    l_RsGoods->Open("select * from sdGoods order by GoodsCode","GoodsCode");
}
//---------------------------------------------------------------------------
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(Handle,scWephFmonth,"SELECT FcMonth FROM sdFc order by FcMonth","FcMonth");
    FillComboBox(Handle,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(Handle,seWepdLoc,"select LocName,LocCode from sdLoc","LocName","LocCode");
    FillComboBox(Handle,scWepdBatch,"SELECT BatchDesc,BatchCode FROM sdBatch order by BatchCode","BatchDesc","BatchCode");
    FillComboBox(Handle,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(Handle,scWephFmonth,"SELECT FcMonth FROM sdFc order by FcMonth","FcMonth");
	           EndWaitForm();
	           break;
           }
         case euSdPosType:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(Handle,scWephPosType,"Select PosTypeName,PosTypeCode from sdPosType order by PosTypeCode","PosTypeName","PosTypeCode");
	           EndWaitForm();
	           break;
           }
         case euSdLoc:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
             FillEdit(Handle,seWepdLoc,"select LocName,LocCode from sdLoc ","LocName","LocCode");
	           EndWaitForm();
	           break;
           }
         case euSdBatch:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(Handle,scWepdBatch,"SELECT BatchDesc,BatchCode FROM sdBatch order by BatchCode","BatchDesc","BatchCode");
	           EndWaitForm();
	           break;
           }
         case euSdWsr:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(Handle,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="0";
          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("WephCode");
        deWephDate->Text = GetHeadValue("WephDate");
        scWephFmonth->Text = GetHeadValue("WephFmonth");
        scWephPosType->LocateKey(GetHeadValue("WephPosType"));
        scWephState->LocateKey(GetHeadValue("WephState"));
        chkWephCheck->Checked = GetHeadValue("WephCheck")=="1";
        if(chkWephCheck->Checked)
           SetCheckToolbarStatus(true);
        else
           SetCheckToolbarStatus(false);
        labCheckDate->Caption = GetHeadValue("WephCheckDate");
        labChecker->Caption  = GetHeadValue("WephChecker");
        labWephUser->Caption = GetHeadValue("WephUser");
        memDesc->Text = GetHeadValue("WephDesc");
    }
    else
    {
        seWepdLine->Text = GetDetailValue("WepdLine");
        seWepdWo->Text = GetDetailValue("WepdWo");
        seWepdGoods->Text = GetDetailValue("WepdGoods");
//        l_RsGoods->LocateByKey(WideString(seWepdGoods->Text));
//        seWepdGoodsName->Text=GetGoodsValue(gtInitRs,"GoodsName");
        seWepdGoodsName->Text=GetDetailValue("WepdGoodsName");
        seWepdLoc->LocateKey(GetDetailValue("WepdLoc"));
        scWepdBatch->LocateKey(GetDetailValue("WepdBatch"));
        seWepdSod->Text = GetDetailValue("WepdSod");
        if(!seWepdSod->Text.IsEmpty())
           seWepdSodLine->Text = GetDetailValue("WepdSodLine");
        else
           seWepdSodLine->Text = "0";
        seWepdCQty->Text = GetDetailValue("WepdCQty");
        seWepdIQty->Text = GetDetailValue("WepdIQty");
        seWepdEQty->Text = GetDetailValue("WepdEQty");
        seWepdWQty->Text = GetDetailValue("WepdWQty");
        seWepdRQty->Text = GetDetailValue("WepdRQty");
        seWepdSQty->Text = GetDetailValue("WepdSQty");
        scWepdWsr->LocateKey(GetDetailValue("WepdWsr"));
        scWepdWsr->Text = scWepdWsr->ItemData[0];
        memWepdDesc->Text = GetDetailValue("WepdDesc");
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmWeph::SendDataToComObject(int Section)
{
    if(Section==1){
      SetHeadValue("WephCode",seWephCode->Text);
      SetHeadValue("WephDate",deWephDate->Text);
      SetHeadValue("WephFmonth",scWephFmonth->Text);
      SetHeadValue("WephPosType",scWephPosType->ItemData[1]);
      SetHeadValue("WephState",scWephState->ItemData[1]);
      SetHeadValue("WephDesc",memDesc->Text);
      SetHeadValue("WephUser",labWephUser->Caption);
    }
    else{
      SetDetailValue("WepdCode",seWephCode->Text);
      SetDetailValue("WepdLine",seWepdLine->Text);
      SetDetailValue("WepdWo",seWepdWo->Text);
      SetDetailValue("WepdGoods",seWepdGoods->Text);
      SetDetailValue("WepdGoodsName",seWepdGoodsName->Text);
      SetDetailValue("WepdLoc",seWepdLoc->ItemData[1]);
      SetDetailValue("WepdBatch",scWepdBatch->ItemData[1]);
      SetDetailValue("WepdCQty",seWepdCQty->Text);
      SetDetailValue("WepdSQty",seWepdSQty->Text);
      SetDetailValue("WepdWQty",seWepdWQty->Text);
      SetDetailValue("WepdWsr",scWepdWsr->ItemData[1]);
      SetDetailValue("WepdIQty",seWepdIQty->Text);
      SetDetailValue("WepdEQty",seWepdEQty->Text);
      SetDetailValue("WepdRQty",seWepdRQty->Text);
      SetDetailValue("WepdSod",seWepdSod->Text);
      if(Trim(seWepdSod->Text)!="")
         SetDetailValue("WepdSodLine",seWepdSod->Text);
      else
         SetDetailValue("WepdSodLine",0);
      SetDetailValue("WepdDesc",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("WepdLine")+
            "\t"+GetDetailValue("WepdWo")+