fachdmc.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "FaChTABWork.h"
#include "FaChDmc.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "DateEdit"
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmFaChDmc *frmFaChDmc;
//---------------------------------------------------------------------------
__fastcall TfrmFaChDmc::TfrmFaChDmc(TComponent* Owner)
        : TRecBaseForm(Owner,euSdFaChg,"")
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChDmc::InitEditControl()
{
    FillComboBox(scFaChgFMonth,"select FcMonth from sdFc order By FcMonth","FcMonth");
    FillEdit(seFaChgFadn,"select  fadncode,fadnname,Fadnfadm  from sdfadn  order By fadncode","fadncode","fadnname","Fadnfadm");
    FillComboBox(scFaChgOFadm,"select  fadmcode,fadmname  from sdfadm order By fadmcode","fadmname","fadmcode");
    FillComboBox(scFaChgNFadm,"select  fadmcode,fadmname  from sdfadm order By fadmcode","fadmname","fadmcode");
    ClientGroup->AddComponent(2,false,false,true,FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, sgFaChDmc,sgFaChDmc->Name);
    ClientGroup->AddComponent(2,true,true,true, scFaChgOFadm,scFaChgOFadm->Name);
    ClientGroup->AddComponent(2,false,false,false, seFaChgCode,seFaChgCode->Name);
    ClientGroup->AddComponent(2,true,true,true,scFaChgFMonth,scFaChgFMonth->Name);
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFaChDmc::GetFieldValue(int FieldIndex)
{
    WideString S;
    S = ReadFieldValue(comServer,FieldIndex);
    return(S);
}

//---------------------------------------------------------------------------
void __fastcall TfrmFaChDmc::ClearControl(bool BringToNext)
{
     if(!BringToNext)
    {

       seFaChgCode->Text      ="";         //变动单号
       sdFaChgDate->Text      =g_sdCurDate;//变动日期
       scFaChgFMonth->Text    =g_sdEMonth;//财务月份
       seFaChgFadn->Text      ="";         //设备编码
       seFaChgFadnName->Text  ="";         //设备名称
       seFaChgDesc->Text      ="";         //变动原因
       scFaChgOFadm->Text      ="";         //变动前原值
       scFaChgNFadm->ItemIndex =-1;         //变动后原值
       labFaChgUser->Caption   =g_sdUserCode;//操作员
       chkFaChgCheck->Checked  =false;      //审核标志
       labFaChgChecker->Caption="";         //审核人
       labFaChgCheckDate->Caption="";         //审核日期
       seFaChgOGlkm->Text      ="";         //对方科目
       chkFaChgPost->Checked   =false;         //制凭证标志
       labFaChgSysDate->Caption="";         //系统日期
    }

}

//---------------------------------------------------------------------------
void __fastcall TfrmFaChDmc::GetDataFromComObject()
{
    seFaChgCode->Text=GetFieldValue(fiFaChgCode);
    sgFaChDmc->LocateGrid(1,seFaChgCode->Text);
    sdFaChgDate->Text=GetFieldValue(fiFaChgDate);
    scFaChgFMonth->Text=GetFieldValue(fiFaChgFMonth);
    seFaChgFadn->LocateKey(GetFieldValue(fiFaChgFadn));
    seFaChgFadn->Text=seFaChgFadn->ItemData[0];
    seFaChgFadnName->Text=seFaChgFadn->ItemData[1];
    seFaChgDesc->Text=GetFieldValue(fiFaChgDesc);
    scFaChgOFadm->LocateKey(GetFieldValue(fiFaChgOFadm));
    scFaChgOFadm->Text=scFaChgOFadm->ItemData[0];
    scFaChgNFadm->LocateKey(GetFieldValue(fiFaChgNFadm));
    scFaChgNFadm->Text=scFaChgNFadm->ItemData[0];
    labFaChgUser->Caption=GetFieldValue(fiFaChgUser);
    chkFaChgCheck->Checked=(GetFieldValue(fiFaChgCheck)==1)? true: false;
    if(chkFaChgCheck->Checked)
      SetCheckToolbarStatus(true);
    else
      SetCheckToolbarStatus(false);
    labFaChgChecker->Caption=GetFieldValue(fiFaChgChecker);
    labFaChgCheckDate->Caption=GetFieldValue(fiFaChgCheckDate);
    seFaChgOGlkm->Text=GetFieldValue(fiFaChgOGlkm);
    chkFaChgPost->Checked=GetFieldValue(fiFaChgPost)=="1";
    labFaChgSysDate->Caption=GetFieldValue(fiFaChgSysDate);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChDmc::SendDataToComObject()
{
    WriteFieldValue(comServer,fiFaChgType,"5");
    WriteFieldValue(comServer,fiFaChgCode,seFaChgCode->Text);
    WriteFieldValue(comServer,fiFaChgDate,sdFaChgDate->Text);
    WriteFieldValue(comServer,fiFaChgFMonth,scFaChgFMonth->Text);
    WriteFieldValue(comServer,fiFaChgFadn,seFaChgFadn->Text);
    WriteFieldValue(comServer,fiFaChgDesc,seFaChgDesc->Text);
    WriteFieldValue(comServer,fiFaChgOFadm,scFaChgOFadm->ItemData[1]);
    WriteFieldValue(comServer,fiFaChgNFadm,scFaChgNFadm->ItemData[1]);
    WriteFieldValue(comServer,fiFaChgUser,labFaChgUser->Caption);
    WriteFieldValue(comServer,fiFaChgOGlkm,seFaChgOGlkm->Text);
    WriteFieldValue(comServer,fiFaChgPost,chkFaChgPost->Checked ? "1":"0");
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChDmc::WaitUserInput()
{
   seFaChgCode->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFaChDmc::GetDataToGrid()
{
    AnsiString  s;
    seFaChgFadn->LocateKey(GetFieldValue(fiFaChgFadn));
    s = "\t" +GetFieldValue(fiFaChgCode)+
        "\t" +GetFieldValue(fiFaChgFadn)+
        "\t" +seFaChgFadn->ItemData[1]+
        "\t" +GetFieldValue(fiFaChgDate);
    return(s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChDmc::RefreshGridData(int mAction)
{
    AnsiString ItemStr;
    ItemStr = GetDataToGrid();
    if (mAction ==  0)   //Add
    {
        sgFaChDmc->AddItem(ItemStr);
    }
    else if(mAction ==  1)   //Modify
    {
        int i   =   sgFaChDmc->Row;
        sgFaChDmc->RemoveItem(i);
        sgFaChDmc->AddItem(ItemStr,i);
    }
    else if(mAction ==  2)      //Delete
    {
        sgFaChDmc->RemoveItem(sgFaChDmc->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChDmc::FillGridWithData()
{
    AnsiString ItemStr;
    comServer->FilterString="FACHGTYPE='5'";
    comServer->Query();
    comServer->MoveFirst();
    sgFaChDmc->RowCount    =   1;
    while (comServer->Eof   ==  0)
    {
        ItemStr =  GetDataToGrid();
        sgFaChDmc->AddItem(ItemStr);
        comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChDmc::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChDmc::seFaChgOGlkmButtonClick(TObject *Sender)
{
   OpenGlkmQuery();
   if(QueryStatus==1)
     seFaChgOGlkm->Text=GetGlkmValue("GLKMCODE");
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChDmc::scFaChgNFadmClick(TObject *Sender)
{
    AnsiString Passtemp,m_Sql,LabCap[4];
    TComResultSet *FadnResultSet=NewResultSet();
    try
    {
     if(seFaChgFadn->Text.IsEmpty())
       throw Exception("设备编码不能为空");
     if(scFaChgOFadm->Text!="工作量法"&&scFaChgNFadm->Text=="工作量法")
     {
      LabCap[0]="新工作量";
      LabCap[1]="总工作量：";
      LabCap[2]="累计工作量：";
      LabCap[3]="入帐前累计工作量：";
      TfrmChTABWork *TempChWork=new TfrmChTABWork(this,LabCap);
      TempChWork->Caption="新工作量";
      TempChWork->ShowModal();
      if(TempChWork->btOk->ModalResult==mrYes)
       {

         FadnResultSet->Close();
         m_Sql="Update sdfadn set fadnTWork='"+TempChWork->seTWork->Text+
                "' , fadnAWork='"+TempChWork->seAWork->Text+
                "' , fadnBWork='"+TempChWork->seBWork->Text+
                "' where fadncode='"+seFaChgFadn->Text+"'" ;
         FadnResultSet->Execute(m_Sql);

        }
    }
    if(scFaChgOFadm->Text=="工作量法"&&scFaChgNFadm->Text!="工作量法")
    {
      LabCap[0]="新使用年限";
      LabCap[1]="使用年限：";
      LabCap[2]="累计使用年限：";
      LabCap[3]="入帐前累计使用年限：";
      TfrmChTABWork *TempChWork=new TfrmChTABWork(this,LabCap);
      TempChWork->Caption="新使用年限";
      TempChWork->ShowModal();
        if(TempChWork->btOk->ModalResult==mrYes)
        {

         FadnResultSet->Close();
         m_Sql="Update sdfadn set FadnPeriod='"+TempChWork->seTWork->Text+
                "' , FadnAPeriod='"+TempChWork->seAWork->Text+
                "' , FadnBPeriod='"+TempChWork->seBWork->Text+
                "' where fadncode='"+seFaChgFadn->Text+"'" ;
         FadnResultSet->Execute(m_Sql);

        }
      }
   }
   __finally
   {
    delete FadnResultSet;
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChDmc::RefreshUpdateData(int MsgSrc,int MsgType)
{
      switch(MsgSrc)
      {
        case euSdFadm:
          if(ShowUpdateMessage(MsgSrc,MsgType))
          {
            FillComboBox(scFaChgOFadm,"select  fadmcode,fadmname  from sdfadm order By fadmcode","fadmname","fadmcode");
            FillComboBox(scFaChgNFadm,"select  fadmcode,fadmname  from sdfadm order By fadmcode","fadmname","fadmcode");
          }
         break;
        case euSdFadn:
          if(ShowUpdateMessage(MsgSrc,MsgType))
            FillEdit(seFaChgFadn,"select  fadncode,fadnname,Fadnfadm  from sdfadn  order By fadncode","fadncode","fadnname","Fadnfadm");
         break;
        case euSdFc:
          if(ShowUpdateMessage(MsgSrc,MsgType))
            FillComboBox(scFaChgFMonth,"select FcMonth from sdFc order By FcMonth","FcMonth");
         break;
       default:
         break;
      }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChDmc::seFaChgCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(seFaChgCode->Text);
      GetDataFromComObject();
    }

}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChDmc::sgFaChDmcClick(TObject *Sender)
{
    if (sgFaChDmc->Row > 0)
         comServer->LocateByKey(sgFaChDmc->TextMatrix[sgFaChDmc->Row][1]);
    if (!comServer->Eof)
         GetDataFromComObject();

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

void __fastcall TfrmFaChDmc::seFaChgFadnButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    TfrmWnQuery *p;
    SqlStr="003[设备编码][设备名称][折旧方法]select fadncode, fadnname,Fadnfadm from sdfadn where  (FadnDec=0 and FadnDisCard=0) order by fadncode ";
    try{
     StartWaitForm("正在查询，请稍候...");
     p=new TfrmWnQuery(this,"设备查询",SqlStr);
    }
    __finally
    {
     EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
      seFaChgFadn->Text=p->ColData[1];
      seFaChgFadnName->Text=p->ColData[2];
      scFaChgOFadm->LocateKey(p->ColData[3]);
    }
    delete p;
}
//---------------------------------------------------------------------------

void __fastcall TfrmFaChDmc::seFaChgFadnKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13)
    {
      TComResultSet *TResultSet=NewResultSet();
      AnsiString SQL="select fadncode, fadnname,Fadnfadm from sdfadn  where  (FadnDec=0 and FadnDisCard=0) and fadncode='"+seFaChgFadn->Text+"'order by fadncode ";
      try
      {
       TResultSet->Close();
       TResultSet->Open(SQL,"");
       if(TResultSet->RecordCount<1)
         throw  Exception("设备编码"+seFaChgFadn->Text+"'不存在或不能变动");
       seFaChgFadnName->Text=TResultSet->FieldByName("fadnname");
       scFaChgOFadm->LocateKey(TResultSet->FieldByName("Fadnfadm"));
       TResultSet->Close();
      }
      __finally
      {
       delete TResultSet;
      } 
    }
}
//---------------------------------------------------------------------------