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, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TBillBaseForm(Owner,chWnd,MidCode,WhereStr)
{
   // AutoCtl=seRoutehCode;
    SetAutoCodeString(seRoutehCode,"ACM-033");
}
//---------------------------------------------------------------------------
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(Handle,scRoutehProducter,"select ProducterCode,memo=ProducterCode+space(1)+'('+UserName+')' from sdProducter,sdUser where ProducterCode=UserCode order by ProducterCode","memo","ProducterCode");
    //Routed
    FillComboBox(Handle,scRoutedWc,"SELECT WcCode,WcName,WcCode+space(1)+'('+WcName+')' memo FROM sdWc order by WcCode","memo","WcCode","WcName");
    FillComboBox(Handle,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(Handle,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(Handle,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(Handle,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 = "acm-075"; //自动编码号
//         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("RoutehCode");
       seRoutehName->Text=GetHeadValue("RoutehName");
       seRoutehGoods->Text=GetHeadValue("RoutehGoods");
       InitRsGoods(seRoutehGoods->Text);
//       l_RsGoods->LocateByKey(WideString(GetHeadValue("RoutehGoods")));
       seRoutehGoodsName->Text=GetGoodsValue(gtInitRs,"GoodsName");
       cheRoutehKey->Checked=GetHeadValue("RoutehKey")=="1";
       labUserCode->Caption=GetHeadValue("RoutehUser");
       scRoutehProducter->LocateKey(GetHeadValue("RoutehProducter"));
       deRoutehEdate->Text=GetHeadValue("RoutehEdate");
       deRoutehIdate->Text=GetHeadValue("RoutehIdate");
       cheRoutehCancel->Checked=GetHeadValue("RoutehCancel")=="1";
       if(cheRoutehCancel->Checked)
          SetCancelToolbarStatus(true);
       else
          SetCancelToolbarStatus(false);
       labCancelDate->Caption=GetHeadValue("RoutehCancelDate");
       memRoutehDesc->Text=GetHeadValue("RoutehDesc");
    }
    else
    {
       seRoutedSn->Text=GetDetailValue("RoutedSn");
       seRoutedProcess->Text=GetDetailValue("RoutedProcess");
       seRoutedName->Text=GetDetailValue("RoutedName");
       cheChkFlg->Checked=GetDetailValue("RoutedChkFlg")=="1";
       cheWxFlg->Checked=GetDetailValue("RoutedWxFlg")=="1";
       scRoutedWc->LocateKey(GetDetailValue("RoutedWc"));
       scRoutedLoc->LocateKey(GetDetailValue("RoutedLoc"));
       scRoutedState->LocateKey(GetDetailValue("RoutedState"));
       scRoutedType->LocateKey(GetDetailValue("RoutedType"));
       seRoutedWxAmt->Text=GetDetailValue("RoutedWxAmt");
       memRoutedSpec->Text=GetDetailValue("RoutedSpec");
       memRoutedDesc->Text=GetDetailValue("RoutedDesc");
       seRoutedQlt->Text=GetDetailValue("RoutedQlt");
       seRoutedSlt->Text=GetDetailValue("RoutedSlt");
       seRoutedRlt->Text=GetDetailValue("RoutedRlt");
       seRoutedWlt->Text=GetDetailValue("RoutedWlt");
       seRoutedMlt->Text=GetDetailValue("RoutedMlt");
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmRouteh::SendDataToComObject(int Section)
{
    if(Section==1)
    {
        SetHeadValue("RoutehCode",seRoutehCode->Text);
        SetHeadValue("RoutehName",seRoutehName->Text);
        SetHeadValue("RoutehGoods",seRoutehGoods->Text);
        SetHeadValue("RoutehKey",cheRoutehKey->Checked ? "1":"0");
        SetHeadValue("RoutehUser",labUserCode->Caption);
        SetHeadValue("RoutehProducter",scRoutehProducter->ItemData[1]);
        SetHeadValue("RoutehEdate",deRoutehEdate->Text);
        SetHeadValue("RoutehIdate",deRoutehIdate->Text);
        SetHeadValue("RoutehCancel",cheRoutehCancel->Checked ? "1":"0");
        if(cheRoutehCancel->Checked)
           SetHeadValue("RoutehCancelDate",labCancelDate->Caption);
        SetHeadValue("RoutehDesc",memRoutehDesc->Text);
    }
    else
    {
        SetDetailValue("RoutedCode",seRoutehCode->Text);      //路线编码
        SetDetailValue("RoutedSn",seRoutedSn->Text);
        SetDetailValue("RoutedProcess",seRoutedProcess->Text);
        SetDetailValue("RoutedName",seRoutedName->Text);
        SetDetailValue("RoutedSpec",memRoutedSpec->Text);
        SetDetailValue("RoutedWc",scRoutedWc->ItemData[1]);
        SetDetailValue("RoutedLoc",scRoutedLoc->ItemData[1]);
        SetDetailValue("RoutedState",scRoutedState->ItemData[1]);
        SetDetailValue("RoutedType",scRoutedType->ItemData[1]);
        SetDetailValue("RoutedChkFlg",cheChkFlg->Checked ? "1":"0"); //需质检
        SetDetailValue("RoutedWxFlg",cheWxFlg->Checked ? "1":"0");   //属外协
        SetDetailValue("RoutedWxAmt",seRoutedWxAmt->Text);
        SetDetailValue("RoutedQlt",seRoutedQlt->Text);
        SetDetailValue("RoutedSlt",seRoutedSlt->Text);
        SetDetailValue("RoutedRlt",seRoutedRlt->Text);
        SetDetailValue("RoutedWlt",seRoutedWlt->Text);
        SetDetailValue("RoutedMlt",seRoutedMlt->Text);
        SetDetailValue("RoutedDesc",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);