fmhdl.cpp

邮 电 公 司 erp源码

      b_FbbFromRate=m_FbbFromRate;
      b_FbbFromAmt=m_FbbFromAmt;
      b_FbbCAmt=m_FbbCAmt;
      b_FbbSettle=m_FbbSettle;
      b_FbbCancel=m_FbbCancel;
      b_FbbPost=m_FbbPost;
      b_FbbPzCode=m_FbbPzCode;
      b_FbbVerify=m_FbbVerify;
      b_FbbBcsCode=m_FbbBcsCode;
      b_FbbBcsLine=m_FbbBcsLine;
      b_FbbUser=m_FbbUser;
      b_FbbSysDate=m_FbbSysDate;
}
//---------------------------------------------------------------------------
void TsdFbb::RestoreValue()
{
      m_FbbNo=b_FbbNo;
      m_FbbCac=b_FbbCac;
      m_FbbFMonth=b_FbbFMonth;
      m_FbbDate=b_FbbDate;
      m_FbbType=b_FbbType;
      m_FbbDir=b_FbbDir;
      m_FbbCurrency=b_FbbCurrency;
      m_FbbAmt=b_FbbAmt;
      m_FbbSettleMode=b_FbbSettleMode;
      m_FbbSettleNo=b_FbbSettleNo;
      m_FbbZy=b_FbbZy;
      m_FbbExpense=b_FbbExpense;
      m_FbbCc=b_FbbCc;
      m_FbbClient=b_FbbClient;
      m_FbbSupply=b_FbbSupply;
      m_FbbDept=b_FbbDept;
      m_FbbEmployee=b_FbbEmployee;
      m_FbbFromCac=b_FbbFromCac;
      m_FbbFromCurrency=b_FbbFromCurrency;
      m_FbbFromRate=b_FbbFromRate;
      m_FbbFromAmt=b_FbbFromAmt;
      m_FbbCAmt=b_FbbCAmt;
      m_FbbSettle=b_FbbSettle;
      m_FbbCancel=b_FbbCancel;
      m_FbbPost=b_FbbPost;
      m_FbbPzCode=b_FbbPzCode;
      m_FbbVerify=b_FbbVerify;
      m_FbbBcsCode=b_FbbBcsCode;
      m_FbbBcsLine=b_FbbBcsLine;
      m_FbbUser=b_FbbUser;
      m_FbbSysDate=b_FbbSysDate;
}
//---------------------------------------------------------------------------
void TsdFbb::EmptyValue(int Index)
{
   switch(Index)
   {
    case 0:
        m_FbbNo=0;
        m_FbbCac="";
        m_FbbFMonth="";
        m_FbbDate="";
        m_FbbType=0;
        m_FbbDir=0;
        m_FbbCurrency="";
        m_FbbAmt=0;
        m_FbbSettleMode="";
        m_FbbSettleNo="";
        m_FbbZy="";
        m_FbbExpense="";
        m_FbbCc="";
        m_FbbClient="";
        m_FbbSupply="";
        m_FbbDept="";
        m_FbbEmployee="";
        m_FbbFromCac="";
        m_FbbFromCurrency="";
        m_FbbFromRate=0;
        m_FbbFromAmt=0;
        m_FbbCAmt=0;
        m_FbbSettle=0;
        m_FbbCancel=0;
        m_FbbPost=0;
        m_FbbPzCode="";
        m_FbbVerify=0;
        m_FbbBcsCode="";
        m_FbbBcsLine=0;
        m_FbbUser="";
        m_FbbSysDate="";
    break;
    case 1:
        b_FbbNo=0;
        b_FbbCac="";
        b_FbbFMonth="";
        b_FbbDate="";
        b_FbbType=0;
        b_FbbDir=0;
        b_FbbCurrency="";
        b_FbbAmt=0;
        b_FbbSettleMode="";
        b_FbbSettleNo="";
        b_FbbZy="";
        b_FbbExpense="";
        b_FbbCc="";
        b_FbbClient="";
        b_FbbSupply="";
        b_FbbDept="";
        b_FbbEmployee="";
        b_FbbFromCac="";
        b_FbbFromCurrency="";
        b_FbbFromRate=0;
        b_FbbFromAmt=0;
        b_FbbCAmt=0;
        b_FbbSettle=0;
        b_FbbCancel=0;
        b_FbbPost=0;
        b_FbbPzCode="";
        b_FbbVerify=0;
        b_FbbBcsCode="";
        b_FbbBcsLine=0;
        b_FbbUser="";
        b_FbbSysDate="";
      break;
     }
}
//---------------------------------------------------------------------------
void TsdFbb::BatchLetValue()
{
    m_FbbNo=m_Query->FieldValues["FbbNo"];
    m_FbbCac=m_Query->FieldValues["FbbCac"];
    m_FbbFMonth=m_Query->FieldValues["FbbFMonth"];
    m_FbbDate=m_Query->FieldValues["FbbDate"];
    m_FbbType=m_Query->FieldValues["FbbType"];
    m_FbbDir=m_Query->FieldValues["FbbDir"];
    m_FbbCurrency=m_Query->FieldValues["FbbCurrency"];
    m_FbbAmt=m_Query->FieldValues["FbbAmt"];
    m_FbbSettleMode=m_Query->FieldValues["FbbSettleMode"];
    m_FbbSettleNo=m_Query->FieldValues["FbbSettleNo"];
    m_FbbZy=m_Query->FieldValues["FbbZy"];
    m_FbbExpense=m_Query->FieldValues["FbbExpense"];
    m_FbbCc=m_Query->FieldValues["FbbCc"];
    m_FbbClient=m_Query->FieldValues["FbbClient"];
    m_FbbSupply=m_Query->FieldValues["FbbSupply"];
    m_FbbDept=m_Query->FieldValues["FbbDept"];
    m_FbbEmployee=m_Query->FieldValues["FbbEmployee"];
    m_FbbFromCac=m_Query->FieldValues["FbbFromCac"];
    m_FbbFromCurrency=m_Query->FieldValues["FbbFromCurrency"];
    m_FbbFromRate=m_Query->FieldValues["FbbFromRate"];
    m_FbbFromAmt=m_Query->FieldValues["FbbFromAmt"];
    m_FbbCAmt=m_Query->FieldValues["FbbCAmt"];
    m_FbbSettle=m_Query->FieldValues["FbbSettle"];
    m_FbbCancel=m_Query->FieldValues["FbbCancel"];
    m_FbbPost=m_Query->FieldValues["FbbPost"];
    m_FbbPzCode=m_Query->FieldValues["FbbPzCode"];
    m_FbbVerify=m_Query->FieldValues["FbbVerify"];
    m_FbbBcsCode=m_Query->FieldValues["FbbBcsCode"];
    m_FbbBcsLine=m_Query->FieldValues["FbbBcsLine"];
    m_FbbUser=m_Query->FieldValues["FbbUser"];
    m_FbbSysDate=m_Query->FieldValues["FbbSysDate"];
    BackupValue();
}
//---------------------------------------------------------------------------
void TsdFbb::Update()
{
    if(CurStatus==0||CurStatus==1)
        throw Exception("当前不是编辑状态,不能进行存盘操作!");
    if(m_FbbCac.IsEmpty()==true || m_FbbFMonth.IsEmpty()==true )
        throw Exception("帐号、财务月份不能为空!");
    m_StoredProc->Close();
   if(CurStatus==2||CurStatus==4)
      {
        m_StoredProc->ProcedureName="sdFbb_Insert";
        m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@FbbNo",ftInteger,pdInput,10,m_FbbNo);
        m_StoredProc->Parameters->CreateParameter("@FbbCac",ftString,pdInput,18,m_FbbCac);
        m_StoredProc->Parameters->CreateParameter("@FbbFMonth",ftString,pdInput,6,m_FbbFMonth);
        m_StoredProc->Parameters->CreateParameter("@FbbDate",ftString,pdInput,10,m_FbbDate);
        m_StoredProc->Parameters->CreateParameter("@FbbType",ftInteger,pdInput,1,m_FbbType);
        m_StoredProc->Parameters->CreateParameter("@FbbDir",ftFloat,pdInput,5,m_FbbDir);
        m_StoredProc->Parameters->CreateParameter("@FbbCurrency",ftString,pdInput,18,m_FbbCurrency);
        m_StoredProc->Parameters->CreateParameter("@FbbAmt",ftFloat,pdInput,12,m_FbbAmt);
        m_StoredProc->Parameters->CreateParameter("@FbbSettleMode",ftString,pdInput,18,m_FbbSettleMode);
        m_StoredProc->Parameters->CreateParameter("@FbbSettleNo",ftString,pdInput,18,m_FbbSettleNo);
        m_StoredProc->Parameters->CreateParameter("@FbbZy",ftString,pdInput,40,m_FbbZy);
        m_StoredProc->Parameters->CreateParameter("@FbbExpense",ftString,pdInput,18,m_FbbExpense);
        m_StoredProc->Parameters->CreateParameter("@FbbCc",ftString,pdInput,18,m_FbbCc);
        m_StoredProc->Parameters->CreateParameter("@FbbClient",ftString,pdInput,18,m_FbbClient);
        m_StoredProc->Parameters->CreateParameter("@FbbSupply",ftString,pdInput,18,m_FbbSupply);
        m_StoredProc->Parameters->CreateParameter("@FbbDept",ftString,pdInput,18,m_FbbDept);
        m_StoredProc->Parameters->CreateParameter("@FbbEmployee",ftString,pdInput,18,m_FbbEmployee);
        m_StoredProc->Parameters->CreateParameter("@FbbFromCac",ftString,pdInput,18,m_FbbFromCac);
        m_StoredProc->Parameters->CreateParameter("@FbbFromCurrency",ftString,pdInput,18,m_FbbFromCurrency);
        m_StoredProc->Parameters->CreateParameter("@FbbFromRate",ftFloat,pdInput,12,m_FbbFromRate);
        m_StoredProc->Parameters->CreateParameter("@FbbFromAmt",ftFloat,pdInput,12,m_FbbFromAmt);
        m_StoredProc->Parameters->CreateParameter("@FbbCAmt",ftFloat,pdInput,12,m_FbbCAmt);
        m_StoredProc->Parameters->CreateParameter("@FbbSettle",ftInteger,pdInput,1,m_FbbSettle);
        m_StoredProc->Parameters->CreateParameter("@FbbCancel",ftInteger,pdInput,1,m_FbbCancel);
        m_StoredProc->Parameters->CreateParameter("@FbbPost",ftInteger,pdInput,1,m_FbbPost);
        m_StoredProc->Parameters->CreateParameter("@FbbPzCode",ftString,pdInput,18,m_FbbPzCode);
        m_StoredProc->Parameters->CreateParameter("@FbbVerify",ftInteger,pdInput,1,m_FbbVerify);
        m_StoredProc->Parameters->CreateParameter("@FbbBcsCode",ftString,pdInput,18,m_FbbBcsCode);
        m_StoredProc->Parameters->CreateParameter("@FbbBcsLine",ftInteger,pdInput,10,m_FbbBcsLine);
        m_StoredProc->Parameters->CreateParameter("@FbbUser",ftString,pdInput,18,m_FbbUser);
        m_StoredProc->Parameters->CreateParameter("@FbbSysDate",ftString,pdOutput,30,m_FbbSysDate);

        m_StoredProc->ExecProc();
       m_FbbSysDate=m_StoredProc->Parameters->ParamValues["@FbbSysDate"];

   }
  else
    {
        m_StoredProc->ProcedureName="sdFbb_Update";
        m_StoredProc->Parameters->Clear();

        m_StoredProc->Parameters->CreateParameter("@W_FbbNo",ftString,pdInput,10,b_FbbNo);
        m_StoredProc->Parameters->CreateParameter("@W_FbbCac",ftString,pdInput,18,b_FbbCac);
        m_StoredProc->Parameters->CreateParameter("@W_FbbFMonth",ftString,pdInput,6,b_FbbFMonth);
        m_StoredProc->Parameters->CreateParameter("@FbbNo",ftInteger,pdInput,10,m_FbbNo);
        m_StoredProc->Parameters->CreateParameter("@FbbCac",ftString,pdInput,18,m_FbbCac);
        m_StoredProc->Parameters->CreateParameter("@FbbFMonth",ftString,pdInput,6,m_FbbFMonth);
        m_StoredProc->Parameters->CreateParameter("@FbbDate",ftString,pdInput,10,m_FbbDate);
        m_StoredProc->Parameters->CreateParameter("@FbbType",ftInteger,pdInput,1,m_FbbType);
        m_StoredProc->Parameters->CreateParameter("@FbbDir",ftFloat,pdInput,5,m_FbbDir);
        m_StoredProc->Parameters->CreateParameter("@FbbCurrency",ftString,pdInput,18,m_FbbCurrency);
        m_StoredProc->Parameters->CreateParameter("@FbbAmt",ftFloat,pdInput,12,m_FbbAmt);
        m_StoredProc->Parameters->CreateParameter("@FbbSettleMode",ftString,pdInput,18,m_FbbSettleMode);
        m_StoredProc->Parameters->CreateParameter("@FbbSettleNo",ftString,pdInput,18,m_FbbSettleNo);
        m_StoredProc->Parameters->CreateParameter("@FbbZy",ftString,pdInput,40,m_FbbZy);
        m_StoredProc->Parameters->CreateParameter("@FbbExpense",ftString,pdInput,18,m_FbbExpense);
        m_StoredProc->Parameters->CreateParameter("@FbbCc",ftString,pdInput,18,m_FbbCc);
        m_StoredProc->Parameters->CreateParameter("@FbbClient",ftString,pdInput,18,m_FbbClient);
        m_StoredProc->Parameters->CreateParameter("@FbbSupply",ftString,pdInput,18,m_FbbSupply);
        m_StoredProc->Parameters->CreateParameter("@FbbDept",ftString,pdInput,18,m_FbbDept);
        m_StoredProc->Parameters->CreateParameter("@FbbEmployee",ftString,pdInput,18,m_FbbEmployee);
        m_StoredProc->Parameters->CreateParameter("@FbbFromCac",ftString,pdInput,18,m_FbbFromCac);
        m_StoredProc->Parameters->CreateParameter("@FbbFromCurrency",ftString,pdInput,18,m_FbbFromCurrency);
        m_StoredProc->Parameters->CreateParameter("@FbbFromRate",ftFloat,pdInput,12,m_FbbFromRate);
        m_StoredProc->Parameters->CreateParameter("@FbbFromAmt",ftFloat,pdInput,12,m_FbbFromAmt);
        m_StoredProc->Parameters->CreateParameter("@FbbCAmt",ftFloat,pdInput,12,m_FbbCAmt);
        m_StoredProc->Parameters->CreateParameter("@FbbSettle",ftInteger,pdInput,1,m_FbbSettle);
        m_StoredProc->Parameters->CreateParameter("@FbbCancel",ftInteger,pdInput,1,m_FbbCancel);
        m_StoredProc->Parameters->CreateParameter("@FbbPost",ftInteger,pdInput,1,m_FbbPost);
        m_StoredProc->Parameters->CreateParameter("@FbbPzCode",ftString,pdInput,18,m_FbbPzCode);
        m_StoredProc->Parameters->CreateParameter("@FbbVerify",ftInteger,pdInput,1,m_FbbVerify);
        m_StoredProc->Parameters->CreateParameter("@FbbBcsCode",ftString,pdInput,18,m_FbbBcsCode);
        m_StoredProc->Parameters->CreateParameter("@FbbBcsLine",ftInteger,pdInput,10,m_FbbBcsLine);
        m_StoredProc->Parameters->CreateParameter("@FbbUser",ftString,pdInput,18,m_FbbUser);
        m_StoredProc->Parameters->CreateParameter("@FbbSysDate",ftString,pdOutput,30,m_FbbSysDate);

       m_StoredProc->ExecProc();
       m_FbbSysDate=m_StoredProc->Parameters->ParamValues["@FbbSysDate"];

   }
    m_StoredProc->Close();
  TsdFbb *p=new TsdFbb();
  if(CurStatus==2)
    {
     SetActionID(1);
     p->Assign(this);
     AddRecord((void *)p,AnsiString(p->FbbNo)+p->FbbCac+p->FbbFMonth);
     }
  else
    {
     SetActionID(1);
     p->Assign(this);
     ChangeRecord((void *)p,AnsiString(p->FbbNo)+p->FbbCac+p->FbbFMonth,AnsiString(this->b_FbbNo)+this->b_FbbCac+this->b_FbbFMonth);
    }
}
//---------------------------------------------------------------------------
void TsdFbb::Delete()
{
    if(CurStatus!=1)
        throw Exception("当前状态不能进行删除操作!");
    if(m_FbbCac.IsEmpty()==true || m_FbbFMonth.IsEmpty()==true )
        throw Exception("当前没有记录可以删除!");
    m_StoredProc->Close();
    m_StoredProc->ProcedureName="sdFbb_Delete";
    m_StoredProc->Parameters->Clear();
    m_StoredProc->Parameters->CreateParameter("@W_FbbNo",ftString,pdInput,10,b_FbbNo);
    m_StoredProc->Parameters->CreateParameter("@W_FbbCac",ftString,pdInput,18,b_FbbCac);
    m_StoredProc->Parameters->CreateParameter("@W_FbbFMonth",ftString,pdInput,6,b_FbbFMonth);
    m_StoredProc->ExecProc();
    DeleteRecord(AnsiString(this->b_FbbNo)+this->b_FbbCac+this->b_FbbFMonth);
}
//---------------------------------------------------------------------------
void TsdFbb::Assign(TsdFbb *p)
{
    this->SetActionID(p->CurStatus);
    this->m_FbbNo=p->m_FbbNo;
    this->m_FbbCac=p->m_FbbCac;
    this->m_FbbFMonth=p->m_FbbFMonth;
    this->m_FbbDate=p->m_FbbDate;
    this->m_FbbType=p->m_FbbType;
    this->m_FbbDir=p->m_FbbDir;
    this->m_FbbCurrency=p->m_FbbCurrency;
    this->m_FbbAmt=p->m_FbbAmt;
    this->m_FbbSettleMode=p->m_FbbSettleMode;
    this->m_FbbSettleNo=p->m_FbbSettleNo;
    this->m_FbbZy=p->m_FbbZy;
    this->m_FbbExpense=p->m_FbbExpense;
    this->m_FbbCc=p->m_FbbCc;
    this->m_FbbClient=p->m_FbbClient;
    this->m_FbbSupply=p->m_FbbSupply;
    this->m_FbbDept=p->m_FbbDept;
    this->m_FbbEmployee=p->m_FbbEmployee;
    this->m_FbbFromCac=p->m_FbbFromCac;
    this->m_FbbFromCurrency=p->m_FbbFromCurrency;
    this->m_FbbFromRate=p->m_FbbFromRate;
    this->m_FbbFromAmt=p->m_FbbFromAmt;
    this->m_FbbCAmt=p->m_FbbCAmt;
    this->m_FbbSettle=p->m_FbbSettle;
    this->m_FbbCancel=p->m_FbbCancel;
    this->m_FbbPost=p->m_FbbPost;
    this->m_FbbPzCode=p->m_FbbPzCode;
    this->m_FbbVerify=p->m_FbbVerify;
    this->m_FbbBcsCode=p->m_FbbBcsCode;
    this->m_FbbBcsLine=p->m_FbbBcsLine;
    this->m_FbbUser=p->m_FbbUser;
    this->m_FbbSysDate=p->m_FbbSysDate;
    this->BackupValue();
}
//---------------------------------------------------------------------------
void TsdFbb::AssignValue()
{
    TsdFbb *p=(TsdFbb *)Records(CurRecNo);
    Assign(p);
}
//---------------------------------------------------------------------------
int TsdFbb::Query()
{
    AnsiString m_SqlStr;
    m_SqlStr=QueryString;
    if(FilterString.IsEmpty()==false)
        m_SqlStr=m_SqlStr+" where  "+FilterString;
    if(OrderString.IsEmpty()==false)
        m_SqlStr=m_SqlStr+" Order by "+OrderString;
    m_Query->Close();
    m_Query->SQL->Clear();
    m_Query->SQL->Add(m_SqlStr);
    m_Query->Open();
    ClearRecord();
    if(m_Query->RecordCount>0)
    {
        m_Query->First();
        while(!m_Query->Eof)
        {
            BatchLetValue();
            TsdFbb *p=new TsdFbb();
            SetActionID(1);
            p->Assign(this);
            AddRecord((void *)p,AnsiString(p->FbbNo)+p->FbbCac+p->FbbFMonth);
            m_Query->Next();
        }
        MoveFirst();
    }
    m_Query->Close();
    return Count;
}
//---------------------------------------------------------------------------
bool TsdFbb::Find(AnsiString WhereStr)
{
    AnsiString m_SqlStr;
    if(WhereStr.IsEmpty()==true)
        throw Exception("查找表达式不能为空");
    m_SqlStr="select * from sdFbb where  "+WhereStr;
    m_Query->Close();
    m_Query->SQL->Clear();
    m_Query->SQL->Add(m_SqlStr);
    m_Query->Open();
    if(m_Query->RecordCount!=1)
    {
        m_Query->Close();
        return false;
    }
    else
    {
        BatchLetValue();
        m_Query->Close();
        return true;
    }
}
//**************************************
//     TsdGlb       总帐初始化
//**************************************
//--------------------------------------------------------------
void __fastcall TsdGlb:: SetGlbGlkm(AnsiString value)
{
       m_GlbGlkm=value;
}
void __fastcall TsdGlb:: SetGlbFmonth(AnsiString value)
{
       m_GlbFmonth=value;
}
void __fastcall TsdGlb:: SetGlbDir(double  value)
{
       m_GlbDir=value;
}
void __fast