fmhdl.cpp

邮 电 公 司 erp源码

{
    if (value.IsEmpty() )
       throw Exception("财务月份不能为空!");
    if (value!=m_FbbFMonth)
    {
        m_Query->Close();
        m_Query->SQL->Clear();
        m_Query->SQL->Add("select fcmonth from sdfc where fcmonth='" +value+"'");
        m_Query->Open();
        if(m_Query->RecordCount<=0)
        {
            m_Query->Close();
            throw Exception("财务月份:'"+value+"'未定义");
        }
    }
    m_FbbFMonth=value;
}
void __fastcall TsdFbb:: SetFbbDate(AnsiString value)
{
    if (value.IsEmpty() )
       throw Exception("日期不能为空!");
    m_FbbDate=Validate(value);
}
void __fastcall TsdFbb:: SetFbbType(int    value)
{
       m_FbbType=value;
}
void __fastcall TsdFbb:: SetFbbDir(double  value)
{
       m_FbbDir=value;
}
void __fastcall TsdFbb:: SetFbbCurrency(AnsiString value)
{
       m_FbbCurrency=value;
}
void __fastcall TsdFbb:: SetFbbAmt(double  value)
{
    if (value<0 )
       throw Exception("金额不能小于零!");
    m_FbbAmt=value;
}
void __fastcall TsdFbb:: SetFbbSettleMode(AnsiString value)
{
    if (value.IsEmpty() )
       throw Exception("必须选择结算方式!");
    m_FbbSettleMode=value;
}
void __fastcall TsdFbb:: SetFbbSettleNo(AnsiString value)
{
    if (value.IsEmpty() )
       throw Exception("必须填写结算号!");
    m_FbbSettleNo=value;
}
void __fastcall TsdFbb:: SetFbbZy(AnsiString value)
{
    if (value.IsEmpty() )
       throw Exception("摘要不能为空!");
    m_FbbZy=value;
}
void __fastcall TsdFbb:: SetFbbExpense(AnsiString value)
{
    if(m_FbbType==1 && value.IsEmpty())
       throw Exception("必须选择费用代码!");
    m_FbbExpense=value;
}
void __fastcall TsdFbb:: SetFbbCc(AnsiString value)
{
       m_FbbCc=value;
}
void __fastcall TsdFbb:: SetFbbClient(AnsiString value)
{
    if(m_FbbType==2 && value.IsEmpty())
       throw Exception("必须选择客户!");
    m_FbbClient=value;
}
void __fastcall TsdFbb:: SetFbbSupply(AnsiString value)
{
    if(m_FbbType==3 && value.IsEmpty())
       throw Exception("必须选择供应商!");
    m_FbbSupply=value;
}
void __fastcall TsdFbb:: SetFbbDept(AnsiString value)
{
    if(m_FbbType==4 && value.IsEmpty())
       throw Exception("必须选择部门!");
    m_FbbDept=value;
}
void __fastcall TsdFbb:: SetFbbEmployee(AnsiString value)
{
    if(m_FbbType==5 && value.IsEmpty())
       throw Exception("必须选择个人!");
    m_FbbEmployee=value;
}
void __fastcall TsdFbb:: SetFbbFromCac(AnsiString value)
{
    if(m_FbbType>=6  && value.IsEmpty())
       throw Exception("必须选择转出帐号!");
    m_FbbFromCac=value;
}
void __fastcall TsdFbb:: SetFbbFromCurrency(AnsiString value)
{
       m_FbbFromCurrency=value;
}
void __fastcall TsdFbb:: SetFbbFromRate(double  value)
{
    if(m_FbbType==7 && value<0)
       throw Exception("汇率不能小于零!");
     m_FbbFromRate=value;
}
void __fastcall TsdFbb:: SetFbbFromAmt(double  value)
{
    if(m_FbbType==7 && value<0)
       throw Exception("转出金额不能小于零!");
    m_FbbFromAmt=value;
}
void __fastcall TsdFbb:: SetFbbCAmt(double  value)
{
       m_FbbCAmt=value;
}
void __fastcall TsdFbb:: SetFbbSettle(int    value)
{
       m_FbbSettle=value;
}
void __fastcall TsdFbb:: SetFbbCancel(int    value)
{
       m_FbbCancel=value;
}
void __fastcall TsdFbb:: SetFbbPost(int    value)
{
       m_FbbPost=value;
}
void __fastcall TsdFbb:: SetFbbPzCode(AnsiString value)
{
       m_FbbPzCode=value;
}
void __fastcall TsdFbb:: SetFbbVerify(int    value)
{
       m_FbbVerify=value;
}
void __fastcall TsdFbb:: SetFbbBcsCode(AnsiString value)
{
       m_FbbBcsCode=value;
}
void __fastcall TsdFbb:: SetFbbBcsLine(int    value)
{
       m_FbbBcsLine=value;
}
void __fastcall TsdFbb:: SetFbbUser(AnsiString value)
{
       if(value.IsEmpty())
        throw Exception("操作员不能为空");
       m_FbbUser=value;
}
void __fastcall TsdFbb:: SetFbbSysDate(AnsiString value)
{
       m_FbbSysDate=value;
}
//---------------------------------------------------------------------------
AnsiString TsdFbb::GetFieldValue(euFbb sdFieldName)
{
    switch(sdFieldName)
    {
      case fiFbbNo:
           return FbbNo;
      case fiFbbCac:
           return FbbCac;
      case fiFbbFMonth:
           return FbbFMonth;
      case fiFbbDate:
           return FbbDate;
      case fiFbbType:
           return FbbType;
      case fiFbbDir:
           return FbbDir;
      case fiFbbCurrency:
           return FbbCurrency;
      case fiFbbAmt:
           return FbbAmt;
      case fiFbbSettleMode:
           return FbbSettleMode;
      case fiFbbSettleNo:
           return FbbSettleNo;
      case fiFbbZy:
           return FbbZy;
      case fiFbbExpense:
           return FbbExpense;
      case fiFbbCc:
           return FbbCc;
      case fiFbbClient:
           return FbbClient;
      case fiFbbSupply:
           return FbbSupply;
      case fiFbbDept:
           return FbbDept;
      case fiFbbEmployee:
           return FbbEmployee;
      case fiFbbFromCac:
           return FbbFromCac;
      case fiFbbFromCurrency:
           return FbbFromCurrency;
      case fiFbbFromRate:
           return FbbFromRate;
      case fiFbbFromAmt:
           return FbbFromAmt;
      case fiFbbCAmt:
           return FbbCAmt;
      case fiFbbSettle:
           return FbbSettle;
      case fiFbbCancel:
           return FbbCancel;
      case fiFbbPost:
           return FbbPost;
      case fiFbbPzCode:
           return FbbPzCode;
      case fiFbbVerify:
           return FbbVerify;
      case fiFbbBcsCode:
           return FbbBcsCode;
      case fiFbbBcsLine:
           return FbbBcsLine;
      case fiFbbUser:
           return FbbUser;
      case fiFbbSysDate:
           return FbbSysDate;
      default:
           throw Exception("当前未定义可取值");
     }
}
//---------------------------------------------------------------------------
void TsdFbb::SetFieldValue(euFbb sdFieldName, AnsiString value)
{
    switch(sdFieldName)
     {
    case fiFbbNo:  
         FbbNo=value.ToInt();
          break;
    case fiFbbCac:  
         FbbCac=value;
          break;
    case fiFbbFMonth:  
         FbbFMonth=value;
          break;
    case fiFbbDate:  
         FbbDate=value;
          break;
    case fiFbbType:  
         FbbType=value.ToInt();
          break;
    case fiFbbDir:  
         FbbDir=value.ToDouble();
          break;
    case fiFbbCurrency:  
         FbbCurrency=value;
          break;
    case fiFbbAmt:  
         FbbAmt=value.ToDouble();
          break;
    case fiFbbSettleMode:  
         FbbSettleMode=value;
          break;
    case fiFbbSettleNo:  
         FbbSettleNo=value;
          break;
    case fiFbbZy:  
         FbbZy=value;
          break;
    case fiFbbExpense:  
         FbbExpense=value;
          break;
    case fiFbbCc:  
         FbbCc=value;
          break;
    case fiFbbClient:  
         FbbClient=value;
          break;
    case fiFbbSupply:  
         FbbSupply=value;
          break;
    case fiFbbDept:  
         FbbDept=value;
          break;
    case fiFbbEmployee:  
         FbbEmployee=value;
          break;
    case fiFbbFromCac:  
         FbbFromCac=value;
          break;
    case fiFbbFromCurrency:  
         FbbFromCurrency=value;
          break;
    case fiFbbFromRate:  
         FbbFromRate=value.ToDouble();
          break;
    case fiFbbFromAmt:  
         FbbFromAmt=value.ToDouble();
          break;
    case fiFbbCAmt:  
         FbbCAmt=value.ToDouble();
          break;
    case fiFbbSettle:  
         FbbSettle=value.ToInt();
          break;
    case fiFbbCancel:  
         FbbCancel=value.ToInt();
          break;
    case fiFbbPost:  
         FbbPost=value.ToInt();
          break;
    case fiFbbPzCode:  
         FbbPzCode=value;
          break;
    case fiFbbVerify:  
         FbbVerify=value.ToInt();
          break;
    case fiFbbBcsCode:  
         FbbBcsCode=value;
          break;
    case fiFbbBcsLine:  
         FbbBcsLine=value.ToInt();
          break;
    case fiFbbUser:  
         FbbUser=value;
          break;
    case fiFbbSysDate:  
         FbbSysDate=value;
          break;
    default:
         throw Exception("当前字段未定义可赋值");
      }
}
//---------------------------------------------------------------------------
TsdFbb::TsdFbb(TDataComm *DC)
                :TsdStandard(DC)
{
    try
    {
        EmptyValue(0);
        EmptyValue(1);
        QueryString="SELECT * FROM sdFbb";
        FilterString="";
        OrderString="FbbNo,FbbCac,FbbFMonth";
    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }
}
//---------------------------------------------------------------------------
TsdFbb::TsdFbb()
                :TsdStandard()
{
    try
    {
        EmptyValue(0);
        EmptyValue(1);
        QueryString="SELECT * FROM sdFbb";
        FilterString="";
        OrderString="FbbNo,FbbCac,FbbFMonth";
    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }
}
//---------------------------------------------------------------------------
TsdFbb::~TsdFbb()
{
  try{
     }
  catch(...)
    {
     throw Exception("析构函数出错");
    }
}
//---------------------------------------------------------------------------
void TsdFbb::BackupValue()
{
      b_FbbNo=m_FbbNo;
      b_FbbCac=m_FbbCac;
      b_FbbFMonth=m_FbbFMonth;
      b_FbbDate=m_FbbDate;
      b_FbbType=m_FbbType;
      b_FbbDir=m_FbbDir;
      b_FbbCurrency=m_FbbCurrency;
      b_FbbAmt=m_FbbAmt;
      b_FbbSettleMode=m_FbbSettleMode;
      b_FbbSettleNo=m_FbbSettleNo;
      b_FbbZy=m_FbbZy;
      b_FbbExpense=m_FbbExpense;
      b_FbbCc=m_FbbCc;
      b_FbbClient=m_FbbClient;
      b_FbbSupply=m_FbbSupply;
      b_FbbDept=m_FbbDept;
      b_FbbEmployee=m_FbbEmployee;
      b_FbbFromCac=m_FbbFromCac;
      b_FbbFromCurrency=m_FbbFromCurrency;