pmdoc.cpp

邮 电 公 司 erp源码

    m_SupplyFax         =   b_SupplyFax;
    m_SupplyEmail       =   b_SupplyEmail;
    m_SupplyCredit      =   b_SupplyCredit;
    m_SupplyCancel      =   b_SupplyCancel;
    m_SupplyTaxCode     =   b_SupplyTaxCode;
    m_SupplyTaxNo       =   b_SupplyTaxNo;
    m_SupplyArea    =   b_SupplyArea;
    m_SupplyTrade   =   b_SupplyTrade;
    m_SupplyPmode   =   b_SupplyPmode;
    m_SupplyBuyer   =   b_SupplyBuyer;
    m_SupplySysDate     =   b_SupplySysDate;

// Add 9 fields
    m_SupplyFreq        =   b_SupplyFreq;
    m_SupplyCreateDate    =   b_SupplyCreateDate;
    m_SupplyCancelDate  =   b_SupplyCancelDate;
    m_SupplyApAmt       =   b_SupplyApAmt;
    m_SupplyCreditTerm  =   b_SupplyCreditTerm;
    m_SupplyLtDate      =   b_SupplyLtDate;
    m_SupplyLtAmt       =   b_SupplyLtAmt;
    m_SupplyLpDate      =   b_SupplyLpDate;
    m_SupplyLpAmt       =   b_SupplyLpAmt;
}

void TsdSupply::EmptyValue(int Index)
{
   switch(Index)
   {
     case 0:
      m_SupplyCode        =   "";
      m_SupplyName        =   "";
      m_SupplyDesc        =   "";
      m_SupplyType        =   "";
      m_SupplyLegalman    =   "";
      m_SupplyLinkman     =   "";
      m_SupplyAddr        =   "";
      m_SupplyZip         =   "";
      m_SupplyTel         =   "";
      m_SupplyFax         =   "";
      m_SupplyEmail       =   "";
      m_SupplyCredit      =   "";
      m_SupplyCancel      =   0;
      m_SupplyTaxCode     =   "";
      m_SupplyTaxNo       =   "";
      m_SupplyArea    =   "";
      m_SupplyTrade   =   "";
      m_SupplyPmode   =   "";
      m_SupplyBuyer   =   "";
      m_SupplySysDate     =   "";

      m_SupplyFreq        =   0;
      m_SupplyCreateDate    =   "";
      m_SupplyCancelDate  =   "";
      m_SupplyApAmt       =   0.0;
      m_SupplyCreditTerm  =   "";
      m_SupplyLtDate      =   "";
      m_SupplyLtAmt       =   0.0;
      m_SupplyLpDate      =   "";
      m_SupplyLpAmt       =   0.0;

      break;
    case 1:
      b_SupplyCode        =   "";
      b_SupplyName        =   "";
      b_SupplyDesc        =   "";
      b_SupplyType        =   "";
      b_SupplyLegalman    =   "";
      b_SupplyLinkman     =   "";
      b_SupplyAddr        =   "";
      b_SupplyZip         =   "";
      b_SupplyTel         =   "";
      b_SupplyFax         =   "";
      b_SupplyEmail       =   "";
      b_SupplyCredit      =   "";
      b_SupplyCancel      =   0;
      b_SupplyTaxCode     =   "";
      b_SupplyTaxNo       =   "";
      b_SupplyArea    =   "";
      b_SupplyTrade   =   "";
      b_SupplyPmode   =   "";
      b_SupplyBuyer   =   "";
      b_SupplySysDate     =   "";

      b_SupplyFreq        =   0;
      b_SupplyCreateDate    =   "";
      b_SupplyCancelDate  =   "";
      b_SupplyApAmt       =   0.0;
      b_SupplyCreditTerm  =   "";
      b_SupplyLtDate      =   "";
      b_SupplyLtAmt       =   0.0;
      b_SupplyLpDate      =   "";
      b_SupplyLpAmt       =   0.0;

      break;
    }
}


void TsdSupply::BatchLetValue()
{
    m_SupplyCode        =   m_Query->FieldValues["SupplyCode"];
    m_SupplyName        =   m_Query->FieldValues["SupplyName"];
    m_SupplyDesc        =   m_Query->FieldValues["SupplyDesc"];
    m_SupplyType        =   m_Query->FieldValues["SupplyType"];
    m_SupplyLegalman    =   m_Query->FieldValues["SupplyLegalman"];
    m_SupplyLinkman     =   m_Query->FieldValues["SupplyLinkman"];
    m_SupplyAddr        =   m_Query->FieldValues["SupplyAddr"];
    m_SupplyZip         =   m_Query->FieldValues["SupplyZip"];
    m_SupplyTel         =   m_Query->FieldValues["SupplyTel"];
    m_SupplyFax         =   m_Query->FieldValues["SupplyFax"];
    m_SupplyEmail       =   m_Query->FieldValues["SupplyEmail"];
    m_SupplyCredit      =   m_Query->FieldValues["SupplyCredit"];
    m_SupplyCancel      =   m_Query->FieldValues["SupplyCancel"];
    m_SupplyTaxCode     =   m_Query->FieldValues["SupplyTaxCode"];
    m_SupplyTaxNo       =   m_Query->FieldValues["SupplyTaxNo"];
    m_SupplyArea    =   m_Query->FieldValues["SupplyArea"];
    m_SupplyTrade   =   m_Query->FieldValues["SupplyTrade"];
    m_SupplyPmode   =   m_Query->FieldValues["SupplyPmode"];
    m_SupplyBuyer   =   m_Query->FieldValues["SupplyBuyer"];
    m_SupplySysDate     =   m_Query->FieldValues["SupplySysDate"];

    // Add 9 fields
    m_SupplyFreq        =   m_Query->FieldValues["SupplyFreq"];
    m_SupplyCreateDate    =   m_Query->FieldValues["SupplyCreateDate"];
    m_SupplyCancelDate  =   m_Query->FieldValues["SupplyCancelDate"];
    m_SupplyApAmt       =   m_Query->FieldValues["SupplyApAmt"];
    m_SupplyCreditTerm  =   m_Query->FieldValues["SupplyCreditTerm"];
    m_SupplyLtDate      =   m_Query->FieldValues["SupplyLtDate"];
    m_SupplyLtAmt       =   m_Query->FieldValues["SupplyLtAmt"];
    m_SupplyLpDate      =   m_Query->FieldValues["SupplyLpDate"];
    m_SupplyLpAmt       =   m_Query->FieldValues["SupplyLpAmt"];

    BackupValue();
}

void TsdSupply::Assign(TsdSupply *p)
{
    this->SetActionID(p->CurStatus);
    this->m_SupplyCode        =   p->m_SupplyCode;
    this->m_SupplyName        =   p->m_SupplyName;
    this->m_SupplyDesc        =   p->m_SupplyDesc;
    this->m_SupplyType        =   p->m_SupplyType;
    this->m_SupplyLegalman    =   p->m_SupplyLegalman;
    this->m_SupplyLinkman     =   p->m_SupplyLinkman;
    this->m_SupplyAddr        =   p->m_SupplyAddr;
    this->m_SupplyZip         =   p->m_SupplyZip;
    this->m_SupplyTel         =   p->m_SupplyTel;
    this->m_SupplyFax         =   p->m_SupplyFax;
    this->m_SupplyEmail       =   p->m_SupplyEmail;
    this->m_SupplyCredit      =   p->m_SupplyCredit;
    this->m_SupplyCancel      =   p->m_SupplyCancel;
    this->m_SupplyTaxCode     =   p->m_SupplyTaxCode;
    this->m_SupplyTaxNo       =   p->m_SupplyTaxNo;
    this->m_SupplyArea    =   p->m_SupplyArea;
    this->m_SupplyTrade   =   p->m_SupplyTrade;
    this->m_SupplyPmode   =   p->m_SupplyPmode;
    this->m_SupplyBuyer   =   p->m_SupplyBuyer;
    this->m_SupplySysDate     =   p->m_SupplySysDate;

    this->m_SupplyFreq        =   p->m_SupplyFreq;
    this->m_SupplyCreateDate    =   p->m_SupplyCreateDate;
    this->m_SupplyCancelDate  =   p->m_SupplyCancelDate;
    this->m_SupplyApAmt       =   p->m_SupplyApAmt;
    this->m_SupplyCreditTerm  =   p->m_SupplyCreditTerm;
    this->m_SupplyLtDate      =   p->m_SupplyLtDate;
    this->m_SupplyLtAmt       =   p->m_SupplyLtAmt;
    this->m_SupplyLpDate      =   p->m_SupplyLpDate;
    this->m_SupplyLpAmt       =   p->m_SupplyLpAmt;

    this->BackupValue();
}

void TsdSupply::AssignValue()
{
    TsdSupply *p=(TsdSupply *)Records(CurRecNo);
    Assign(p);
}

int TsdSupply::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();
      TsdSupply *p=new TsdSupply(  );
      SetActionID(1);
      p->Assign(this);
      AddRecord((void *)p,p->SupplyCode);
      m_Query->Next();
    }
    MoveFirst();
  }
  m_Query->Close();
  return Count;
}

bool TsdSupply::Find(AnsiString WhereStr)
{
  AnsiString m_SqlStr;
  if(WhereStr.IsEmpty()==true)
    throw Exception("查找表达式不能为空");
  m_SqlStr="SELECT * FROM SDSUPPLY 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;
  }
}


TsdSupply::~TsdSupply()
{
}


//====================================================================
//                           (TsdPsite)供应商交货地点
//===================================================================
void __fastcall TsdPsite::SetPsiteCode(AnsiString value)
{
    if (value.IsEmpty() )
       throw Exception("供应商交货地点编码不能为空!");
    if(value.Length()>18)
      throw Exception("编码长度不能大于18");
    if (value.UpperCase()!=m_PsiteCode.UpperCase())
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("SELECT PsiteCode FROM sdPsite WHERE PsiteCode='" +value+"'");
      m_Query->Open();
      if(m_Query->RecordCount>0)  {
        m_Query->Close();
        throw Exception("交货地点'"+value+"'已定义");
      }
      m_Query->Close();
    }
    m_PsiteCode = value;
}

void __fastcall TsdPsite::SetPsiteSupplyCode(AnsiString value)
{
    if(value.IsEmpty())
      throw Exception("供应商代码不能为空");
    if(value.Length()>18)
      throw Exception("供应商代码长度不能大于18");
    if (value!=m_PsiteSupplyCode)
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("SELECT SUPPLYCODE FROM SDSUPPLY WHERE SUPPLYCODE='" +value+"'");
      m_Query->Open();
      if(m_Query->RecordCount<=0)  {
        m_Query->Close();
        throw Exception("供应商'"+value+"'未定义");
      }
      m_Query->Close();
      m_Query->SQL->Clear();
    }
/*
    if (m_PsiteCode!=b_PsiteCode || value!=b_PsiteSupplyCode) { // Inserting or Key Changed when updating
        m_Query->Close();
        m_Query->SQL->Clear();
        m_Query->SQL->Add("SELECT PsiteCODE FROM SDPsite WHERE PsiteCODE='"+m_PsiteCode+"' AND PsiteSUPPLYCODE='"+value+"'");
        m_Query->Open();
        if(m_Query->RecordCount > 0) {
            m_Query->Close();
            throw Exception("供应商交货地点代码'"+m_PsiteCode+"'和供应商代码'"+value+"' 的组合已存在!");
        }
    }
*/
    m_PsiteSupplyCode   =   value;
}

void __fastcall TsdPsite::SetPsiteName(AnsiString value)
{
    if(value.IsEmpty())
      throw Exception("交货地址名称不能为空");
    if(value.Length()>20)
      throw Exception("交货地址名称长度不能大于20");
    m_PsiteName=value;
}

void __fastcall TsdPsite::SetPsiteAddr(AnsiString value)
{
    if(value.IsEmpty())
      throw Exception("地址不能为空");
    if(value.Length()>40)
      throw Exception("地址长度不能大于40");
    m_PsiteAddr=value;
}

void __fastcall TsdPsite::SetPsiteLinkman(AnsiString value)
{
    if(value.Length()>20)
      throw Exception("联系人长度不能大于20");
    m_PsiteLinkman=value;
}

void __fastcall TsdPsite::SetPsiteTel(AnsiString value)
{
    if(value.Length()>20)
      throw Exception("电话长度不能大于20");
    m_PsiteTel=value;
}

void __fastcall TsdPsite::SetPsiteFax(AnsiString value)
{
    if(value.Length()>20)
      throw Exception("传真长度不能大于20");
    m_PsiteFax=value;
}

void __fastcall TsdPsite::SetPsiteZip(AnsiString value)
{
   if(value.Length()>6)
     throw Exception("邮政编码长度不能大于6");
   m_PsiteZip=value;
}

void __fastcall TsdPsite::SetPsiteEmail(AnsiString value)
{
    if(value.Length()>20)
      throw Exception("E-MAIL长度不能大于20");
    m_PsiteEmail=value;
}

void __fastcall TsdPsite::SetPsiteTransModeCode(AnsiString value)
{
    if(value.Length()>18)
      throw Exception("运输方式长度不能于18");
    if(value.IsEmpty()==false && value!=m_PsiteTransModeCode)
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("SELECT TransModeCODE FROM sdTransMode WHERE TransModeCODE='" +value+"'");
      m_Query->Open();
      if(m_Query->RecordCount<1)
      {
        m_Query->Close();
        throw Exception("运输方式'"+value+"'未定义");
      }
      m_Query->Close();
    }
    m_PsiteTransModeCode=value;
}




TsdPsite::TsdPsite(TDataComm *DC)
                :TsdStandard(DC)
{
  try
  {
    QueryString="SELECT * FROM SDPsite";
    FilterString="";
    OrderString="PsiteCode";
    EmptyValue(0);
    EmptyValue(1);
  }
  catch(Exception &e)
  {
    throw Exception("构造函数出错");
  }
}
TsdPsite::TsdPsite()
                :TsdStandard()
{
  try
  {
    QueryString="SELECT * FROM SDPsite";
    FilterString="";
    OrderString="PsiteCode";
    EmptyValue(0);
    EmptyValue(1);
  }
  catch(Exception &e)
  {
    throw Exception("构造函数出错");
  }
}

AnsiString TsdPsite::GetFieldValue(euPsite sdFieldName)
{
    switch(sdFieldName)
    {
    case fiPsiteCode:
        return PsiteCode;
    case fiPsiteSupplyCode:
        return PsiteSupplyCode;
    case fiPsiteName:
        return PsiteName;
    case fiPsiteAddr:
        return PsiteAddr;
    case fiPsiteLinkman:
        return PsiteLinkman;
    case fiPsiteTel:
        return PsiteTel;
    case fiPsiteFax:
        return PsiteFax;
    case fiPsit