smhdl.cpp

邮 电 公 司 erp源码

    if(value<0)
      throw Exception("销售金额不能小于零");
    m_SodAmt=value;
}

void __fastcall TsdSod::SetSodTaxAmt(double value)
{
    if(value<0)
      throw Exception("销售税额不能小于零");
    m_SodTaxAmt=value;
}

//---------------------------------------------------------------------------
void __fastcall TsdSod::SetSodState(int value)
{
    m_SodState = value;
}
//---------------------------------------------------------------------------
void __fastcall TsdSod::SetSodPoCode(AnsiString value)
{
    if(value.Length()>18)
      throw Exception("采购订单长度不能大于18");
    m_SodPoCode = value;
}

//---------------------------------------------------------------------------
void __fastcall TsdSod::SetSodSendDate(AnsiString value)
{
    if(value.IsEmpty())
      throw Exception("预计发货日不能为空");
    if(Validate(value)<sdParent->GetFieldValue(fiSohDate))
      throw Exception("预计发货日期不能小于开单日期");
    m_SodSendDate = Validate(value);
}
//---------------------------------------------------------------------------
void __fastcall TsdSod::SetSodRecDate(AnsiString value)
{
    if(value.IsEmpty())
      throw Exception("交货日期不能为空");
    if(Validate(value)<sdParent->GetFieldValue(fiSohDate))
      throw Exception("交货日期不能小于开单日期");
    if(Validate(value)<m_SodSendDate)
      throw Exception("交货日期不能小于预计发货日期");
    m_SodRecDate = Validate(value);
}
//---------------------------------------------------------------------------
void __fastcall TsdSod::SetSodDesc(AnsiString value)
{
    if(value.Length()>40)
      throw Exception("备注长度不能大于40");
    m_SodDesc = value;
}

void __fastcall TsdSod::SetSodClose(int value)
{
    if(value!=0 && value!=1)
      throw Exception("结清标志只能取值0-未结清 1-已结清");
    m_SodClose=value;
}

void __fastcall TsdSod::SetSodCloseDate(AnsiString value)
{
    if(m_SodClose==1)
    {
      if(value.IsEmpty())
        throw Exception("结清日期不能为空");
      m_SodCloseDate=Validate(value);
    }
    else
      m_SodCloseDate="";
}

//---------------------------------------------------------------------------
AnsiString TsdSod::GetFieldValue(euSod sdFieldName)
{
   switch(sdFieldName)
   {
        case fiSodLine:
            return AnsiString(SodLine);
        case fiSodCode:
            return SodCode;
        case fiSodGoods:
            return SodGoods;
        case fiSodUnit:
            return SodUnit;
        case fiSodConv:
            return AnsiString(SodConv);
        case fiSodQty:
            return AnsiString(SodQty);
        case fiSodSptCode:
            return SodSptCode;
        case fiSodDisc:
            return AnsiString(SodDisc);
        case fiSodDAmt:
          return FormatFloat("0.00",SodDAmt);
        case fiSodPrice:
            return AnsiString(SodPrice);
        case fiSodAmt:
            return FormatFloat("0.00",SodAmt);
        case fiSodTaxAmt:
            return FormatFloat("0.00",SodTaxAmt);
        case fiSodPoCode:
            return SodPoCode;
        case fiSodSendDate:
            return SodSendDate;
        case fiSodRecDate:
            return m_SodRecDate;
        case fiSodSQty:
            return AnsiString(SodSQty);
        case fiSodPQty:
            return AnsiString(SodPQty);
        case fiSodBQty:
            return AnsiString(SodBQty);
        case fiSodFQty:
            return AnsiString(SodFQty);
        case fiSodEQty:
            return AnsiString(SodEQty);
        case fiSodDesc:
            return SodDesc;
        case fiSodClose:
            return AnsiString(SodClose);
        case fiSodCloseDate:
            return SodCloseDate;
        case fiSodState:
            return AnsiString(SodState);
        default:
            throw Exception("当前字段未定义可取值");  
   }
}


AnsiString TsdSod::GetOldFieldValue(euSod sdFieldName)
{
   switch(sdFieldName)
   {
        case fiSodLine:
            return AnsiString(b_SodLine);
        case fiSodCode:
            return b_SodCode;
        case fiSodGoods:
            return b_SodGoods;
        case fiSodUnit:
            return b_SodUnit;
        case fiSodConv:
            return AnsiString(b_SodConv);
        case fiSodQty:
            return AnsiString(b_SodQty);
        case fiSodSptCode:
            return b_SodSptCode;
        case fiSodDisc:
            return AnsiString(b_SodDisc);
        case fiSodDAmt:
          return b_SodDAmt;
        case fiSodPrice:
            return AnsiString(b_SodPrice);
        case fiSodAmt:
            return AnsiString(b_SodAmt);
        case fiSodTaxAmt:
            return AnsiString(b_SodTaxAmt);
        case fiSodPoCode:
            return b_SodPoCode;
        case fiSodSendDate:
            return b_SodSendDate;
        case fiSodRecDate:
            return b_SodRecDate;
        case fiSodSQty:
            return AnsiString(b_SodSQty);
        case fiSodPQty:
            return AnsiString(b_SodPQty);
        case fiSodBQty:
            return AnsiString(b_SodBQty);
        case fiSodFQty:
            return AnsiString(b_SodFQty);
        case fiSodEQty:
            return AnsiString(b_SodEQty);
        case fiSodDesc:
            return b_SodDesc;
        case fiSodClose:
            return AnsiString(b_SodClose);
        case fiSodCloseDate:
            return b_SodCloseDate;
        case fiSodState:
            return AnsiString(b_SodState);
        default:
            throw Exception("当前字段未定义可取值");  
   }
}

//---------------------------------------------------------------------------
void TsdSod::SetFieldValue(euSod sdFieldName,AnsiString Value)
{
     Value=Trim(Value);
      switch(sdFieldName)
      {
        case fiSodLine:
           SodLine=Value.ToInt();
           break;
        case fiSodCode:
           SodCode=Value;
           break;
        case fiSodGoods:
           SodGoods=Value;
           break;
        case fiSodUnit:
           SodUnit=Value;
           break;
        case fiSodConv:
          SodConv=Value.ToDouble();
          break;
        case fiSodQty:
          SodQty=Value.ToDouble();
          break;
        case fiSodSptCode:
          SodSptCode=Value;
          break;
        case fiSodDisc:
          SodDisc=Value.ToDouble();
          break;
        case fiSodDAmt:
          SodDAmt=Value.ToDouble();
          break;
        case fiSodPrice:
          SodPrice=Value.ToDouble();
          break;
        case fiSodPoCode:
          SodPoCode=Value;
          break;
        case fiSodSendDate:
          SodSendDate=Value;
          break;
        case fiSodRecDate:
          SodRecDate=Value;
          break;
        case fiSodDesc:
          SodDesc=Value;
          break;
        case fiSodState:
           SodState=Value.ToInt();
           break;
        case fiSodAmt:
          SodAmt=Value.ToDouble();
          break;
        case fiSodTaxAmt:
          SodTaxAmt=Value.ToDouble();
          break;
        case fiSodClose:
          SodClose=Value.ToInt();
          break;
        case fiSodCloseDate:
          SodCloseDate=Value;
          break;
       default: 
        throw Exception("当前字段未定义可赋值");  
          
      }
}
//---------------------------------------------------------------------------
void TsdSod::BackupValue()
{
      b_SodLine          = m_SodLine;
      b_SodCode          = m_SodCode;
      b_SodGoods         = m_SodGoods;
      b_SodUnit          = m_SodUnit;
      b_SodConv          = m_SodConv;
      b_SodQty           = m_SodQty;
      b_SodSptCode       = m_SodSptCode;
      b_SodDisc        = m_SodDisc;
      b_SodDAmt        = m_SodDAmt;
      b_SodPrice         = m_SodPrice;
      b_SodAmt           = m_SodAmt;
      b_SodTaxAmt        = m_SodTaxAmt;
      b_SodSendDate     = m_SodSendDate;
      b_SodRecDate       = m_SodRecDate;
      b_SodSQty        = m_SodSQty;
      b_SodPQty       = m_SodPQty;
      b_SodBQty        = m_SodBQty;
      b_SodFQty        = m_SodFQty;
      b_SodEQty        = m_SodEQty;
      b_SodPoCode        = m_SodPoCode;
      b_SodDesc          = m_SodDesc;
      b_SodClose         = m_SodClose;
      b_SodCloseDate     = m_SodCloseDate;
      b_SodState         = m_SodState;
}
//---------------------------------------------------------------------------
void TsdSod::RestoreValue()
{
      m_SodLine          = b_SodLine;
      m_SodCode          = b_SodCode;
      m_SodGoods         = b_SodGoods;
      m_SodUnit          = b_SodUnit;
      m_SodConv          = b_SodConv;
      m_SodQty           = b_SodQty;
      m_SodSptCode       = b_SodSptCode;
      m_SodDisc        = b_SodDisc;
      m_SodDAmt        = b_SodDAmt;
      m_SodPrice         = b_SodPrice;
      m_SodAmt           = b_SodAmt;
      m_SodTaxAmt        = b_SodTaxAmt;
      m_SodSendDate     = b_SodSendDate;
      m_SodRecDate       = b_SodRecDate;
      m_SodSQty        = b_SodSQty;
      m_SodPQty       = b_SodPQty;
      m_SodBQty        = b_SodBQty;
      m_SodFQty        = b_SodFQty;
      m_SodEQty        = b_SodEQty;
      m_SodPoCode        = b_SodPoCode;
      m_SodDesc          = b_SodDesc;
      m_SodClose         = b_SodClose;
      m_SodCloseDate     = b_SodCloseDate;
      m_SodState         = b_SodState;
 }
//---------------------------------------------------------------------------
void TsdSod::EmptyValue(int Index)
{
      switch(Index)
      {
        case 0:
           m_SodLine              =0;
           m_SodCode              ="";
           m_SodGoods             ="";
           m_SodUnit              ="";
           m_SodConv              =1.0;
           m_SodQty               =0.0;
           m_SodSptCode           ="";
           m_SodPrice             =0;
           m_SodDisc            =0;
           m_SodAmt               =0.0;
           m_SodDAmt               =0.0;
           m_SodTaxAmt            =0.0;
           m_SodSendDate         ="";
           m_SodRecDate           ="";
           m_SodSQty            =0;
           m_SodPQty           =0;
           m_SodBQty            =0;
           m_SodFQty            =0;
           m_SodEQty            =0;
           m_SodPoCode            ="";
           m_SodDesc              ="";
           m_SodClose             =0;
           m_SodCloseDate         ="";
           m_SodState             =0;
           break;
        case 1:
           b_SodLine              =0;
           b_SodCode              ="";
           b_SodGoods             ="";
           b_SodUnit              ="";
           b_SodConv              =1.0;
           b_SodQty               =0.0;
           b_SodSptCode           ="";
           b_SodPrice             =0.0;
           b_SodDisc            =0;
           b_SodAmt               =0.0;
           b_SodDAmt               =0.0;
           b_SodTaxAmt            =0.0;
           b_SodSendDate         ="";
           b_SodRecDate           ="";
           b_SodSQty            =0;
           b_SodPQty           =0;
           b_SodBQty            =0;
           b_SodFQty            =0;
           b_SodEQty            =0;
           b_SodPoCode            ="";
           b_SodDesc              ="";
           b_SodClose             =0;
           b_SodCloseDate         ="";
           b_SodState             =0;
      }
}
//---------------------------------------------------------------------------

void TsdSod::BatchLetValue()
{
      m_SodLine              =m_Query->FieldValues["SodLine"];
      m_SodCode              =m_Query->FieldValues["SodCode"];
      m_SodGoods             =m_Query->FieldValues["SodGoods"];
      m_SodUnit              =m_Query->FieldValues["SodUnit"];
      m_SodConv              =m_Query->FieldValues["SodConv"];
      m_SodQty               =m_Query->FieldValues["SodQty"];
      m_SodSptCode           =m_Query->FieldValues["SodSptCode"];
      m_SodPrice             =m_Query->FieldValues["SodPrice"];
      m_SodDisc            =m_Query->FieldValues["SodDisc"];
      m_SodAmt               =m_Query->FieldValues["SodAmt"];
      m_SodDAmt               =m_Query->FieldValues["SodDAmt"];
      m_SodTaxAmt            =m_Query->FieldValues["SodTaxAmt"];
      m_SodPoCode            =m_Query->FieldValues["SodPoCode"];
      m_SodSendDate         =m_Query->FieldValues["SodSendDate"];
      m_SodRecDate           =m_Query->FieldValues["SodRecDate"];
      m_SodSQty            =m_Query->FieldValues["SodSQty"];
      m_SodPQty