routeh.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#include <vcl.h>
#include "Routeh.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"

TfrmRouteh *frmRouteh;
//---------------------------------------------------------------------------
__fastcall TfrmRouteh::TfrmRouteh(TComponent* Owner)
        : TBillBaseForm(Owner,euSdRouteh,"")
{
    AutoCtl=seRoutehCode;
}
//---------------------------------------------------------------------------
void __fastcall TfrmRouteh::InitEditControl()
{
    ClientGroup->AddComponent(1,true,true,false,sgRouteh,sgRouteh->Name);
    ClientGroup->AddComponent(1,false,false,true,FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(1,true,true,true,seRoutehGoodsName,seRoutehGoodsName->Name);
    ClientGroup->AddComponent(1,false,true,false,seRoutehCode,seRoutehCode->Name);
    ClientGroup->AddComponent(1,true,false,true,cheRoutehCancel,cheRoutehCancel->Name);
    ClientGroup->AddComponent(2,false,false,true,FloatPanel2,FloatPanel2->Name);
    ClientGroup->AddComponent(2,false,true,true,btnOK,btnOK->Name);
    ClientGroup->AddComponent(2,false,false,false,btnCancel,btnCancel->Name);
    ClientGroup->AddComponent(2,true,true,true,seRoutedName,seRoutedName->Name);
    ClientGroup->AddComponent(2,true,true,true,seRoutedWxAmt,seRoutedWxAmt->Name);
    ClientGroup->AddComponent(2,true,true,true,scRoutedState,scRoutedState->Name);
    scRoutedType->ClearAll();
    scRoutedType->AddItems("1-生产","1");
    scRoutedType->AddItems("2-装配","2");
    scRoutedState->ClearAll();
    scRoutedState->AddItems("1-预备","1");
    scRoutedState->AddItems("2-确认","2");
    scRoutedState->AddItems("3-停用","3");
    scRoutedState->AddItems("4-作废","4");
    //Routeh
    FillComboBox(scRoutehProducter,"select ProducterCode,memo=ProducterCode+space(1)+'('+UserName+')' from sdProducter,sdUser where ProducterCode=UserCode order by ProducterCode","memo","ProducterCode");
    //Routed
    FillComboBox(scRoutedWc,"SELECT WcCode,WcName,WcCode+space(1)+'('+WcName+')' memo FROM sdWc order by WcCode","memo","WcCode","WcName");
    FillComboBox(scRoutedLoc,"SELECT LocCode,LocName,LocCode+space(1)+'('+LocName+')' memo FROM sdLoc where LocType=2 order by LocCode","memo","LocCode","LocName");
}
//---------------------------------------------------------------------------
void __fastcall TfrmRouteh::RefreshUpdateData(int MsgSrc,int MsgType)
{
    try
    {
       switch (MsgSrc)
       {
         case euSdProducter:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
               FillComboBox(scRoutehProducter,"select ProducterCode,memo=ProducterCode+space(1)+'('+UserName+')' from sdProducter,sdUser where ProducterCode=UserCode order by ProducterCode","memo","ProducterCode");
	           EndWaitForm();
	           break;
           }
         case euSdWc:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(scRoutedWc,"SELECT WcCode,WcName,WcCode+space(1)+'('+WcName+')' memo FROM sdWc order by WcCode","memo","WcCode","WcName");
	           EndWaitForm();
	           break;
           }
         case euSdLoc:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(scRoutedLoc,"SELECT LocCode,LocName,LocCode+space(1)+'('+LocName+')' memo FROM sdLoc where LocType=2 order by LocCode","memo","LocCode","LocName");
	           EndWaitForm();
	           break;
           }
         default:
           break;
       }
    }
    __finally
    {
        //AddCode;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmRouteh::ClearControl(int Section,bool BringToNext)
{
    if(Section == 1){
       if(!BringToNext){
         seRoutehCode->Text ="";
         seRoutehName->Text ="";
         seRoutehGoods->Text = "";
         seRoutehGoodsName->Text = "";
         cheRoutehKey->Checked=false;
         labUserCode->Caption=g_sdUserCode;
         deRoutehEdate->Text=g_sdCurDate;
         deRoutehIdate->Text="";
         scRoutehProducter->ItemIndex=-1;
         cheRoutehCancel->Checked=false;
         labCancelDate->Caption = "";
         memRoutehDesc->Text="";
       }
       sgRouteh->RowCount=1;
    }
    else if(Section==2){
        if(!BringToNext){
           seRoutedSn->Text =AnsiString(comServer->ItemCount+1);
           seRoutedProcess->ItemIndex=-1;
           seRoutedName->Text ="";
           cheChkFlg->Checked=false;
           cheWxFlg->Checked=false;
           scRoutedWc->ItemIndex =-1;
           scRoutedLoc->ItemIndex=-1;
           scRoutedState->ItemIndex=0;
           scRoutedType->ItemIndex=0;
           seRoutedWxAmt->Text="0";
           memRoutedSpec->Text="";
           memRoutedDesc->Text="";
           seRoutedQlt->Text="0";
           seRoutedSlt->Text="0";
           seRoutedRlt->Text="0";
           seRoutedWlt->Text="0";
           seRoutedMlt->Text="0";
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmRouteh::GetDataFromComObject(int Section)
{
    if(Section==1)
    {
       seRoutehCode->Text=GetHeadValue(fiRoutehCode);
       seRoutehName->Text=GetHeadValue(fiRoutehName);
       seRoutehGoods->Text=GetHeadValue(fiRoutehGoods);
       g_sdRsGoods->LocateByKey(WideString(GetHeadValue(fiRoutehGoods)));
       seRoutehGoodsName->Text=GetGoodsValue("GoodsName");
       cheRoutehKey->Checked=GetHeadValue(fiRoutehKey)=="1";
       labUserCode->Caption=GetHeadValue(fiRoutehUser);
       scRoutehProducter->LocateKey(GetHeadValue(fiRoutehProducter));
       deRoutehEdate->Text=GetHeadValue(fiRoutehEdate);
       deRoutehIdate->Text=GetHeadValue(fiRoutehIdate);
       cheRoutehCancel->Checked=GetHeadValue(fiRoutehCancel)=="1";
       if(cheRoutehCancel->Checked)
          SetCancelToolbarStatus(true);
       else
          SetCancelToolbarStatus(false);
       labCancelDate->Caption=GetHeadValue(fiRoutehCancelDate);
       memRoutehDesc->Text=GetHeadValue(fiRoutehDesc);
    }
    else
    {
       seRoutedSn->Text=GetDetailValue(fiRoutedSn);
       seRoutedProcess->Text=GetDetailValue(fiRoutedProcess);
       seRoutedName->Text=GetDetailValue(fiRoutedName);
       cheChkFlg->Checked=GetDetailValue(fiRoutedChkFlg)=="1";
       cheWxFlg->Checked=GetDetailValue(fiRoutedWxFlg)=="1";
       scRoutedWc->LocateKey(GetDetailValue(fiRoutedWc));
       scRoutedLoc->LocateKey(GetDetailValue(fiRoutedLoc));
       scRoutedState->LocateKey(GetDetailValue(fiRoutedState));
       scRoutedType->LocateKey(GetDetailValue(fiRoutedType));
       seRoutedWxAmt->Text=GetDetailValue(fiRoutedWxAmt);
       memRoutedSpec->Text=GetDetailValue(fiRoutedSpec);
       memRoutedDesc->Text=GetDetailValue(fiRoutedDesc);
       seRoutedQlt->Text=GetDetailValue(fiRoutedQlt);
       seRoutedSlt->Text=GetDetailValue(fiRoutedSlt);
       seRoutedRlt->Text=GetDetailValue(fiRoutedRlt);
       seRoutedWlt->Text=GetDetailValue(fiRoutedWlt);
       seRoutedMlt->Text=GetDetailValue(fiRoutedMlt);
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmRouteh::SendDataToComObject(int Section)
{
    if(Section==1)
    {
        SetHeadValue(fiRoutehCode,seRoutehCode->Text);
        SetHeadValue(fiRoutehName,seRoutehName->Text);
        SetHeadValue(fiRoutehGoods,seRoutehGoods->Text);
        SetHeadValue(fiRoutehKey,cheRoutehKey->Checked ? "1":"0");
        SetHeadValue(fiRoutehUser,labUserCode->Caption);
        SetHeadValue(fiRoutehProducter,scRoutehProducter->ItemData[1]);
        SetHeadValue(fiRoutehEdate,deRoutehEdate->Text);
        SetHeadValue(fiRoutehIdate,deRoutehIdate->Text);
        SetHeadValue(fiRoutehCancel,cheRoutehCancel->Checked ? "1":"0");
        if(cheRoutehCancel->Checked)
           SetHeadValue(fiRoutehCancelDate,labCancelDate->Caption);
        SetHeadValue(fiRoutehDesc,memRoutehDesc->Text);
    }
    else
    {
        SetDetailValue(fiRoutedCode,seRoutehCode->Text);      //路线编码
        SetDetailValue(fiRoutedSn,seRoutedSn->Text);
        SetDetailValue(fiRoutedProcess,seRoutedProcess->Text);
        SetDetailValue(fiRoutedName,seRoutedName->Text);
        SetDetailValue(fiRoutedSpec,memRoutedSpec->Text);
        SetDetailValue(fiRoutedWc,scRoutedWc->ItemData[1]);
        SetDetailValue(fiRoutedLoc,scRoutedLoc->ItemData[1]);
        SetDetailValue(fiRoutedState,scRoutedState->ItemData[1]);
        SetDetailValue(fiRoutedType,scRoutedType->ItemData[1]);
        SetDetailValue(fiRoutedChkFlg,cheChkFlg->Checked ? "1":"0"); //需质检
        SetDetailValue(fiRoutedWxFlg,cheWxFlg->Checked ? "1":"0");   //属外协
        SetDetailValue(fiRoutedWxAmt,seRoutedWxAmt->Text);
        SetDetailValue(fiRoutedQlt,seRoutedQlt->Text);
        SetDetailValue(fiRoutedSlt,seRoutedSlt->Text);
        SetDetailValue(fiRoutedRlt,seRoutedRlt->Text);
        SetDetailValue(fiRoutedWlt,seRoutedWlt->Text);
        SetDetailValue(fiRoutedMlt,seRoutedMlt->Text);
        SetDetailValue(fiRoutedDesc,memRoutedDesc->Text);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmRouteh::WaitUserInput(int Section)
{
    if(Section ==1){
      if(CurrentState==caAddHead)
         seRoutehCode->SetFocus();
      else
         seRoutehName->SetFocus();
    }
    else
    {
      ChangeToBrowseState(false);
      if(seRoutedSn->Enabled)
         seRoutedSn->SetFocus();
      if(cheWxFlg->Checked)
         seRoutedWxAmt->Enabled=true;
      else
         seRoutedWxAmt->Enabled=false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmRouteh::RefreshGridData(int mAction)
{
    int i;
    AnsiString ItemStr=GetItemStringToGrid();
    switch(mAction)
    {
       case 0:
         sgRouteh->AddItem(ItemStr);
         sgRouteh->Row=sgRouteh->RowCount-1;
         break;
       case 1:
         sgRouteh->ChangeItem(ItemStr,sgRouteh->Row);
         break;
       case 2:
         sgRouteh->RemoveItem(sgRouteh->Row);
    }
}
//---------------------------------------------------------------------------

AnsiString __fastcall TfrmRouteh::GetItemStringToGrid()
{
    AnsiString s_ItemStr;
    scRoutedWc->LocateKey(GetDetailValue(fiRoutedWc));
    scRoutedLoc->LocateKey(GetDetailValue(fiRoutedLoc));
    s_ItemStr=GetDetailValue(fiRoutedSn)+
              "\t"+GetDetailValue(fiRoutedProcess)+
              "\t"+GetDetailValue(fiRoutedName)+