pieceh.cpp

速达开源ERP系统

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

TfrmPieceh *frmPieceh;
//---------------------------------------------------------------------------
__fastcall TfrmPieceh::TfrmPieceh(TComponent* Owner)
    : TBillBaseForm(Owner,euSdPieceh,"")
{
    AutoCtl=sePiecehCode;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh::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,chePiecehCheck,chePiecehCheck->Name);
    ClientGroup->AddComponent(1,true,true,true,scPiecehState,scPiecehState->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);

    scPiecehState->ClearAll();
    scPiecehState->AddItems("1-预备","1");
    scPiecehState->AddItems("2-确认","2");
    scPiecehState->AddItems("3-完成","3");
    //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::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::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";
        memPiecedDesc->Text="";
      }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh::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(chePiecehCheck->Checked)
         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);
       memPiecedDesc->Text=GetDetailValue(fiPiecedDesc);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh::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(fiPiecedDesc,memPiecedDesc->Text);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh::WaitUserInput(int Section)
{
    if(Section ==1){
      if(CurrentState==caAddHead)
         sePiecehCode->SetFocus();
      else
         dePiecehDate->SetFocus();
    }
    else
    {
      ChangeToBrowseState(false);
      if(CurrentState!=caNormal)
         sePiecedLine->SetFocus();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh::RefreshGridData(int mAction)
{
    int i;
    AnsiString ItemStr=GetItemStringToGrid();
    switch(mAction)
    {
       case 0: