fmhdl.cpp

邮 电 公 司 erp源码

       m_BcsSysDate=m_StoredProc->Parameters->ParamValues["@BcsSysDate"];

   }
    m_StoredProc->Close();
  TsdBcs *p=new TsdBcs();
  if(CurStatus==2)
    {
     SetActionID(1);
     p->Assign(this);
     AddRecord((void *)p,p->BcsCode+"-"+AnsiString(p->BcsLine));
     }
  else
    {
     SetActionID(1);
     p->Assign(this);
     ChangeRecord((void *)p,p->BcsCode+"-"+AnsiString(p->BcsLine),this->b_BcsCode+"-"+AnsiString(this->b_BcsLine));
    }
}
//---------------------------------------------------------------------------
void TsdBcs::Delete()
{
    if(CurStatus!=1)
        throw Exception("当前状态不能进行删除操作!");
    if(m_BcsCode.IsEmpty()==true)
        throw Exception("当前没有记录可以删除!");
    m_StoredProc->Close();
    m_StoredProc->ProcedureName="sdBcs_Delete";
    m_StoredProc->Parameters->Clear();
    m_StoredProc->Parameters->CreateParameter("@W_BcsCode",ftString,pdInput,18,b_BcsCode);
    m_StoredProc->Parameters->CreateParameter("@W_BcsLine",ftString,pdInput,10,b_BcsLine);
    m_StoredProc->ExecProc();
    m_StoredProc->Close();
    DeleteRecord(this->b_BcsCode+"-"+AnsiString(this->b_BcsLine));
}
//---------------------------------------------------------------------------
void TsdBcs::Assign(TsdBcs *p)
{
    this->SetActionID(p->CurStatus);
    this->m_BcsCode=p->m_BcsCode;
    this->m_BcsLine=p->m_BcsLine;
    this->m_BcsDate=p->m_BcsDate;
    this->m_BcsSettleMode=p->m_BcsSettleMode;
    this->m_BcsSettleNo=p->m_BcsSettleNo;
    this->m_BcsDir=p->m_BcsDir;
    this->m_BcsAmt=p->m_BcsAmt;
    this->m_BcsZy=p->m_BcsZy;
    this->m_BcsCac=p->m_BcsCac;
    this->m_BcsFMonth=p->m_BcsFMonth;
    this->m_BcsFbbNo=p->m_BcsFbbNo;
    this->m_BcsVeriry=p->m_BcsVeriry;
    this->m_BcsUser=p->m_BcsUser;
    this->m_BcsSysDate=p->m_BcsSysDate;
    this->BackupValue();
}
//---------------------------------------------------------------------------
void TsdBcs::AssignValue()
{
    TsdBcs *p=(TsdBcs *)Records(CurRecNo);
    Assign(p);
}
//---------------------------------------------------------------------------
int TsdBcs::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();
            TsdBcs *p=new TsdBcs();
            SetActionID(1);
            p->Assign(this);
            AddRecord((void *)p,p->BcsCode+"-"+AnsiString(p->BcsLine));
            m_Query->Next();
        }
        MoveFirst();
    }
    m_Query->Close();
    return Count;
}
//---------------------------------------------------------------------------
bool TsdBcs::Find(AnsiString WhereStr)
{
    AnsiString m_SqlStr;
    if(WhereStr.IsEmpty()==true)
        throw Exception("查找表达式不能为空");
    m_SqlStr="select * from sdBcs 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;
    }
}
//**************************************
//     TsdCts
//**************************************
//--------------------------------------------------------------
void __fastcall TsdCts:: SetCtsCode(AnsiString value)
{
    if (value.IsEmpty() )
       throw Exception("盘点单号不能为空!");
    if(value.Length()>18)
      throw Exception("盘点单号长度不能大于18");
    if (value!=m_CtsCode)
    {
        m_Query->Close();
        m_Query->SQL->Clear();
        m_Query->SQL->Add("select Ctscode from sdCts where Ctscode='" +value+"'");
        m_Query->Open();
        if(m_Query->RecordCount>0)
        {
            m_Query->Close();
            throw Exception("盘点单号:'"+value+"'已存在");
        }
    }
    m_CtsCode=value;
}
void __fastcall TsdCts:: SetCtsDate(AnsiString value)
{
    if (value.IsEmpty() )
       throw Exception("必须填写盘点日期!");
    m_CtsDate=value;
}
void __fastcall TsdCts:: SetCtsCac(AnsiString value)
{
    if (value.IsEmpty() )
       throw Exception("帐号不能为空!");
    if(value.Length()>18)
      throw Exception("帐号长度不能大于18");
    if (value!=m_CtsCac)
    {
        m_Query->Close();
        m_Query->SQL->Clear();
        m_Query->SQL->Add("select caccode from sdcac where caccode='" +value+"'");
        m_Query->Open();
        if(m_Query->RecordCount<=0)
        {
            m_Query->Close();
            throw Exception("帐号:'"+value+"'未定义");
        }
    }
    m_CtsCac=value;
}
void __fastcall TsdCts:: SetCts100yQty(int    value)
{
    if (value<0 )
       throw Exception("货币张数不能小于零!");
    m_Cts100yQty=value;
}
void __fastcall TsdCts:: SetCts50yQty(int    value)
{
    if (value<0 )
       throw Exception("货币张数不能小于零!");
    m_Cts50yQty=value;
}
void __fastcall TsdCts:: SetCts20yQty(int    value)
{
    if (value<0 )
       throw Exception("货币张数不能小于零!");
    m_Cts20yQty=value;
}
void __fastcall TsdCts:: SetCts10yQty(int    value)
{
    if (value<0 )
       throw Exception("货币张数不能小于零!");
    m_Cts10yQty=value;
}
void __fastcall TsdCts:: SetCts5yQty(int    value)
{
    if (value<0 )
       throw Exception("货币张数不能小于零!");
    m_Cts5yQty=value;
}
void __fastcall TsdCts:: SetCts2yQty(int    value)
{
    if (value<0 )
       throw Exception("货币张数不能小于零!");
    m_Cts2yQty=value;
}
void __fastcall TsdCts:: SetCts1yQty(int    value)
{
    if (value<0 )
       throw Exception("货币张数不能小于零!");
    m_Cts1yQty=value;
}
void __fastcall TsdCts:: SetCts5jQty(int    value)
{
    if (value<0 )
       throw Exception("货币张数不能小于零!");
    m_Cts5jQty=value;
}
void __fastcall TsdCts:: SetCts2jQty(int    value)
{
    if (value<0 )
       throw Exception("货币张数不能小于零!");
    m_Cts2jQty=value;
}
void __fastcall TsdCts:: SetCts1jQty(int    value)
{
    if (value<0 )
       throw Exception("货币张数不能小于零!");
    m_Cts1jQty=value;
}
void __fastcall TsdCts:: SetCts5fQty(int    value)
{
    if (value<0 )
       throw Exception("货币张数不能小于零!");
    m_Cts5fQty=value;
}
void __fastcall TsdCts:: SetCts2fQty(int    value)
{
    if (value<0 )
       throw Exception("货币张数不能小于零!");
    m_Cts2fQty=value;
}
void __fastcall TsdCts:: SetCts1fQty(int    value)
{
    if (value<0 )
       throw Exception("货币张数不能小于零!");
    m_Cts1fQty=value;
}
void __fastcall TsdCts:: SetCtsTAmt(double  value)
{
    if (value<0 )
       throw Exception("盘点金额不能小于零!");
    m_CtsTAmt=value;
}
void __fastcall TsdCts:: SetCtsAAmt(double  value)
{
    if (value<0 )
       throw Exception("帐面金额不能小于零!");
     m_CtsAAmt=value;
}
void __fastcall TsdCts:: SetCtsUser(AnsiString value)
{
    if (value.IsEmpty() )
       throw Exception("操作员编码不能为空!");
    if(value.Length()>18)
      throw Exception("操作员编码长度不能大于18");
    if (value!=m_CtsUser)
      {
        m_Query->Close();
        m_Query->SQL->Clear();
        m_Query->SQL->Add("SELECT CashierCode FROM SDCashier WHERE CashierCODE='" +value+"'");
        m_Query->Open();
        if(m_Query->RecordCount<=0)
        {
            m_Query->Close();
            throw Exception("操作员'"+value+"'不是出纳员");
        }
       }
    m_CtsUser=value;
}
void __fastcall TsdCts:: SetCtsSysDate(AnsiString value)
{
       m_CtsSysDate=value;
}
//---------------------------------------------------------------------------
AnsiString TsdCts::GetFieldValue(euCts sdFieldName)
{
    switch(sdFieldName)
    {
      case fiCtsCode:
           return CtsCode;
      case fiCtsDate:
           return CtsDate;
      case fiCtsCac:
           return CtsCac;
      case fiCts100yQty:
           return Cts100yQty;
      case fiCts50yQty:
           return Cts50yQty;
      case fiCts20yQty:
           return Cts20yQty;
      case fiCts10yQty:
           return Cts10yQty;
      case fiCts5yQty:
           return Cts5yQty;
      case fiCts2yQty:
           return Cts2yQty;
      case fiCts1yQty:
           return Cts1yQty;
      case fiCts5jQty:
           return Cts5jQty;
      case fiCts2jQty:
           return Cts2jQty;
      case fiCts1jQty:
           return Cts1jQty;
      case fiCts5fQty:
           return Cts5fQty;
      case fiCts2fQty:
           return Cts2fQty;
      case fiCts1fQty:
           return Cts1fQty;
      case fiCtsTAmt:
           return CtsTAmt;
      case fiCtsAAmt:
           return CtsAAmt;
      case fiCtsUser:
           return CtsUser;
      case fiCtsSysDate:
           return CtsSysDate;
      default:
           throw Exception("当前未定义可取值");
     }
}
//---------------------------------------------------------------------------
void TsdCts::SetFieldValue(euCts sdFieldName, AnsiString value)
{
    switch(sdFieldName)
     {
    case fiCtsCode:  
         CtsCode=value;
          break;
    case fiCtsDate:  
         CtsDate=value;
          break;
    case fiCtsCac:  
         CtsCac=value;
          break;
    case fiCts100yQty:  
         Cts100yQty=value.ToInt();
          break;
    case fiCts50yQty:  
         Cts50yQty=value.ToInt();
          break;
    case fiCts20yQty:  
         Cts20yQty=value.ToInt();
          break;
    case fiCts10yQty:  
         Cts10yQty=value.ToInt();
          break;
    case fiCts5yQty:  
         Cts5yQty=value.ToInt();
          break;
    case fiCts2yQty:  
         Cts2yQty=value.ToInt();
          break;
    case fiCts1yQty:  
         Cts1yQty=value.ToInt();
          break;
    case fiCts5jQty:  
         Cts5jQty=value.ToInt();
          break;
    case fiCts2jQty:  
         Cts2jQty=value.ToInt();
          break;
    case fiCts1jQty:  
         Cts1jQty=value.ToInt();
          break;
    case fiCts5fQty:  
         Cts5fQty=value.ToInt();
          break;
    case fiCts2fQty:  
         Cts2fQty=value.ToInt();
          break;
    case fiCts1fQty:  
         Cts1fQty=value.ToInt();
          break;
    case fiCtsTAmt:  
         CtsTAmt=value.ToDouble();
          break;
    case fiCtsAAmt:  
         CtsAAmt=value.ToDouble();
          break;
    case fiCtsUser:  
         CtsUser=value;
          break;
    case fiCtsSysDate:  
         CtsSysDate=value;
          break;
    default:
         throw Exception("当前字段未定义可赋值");
      }
}