📄 pmdoc.cpp

📁 邮电公司 erp源码
💻 CPP
📖 第 1 页 / 共 5 页
字号:
        if(m_Query->RecordCount<=0)
        {
            m_Query->Close();
            throw Exception("采购员编码'"+value+"'未定义");
        }
        m_Query->Close();
    }
     m_SupplyBuyer = value;
}

void __fastcall TsdSupply::SetSupplyFreq(int value)
{
    if(value<0)
      throw Exception("交易频度不能小于零");
    m_SupplyFreq=value;
}

void __fastcall TsdSupply::SetSupplyCreateDate(AnsiString value)
{
    if(value.IsEmpty())
      throw Exception("创建日期不能为空");
    m_SupplyCreateDate=Validate(value);
}

void __fastcall TsdSupply::SetSupplyCancelDate(AnsiString value)
{
    if((m_SupplyCreateDate.IsEmpty()==false)&&(value.IsEmpty()==false))
     if(Validate(value)<m_SupplyCreateDate)
       throw Exception("取消日期必须在创建日期之后");
    if(value.IsEmpty()==false)
      m_SupplyCancelDate=Validate(value);
    else
      m_SupplyCancelDate="";

}

void __fastcall TsdSupply::SetSupplyApAmt(float value)
{
    m_SupplyApAmt=value;
}

void __fastcall TsdSupply::SetSupplyCreditTerm(AnsiString value)
{
    m_SupplyCreditTerm=value;
}

void __fastcall TsdSupply::SetSupplyLtDate(AnsiString value)
{
    m_SupplyLtDate=Validate(value);
}

void __fastcall TsdSupply::SetSupplyLtAmt(float value)
{
    m_SupplyLtAmt=value;
}

void __fastcall TsdSupply::SetSupplyLpDate(AnsiString value)
{
    m_SupplyLpDate=Validate(value);
}

void __fastcall TsdSupply::SetSupplyLpAmt(float value)
{
    m_SupplyLpAmt=value;
}


TsdSupply::TsdSupply(TDataComm *DC)
                :TsdStandard(DC)
{
    try
    {
        QueryString="SELECT * FROM SDSUPPLY";
        FilterString="";
        OrderString="SUPPLYCODE";
        EmptyValue(0);
        EmptyValue(1);
    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }
}
TsdSupply::TsdSupply()
                :TsdStandard()
{
    try
    {
        QueryString="SELECT * FROM SDSUPPLY";
        FilterString="";
        OrderString="SUPPLYCODE";
        EmptyValue(0);
        EmptyValue(1);
    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }
}

AnsiString TsdSupply::GetFieldValue(euSupply sdFieldName)
{
    switch(sdFieldName)
    {
    case fiSupplyCode:
        return SupplyCode;
    case fiSupplyName:
        return SupplyName;
    case fiSupplyDesc:
        return SupplyDesc;
    case fiSupplyType:
        return SupplyType;
    case fiSupplyLegalman:
        return SupplyLegalman;
    case fiSupplyLinkman:
        return SupplyLinkman;
    case fiSupplyAddr:
        return SupplyAddr;
    case fiSupplyZip:
        return SupplyZip;
    case fiSupplyTel:
        return SupplyTel;
    case fiSupplyFax:
        return SupplyFax;
    case fiSupplyEmail:
        return SupplyEmail;
    case fiSupplyCredit:
        return SupplyCredit;
    case fiSupplyCancel:
        return AnsiString(SupplyCancel);
    case fiSupplyTaxCode:
        return SupplyTaxCode;
    case fiSupplyTaxNo:
        return SupplyTaxNo;
    case fiSupplyArea:
        return SupplyArea;
    case fiSupplyTrade:
        return SupplyTrade;
    case fiSupplyPmode:
        return SupplyPmode;
    case fiSupplyBuyer:
        return SupplyBuyer;
    case fiSupplySysDate:
        return SupplySysDate;

    case fiSupplyFreq:
        return AnsiString(SupplyFreq);
    case fiSupplyCreateDate:
        return SupplyCreateDate;
    case fiSupplyCancelDate:
        return SupplyCancelDate;
    case fiSupplyApAmt:
        return AnsiString(SupplyApAmt);
    case fiSupplyCreditTerm:
        return SupplyCreditTerm;
    case fiSupplyLtDate:
        return SupplyLtDate;
    case fiSupplyLtAmt:
        return AnsiString(SupplyLtAmt);
    case fiSupplyLpDate:
        return SupplyLpDate;
    case fiSupplyLpAmt:
        return AnsiString(SupplyLpAmt);
    default:
        throw Exception("当前未定义可取值");
    }
}

