fachova.cpp

科思ERP部分源码及控件

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

#include <vcl.h>
#pragma hdrstop

#include "FaChOva.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"
TfrmFaChOva *frmFaChOva;
//---------------------------------------------------------------------------
__fastcall TfrmFaChOva::TfrmFaChOva(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{
   InitRsGlkm("");
   IsUserCheck = true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChOva::InitEditControl()
{
    FillComboBox(Handle,scFaChgFMonth,"select FcMonth from sdFc order By FcMonth","FcMonth");
    FillEdit(Handle,seFaChgFadn,"select  fadncode,fadnname,FadnOVal  from sdfadn  order By fadncode","fadncode","fadnname","FadnOVal");
    ClientGroup->AddComponent(2,false,false,true,FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, sgFaChOva,sgFaChOva->Name);
    ClientGroup->AddComponent(2,false,false,false, seFaChgCode, seFaChgCode->Name);
    ClientGroup->AddComponent(2,true,true,true,scFaChgFMonth,scFaChgFMonth->Name);
}
//---------------------------------------------------------------------------

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

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

}

//---------------------------------------------------------------------------
void __fastcall TfrmFaChOva::GetDataFromComObject()
{
    seFaChgCode->Text=GetFieldValue("FaChgCode");
    sgFaChOva->LocateGrid(1,seFaChgCode->Text);
    sdFaChgDate->Text=GetFieldValue("FaChgDate");
    scFaChgFMonth->Text=GetFieldValue("FaChgFMonth");
    seFaChgFadn->LocateKey(GetFieldValue("FaChgFadn"));
    seFaChgFadn->Text=seFaChgFadn->ItemData[0];
    seFaChgFadnName->Text=seFaChgFadn->ItemData[1];
    seFaChgOOVal->Text=GetFieldValue("FaChgOOVal");
    seFaChgNOVal->Text=GetFieldValue("FaChgNOVal");
    seFaChgDesc->Text=GetFieldValue("FaChgDesc");
    labFaChgUser->Caption=GetFieldValue("FaChgUser");
    chkFaChgCheck->Checked=(GetFieldValue("FaChgCheck")==1)? true: false;
    if(chkFaChgCheck->Checked)
      SetCheckToolbarStatus(true);
    else
      SetCheckToolbarStatus(false);
    labFaChgChecker->Caption=GetFieldValue("FaChgChecker");
    labFaChgCheckDate->Caption=GetFieldValue("FaChgCheckDate");
    seFaChgOGlkm->Text=GetFieldValue("FaChgOGlkm");
    chkFaChgPost->Checked=GetFieldValue("FaChgPost")=="1";
    labFaChgSysDate->Caption=GetFieldValue("FaChgSysDate");
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChOva::SendDataToComObject()
{
    SetFieldValue("FaChgType","1");
    SetFieldValue("FaChgCode",seFaChgCode->Text);
    SetFieldValue("FaChgDate",sdFaChgDate->Text);
    SetFieldValue("FaChgFMonth",scFaChgFMonth->Text);
    SetFieldValue("FaChgFadn",seFaChgFadn->Text);
    SetFieldValue("FaChgDesc",seFaChgDesc->Text);
    SetFieldValue("FaChgOOVal",seFaChgOOVal->Text);
    SetFieldValue("FaChgNOVal",seFaChgNOVal->Text);
    SetFieldValue("FaChgUser",labFaChgUser->Caption);
    SetFieldValue("FaChgOGlkm",seFaChgOGlkm->Text);
    SetFieldValue("FaChgPost",chkFaChgPost->Checked ? "1":"0");
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChOva::WaitUserInput()
{
   seFaChgCode->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFaChOva::GetDataToGrid()
{
    AnsiString  s;
    seFaChgFadn->LocateKey(GetFieldValue("FaChgFadn"));
    s = "\t" +GetFieldValue("FaChgCode")+
        "\t" +GetFieldValue("FaChgFadn")+
        "\t" +seFaChgFadn->ItemData[1]+
        "\t" +GetFieldValue("FaChgDate");
    return(s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChOva::RefreshGridData(int mAction)
{
    AnsiString ItemStr;
    ItemStr = GetDataToGrid();
    if (mAction ==  0)   //Add
    {
        sgFaChOva->AddItem(ItemStr);
    }
    else if(mAction ==  1)   //Modify
    {
        int i   =   sgFaChOva->Row;
        sgFaChOva->RemoveItem(i);
        sgFaChOva->AddItem(ItemStr,i);
    }
    else if(mAction ==  2)      //Delete
    {
        sgFaChOva->RemoveItem(sgFaChOva->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChOva::FillGridWithData()
{
    AnsiString ItemStr;
    comServer->FilterString="FACHGTYPE='1'";
    comServer->Query();
    comServer->MoveFirst();
    sgFaChOva->RowCount    =   1;
    while (comServer->Eof   ==  0)
    {
        ItemStr =  GetDataToGrid();
        sgFaChOva->AddItem(ItemStr);
        comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChOva::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChOva::seFaChgOGlkmButtonClick(TObject *Sender)
{
   if(OpenGlkmForm())
     seFaChgOGlkm->Text=GetGlkmValue(gtOpenForm, "GLKMCODE");
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaChOva::RefreshUpdateData(int MsgSrc,int MsgType)
{
/*
    switch(MsgSrc)
    {
       case euSdFadn:
        if(ShowUpdateMessage(MsgSrc,MsgType))
          FillEdit(Handle,seFaChgFadn,"select  fadncode,fadnname,FadnOVal  from sdfadn  order By fadncode","fadncode","fadnname","FadnOVal");
       break;
      case euSdFc:
        if(ShowUpdateMessage(MsgSrc,MsgType))
          FillComboBox(Handle,scFaChgFMonth,"select FcMonth from sdFc order By FcMonth","FcMonth");
       break;
      default:
       break;
    }
*/
 }
//---------------------------------------------------------------------------

void __fastcall TfrmFaChOva::seFaChgCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(seFaChgCode->Text);
      GetDataFromComObject();
    }

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

void __fastcall TfrmFaChOva::sgFaChOvaClick(TObject *Sender)
{
    if (sgFaChOva->Row > 0)
         //comServer->LocateByKey(sgFaChOva->TextMatrix[sgFaChOva->Row][1]);
         comServer->LocateByKey(sgFaChOva->Row -1);
    if (!comServer->Eof)
         GetDataFromComObject();

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

void __fastcall TfrmFaChOva::seFaChgFadnButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    TfrmWnQuery *p;
    SqlStr="003[设备编码][设备名称][原值]select fadncode, fadnname,FadnOVal 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];
        seFaChgOOVal->Text=p->ColData[3];
    }
    delete p;

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

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

}
//---------------------------------------------------------------------------
bool __fastcall TfrmFaChOva::BeforeCheck()
{
  SetFieldValue("FaChgCheck",1);
  SetFieldValue("FaChgChecker",g_sdUserCode);
  SetFieldValue("FaChgCheckDate",g_sdCurDate);
  return true;
}
//---------------------------------------------------------------------------
bool __fastcall TfrmFaChOva::BeforeUnCheck()
{
  SetFieldValue("FaChgCheck",0);
  SetFieldValue("FaChgChecker","");
  SetFieldValue("FaChgCheckDate",NULL);
  return true;
}
//---------------------------------------------------------------------------

void __fastcall TfrmFaChOva::FormClose(TObject *Sender,
      TCloseAction &Action)
{
   //delete g_sdRsGlkm;
   TRecBaseForm::FormClose(Sender,Action);
}
//---------------------------------------------------------------------------