pdrh.cpp

速达开源ERP系统

#include <vcl.h>
#include "Pdrh.h"
#include "wmu.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"

TfrmPdrh *frmPdrh;
//---------------------------------------------------------------------------
__fastcall TfrmPdrh::TfrmPdrh(TComponent* Owner)
        : TBillBaseForm(Owner,euSdPdrh,"")
{
    AutoCtl=sePdrhCode;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::InitEditControl()
{
    ClientGroup->AddComponent(1,false,false,true,fpPdrHead,fpPdrHead->Name);
    ClientGroup->AddComponent(1,false,true,false,sePdrhCode,sePdrhCode->Name);
    ClientGroup->AddComponent(1,true,true,true,chkPdrhCheck,chkPdrhCheck->Name);
    ClientGroup->AddComponent(1,true,true,true,scPdrhFmonth,scPdrhFmonth->Name);

    ClientGroup->AddComponent(2,false,false,true,fpPdrDetail,fpPdrDetail->Name);
    ClientGroup->AddComponent(2,false,false,false,btnCancel,btnCancel->Name);
    ClientGroup->AddComponent(2,false,true,true,btnOK,btnOK->Name);
    ClientGroup->AddComponent(2,false,false,true,sePdrdLine,sePdrdLine->Name);
    ClientGroup->AddComponent(2,true,true,true,sePdrdGoods,sePdrdGoods->Name);
    ClientGroup->AddComponent(2,true,true,true,sePdrdGoodsName,sePdrdGoodsName->Name);
    ClientGroup->AddComponent(2,true,true,true,sePdrdEQty,sePdrdEQty->Name);
    //ClientGroup->AddComponent(2,true,true,true,sePdrdWQty,sePdrdWQty->Name);
    ClientGroup->AddComponent(2,true,true,true,sePdrdRQty,sePdrdRQty->Name);
    //ClientGroup->AddComponent(2,true,true,true,sePdrdSQty,sePdrdSQty->Name);
    ClientGroup->AddComponent(2,true,true,false,sbWmu,sbWmu->Name);
    ClientGroup->AddComponent(2,true,true,true,sePdrdRwt,sePdrdRwt->Name);

    //Weph
    FillComboBox(scPdrhFmonth,"select FcMonth FROM sdFc order by FcMonth","FcMonth");
    //Wepd
    FillEdit(sePdrdProcess,"select ProcessCode,ProcessName from sdProcess order by ProcessCode","ProcessName","ProcessCode");
    FillComboBox(scPdrdPsr,"select PsrCode+space(1)+'('+PsrDesc+')' memo,Psrcode from sdPsr order by PsrCode","memo","PsrCode");
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::RefreshUpdateData(int MsgSrc,int MsgType)
{
    try
    {
       switch (MsgSrc)
       {
         case euSdFc:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(scPdrhFmonth,"SELECT FcMonth FROM sdFc order by FcMonth","FcMonth");
	           EndWaitForm();
	           break;
           }
         case euSdProcess:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
               FillEdit(sePdrdProcess,"select ProcessCode,ProcessName from sdProcess order by ProcessCode","ProcessName","ProcessCode");
	           EndWaitForm();
	           break;
           }
         case euSdPsr:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(scPdrdPsr,"select PsrCode+space(1)+'('+PsrDesc+')' memo,PsrCode from sdPsr order by PsrCode","memo","PsrCode");
	           EndWaitForm();
	           break;
           }
         default:
           break;
       }
    }
    __finally
    {
        //AddCode;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::ClearControl(int Section,bool BringToNext)
{
    if(Section == 1)
    {
       if(!BringToNext)
       {
          sePdrhCode->Text = "";
          dePdrhDate->Text = g_sdCurDate;
          scPdrhFmonth->LocateKey(g_sdMMonth);
          chkPdrhCheck->Checked = false;
          labChecker->Caption = "";
          labCheckDate->Caption = "";
          labUser->Caption = g_sdUserCode;
          labSysDate->Caption = "";
          memDesc->Text = "";
       }
       sgPdrh->RowCount=1;
    }
    else if(Section==2)
    {
        if(!BringToNext)
        {
          sePdrdLine->Text =AnsiString(comServer->ItemCount+1);
          sePdrdWo->Text="";
          sePdrdGoods->Text="";
          sePdrdGoodsName->Text="";
          sePdrdProcess->ItemIndex =-1;
          sePdrdCQty->Text ="0";
          sePdrdEQty->Text ="0";
          sePdrdWQty->Text ="0";
          sePdrdRQty->Text ="0";
          sePdrdSQty->Text ="0";
          sePdrdFwt->Text ="0";
          sePdrdRwt->Text ="0";
          sePdrdDwt->Text ="0";
          sePdrdWwt->Text ="0";
          sePdrdSwt->Text ="0";
          sePdrdOwt->Text ="0";
          scPdrdPsr->ItemIndex =-1;
          scPdrdPsr->Text="";
          memPdrdDesc->Text ="";
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::GetDataFromComObject(int Section)
{
    if(Section==1)
    {
        sePdrhCode->Text = GetHeadValue(fiPdrhCode);
        dePdrhDate->Text = GetHeadValue(fiPdrhDate);
        scPdrhFmonth->LocateKey(GetHeadValue(fiPdrhFmonth));
        chkPdrhCheck->Checked = GetHeadValue(fiPdrhCheck)=="1";
        labChecker->Caption = GetHeadValue(fiPdrhChecker);
        labCheckDate->Caption = GetHeadValue(fiPdrhCheckDate);
        labUser->Caption = GetHeadValue(fiPdrhUser);
        memDesc->Text = GetHeadValue(fiPdrhDesc);
        labSysDate->Caption = GetHeadValue(fiPdrhSysDate);
        if(chkPdrhCheck->Checked)
           SetCheckToolbarStatus(true);
        else
           SetCheckToolbarStatus(false);
    }
    else
    {
        sePdrdLine->Text = GetDetailValue(fiPdrdLine);
        sePdrdWo->Text=GetDetailValue(fiPdrdWo);

        sePdrdGoods->Text=GetDetailValue(fiPdrdGoods);
        g_sdRsGoods->LocateByKey(WideString(sePdrdGoods->Text));
        sePdrdGoodsName->Text=GetGoodsValue("GoodsName");

        sePdrdProcess->LocateKey(GetDetailValue(fiPdrdProcess));
        sePdrdCQty->Text = GetDetailValue(fiPdrdCQty);
        sePdrdEQty->Text = GetDetailValue(fiPdrdEQty);
        sePdrdWQty->Text = GetDetailValue(fiPdrdWQty);
        sePdrdRQty->Text = GetDetailValue(fiPdrdRQty);
        sePdrdSQty->Text = GetDetailValue(fiPdrdSQty);
        sePdrdFwt->Text  = GetDetailValue(fiPdrdFwt);
        sePdrdRwt->Text  = GetDetailValue(fiPdrdRwt);
        sePdrdDwt->Text  = GetDetailValue(fiPdrdDwt);
        sePdrdWwt->Text  = GetDetailValue(fiPdrdWwt);
        sePdrdSwt->Text  = GetDetailValue(fiPdrdSwt);
        sePdrdOwt->Text  = GetDetailValue(fiPdrdOwt);
        memPdrdDesc->Text = GetDetailValue(fiPdrdDesc);
        scPdrdPsr->LocateKey(GetDetailValue(fiPdrdPsr));
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::SendDataToComObject(int Section)
{
    if(Section==1)
    {
       SetHeadValue(fiPdrhCode,sePdrhCode->Text);
       SetHeadValue(fiPdrhDate,dePdrhDate->Text);
       SetHeadValue(fiPdrhFmonth,scPdrhFmonth->Text);
       SetHeadValue(fiPdrhDesc,memDesc->Text);
       SetHeadValue(fiPdrhUser,labUser->Caption);
    }
    else
    {
       SetDetailValue(fiPdrdCode,sePdrhCode->Text);
       SetDetailValue(fiPdrdLine,sePdrdLine->Text);
       SetDetailValue(fiPdrdWo,sePdrdWo->Text);
       SetDetailValue(fiPdrdProcess,sePdrdProcess->ItemData[1]);
       SetDetailValue(fiPdrdCQty,sePdrdCQty->Text);
       SetDetailValue(fiPdrdEQty,sePdrdEQty->Text);
       SetDetailValue(fiPdrdWQty,sePdrdWQty->Text);
       SetDetailValue(fiPdrdRQty,sePdrdRQty->Text);
       SetDetailValue(fiPdrdSQty,sePdrdSQty->Text);
       SetDetailValue(fiPdrdFwt,sePdrdFwt->Text);
       SetDetailValue(fiPdrdRwt,sePdrdRwt->Text);
       SetDetailValue(fiPdrdDwt,sePdrdDwt->Text);
       SetDetailValue(fiPdrdWwt,sePdrdWwt->Text);
       SetDetailValue(fiPdrdSwt,sePdrdSwt->Text);
       SetDetailValue(fiPdrdOwt,sePdrdOwt->Text);
       SetDetailValue(fiPdrdDesc,memPdrdDesc->Text);
       SetDetailValue(fiPdrdPsr,scPdrdPsr->ItemData[1]);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::WaitUserInput(int Section)
{
    if(Section==1){
      if(sePdrhCode->Enabled)
          sePdrhCode->SetFocus();
      else
          dePdrhDate->SetFocus();
    }
    else
    {
      ChangeToBrowseState(false);
      if(sePdrdLine->Enabled)
         sePdrdLine->SetFocus();
    }
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmPdrh::GetDataToGrid()
{
    AnsiString ItemStr;
    ItemStr=GetDetailValue(fiPdrdLine)+
            "\t"+GetDetailValue(fiPdrdWo)+
            "\t"+GetDetailValue(fiPdrdGoods)+
            "\t"+GetDetailValue(fiPdrdProcess)+
            "\t"+GetDetailValue(fiPdrdCQty)+
            "\t"+GetDetailValue(fiPdrdFwt);
    return ItemStr;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::RefreshGridData(int mAction)
{
    int i;
    AnsiString ItemStr=GetDataToGrid();
    switch(mAction)
    {