pieceh_t.cpp

速达开源ERP系统

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

TfrmPieceh_T *frmPieceh_T;
TfrmPieced_T *Pieced_Tfrm;
//---------------------------------------------------------------------------
__fastcall TfrmPieceh_T::TfrmPieceh_T(TComponent* Owner)
    : TGenBaseForm(Owner,euSdPieceh,"")
{
    AutoCtl=sePiecehCode;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh_T::InitEditControl()
{
    ClientGroup->AddComponent(1,true,true,false,sgPieceh,sgPieceh->Name);
    ClientGroup->AddComponent(1,false,false,true,FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(1,false,true,false,sePiecehCode,sePiecehCode->Name);
    ClientGroup->AddComponent(1,true,true,true,scPiecehState,scPiecehState->Name);
    ClientGroup->AddComponent(1,true,true,true,chePiecehCheck,chePiecehCheck->Name);
    ClientGroup->AddComponent(1,false,true,true,scPiecehShop,scPiecehShop->Name);
    ClientGroup->AddComponent(1,false,true,true,sePiecehTeam,sePiecehTeam->Name);
    ClientGroup->AddComponent(1,true,true,true,scPiecehFmon,scPiecehFmon->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,Panel1,Panel1->Name);
    ClientGroup->AddComponent(2,true,true,true,scPiecedDType,scPiecedDType->Name);

    scPiecehState->ClearAll();
    scPiecehState->AddItems("1-预备","1");
    scPiecehState->AddItems("2-确认","2");
    scPiecehState->AddItems("3-完成","3");

    scPiecedDType->ClearAll();
    scPiecedDType->AddItems("0-手工录入","0");
    scPiecedDType->AddItems("1-平均分配","1");
    //Pieceh
    FillComboBox(scPiecehFmon,"SELECT FcMonth from sdFc Order by FcMonth","FcMonth");
    FillComboBox(scPiecehShop,"SELECT ShopCode,ShopName from sdShop order by ShopCode","ShopName","ShopCode");
    FillEdit(sePiecehTeam,"SELECT TeamCode,TeamName from sdTeam order by TeamCode","TeamName","TeamCode");
    //Pieced
    FillEdit(sePiecedEmployee,"SELECT EmployeeCode,EmployeeName,EmployeeSex,EmployeeTow FROM sdEmployee order by EmployeeCode",
            "EmployeeCode","EmployeeName","EmployeeSex","EmployeeTow");
    FillEdit(sePiecedProcess,"SELECT ProcessCode,ProcessName FROM sdProcess order by ProcessCode","ProcessName","ProcessCode");
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh_T::RefreshUpdateData(int MsgSrc,int MsgType)
{
    try
    {
       switch (MsgSrc)
       {
         case euSdFc:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(scPiecehFmon,"Select FcMonth from sdFc Order by FcMonth","FcMonth");
	           EndWaitForm();
	           break;
           }
         case euSdTeam:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
               FillEdit(sePiecehTeam,"SELECT TeamCode,TeamName from sdTeam order by TeamCode","TeamName","TeamCode");
	           EndWaitForm();
	           break;
           }
         case euSdShop:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(scPiecehShop,"select ShopCode,ShopName=ShopCode+'('+ShopName+')' from sdShop order by ShopCode","ShopName","ShopCode");
	           EndWaitForm();
	           break;
           }
         case euSdEmployee:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
               FillEdit(sePiecedEmployee,"SELECT EmployeeCode,EmployeeName,EmployeeSex,EmployeeTow FROM sdEmployee order by EmployeeCode",
                        "EmployeeCode","EmployeeName","EmployeeSex","EmployeeTow");
	           EndWaitForm();
	           break;
           }
         case euSdProcess:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
               FillEdit(sePiecedProcess,"SELECT ProcessCode,ProcessName FROM sdProcess order by ProcessCode","ProcessName","ProcessCode");
	           EndWaitForm();
	           break;
           }
         default:
           break;
       }
    }
    __finally
    {
        //AddCode;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh_T::ClearControl(int Section,bool BringToNext)
{
    if(Section == 1)
    {
       if(!BringToNext)
       {
          sePiecehCode->Text ="";
          dePiecehDate->Text =g_sdCurDate;
          scPiecehFmon->LocateKey(g_sdMMonth);
          scPiecehShop->ItemIndex = -1;
          sePiecehTeam->ItemIndex = -1;
          scPiecehState->ItemIndex= 0;
          labUserCode->Caption=g_sdUserCode;
          chePiecehCheck->Checked=false;
          labChecker->Caption = "";
          labCheckDate->Caption = "";
          memPiecehDesc->Text="";
       }
       sgPieceh->RowCount=1;
    }
    else if(Section==2)
    {
       if(!BringToNext)
       {
          sePiecedLine->Text =AnsiString(comServer->ItemCount+1);
          sePiecedEmployee->ItemIndex=-1;
          seEmployeeName->Text ="";
          seEmployeeSex->Text ="";
          seEmployeeTow->Text ="";
          sePiecedWo->Text="";
          sePiecedProcess->ItemIndex=-1;
          sePiecedQty->Text ="0.00";
          sePiecedPrice->Text="0.00";
          sePiecedQty1->Text ="0.00";
          sePiecedPrice1->Text="0.00";
          sePiecedQty2->Text ="0.00";
          sePiecedPrice2->Text="0.00";
          sePiecedQty3->Text ="0.00";
          sePiecedPrice3->Text="0.00";
          sePiecedQty4->Text ="0.00";
          sePiecedPrice4->Text="0.00";
          sePiecedQty5->Text ="0.00";
          sePiecedPrice5->Text="0.00";
          sePiecedQty6->Text ="0.00";
          sePiecedPrice6->Text="0.00";
          sePiecedQty7->Text ="0.00";
          sePiecedPrice7->Text="0.00";
          sePiecedQty8->Text ="0.00";
          sePiecedPrice8->Text="0.00";
          sePiecedQty9->Text ="0.00";
          sePiecedPrice9->Text="0.00";
          sePiecedQty10->Text ="0.00";
          sePiecedPrice10->Text="0.00";
          scPiecedDType->ItemIndex=1;
          memPiecedDesc->Text="";
       }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh_T::GetDataFromComObject(int Section)
{
    if(Section==1)
    {
       sePiecehCode->Text=GetHeadValue(fiPiecehCode);
       dePiecehDate->Text=GetHeadValue(fiPiecehDate);
       scPiecehFmon->LocateKey(GetHeadValue(fiPiecehFmonth));
       scPiecehShop->LocateKey(GetHeadValue(fiPiecehShop));
       sePiecehTeam->LocateKey(GetHeadValue(fiPiecehTeam));
       scPiecehState->LocateKey(GetHeadValue(fiPiecehState));
       labUserCode->Caption=GetHeadValue(fiPiecehUser);
       chePiecehCheck->Checked=GetHeadValue(fiPiecehCheck)=="1";
       labChecker->Caption=GetHeadValue(fiPiecehChecker);
       labCheckDate->Caption=GetHeadValue(fiPiecehCheckDate);
       memPiecehDesc->Text=GetHeadValue(fiPiecehDesc);
       if(GetHeadValue(fiPiecehCheck)=="1")
          SetCheckToolbarStatus(true);
       else
          SetCheckToolbarStatus(false);
    }
    else
    {
       sePiecedLine->Text=GetDetailValue(fiPiecedLine);
       sePiecedEmployee->LocateKey(GetDetailValue(fiPiecedEmployee));
       seEmployeeName->Text=sePiecedEmployee->ItemData[1];
       if(!sePiecedEmployee->ItemData[2].IsEmpty())
          seEmployeeSex->Text=sePiecedEmployee->ItemData[2]=="0"? "男":"女";
       else
          seEmployeeSex->Text="";
       seEmployeeTow->Text=sePiecedEmployee->ItemData[3];
       sePiecedWo->Text=GetDetailValue(fiPiecedWo);
       sePiecedProcess->LocateKey(GetDetailValue(fiPiecedProcess));
       sePiecedQty->Text =GetDetailValue(fiPiecedQty);
       sePiecedPrice->Text=GetDetailValue(fiPiecedPrice);
       sePiecedQty1->Text =GetDetailValue(fiPiecedQty1);
       sePiecedPrice1->Text=GetDetailValue(fiPiecedPrice1);
       sePiecedQty2->Text =GetDetailValue(fiPiecedQty2);
       sePiecedPrice2->Text=GetDetailValue(fiPiecedPrice2);
       sePiecedQty3->Text =GetDetailValue(fiPiecedQty3);
       sePiecedPrice3->Text=GetDetailValue(fiPiecedPrice3);
       sePiecedQty4->Text =GetDetailValue(fiPiecedQty4);
       sePiecedPrice4->Text=GetDetailValue(fiPiecedPrice4);
       sePiecedQty5->Text =GetDetailValue(fiPiecedQty5);
       sePiecedPrice5->Text=GetDetailValue(fiPiecedPrice5);
       sePiecedQty6->Text =GetDetailValue(fiPiecedQty6);
       sePiecedPrice6->Text=GetDetailValue(fiPiecedPrice6);
       sePiecedQty7->Text =GetDetailValue(fiPiecedQty7);
       sePiecedPrice7->Text=GetDetailValue(fiPiecedPrice7);
       sePiecedQty8->Text =GetDetailValue(fiPiecedQty8);
       sePiecedPrice8->Text=GetDetailValue(fiPiecedPrice8);
       sePiecedQty9->Text =GetDetailValue(fiPiecedQty9);
       sePiecedPrice9->Text=GetDetailValue(fiPiecedPrice9);
       sePiecedQty10->Text =GetDetailValue(fiPiecedQty10);
       sePiecedPrice10->Text=GetDetailValue(fiPiecedPrice10);
       scPiecedDType->LocateKey(GetDetailValue(fiPiecedDType));
       memPiecedDesc->Text=GetDetailValue(fiPiecedDesc);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh_T::SendDataToComObject(int Section)
{
    if(Section==1)
    {
        SetHeadValue(fiPiecehCode,sePiecehCode->Text);
        SetHeadValue(fiPiecehDate,dePiecehDate->Text);
        SetHeadValue(fiPiecehFmonth,scPiecehFmon->Text);
        SetHeadValue(fiPiecehShop,scPiecehShop->ItemData[1]);
        SetHeadValue(fiPiecehTeam,sePiecehTeam->ItemData[1]);
        SetHeadValue(fiPiecehState,scPiecehState->ItemData[1]);
        SetHeadValue(fiPiecehUser,labUserCode->Caption);
        SetHeadValue(fiPiecehCheck,chePiecehCheck->Checked ? "1":"0");
        if(chePiecehCheck->Checked)
        {
           SetHeadValue(fiPiecehChecker,labChecker->Caption);
           SetHeadValue(fiPiecehCheckDate,labCheckDate->Caption);
        }
        SetHeadValue(fiPiecehDesc,memPiecehDesc->Text);
    }
    else
    {
        //团体计件单号(PiecedCode)赋值
        SetDetailValue(fiPiecedCode,sePiecehCode->Text);
        SetDetailValue(fiPiecedLine,sePiecedLine->Text);
        SetDetailValue(fiPiecedEmployee,sePiecedEmployee->Text);
        SetDetailValue(fiPiecedWo,sePiecedWo->Text);
        SetDetailValue(fiPiecedProcess,sePiecedProcess->ItemData[1]);
        SetDetailValue(fiPiecedQty,sePiecedQty->Text);
        SetDetailValue(fiPiecedPrice,sePiecedPrice->Text);
        SetDetailValue(fiPiecedQty1,sePiecedQty1->Text);
        SetDetailValue(fiPiecedPrice1,sePiecedPrice1->Text);
        SetDetailValue(fiPiecedQty2,sePiecedQty2->Text);
        SetDetailValue(fiPiecedPrice2,sePiecedPrice2->Text);
        SetDetailValue(fiPiecedQty3,sePiecedQty3->Text);
        SetDetailValue(fiPiecedPrice3,sePiecedPrice3->Text);
        SetDetailValue(fiPiecedQty4,sePiecedQty4->Text);
        SetDetailValue(fiPiecedPrice4,sePiecedPrice4->Text);
        SetDetailValue(fiPiecedQty5,sePiecedQty5->Text);
        SetDetailValue(fiPiecedPrice5,sePiecedPrice5->Text);
        SetDetailValue(fiPiecedQty6,sePiecedQty6->Text);
        SetDetailValue(fiPiecedPrice6,sePiecedPrice6->Text);
        SetDetailValue(fiPiecedQty7,sePiecedQty7->Text);
        SetDetailValue(fiPiecedPrice7,sePiecedPrice7->Text);
        SetDetailValue(fiPiecedQty8,sePiecedQty8->Text);
        SetDetailValue(fiPiecedPrice8,sePiecedPrice8->Text);
        SetDetailValue(fiPiecedQty9,sePiecedQty9->Text);
        SetDetailValue(fiPiecedPrice9,sePiecedPrice9->Text);
        SetDetailValue(fiPiecedQty10,sePiecedQty10->Text);
        SetDetailValue(fiPiecedPrice10,sePiecedPrice10->Text);
        SetDetailValue(fiPiecedDType,scPiecedDType->ItemData[1]);
        SetDetailValue(fiPiecedDesc,memPiecedDesc->Text);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh_T::WaitUserInput(int Section)
{
    if(Section==1){
      if(sePiecehCode->Enabled)
        sePiecehCode->SetFocus();
      else
        dePiecehDate->SetFocus();
    }
    else
    {
      ChangeToBrowseState(false);
      if(sePiecedLine->Enabled)
        sePiecedLine->SetFocus();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh_T::RefreshGridData(int mAction)
{
    int i;
    AnsiString ItemStr=GetItemStringToGrid();
    switch(mAction)
    {
       case 0:
         sgPieceh->AddItem(ItemStr);
         sgPieceh->Row=sgPieceh->RowCount-1;
         break;
       case 1:
         sgPieceh->ChangeItem(ItemStr,sgPieceh->Row);