ecoh.cpp

科思ERP部分源码及控件

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

TfrmEcoh *frmEcoh;
//---------------------------------------------------------------------------
__fastcall TfrmEcoh::TfrmEcoh(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
    : TBillBaseForm(Owner,chWnd,MidCode,WhereStr)
{
   // AutoCtl=seEcohCode;
    //SetAutoCodeString(seDmahCode,"ACM-050");
}
//---------------------------------------------------------------------------
void __fastcall TfrmEcoh::InitEditControl()
{
    ClientGroup->AddComponent(1,true,true,false,sgEcoh,sgEcoh->Name);
    ClientGroup->AddComponent(1,false,false,true,FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(1,false,true,false,seEcohCode,seEcohCode->Name);
    ClientGroup->AddComponent(1,true,true,true,seEcohGoodsName,seEcohGoodsName->Name);
    ClientGroup->AddComponent(1,true,false,true,cheEcohCheck,cheEcohCheck->Name);
    ClientGroup->AddComponent(2,false,false,true,FloatPanel2,FloatPanel2->Name);
    ClientGroup->AddComponent(2,true,true,true,Panel1,Panel1->Name);
    ClientGroup->AddComponent(2,true,true,true,seEcodBgoodsName,seEcodBgoodsName->Name);
    ClientGroup->AddComponent(2,false,false,true,memEcodReason,memEcodReason->Name);
    ClientGroup->AddComponent(2,false,true,true,btnOK,btnOK->Name);
    ClientGroup->AddComponent(2,false,false,false,btnCancel,btnCancel->Name);

    //Ecoh
    FillComboBox(Handle,scEcohGoods,"SELECT BomhGoods,GoodsName,memo=BomhGoods+space(1)+'('+GoodsName+')' FROM sdBomh,sdGoods Where GoodsCode=BomhGoods order by BomhGoods","memo","BomhGoods","GoodsName");
    //Ecod
    FillComboBox(Handle,scEcodUnit,"SELECT UnitCode,UnitName FROM sdUnit order by UnitCode","UnitName","UnitCode");
    FillComboBox(Handle,scEcodProcess,"SELECT memo=ProcessCode+space(1)+'('+ProcessName+')',ProcessCode from sdProcess order by ProcessCode","memo","ProcessCode");
}
//---------------------------------------------------------------------------

void __fastcall TfrmEcoh::RefreshUpdateData(int MsgSrc,int MsgType)
{
/*
    try
    {
       switch (MsgSrc)
       {
         case euSdBomh:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(Handle,scEcohGoods,"SELECT BomhGoods,GoodsName,memo=BomhGoods+space(1)+'('+GoodsName+')' FROM sdBomh,sdGoods Where GoodsCode=BomhGoods order by BomhGoods","memo","BomhGoods","GoodsName");
	           EndWaitForm();
	           break;
           }
         case euSdUnit:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(Handle,scEcodUnit,"SELECT UnitCode,UnitName FROM sdUnit order by UnitCode","UnitName","UnitCode");
	           EndWaitForm();
	           break;
           }
         case euSdProcess:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(Handle,scEcodProcess,"SELECT memo=ProcessCode+space(1)+'('+ProcessName+')',ProcessCode from sdProcess order by ProcessCode","memo","ProcessCode");
	           EndWaitForm();
	           break;
           }
         default:
           break;
       }
    }
    __finally
    {
        //AddCode
    }
*/
}
//---------------------------------------------------------------------------
void __fastcall TfrmEcoh::ClearControl(int Section,bool BringToNext)
{
    if(Section == 1)
    {
       if(!BringToNext)
       {
           seEcohCode->Text ="";
           seEcohVer->Text ="";
           seEcohFileNo->Text = "";
           deEcohDate->Text =g_sdCurDate;
           deEcohEdate->Text=g_sdCurDate;
           deEcohIdate->Text = "";
           scEcohGoods->ItemIndex = -1;
           seEcohGoodsName->Text = "";
           labEcohUser->Caption = g_sdUserCode;
           cheEcohCheck->Checked =false;
           labCheckDate->Caption="";
           labEcohChecker->Caption="";
           memEcohDesc->Text="";
       }
       sgEcoh->RowCount=1;
    }
    else if(Section==2)
    {
        if(!BringToNext)
        {
           seEcodLine->Text =AnsiString(comServer->ItemCount+1);
           scEcodBgoods->ItemIndex=-1;
           seEcodBgoodsName->Text="";
           seEcodAgoods->Text="";
           seEcodAgoodsName->Text="";
           seEcodModel->Text="";
           scEcodUnit->ItemIndex =-1;
           seEcodQty->Text="0";
           seEcodShl->Text="0.00";
           scEcodFrom->ItemIndex=0;
           scEcodType->ItemIndex=0;
           scEcodProcess->ItemIndex=-1;
           scEcodOp->ItemIndex=0;
           scEcodPp->ItemIndex=0;
           scEcodCfg->ItemIndex=0;
           seEcodLot->Text="0";
           memEcodDesc->Text="";
           memEcodReason->Text="";
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmEcoh::GetDataFromComObject(int Section)
{
    if(Section==1)
    {
       seEcohCode->Text=GetHeadValue("EcohCode");
       seEcohVer->Text=GetHeadValue("EcohVer");
       seEcohFileNo->Text=GetHeadValue("EcohFileNo");
       deEcohDate->Text=GetHeadValue("EcohDate");
       deEcohEdate->Text=GetHeadValue("EcohEdate");
       deEcohIdate->Text=GetHeadValue("EcohIdate");
       scEcohGoods->LocateKey(GetHeadValue("EcohGoods"));
       scEcohGoodsClick(this); //触发Click事件
       seEcohGoodsName->Text=scEcohGoods->ItemData[cbItem3];
       labEcohUser->Caption=GetHeadValue("EcohUser");
       cheEcohCheck->Checked=GetHeadValue("EcohCheck")=="1";
       if(cheEcohCheck->Checked)
          SetCheckToolbarStatus(true);
       else
          SetCheckToolbarStatus(false);
       labCheckDate->Caption=GetHeadValue("EcohCheckDate");
       labEcohChecker->Caption=GetHeadValue("EcohChecker");
       memEcohDesc->Text=GetHeadValue("EcohDesc");
    }
    else
    {
       seEcodLine->Text=GetDetailValue("EcodLine");
       scEcodBgoods->Text=GetDetailValue("EcodBgoods");
       InitRsGoods(scEcodBgoods->Text);
//       scEcodBgoods->LocateKey(GetDetailValue("EcodBgoods"));
       l_Query->LocateByKey(WideString(GetDetailValue("EcodBgoods")));
       seEcodBgoodsName->Text=GetGoodsValue(gtInitRs,"GoodsName");
       //seEcodAgoods->Text=GetGoodsValue(gtInitRs,"GoodsCode");
       seEcodAgoods->Text=GetDetailValue("EcodAgoods");
       //InitRsGoods(seEcodAgoods->Text);
       //l_Query->LocateByKey(WideString(GetDetailValue("EcodAgoods")));
       seEcodAgoodsName->Text=GetGoodsValue(gtInitRs,"GoodsName");
       seEcodModel->Text=GetGoodsValue(gtInitRs,"GoodsModel");
       scEcodUnit->LocateKey(GetGoodsValue(gtInitRs,"GoodsUnitCode"));
       seEcodQty->Text=GetDetailValue("EcodQty");
       seEcodShl->Text=GetDetailValue("EcodShl");
       scEcodType->ItemIndex=StrToInt(GetDetailValue("EcodType"))-1;
       scEcodFrom->ItemIndex=StrToInt(GetDetailValue("EcodFrom"))-1;
       scEcodProcess->LocateKey(GetDetailValue("EcodProcess"));
       scEcodOp->ItemIndex=StrToInt(GetDetailValue("EcodOp"))-1;
       scEcodPp->ItemIndex=StrToInt(GetDetailValue("EcodPp"))-1;
       scEcodCfg->ItemIndex=StrToInt(GetDetailValue("EcodCfg"))-1;
       seEcodLot->Text=GetDetailValue("EcodLot");
       memEcodDesc->Text=GetDetailValue("EcodDesc");
       memEcodReason->Text=GetDetailValue("EcodReason");
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmEcoh::SendDataToComObject(int Section)
{
    if(Section==1)
    {
        SetHeadValue("EcohCode",seEcohCode->Text);
        SetHeadValue("EcohVer",seEcohVer->Text);
        SetHeadValue("EcohFileNo",seEcohFileNo->Text);
        SetHeadValue("EcohDate",deEcohDate->Text);
        SetHeadValue("EcohEdate",deEcohEdate->Text);
        SetHeadValue("EcohIdate",deEcohIdate->Text);
        SetHeadValue("EcohGoods",scEcohGoods->ItemData[1]);
        SetHeadValue("EcohUser",labEcohUser->Caption);
        SetHeadValue("EcohCheck",cheEcohCheck->Checked ? "1":"0");
        if(cheEcohCheck->Checked) //if checked is true
        {
           SetHeadValue("EcohChecker",labEcohChecker->Caption);
           SetHeadValue("EcohCheckDate",labCheckDate->Caption);
        }
        SetHeadValue("EcohDesc",memEcohDesc->Text);
    }
    else
    {
        //给工程更改单行的更改单号(EcodCode)赋值
        //---------------------------------------
        SetDetailValue("EcodCode",seEcohCode->Text);
        SetDetailValue("EcodLine",seEcodLine->Text);
        SetDetailValue("EcodBgoods",scEcodBgoods->ItemData[1]);
        SetDetailValue("EcodAgoods",seEcodAgoods->Text);
        SetDetailValue("EcodUnit",scEcodUnit->ItemData[1]);
        SetDetailValue("EcodType",IntToStr(scEcodType->ItemIndex+1));
        SetDetailValue("EcodFrom",IntToStr(scEcodFrom->ItemIndex+1));
        SetDetailValue("EcodQty",seEcodQty->Text);
        SetDetailValue("EcodShl",seEcodShl->Text);
        SetDetailValue("EcodProcess",scEcodProcess->ItemData[1]);
        SetDetailValue("EcodOp",IntToStr(scEcodOp->ItemIndex+1));
        SetDetailValue("EcodPp",IntToStr(scEcodPp->ItemIndex+1));
        SetDetailValue("EcodCfg",IntToStr(scEcodCfg->ItemIndex+1));
        SetDetailValue("EcodLot",seEcodLot->Text);
        SetDetailValue("EcodDesc",memEcodDesc->Text);
        SetDetailValue("EcodReason",memEcodReason->Text);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmEcoh::WaitUserInput(int Section)
{
    if(Section ==1){
      if(CurrentState==caAddHead && seEcohCode->Enabled)
        seEcohCode->SetFocus();
      else
        seEcohVer->SetFocus();
    }
    else
    {
      ChangeToBrowseState(false);
      if(CurrentState!=caNormal)
         seEcodLine->SetFocus();
    }
}