wrg.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#include <vcl.h>
#include "Wrg.h"
#include "Wpe.h"
#include "WrgCopy.h"
#include "Wmd.h"
#include "func.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "DateEdit"
#pragma link "fpanel"
#pragma link "RecBaseForm"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"

TfrmWrg *frmWrg;
TfrmWpe *Wpefrm;
TfrmWrgCopy *WrgCopyfrm;
//---------------------------------------------------------------------------
__fastcall TfrmWrg::TfrmWrg(TComponent* Owner)
    : TRecBaseForm(Owner,euSdWrg,"")
{
    FWrgWoFrom=0;
}
//---------------------------------------------------------------------------
__fastcall TfrmWrg::TfrmWrg(TComponent* Owner,AnsiString FWoCode,AnsiString FWoRoute,
    int FWoCheck,int FWoCancel,int FWoFrom)
    : TRecBaseForm(Owner,euSdWrg,"WrgWo='"+FWoCode+"'")
{
    FWrgWoCode=FWoCode;
    FWrgWoRoute=FWoRoute;
    FWrgWoCheck=FWoCheck;
    FWrgWoCancel=FWoCancel;
    FWrgWoFrom=FWoFrom;
    SetCheckToolbarStatus(FWrgWoCheck);
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmWrg::GetFieldValue(int FieldIndex)
{
    return ReadFieldValue(comServer,FieldIndex);
}
//---------------------------------------------------------------------------
void __fastcall TfrmWrg::SetFieldValue(int FieldIndex,AnsiString Value)
{
    WriteFieldValue(comServer,FieldIndex,Value);
}
//---------------------------------------------------------------------------
void __fastcall TfrmWrg::InitEditControl()
{
    //From=1(按工艺路线表)
    //From=2(按工单路线表)
    if(FWrgWoFrom!=2 && FWrgWoFrom!=1)
       return;
    if(FWrgWoFrom==2)
    {
       ClientGroup->AddComponent(2,false,false,true,PageControl1,PageControl1->Name);
       ClientGroup->AddComponent(2,true,true,false,sbtWrgCopy,sbtWrgCopy->Name);
    }
    else
    {
       ClientGroup->AddComponent(2,true,true,true,PageControl1,PageControl1->Name);
       ClientGroup->AddComponent(2,true,true,true,sbtWrgCopy,sbtWrgCopy->Name);
    }
    ClientGroup->AddComponent(2,true,true,false,sgWrg,sgWrg->Name);
    ClientGroup->AddComponent(2,true,true,true,Panel1,Panel1->Name);
    ClientGroup->AddComponent(2,true,true,false,sbtWpe,sbtWpe->Name);
    ClientGroup->AddComponent(2,true,true,true,cheChkFlg,cheChkFlg->Name);
    ClientGroup->AddComponent(2,true,true,true,seWrgNo,seWrgNo->Name);
    FillComboBox(scWrgWc,"SELECT WcCode+space(1)+'('+WcName+')' memo,WcCode,WcName FROM sdWc order by WcCode","memo","WcCode","WcName");
    FillComboBox(scWrgLoc,"SELECT LocCode,LocCode+space(1)+'('+LocName+')' memo FROM sdLoc where LocType=2 order by LocCode","memo","LocCode");
    FillComboBox(scWrgProcess,"SELECT ProcessCode+ space(1)+'('+ProcessName+')' memo,ProcessCode,ProcessName FROM sdProcess order by ProcessCode","memo","ProcessCode","ProcessName");
}
//---------------------------------------------------------------------------
void __fastcall TfrmWrg::RefreshUpdateData(int MsgSrc,int MsgType)
{
    try{
       switch(MsgSrc){
         case euSdWc:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(scWrgWc,"Select WcCode+space(1)+'('+WcName+')' memo,WcCode,WcName FROM sdWc order by WcCode","memo","WcCode","WcName");
	           EndWaitForm();
	           break;
           }
         case euSdLoc:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(scWrgLoc,"Select LocCode,LocCode+space(1)+'('+LocName+')' memo FROM sdLoc order by LocCode","memo","LocCode");
	           EndWaitForm();
	           break;
           }
         case euSdProcess:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(scWrgProcess,"Select ProcessCode+ space(1)+'('+ProcessName+')' memo,ProcessCode,ProcessName FROM sdProcess order by ProcessCode","memo","ProcessCode","ProcessName");
	           EndWaitForm();
	           break;
           }
         default:
           break;
       }
    }
    __finally
    {
       //AddCode
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmWrg::ClearControl(bool BringToNext)
{
    if(!BringToNext)
    {
      if(FWrgWoFrom==2)
         seWrgNo->Text=comServer->RecordCount+1;
      scWrgProcess->Text="";
      seWrgName->Text="";
      //启动质量管理时
      if(g_sdQuality)
         cheChkFlg->Checked=true;
      else
         cheChkFlg->Checked=false;
      cheWxFlg->Checked=false;
      scWrgWc->Text="";
      scWrgLoc->Text="";
      deWrgEdate->Text=g_sdCurDate;
      deWrgIdate->Text="";
      scWrgState->ItemIndex=0;
      scWrgType->ItemIndex=0;
      seWrgWxAmt->Text="0";
      memWrgDesc->Text="";
      labUserCode->Caption=g_sdUserCode;
      seWrgQlt->Text="0";
      seWrgSlt->Text="0";
      seWrgRlt->Text="0";
      seWrgWlt->Text="0";
      seWrgMlt->Text="0";
      seWrgPQty->Text="0";
      seWrgCQty->Text="0";
      seWrgEQty->Text="0";
      seWrgWQty->Text="0";
      seWrgRQty->Text="0";
      seWrgSQty->Text="0";
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmWrg::GetDataFromComObject()
{
    seWrgNo->Text=GetFieldValue(fiWrgNo);
    scWrgProcess->LocateKey(GetFieldValue(fiWrgProcess));
    //MoveFirst,MovePrority,MoveNext,MoveLast
    sgWrg->LocateGrid(1,GetFieldValue(fiWrgProcess));
    seWrgName->Text=GetFieldValue(fiWrgName);
    cheChkFlg->Checked=GetFieldValue(fiWrgChkFlg)=="1";
    cheWxFlg->Checked=GetFieldValue(fiWrgWxFlg)=="1";

    scWrgWc->LocateKey(GetFieldValue(fiWrgWc));
    scWrgLoc->LocateKey(GetFieldValue(fiWrgLoc));

    deWrgEdate->Text=GetFieldValue(fiWrgEdate);
    deWrgIdate->Text=GetFieldValue(fiWrgIdate);
    scWrgState->ItemIndex=StrToInt(GetFieldValue(fiWrgState))-1;
    scWrgType->ItemIndex=StrToInt(GetFieldValue(fiWrgType))-1;
    seWrgWxAmt->Text=GetFieldValue(fiWrgWxAmt);
    labUserCode->Caption=GetFieldValue(fiWrgUser);
    memWrgDesc->Text=GetFieldValue(fiWrgDesc);
    seWrgQlt->Text=GetFieldValue(fiWrgQlt);
    seWrgSlt->Text=GetFieldValue(fiWrgSlt);
    seWrgRlt->Text=GetFieldValue(fiWrgRlt);
    seWrgWlt->Text=GetFieldValue(fiWrgWlt);
    seWrgMlt->Text=GetFieldValue(fiWrgMlt);
    seWrgPQty->Text=GetFieldValue(fiWrgPQty);
    seWrgCQty->Text=GetFieldValue(fiWrgCQty);
    seWrgEQty->Text=GetFieldValue(fiWrgEQty);
    seWrgWQty->Text=GetFieldValue(fiWrgWQty);
    seWrgRQty->Text=GetFieldValue(fiWrgRQty);
    seWrgSQty->Text=GetFieldValue(fiWrgSQty);
    //如果加工单已审核或已作废
    SetCheckToolBarEnable();
}
//---------------------------------------------------------------------------
void __fastcall TfrmWrg::SetCheckToolBarEnable()
{
    if(FWrgWoCheck==1 || FWrgWoCancel==1)
    {
      tbAddHead->Enabled=false;
      tbEditHead->Enabled=false;
      tbGenrate->Enabled=false;
      tbDeleteHead->Enabled=false;
      muAddDetail->Enabled=false;
      muEditDetail->Enabled=false;
      muDeleteDetail->Enabled=false;
      muCancel->Enabled =false;
      muSave->Enabled =false;
      //sbtWrgCopy->Visible=false;
    }
    else{
      if(FWrgWoFrom==2){
         tbAddHead->Enabled=true;
         tbDeleteHead->Enabled=true;
         muAddDetail->Enabled=true;
         muDeleteDetail->Enabled=true;
      }
      tbEditHead->Enabled=true;
      tbGenrate->Enabled=true;
      muEditDetail->Enabled=true;
      muCancel->Enabled =true;
      muSave->Enabled =true;
      //sbtWrgCopy->Visible=true;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmWrg::SendDataToComObject()
{
    SetFieldValue(fiWrgWo,labWrgWo->Caption);
    SetFieldValue(fiWrgName,seWrgName->Text);
    SetFieldValue(fiWrgProcess,scWrgProcess->ItemData[cbItem2]);
    SetFieldValue(fiWrgNo,seWrgNo->Text);
    SetFieldValue(fiWrgFrom,FWrgWoFrom);
    SetFieldValue(fiWrgChkFlg,cheChkFlg->Checked ? "1":"0");
    SetFieldValue(fiWrgWxFlg,cheWxFlg->Checked ? "1":"0");
    SetFieldValue(fiWrgWc,scWrgWc->ItemData[cbItem2]);
    SetFieldValue(fiWrgLoc,scWrgLoc->ItemData[cbItem2]);
    SetFieldValue(fiWrgEdate,deWrgEdate->Text);
    SetFieldValue(fiWrgIdate,deWrgIdate->Text);
    SetFieldValue(fiWrgState,IntToStr(scWrgState->ItemIndex+1));
    SetFieldValue(fiWrgType,IntToStr(scWrgType->ItemIndex+1));
    SetFieldValue(fiWrgWxAmt,seWrgWxAmt->Text);
    SetFieldValue(fiWrgUser,labUserCode->Caption);
    SetFieldValue(fiWrgDesc,memWrgDesc->Text);
    SetFieldValue(fiWrgQlt,seWrgQlt->Text);
    SetFieldValue(fiWrgSlt,seWrgSlt->Text);
    SetFieldValue(fiWrgRlt,seWrgRlt->Text);
    SetFieldValue(fiWrgWlt,seWrgWlt->Text);
    SetFieldValue(fiWrgMlt,seWrgMlt->Text);
}
//---------------------------------------------------------------------------
void __fastcall TfrmWrg::WaitUserInput()
{
    PageControl1->ActivePage=BaseInfo;
    if(FWrgWoFrom==2 && scWrgProcess->Enabled)
      scWrgProcess->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TfrmWrg::RefreshGridData(int mAction)
{
    int i;
    AnsiString m_ItemStr;