void TsdSupply::SetFieldValue(euSupply sdFieldName, AnsiString Value)
{
    switch(sdFieldName)
    {
    case fiSupplyCode:
        SupplyCode  =   Value;
        break;
    case fiSupplyName:
        SupplyName=   Value;
        break;
    case fiSupplyDesc:
        SupplyDesc=   Value;
        break;
    case fiSupplyType:
        SupplyType=   Value;
        break;
    case fiSupplyLegalman:
        SupplyLegalman=   Value;
        break;
    case fiSupplyLinkman:
        SupplyLinkman=   Value;
        break;
    case fiSupplyAddr:
         SupplyAddr=   Value;
         break;
    case fiSupplyZip:
        SupplyZip=   Value;
        break;
    case fiSupplyTel:
        SupplyTel=   Value;
        break;
    case fiSupplyFax:
        SupplyFax=   Value;
        break;
    case fiSupplyEmail:
        SupplyEmail=   Value;
        break;
    case fiSupplyCredit:
        SupplyCredit=   Value;
        break;
    case fiSupplyCancel:
        SupplyCancel    =   Value.ToInt();
        break;
    case fiSupplyTaxCode:
        SupplyTaxCode=   Value;
        break;
    case fiSupplyTaxNo:
        SupplyTaxNo=   Value;
        break;
    case fiSupplyArea:
        SupplyArea=   Value;
        break;
    case fiSupplyTrade:
        SupplyTrade=   Value;
        break;
    case fiSupplyPmode:
         SupplyPmode=   Value;
         break;
    case fiSupplyBuyer:
        SupplyBuyer=   Value;
        break;
    case fiSupplySysDate:   //      output field
        break;

    case fiSupplyFreq:
        SupplyFreq=Value.ToInt();
        break;
    case fiSupplyCreateDate:
        SupplyCreateDate=   Value;
        break;
    case fiSupplyCancelDate:
        SupplyCancelDate=   Value;
        break;
    case fiSupplyApAmt:
        SupplyApAmt=   Value.ToDouble();
        break;
    case fiSupplyCreditTerm:
        SupplyCreditTerm=   Value;
        break;
    case fiSupplyLtDate:
        SupplyLtDate=   Value;
        break;
    case fiSupplyLtAmt:
        SupplyLtAmt=   Value.ToDouble();
        break;
    case fiSupplyLpDate:
        SupplyLpDate=   Value;
        break;
    case fiSupplyLpAmt:
        SupplyLpAmt=   Value.ToDouble();
        break;
    default:
        throw Exception("当前字段未定义可赋值");
    }
}


void TsdSupply::Update()
{
    if(CurStatus==0||CurStatus==1)
        throw Exception("当前不是编辑状态,不能进行存盘操作!");
    if(m_SupplyCode.IsEmpty()==true)
        throw Exception("供应商编码不能为空!");

    m_StoredProc->Close();
    if(CurStatus==2||CurStatus==4)
    {
        m_StoredProc->ProcedureName="sdSupply_Insert";
        m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@SupplyCode",ftString,pdInput,18,m_SupplyCode);
        m_StoredProc->Parameters->CreateParameter("@SupplyName",ftString,pdInput,40,m_SupplyName);
        m_StoredProc->Parameters->CreateParameter("@SupplyDesc",ftString,pdInput,40,m_SupplyDesc);
        m_StoredProc->Parameters->CreateParameter("@SupplyType",ftString,pdInput,18,m_SupplyType);
        m_StoredProc->Parameters->CreateParameter("@SupplyLegalman",ftString,pdInput,10,m_SupplyLegalman);
        m_StoredProc->Parameters->CreateParameter("@SupplyLinkman",ftString,pdInput,20,m_SupplyLinkman);
        m_StoredProc->Parameters->CreateParameter("@SupplyAddr",ftString,pdInput,40,m_SupplyAddr);
        m_StoredProc->Parameters->CreateParameter("@SupplyZip",ftString,pdInput,6,m_SupplyZip);
        m_StoredProc->Parameters->CreateParameter("@SupplyTel",ftString,pdInput,20,m_SupplyTel);
        m_StoredProc->Parameters->CreateParameter("@SupplyFax",ftString,pdInput,20,m_SupplyFax);
        m_StoredProc->Parameters->CreateParameter("@SupplyEmail",ftString,pdInput,20,m_SupplyEmail);
        m_StoredProc->Parameters->CreateParameter("@SupplyCredit",ftString,pdInput,18,m_SupplyCredit);
        m_StoredProc->Parameters->CreateParameter("@SupplyCancel",ftInteger,pdInput,1,m_SupplyCancel);
        m_StoredProc->Parameters->CreateParameter("@SupplyTaxCode",ftString,pdInput,18,m_SupplyTaxCode);
        m_StoredProc->Parameters->CreateParameter("@SupplyTaxNo",ftString,pdInput,18,m_SupplyTaxNo);
        m_StoredProc->Parameters->CreateParameter("@SupplyArea",ftString,pdInput,18,m_SupplyArea);
        m_StoredProc->Parameters->CreateParameter("@SupplyTrade",ftString,pdInput,18,m_SupplyTrade);
        m_StoredProc->Parameters->CreateParameter("@SupplyPmode",ftString,pdInput,18,m_SupplyPmode);
        m_StoredProc->Parameters->CreateParameter("@SupplyBuyer",ftString,pdInput,18,m_SupplyBuyer);
        m_StoredProc->Parameters->CreateParameter("@SupplySysDate",ftString,pdOutput,40,m_SupplySysDate);
        m_StoredProc->Parameters->CreateParameter("@SupplyFreq",ftInteger,pdInput,10,m_SupplyFreq);
        m_StoredProc->Parameters->CreateParameter("@SupplyCreateDate",ftString,pdInput,10,m_SupplyCreateDate);
        m_StoredProc->Parameters->CreateParameter("@SupplyCancelDate",ftString,pdInput,10,m_SupplyCancelDate);
        m_StoredProc->Parameters->CreateParameter("@SupplyApAmt",ftFloat,pdInput,12,m_SupplyApAmt);
        m_StoredProc->Parameters->CreateParameter("@SupplyCreditTerm",ftString,pdInput,10,m_SupplyCreditTerm);
        m_StoredProc->Parameters->CreateParameter("@SupplyLtDate",ftString,pdInput,10,m_SupplyLtDate);
        m_StoredProc->Parameters->CreateParameter("@SupplyLtAmt",ftFloat,pdInput,12,m_SupplyLtAmt);
        m_StoredProc->Parameters->CreateParameter("@SupplyLpDate",ftString,pdInput,10,m_SupplyLpDate);
        m_StoredProc->Parameters->CreateParameter("@SupplyLpAmt",ftFloat,pdInput,12,m_SupplyLpAmt);
 
        m_StoredProc->ExecProc();
       m_SupplySysDate=m_StoredProc->Parameters->ParamValues["@SupplySysDate"];
    }
    else
    {
        m_StoredProc->ProcedureName="sdSupply_Update";
        m_StoredProc->Parameters->Clear();

        m_StoredProc->Parameters->CreateParameter("@W_SupplyCode",ftString,pdInput,18,b_SupplyCode);
        m_StoredProc->Parameters->CreateParameter("@SupplyCode",ftString,pdInput,18,m_SupplyCode);
        m_StoredProc->Parameters->CreateParameter("@SupplyName",ftString,pdInput,40,m_SupplyName);
        m_StoredProc->Parameters->CreateParameter("@SupplyDesc",ftString,pdInput,40,m_SupplyDesc);
        m_StoredProc->Parameters->CreateParameter("@SupplyType",ftString,pdInput,18,m_SupplyType);
        m_StoredProc->Parameters->CreateParameter("@SupplyLegalman",ftString,pdInput,10,m_SupplyLegalman);
        m_StoredProc->Parameters->CreateParameter("@SupplyLinkman",ftString,pdInput,20,m_SupplyLinkman);
        m_StoredProc->Parameters->CreateParameter("@SupplyAddr",ftString,pdInput,40,m_SupplyAddr);
        m_StoredProc->Parameters->CreateParameter("@SupplyZip",ftString,pdInput,6,m_SupplyZip);
        m_StoredProc->Parameters->CreateParameter("@SupplyTel",ftString,pdInput,20,m_SupplyTel);
        m_StoredProc->Parameters->CreateParameter("@SupplyFax",ftString,pdInput,20,m_SupplyFax);
        m_StoredProc->Parameters->CreateParameter("@SupplyEmail",ftString,pdInput,20,m_SupplyEmail);
        m_StoredProc->Parameters->CreateParameter("@SupplyCredit",ftString,pdInput,18,m_SupplyCredit);
        m_StoredProc->Parameters->CreateParameter("@SupplyCancel",ftInteger,pdInput,1,m_SupplyCancel);
        m_StoredProc->Parameters->CreateParameter("@SupplyTaxCode",ftString,pdInput,18,m_SupplyTaxCode);
        m_StoredProc->Parameters->CreateParameter("@SupplyTaxNo",ftString,pdInput,18,m_SupplyTaxNo);
        m_StoredProc->Parameters->CreateParameter("@SupplyArea",ftString,pdInput,18,m_SupplyArea);
        m_StoredProc->Parameters->CreateParameter("@SupplyTrade",ftString,pdInput,18,m_SupplyTrade);
        m_StoredProc->Parameters->CreateParameter("@SupplyPmode",ftString,pdInput,18,m_SupplyPmode);
        m_StoredProc->Parameters->CreateParameter("@SupplyBuyer",ftString,pdInput,18,m_SupplyBuyer);
        m_StoredProc->Parameters->CreateParameter("@SupplySysDate",ftString,pdOutput,40,m_SupplySysDate);
        m_StoredProc->Parameters->CreateParameter("@SupplyFreq",ftInteger,pdInput,10,m_SupplyFreq);
        m_StoredProc->Parameters->CreateParameter("@SupplyCreateDate",ftString,pdInput,10,m_SupplyCreateDate);
        m_StoredProc->Parameters->CreateParameter("@SupplyCancelDate",ftString,pdInput,10,m_SupplyCancelDate);
        m_StoredProc->Parameters->CreateParameter("@SupplyApAmt",ftFloat,pdInput,12,m_SupplyApAmt);
        m_StoredProc->Parameters->CreateParameter("@SupplyCreditTerm",ftString,pdInput,10,m_SupplyCreditTerm);
        m_StoredProc->Parameters->CreateParameter("@SupplyLtDate",ftString,pdInput,10,m_SupplyLtDate);
        m_StoredProc->Parameters->CreateParameter("@SupplyLtAmt",ftFloat,pdInput,12,m_SupplyLtAmt);
        m_StoredProc->Parameters->CreateParameter("@SupplyLpDate",ftString,pdInput,10,m_SupplyLpDate);
        m_StoredProc->Parameters->CreateParameter("@SupplyLpAmt",ftFloat,pdInput,12,m_SupplyLpAmt);
 
       m_StoredProc->ExecProc();
       m_SupplySysDate=m_StoredProc->Parameters->ParamValues["@SupplySysDate"];
    }
    TsdSupply *p=new TsdSupply(  );

    if(CurStatus==2) {
        SetActionID(1);  // for browsing only
        p->Assign(this);
        AddRecord((void *)p,p->SupplyCode);
    }
    else {
        SetActionID(1);  // for browsing only
        p->Assign(this);
        ChangeRecord((void *)p,p->SupplyCode,this->b_SupplyCode);
    }
}


void TsdSupply::Delete()
{

    if(CurStatus!=1)
      throw Exception("当前状态不能进行删除操作!");
    if(m_SupplyCode.IsEmpty()==true)
      throw Exception("当前没有记录可以删除!");
    m_StoredProc->Close();
    m_StoredProc->ProcedureName="sdSupply_Delete";
    m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@W_SupplyCode",ftString,pdInput,18,b_SupplyCode);
    m_StoredProc->ExecProc();
    DeleteRecord(this->b_SupplyCode);

}

void TsdSupply::BackupValue()
{
    b_SupplyCode        =   m_SupplyCode;
    b_SupplyName        =   m_SupplyName;
    b_SupplyDesc        =   m_SupplyDesc;
    b_SupplyType        =   m_SupplyType;
    b_SupplyLegalman    =   m_SupplyLegalman;
    b_SupplyLinkman     =   m_SupplyLinkman;
    b_SupplyAddr        =   m_SupplyAddr;
    b_SupplyZip         =   m_SupplyZip;
    b_SupplyTel         =   m_SupplyTel;
    b_SupplyFax         =   m_SupplyFax;
    b_SupplyEmail       =   m_SupplyEmail;
    b_SupplyCredit      =   m_SupplyCredit;
    b_SupplyCancel      =   m_SupplyCancel;
    b_SupplyTaxCode     =   m_SupplyTaxCode;
    b_SupplyTaxNo       =   m_SupplyTaxNo;
    b_SupplyArea    =   m_SupplyArea;
    b_SupplyTrade   =   m_SupplyTrade;
    b_SupplyPmode   =   m_SupplyPmode;
    b_SupplyBuyer   =   m_SupplyBuyer;
    b_SupplySysDate     =   m_SupplySysDate;

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

void TsdSupply::RestoreValue()
{
    m_SupplyCode        =   b_SupplyCode;
    m_SupplyName        =   b_SupplyName;
    m_SupplyDesc        =   b_SupplyDesc;
    m_SupplyType        =   b_SupplyType;
    m_SupplyLegalman    =   b_SupplyLegalman;
    m_SupplyLinkman     =   b_SupplyLinkman;
    m_SupplyAddr        =   b_SupplyAddr;
    m_SupplyZip         =   b_SupplyZip;
    m_SupplyTel         =   b_SupplyTel;
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -