fawork.cpp

速达开源ERP系统

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "CopyWork.h"
#include "FaWork.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmFaWork *frmFaWork;
//---------------------------------------------------------------------------
__fastcall TfrmFaWork::TfrmFaWork(TComponent* Owner)
        : TRecBaseForm(Owner,euSdFaWork,"")
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaWork::InitEditControl()
{
    AnsiString SQL="select fadncode, fadnname,fadnfadm from sdfadn";
    FillComboBox(scFaWorkFmonth,"select FcMonth from sdFc order By FcMonth","FcMonth");
    FillEdit(seFaWorkFadn,SQL,"fadncode","fadnname","fadnfadm");
    ClientGroup->AddComponent(2,true,true,false,scFaWorkFmonth, scFaWorkFmonth->Name);
    ClientGroup->AddComponent(2,false,false,true,FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, sgFaWork,sgFaWork->Name);
    ClientGroup->AddComponent(2,false,false,false,seFaWorkFadn,seFaWorkFadn->Name);
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFaWork::GetFieldValue(int FieldIndex)
{
    WideString S;
    S = ReadFieldValue(comServer,FieldIndex);
    return(S);
}

//---------------------------------------------------------------------------
void __fastcall TfrmFaWork::ClearControl(bool BringToNext)
{
     if(!BringToNext)
    {
       seFaWorkFadn->ItemIndex =-1;         //工作量设备
       seFaWorkFadnName->Text  ="";         //设备名称
       seFaWorkLoad->Text      ="0";         //工作量
    }

}

//---------------------------------------------------------------------------
void __fastcall TfrmFaWork::GetDataFromComObject()
{
    seFaWorkFadn->LocateKey(GetFieldValue(fiFaWorkFadn));
    seFaWorkFadn->Text=seFaWorkFadn->ItemData[0];
    sgFaWork->LocateGrid(1,seFaWorkFadn->Text);
    seFaWorkFadnName->Text=seFaWorkFadn->ItemData[1];
    seFaWorkLoad->Text=GetFieldValue(fiFaWorkLoad);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaWork::SendDataToComObject()
{
    WriteFieldValue(comServer,fiFaWorkFadn,seFaWorkFadn->Text);
    WriteFieldValue(comServer,fiFaWorkFmonth,scFaWorkFmonth->Text);
    WriteFieldValue(comServer,fiFaWorkLoad,seFaWorkLoad->Text);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaWork::WaitUserInput()
{
    seFaWorkFadn->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFaWork::GetDataToGrid()
{
    AnsiString  s;
    seFaWorkFadn->LocateKey(GetFieldValue(fiFaWorkFadn));
    s = "\t" +GetFieldValue(fiFaWorkFadn)+
        "\t" +seFaWorkFadn->ItemData[1]+
        "\t" +GetFieldValue(fiFaWorkLoad);
    return(s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaWork::RefreshGridData(int mAction)
{
    AnsiString ItemStr;
    ItemStr = GetDataToGrid();
    if (mAction ==  0)   //Add
    {
        sgFaWork->AddItem(ItemStr);
    }
    else if(mAction ==  1)   //Modify
    {
        int i   =   sgFaWork->Row;
        sgFaWork->RemoveItem(i);
        sgFaWork->AddItem(ItemStr,i);
    }
    else if(mAction ==  2)      //Delete
    {
        sgFaWork->RemoveItem(sgFaWork->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaWork::FillGridWithData()
{
    AnsiString ItemStr;
    comServer->MoveFirst();
    sgFaWork->RowCount    =   1;
    while (comServer->Eof   ==  0)
    {
        ItemStr =  GetDataToGrid();
        sgFaWork->AddItem(ItemStr);
        comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmFaWork::scFaWorkFmonthClick(TObject *Sender)
{
    AnsiString s;
    s = scFaWorkFmonth->Text;
    if(s.IsEmpty())
      return;
    if(LastFaWorkFmonth==s)
      return;
    LastFaWorkFmonth=s;
    if(scFaWorkFmonth->ItemIndex==-1)
    {
      MessageDlg("财务月份不存在",mtWarning,TMsgDlgButtons()<<mbOK,0);
      scFaWorkFmonth->LocateKey(LastFaWorkFmonth);
    }
    else
    {
      s = " FaWorkFmonth = '" + s + "'";
      comServer->FilterString = s;
      comServer->Query();
      FillGridWithData();
      comServer->MoveFirst();
      GetDataFromComObject();
     }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaWork::tbGenrateClick(TObject *Sender)
{
    AnsiString tempFmonth;
    TfrmCopyWork *TempCopyWork =new TfrmCopyWork(this);
    TempCopyWork->ShowModal();
    if(TempCopyWork->btOk->ModalResult==mrYes)
    {
      tempFmonth=TempCopyWork->seFmonth->Text;
      comServer->Execute(tempFmonth);  //工作量复制
      scFaWorkFmonth->Text=g_sdEMonth;
      tempFmonth= " FaWorkFmonth = '" +g_sdEMonth + "'";
      comServer->FilterString = tempFmonth;
      comServer->Query();
      FillGridWithData();
      comServer->MoveFirst();
      GetDataFromComObject();
    }
    delete TempCopyWork;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaWork::RefreshUpdateData(int MsgSrc,int MsgType)
{
      switch(MsgSrc)
      {
        case euSdFc:
          if(ShowUpdateMessage(MsgSrc,MsgType))
            FillComboBox(scFaWorkFmonth,"select FcMonth from sdFc order By FcMonth","FcMonth");
         break;
        case euSdFadn:
          if(ShowUpdateMessage(MsgSrc,MsgType))
          {
           AnsiString SQL="select fadncode, fadnname from sdfadn";
           FillEdit(seFaWorkFadn,SQL,"fadncode","fadnname");
          }
         break;
       default:
          break;
      }
}
//---------------------------------------------------------------------------


void __fastcall TfrmFaWork::sgFaWorkClick(TObject *Sender)
{
    if (sgFaWork->Row > 0)
    {
       comServer->LocateByKey(sgFaWork->TextMatrix[sgFaWork->Row][1]+scFaWorkFmonth->Text);
    if (!comServer->Eof)
         GetDataFromComObject();
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmFaWork::FormShow(TObject *Sender)
{
      scFaWorkFmonth->Text=g_sdEMonth;
      comServer->FilterString = " FaWorkFmonth = '" +g_sdEMonth + "'";
      comServer->Query();
      FillGridWithData();
      comServer->MoveFirst();
      GetDataFromComObject();

}
//---------------------------------------------------------------------------

void __fastcall TfrmFaWork::seFaWorkFadnKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(seFaWorkFadn->Text+scFaWorkFmonth->Text);
      GetDataFromComObject();
    }
    if(Key==13 && CurrentState!=caNormal)
    {
      TComResultSet *TResultSet=NewResultSet();
      AnsiString SQL="select fadncode, fadnname from sdfadn, sdfause ";
      SQL+= " where FADNFaUSE=FAUSECODE and FAUSEDEPRE=1 and FadnFADM='101 and (FadnDec=0 or FadnDisCard=0) ";
      try
      {
       TResultSet->Close();
       TResultSet->Open(SQL,"");
       if(TResultSet->RecordCount<1)
        throw  Exception("设备编码"+seFaWorkFadn->Text+"'不存在或不能输入工作量");
       seFaWorkFadnName->Text=TResultSet->FieldByName("fadnname");
       TResultSet->Close();
      }
      __finally
      {
       delete TResultSet;
      } 
    }

}
//---------------------------------------------------------------------------
void __fastcall TfrmFaWork::seFaWorkFadnButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    TfrmWnQuery *p;
    SqlStr="002[设备编码][设备名称]select fadncode, fadnname from sdfadn, sdfause ";
    SqlStr+="  where FADNFaUSE=FAUSECODE and FAUSEDEPRE=1 and FadnFADM='101' and (FadnDec=0 and FadnDisCard=0) ";
    try{
     StartWaitForm("正在查询，请稍候...");
     p=new TfrmWnQuery(this,"物料查询",SqlStr);
    }
    __finally
    {
     EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
      seFaWorkFadn->Text=p->ColData[1];
      seFaWorkFadnName->Text=p->ColData[2];
    }
    delete p;

}
//---------------------------------------------------------------------------
void __fastcall TfrmFaWork::muAddDetailClick(TObject *Sender)
{
    if(scFaWorkFmonth->Text!=g_sdEMonth)
       throw Exception("不能增加非当前月份设备工作量");
    TRecBaseForm::muAddDetailClick(Sender);
}
//---------------------------------------------------------------------------