📄 bomhcopy.cpp

📁 科思ERP部分源码及控件
💻 CPP
📖 第 1 页 / 共 2 页
字号:
12 下一页
//---------------------------------------------------------------------------
#include <vcl.h>
#include "BomhCopy.h"
#include "BomdCopy.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "DateEdit"
#pragma link "fpanel"
#pragma link "GenBaseForm"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"

TfrmBomhCopy *frmBomhCopy;
TfrmBomdCopy *BomdCopyfrm;
//---------------------------------------------------------------------------
__fastcall TfrmBomhCopy::TfrmBomhCopy(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
    : TGenBaseForm(Owner,chWnd,MidCode,WhereStr)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmBomhCopy::InitEditControl()
{
    ClientGroup->AddComponent(1,true,true,false,sgBomhCopy,sgBomhCopy->Name);
    ClientGroup->AddComponent(1,false,false,true,FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(1,false,true,false,seBomhGoods,seBomhGoods->Name);
    ClientGroup->AddComponent(1,true,true,true,Panel1,Panel1->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,Panel2,Panel2->Name);
    ClientGroup->AddComponent(2,true,true,true,seBomdEco,seBomdEco->Name);
    ClientGroup->AddComponent(2,true,true,true,seBomdSn,seBomdSn->Name);
    //Bomh
    FillComboBox(Handle,scBomhProducter,"SELECT ProducterCode,memo=ProducterCode+space(1)+'('+UserName+')' FROM sdProducter,sdUser where ProducterCode=UserCode order by ProducterCode","memo","ProducterCode");
    FillComboBox(Handle,scBomhUnit,"SELECT UnitCode,UnitName from sdUnit order by UnitCode","UnitName","UnitCode");
    //Bomd
    FillComboBox(Handle,scBomdUnit,"SELECT UnitCode,UnitName from sdUnit order by UnitCode","UnitName","UnitCode");
    FillComboBox(Handle,scBomdProcess,"SELECT ProcessCode,memo=ProcessCode+Space(1)+'('+ProcessName+')',ProcessName FROM sdProcess order by ProcessCode","memo","ProcessCode","ProcessName");

    }
//---------------------------------------------------------------------------
void __fastcall TfrmBomhCopy::RefreshUpdateData(int MsgSrc,int MsgType)
{
/*
    try
    {
       switch (MsgSrc)
       {
         case euSdUnit:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(Handle,scBomhUnit,"select UnitCode,UnitName from sdUnit order by UnitCode","UnitName","UnitCode");
	           FillComboBox(Handle,scBomdUnit,"Select UnitCode,UnitName from sdUnit order by UnitCode","UnitName","UnitCode");
	           EndWaitForm();
	           break;
           }
         case euSdProcess:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(Handle,scBomdProcess,"select ProcessCode,memo=ProcessCode+space(1)+'('+ProcessName+')',ProcessName from sdProcess order by ProcessCode","memo","ProcessCode","ProcessName");
	           EndWaitForm();
	           break;
           }
         case euSdProducter:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(Handle,scBomhProducter,"select ProducterCode,memo=ProducterCode+Space(1)+'('+UserName+')' FROM sdProducter,sdUser where UserCode=ProducterCode order by ProducterCode","memo","ProducterCode");
	           EndWaitForm();
	           break;
           }
         default:
           break;
       }
    }
    __finally
    {
        //AddCode;
    }
*/
}
//---------------------------------------------------------------------------
void __fastcall TfrmBomhCopy::ClearControl(int Section,bool BringToNext)
{
    if(Section == 1){
      if(!BringToNext){
        seBomhGoods->Text ="";
        seBomhGoodsName->Text ="";
        seBomhVer->Text = "";
        seBomhModel->Text = "";
        scBomhUnit->ItemIndex=-1;
        seBomhEoq->Text = "0";
        seBomhRlt->Text = "0";
        scBomhType->ItemIndex=0;
        scBomhOp->ItemIndex=0;
        scBomhPp->ItemIndex=0;
        seBomhFpr->Text = "1";
        scBomhProducter->ItemIndex =-1;
        labSysDate->Caption="";
        labBomhUser->Caption=g_sdUserCode;
        deBomhEdate->Text=g_sdCurDate;
        deBomhIdate->Text="";
        memBomhDesc->Text="";
      }
      sgBomhCopy->RowCount=1;
    }
    else if(Section==2){
      if(!BringToNext){
        seBomdSn->Text =AnsiString(comServer->ItemCount+1);
        seBomdGoods->Text="";
        seBomdGoodsName->Text="";
        seBomdVer->Text="";
        seBomdModel->Text="";
        scBomdUnit->ItemIndex =-1;
        seBomdQty->Text="0";
        seBomdShl->Text="0";
        scBomdFrom->ItemIndex=0;
        scBomdType->ItemIndex=0;
        scBomdProcess->ItemIndex=-1;
        cheBomdRepFlg->Checked=false;
        scBomdOp->ItemIndex=0;
        scBomdPp->ItemIndex=0;
        scBomdCfg->ItemIndex=0;
        seBomdLot->Text="0";
        seBomdEco->Text="";
        memBomdDesc->Text="";
      }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmBomhCopy::GetDataFromComObject(int Section)
{
    if(Section==1)
    {
       seBomhGoods->Text=GetHeadValue("BomhGoods");
//       l_RsGoods->LocateByKey(GetHeadValue("BomhGoods"));
       InitRsGoods(seBomhGoods->Text);
       seBomhGoodsName->Text=GetGoodsValue(gtInitRs,"GoodsName");
       seBomhVer->Text=GetGoodsValue(gtInitRs,"GoodsVer");
       seBomhModel->Text=GetGoodsValue(gtInitRs,"GoodsModel");
       scBomhUnit->LocateKey(GetGoodsValue(gtInitRs,"GoodsUnitCode"));
       if(GetGoodsValue(gtInitRs,"GoodsType")!="")
          scBomhType->ItemIndex=StrToInt(GetGoodsValue(gtInitRs,"GoodsType"))-1;
       else
          scBomhType->ItemIndex=-1;
       seBomhEoq->Text=GetHeadValue("BomhEoq");
       seBomhRlt->Text=GetHeadValue("BomhRlt");
       scBomhOp->ItemIndex=StrToInt(GetHeadValue("BomhOp"))-1;
       scBomhPp->ItemIndex=StrToInt(GetHeadValue("BomhPp"))-1;
       seBomhFpr->Text=GetHeadValue("BomhFpr");
       scBomhProducter->LocateKey(GetHeadValue("BomhProducter"));
       deBomhEdate->Text=GetHeadValue("BomhEdate");
       deBomhIdate->Text=GetHeadValue("BomhIdate");
       labSysDate->Caption=GetHeadValue("BomhSysDate");
       labBomhUser->Caption=GetHeadValue("BomhUser");
       memBomhDesc->Text=GetHeadValue("BomhDesc");
    }
    else
    {
       seBomdSn->Text=GetDetailValue("BomdSn");
       seBomdGoods->Text=GetDetailValue("BomdGoods");
       InitRsGoods(seBomhGoods->Text);
//       l_RsGoods->LocateByKey(WideString(GetDetailValue("BomdGoods")));
       seBomdGoodsName->Text=GetGoodsValue(gtInitRs,"GoodsName");
       seBomdVer->Text=GetGoodsValue(gtInitRs,"GoodsVer");
       seBomdModel->Text=GetGoodsValue(gtInitRs,"GoodsModel");
       scBomdUnit->LocateKey(GetGoodsValue(gtInitRs,"GoodsUnitCode"));
       scBomdType->ItemIndex=StrToInt(GetGoodsValue(gtInitRs,"GoodsType"))-1;
       scBomdFrom->ItemIndex=StrToInt(GetGoodsValue(gtInitRs,"GoodsFrom"))-1;

       seBomdQty->Text=GetDetailValue("BomdQty");
       seBomdShl->Text=GetDetailValue("BomdShl");
       scBomdType->ItemIndex=StrToInt(GetDetailValue("BomdType"))-1;
       scBomdFrom->ItemIndex=StrToInt(GetDetailValue("BomdFrom"))-1;

       scBomdProcess->LocateKey(GetDetailValue("BomdProcess"));
       cheBomdRepFlg->Checked=GetDetailValue("BomdRepFlg")=="1";
       scBomdOp->ItemIndex=StrToInt(GetDetailValue("BomdOp"))-1;
       scBomdPp->ItemIndex=StrToInt(GetDetailValue("BomdPp"))-1;
       scBomdCfg->ItemIndex=StrToInt(GetDetailValue("BomdCfg"))-1;
       seBomdLot->Text=GetDetailValue("BomdLot");
       seBomdEco->Text=GetDetailValue("BomdEco");
       memBomdDesc->Text=GetDetailValue("BomdDesc");
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmBomhCopy::SendDataToComObject(int Section)
{
    if(Section==1)
    {
      SetHeadValue("BomhGoods",seBomhGoods->Text);
      SetHeadValue("BomhRlt",seBomhRlt->Text);
      SetHeadValue("BomhOp",IntToStr(scBomhOp->ItemIndex+1));
      SetHeadValue("BomhPp",IntToStr(scBomhPp->ItemIndex+1));
      SetHeadValue("BomhFpr",seBomhFpr->Text);
      SetHeadValue("BomhUser",g_sdUserCode);
      SetHeadValue("BomhProducter",scBomhProducter->ItemData[1]);
      SetHeadValue("BomhEdate",deBomhEdate->Text);
      SetHeadValue("BomhIdate",deBomhIdate->Text);
      SetHeadValue("BomhDesc",memBomhDesc->Text);
    }
    else
    {
      SetDetailValue("BomdSn",seBomdSn->Text);
      //给物料单行的父件编码(BomdPgoods)赋值
      SetDetailValue("BomdPgoods",seBomhGoods->Text);
      SetDetailValue("BomdGoods",seBomdGoods->Text);
      SetDetailValue("BomdGoodsName",seBomdGoodsName->Text);
      SetDetailValue("BomdFrom",IntToStr(scBomdFrom->ItemIndex+1));
      SetDetailValue("BomdType",IntToStr(scBomdType->ItemIndex+1));
      //---------------------------------------
      SetDetailValue("BomdQty",seBomdQty->Text);
      SetDetailValue("BomdShl",seBomdShl->Text);
      SetDetailValue("BomdProcess",scBomdProcess->ItemData[cbItem2]);
      SetDetailValue("BomdRepFlg",cheBomdRepFlg->Checked ? "1":"0");
      SetDetailValue("BomdOp",IntToStr(scBomdOp->ItemIndex+1));
      SetDetailValue("BomdPp",IntToStr(scBomdPp->ItemIndex+1));
      SetDetailValue("BomdCfg",IntToStr(scBomdCfg->ItemIndex+1));
      SetDetailValue("BomdLot",seBomdLot->Text);
      SetDetailValue("BomdDesc",memBomdDesc->Text);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmBomhCopy::WaitUserInput(int Section)
{
    if(Section==1)
    {
      if(CurrentState==caAddHead && seBomhGoods->Enabled)
         seBomhGoods->SetFocus();
      else
         seBomhRlt->SetFocus();
    }
    else
    {
      ChangeToBrowseState(false);
      if(seBomdGoods->Enabled)
         seBomdGoods->SetFocus();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmBomhCopy::RefreshGridData(int mAction)
{
    int i;
    AnsiString ItemStr=GetItemStringToGrid();
    switch(mAction)
    {
       case 0:
         sgBomhCopy->AddItem(ItemStr);
         sgBomhCopy->Row=sgBomhCopy->RowCount-1;
         break;
       case 1:
         sgBomhCopy->ChangeItem(ItemStr,sgBomhCopy->Row);
         break;
       case 2:
         sgBomhCopy->RemoveItem(sgBomhCopy->Row);
    }
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmBomhCopy::GetItemStringToGrid()
{
    AnsiString  s_ItemStr,s1,s2;
    s1=GetDetailValue("BomdUnit");
    s2=GetDetailValue("BomdProcess");
    scBomdUnit->LocateKey(s1);
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -