Category

Development Platform
Home > SourceCode/Document > Applications > ERP-EIP-OA-Portal > View Code
mAlfh.cpp
Package: 科思ERP部分源码及控件　[view]
Upload User: xgxgxg8
Upload Date: 2007-02-22
Package Size: 6882k
Code Size: 15k
Category:

ERP-EIP-OA-Portal

Development Platform:

Delphi

mAlfh.cpp：Code Content
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  5. #include "mAlfh.h"
  7. //---------------------------------------------------------------------------
  9. #pragma package(smart_init)
  10. TKSAlfh *sdAlfh;
  11. //---------------------------------------------------------------------------
  12. __fastcall TKSAlfh::TKSAlfh()
  13.   :TKSMidBase()
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17. void __fastcall TKSAlfh::ValidHeadValues()
  18. {
  19.   AnsiString  m_AlfhCode;
  20.    AnsiString  b_AlfhCode;
  21.    m_AlfhCode=GetMasterValue("AlfhCode");
  22.    b_AlfhCode=GetMasterOldValue("AlfhCode");
  23.     if(m_AlfhCode.IsEmpty())
  24.         throw Exception("调拔单编码不能为空!");
  25.     if(m_AlfhCode.Length()>18)
  26.       throw Exception("调拔单号长度不能大于18");
  28.     b_AlfhCode = m_AlfhCode;
  30.    AnsiString  m_AlfhDate;
  31.    m_AlfhDate=GetMasterValue("AlfhDate");
  32.     if(m_AlfhDate.IsEmpty())
  33.       throw Exception("调拔日期不能为空");
  35.    AnsiString  m_AlfhFmonth;
  36.    AnsiString  b_AlfhFmonth;
  37.    m_AlfhFmonth=GetMasterValue("AlfhFmonth");
  38.    b_AlfhFmonth=GetMasterOldValue("AlfhFmonth");
  39. //    AnsiString s;
  40.     if(m_AlfhFmonth.IsEmpty())
  41.       throw Exception("财务月份不能为空");
  42. /*
  43.     if(m_AlfhFmonth!=b_AlfhFmonth)
  44.     {
  45.       Query->Close();
  46.       Query->SQL->Clear();
  47.       Query->SQL->Add("select fcmonth from sdfc where fcmonth='"+m_AlfhFmonth+"'");
  48.       Query->Open();
  49.       if(Query->RecordCount<=0)
  50.       {
  51.         Query->Close();
  52.         throw Exception("财务月份:"+m_AlfhFmonth+"未定义");
  53.       }
  54.       Query->Close();
  55.       Query->SQL->Clear();
  56.       Query->SQL->Add("select fcmonth from sdfc where fccurrent=1");
  57.       Query->Open();
  58.       if(Query->RecordCount<=0)
  59.       {
  60.         Query->Close();
  61.         throw Exception("未定义当前财务月份");
  62.       }
  63.       s=Query->FieldValues["FcMonth"];
  64.       if(m_AlfhFmonth<s)
  65.       {
  66.         Query->Close();
  67.         throw Exception("财务月份不能小于当前月份");
  68.       }
  69.       Query->Close();
  70.     }
  71. */
  73.    AnsiString  m_AlfhPosType;
  74.    AnsiString  b_AlfhPosType;
  75.    m_AlfhPosType=GetMasterValue("AlfhPosType");
  76.    b_AlfhPosType=GetMasterOldValue("AlfhPosType");
  77.     if(m_AlfhPosType.IsEmpty())
  78.       throw Exception("收发存项目编码不能为空");
  79.     if(m_AlfhPosType.Length()>18)
  80.       throw Exception("项目编码长度不能大于18");
  81.     if(m_AlfhPosType!=b_AlfhPosType)
  82.     {
  83.       Query->Close();
  84.       Query->SQL->Clear();
  85.       Query->SQL->Add("select postypecode from sdpostype where postypecode='"+m_AlfhPosType+"'");
  86.       Query->Open();
  87.       if(Query->RecordCount<=0)
  88.       {
  89.         Query->Close();
  90.         throw Exception("收发存项目编码:"+m_AlfhPosType+"未定义");
  91.       }
  92.       Query->Close();
  93.     }
  95.    AnsiString  m_AlfhODept;
  96.    AnsiString  b_AlfhODept;
  97.    m_AlfhODept=GetMasterValue("AlfhODept");
  98.    b_AlfhODept=GetMasterOldValue("AlfhODept");
  99.     if(m_AlfhODept.IsEmpty())
  100.       throw Exception("转出部门编码不能为空");
  101.     if(m_AlfhODept.Length()>18)
  102.       throw Exception("转出部门编码长度不能大于18");
  103.     if(m_AlfhODept!=b_AlfhODept)
  104.     {
  105.       Query->Close();
  106.       Query->SQL->Clear();
  107.       Query->SQL->Add("select deptcode from sddept where deptcode='"+m_AlfhODept+"'");
  108.       Query->Open();
  109.       if(Query->RecordCount<=0)
  110.       {
  111.         Query->Close();
  112.         throw Exception("转出部门编码:"+m_AlfhODept+"未定义");
  113.       }
  114.       Query->Close();
  115.     }
  117.    AnsiString  m_AlfhIDept;
  118.    AnsiString  b_AlfhIDept;
  119.    m_AlfhIDept=GetMasterValue("AlfhIDept");
  120.    b_AlfhIDept=GetMasterOldValue("AlfhIDept");
  121.     if(m_AlfhIDept.IsEmpty())
  122.       throw Exception("转入部门编码不能为空");
  123.     if(m_AlfhIDept.Length()>18)
  124.       throw Exception("转入部门编码长度不能大于18");
  125.     if(m_AlfhIDept!=b_AlfhIDept)
  126.     {
  127.       Query->Close();
  128.       Query->SQL->Clear();
  129.       Query->SQL->Add("select deptcode from sddept where deptcode='"+m_AlfhIDept+"'");
  130.       Query->Open();
  131.       if(Query->RecordCount<=0)
  132.       {
  133.         Query->Close();
  134.         throw Exception("转入部门编码:"+m_AlfhIDept+"未定义");
  135.       }
  136.       Query->Close();
  137.     }
  139.    int m_AlfhType;
  140.    m_AlfhType=GetMasterValue("AlfhType");
  141.     if(m_AlfhType!=1)
  142.       throw Exception("调拔类型只能取值1-库存调拔");
  144.    AnsiString  m_AlfhDesc;
  145.    m_AlfhDesc=GetMasterValue("AlfhDesc");
  146.     if(m_AlfhDesc.Length()>40)
  147.       throw Exception("备注长度不能大于40");
  149.    int m_AlfhCheck;
  150.    m_AlfhCheck=GetMasterValue("AlfhCheck");
  151.     if(m_AlfhCheck!=0 && m_AlfhCheck!=1)
  152.       throw Exception("审核标志只能取值0-未审核1-已审");
  154. /*
  155.    AnsiString  m_AlfhChecker;
  156.    AnsiString  b_AlfhChecker;
  157.    m_AlfhChecker=GetMasterValue("AlfhChecker");
  158.    b_AlfhChecker=GetMasterOldValue("AlfhChecker");
  159.    int  m_AlfhCheck;
  160.    m_AlfhCheck=GetMasterValue("AlfhCheck");
  161.     if(m_AlfhCheck==1)
  162.     {
  163.       if(m_AlfhChecker.IsEmpty())
  164.         throw Exception("审核员代码不能为空");
  165.       if(m_AlfhChecker.Length()>18)
  166.         throw Exception("审核员代码长度不能大于18");
  167.       if(m_AlfhChecker!=b_AlfhChecker)
  168.       {
  169.         Query->Close();
  170.         Query->SQL->Clear();
  171.         Query->SQL->Add("select keepercode from sdkeeper where keepercode='"+m_AlfhChecker+"' and Keepercheck=1");
  172.         Query->Open();
  173.         if(Query->RecordCount<=0)
  174.         {
  175.           Query->Close();
  176.           throw Exception("审核员代码未定义或没有审核权限");
  177.         }
  178.         Query->Close();
  179.       }
  180.     }
  181.     else
  182.       b_AlfhChecker="";
  183. */
  185.    AnsiString  m_AlfhCheckDate;
  186.    m_AlfhCheckDate=GetMasterValue("AlfhCheckDate");
  188.    m_AlfhCheck=GetMasterValue("AlfhCheck");
  189.     if(m_AlfhCheck==1)
  190.     {
  191.       if(m_AlfhCheckDate.IsEmpty())
  192.         throw Exception("审核日期不能为空");
  193.     }
  195.    int m_AlfhInvFlg;
  196.    m_AlfhInvFlg=GetMasterValue("AlfhInvFlg");
  197.     //库存控制不能录入
  199. /*
  200.    AnsiString  m_AlfhUser;
  201.    AnsiString  b_AlfhUser;
  202.    m_AlfhUser=GetMasterValue("AlfhUser");
  203.    b_AlfhUser=GetMasterOldValue("AlfhUser");
  204.     if(m_AlfhUser.IsEmpty())
  205.       throw Exception("操作员代码不能为空");
  206.     if(m_AlfhUser.Length()>18)
  207.       throw Exception("操作员代码长度不能大于18");
  208.     if(m_AlfhUser!=b_AlfhUser)
  209.     {
  210.       Query->Close();
  211.       Query->SQL->Clear();
  212.       Query->SQL->Add("select usercode from sduser where usercode='"+m_AlfhUser+"'");
  213.       Query->Open();
  214.       if(Query->RecordCount<=0)
  215.       {
  216.         Query->Close();
  217.         throw Exception("操作员代码:"+m_AlfhUser+"未定义");
  218.       }
  219.       Query->Close();
  220.     }
  221. */
  223. /*
  224.    AnsiString  m_AlfhKeeper;
  225.    AnsiString  b_AlfhKeeper;
  226.    m_AlfhKeeper=GetMasterValue("AlfhKeeper");
  227.    b_AlfhKeeper=GetMasterOldValue("AlfhKeeper");
  228.     if(m_AlfhKeeper.IsEmpty())
  229.       throw Exception("仓管员代码不能为空");
  230.     if(m_AlfhKeeper.Length()>18)
  231.       throw Exception("仓管员代码长度不能大于18");
  232.     if(m_AlfhKeeper!=b_AlfhKeeper)
  233.     {
  234.       Query->Close();
  235.       Query->SQL->Clear();
  236.       Query->SQL->Add("select keepercode from sdkeeper where keepercode='"+m_AlfhKeeper+"'");
  237.       Query->Open();
  238.       if(Query->RecordCount<=0)
  239.       {
  240.         Query->Close();
  241.         throw Exception("仓管员:"+m_AlfhKeeper+"未定义");
  242.       }
  243.       Query->Close();
  244.     }
  245. */
  247.    int m_AlfhCancel;
  248.    m_AlfhCancel=GetMasterValue("AlfhCancel");
  249.     if(m_AlfhCancel!=0 && m_AlfhCancel!=1)
  250.       throw Exception("取消标志只能取值0-正常 1-取消");
  252.    AnsiString  m_AlfhCancelDate;
  253.    AnsiString  b_AlfhCancelDate;
  254.    m_AlfhCancelDate=GetMasterValue("AlfhCancelDate");
  256.    m_AlfhCancel=GetMasterValue("AlfhCancel");
  257.     if(m_AlfhCancel==1)
  258.     {
  259.       if(m_AlfhCancelDate.IsEmpty())
  260.         throw Exception("取消日期不能为空");
  261.     }
  263. }
  264. //---------------------------------------------------------------------------
  265. void __fastcall TKSAlfh::ValidItemValues()
  266. {
  268.    AnsiString  m_AlfdCode;
  269.    m_AlfdCode=GetDetailValue("AlfdCode");
  270.     if(m_AlfdCode.IsEmpty())
  271.        throw Exception("调拔单号不能为空!");
  272.     if(m_AlfdCode.Length()>18)
  273.       throw Exception("调拔单号长度不能大于18");
  275.    int m_AlfdLine;
  276.    int b_AlfdLine;
  277.    m_AlfdLine=GetDetailValue("AlfdLine");
  278.    b_AlfdLine=GetDetailOldValue("AlfdLine");
  279.     if(m_AlfdLine<=0)
  280.       throw Exception("调拨单行号不能小于等于零");
  281.    /* if(m_AlfdLine !=b_AlfdLine)
  282.      if(FindKey(AnsiString(m_AlfdLine)))         //???????????????????????????
  283.         throw Exception("行号已存在,行号不能重复");    */
  285.    AnsiString  m_AlfdOLoc;
  286.    AnsiString  b_AlfdOLoc;
  287.    m_AlfdOLoc=GetDetailValue("AlfdOLoc");
  288.    b_AlfdOLoc=GetDetailOldValue("AlfdOLoc");
  289.    AnsiString  m_AlfdILoc;
  290.    m_AlfdILoc=GetDetailValue("AlfdILoc");
  291.     if(m_AlfdOLoc.IsEmpty())
  292.       throw Exception("转出货位不能为空");
  293.     if(m_AlfdOLoc.Length()>18)
  294.       throw Exception("转出货位编码长度不能大于18");
  295.     if(m_AlfdOLoc==m_AlfdILoc)
  296.       throw Exception("转出货位不能与转入货位相同");
  297.     if(m_AlfdOLoc!=b_AlfdOLoc)
  298.     {
  299.       Query->Close();
  300.       Query->SQL->Clear();
  301.       Query->SQL->Add("select loccode from sdloc where loccode='"+m_AlfdOLoc+"'");
  302.       Query->Open();
  303.       if(Query->RecordCount<=0)
  304.       {
  305.         Query->Close();
  306.         throw Exception("货位编码:"+m_AlfdOLoc+"未定义");
  307.       }
  308.       Query->Close();
  309.     }
  312.    AnsiString  b_AlfdILoc;
  313.    m_AlfdILoc=GetDetailValue("AlfdILoc");
  314.    b_AlfdILoc=GetDetailOldValue("AlfdILoc");
  316.    m_AlfdOLoc=GetDetailValue("AlfdOLoc");
  317.     if(m_AlfdILoc.IsEmpty())
  318.       throw Exception("转入货位不能为空");
  319.     if(m_AlfdILoc.Length()>18)
  320.       throw Exception("转入货位编码长度不能大于18");
  321.     if(m_AlfdILoc==m_AlfdOLoc)
  322.       throw Exception("转入货位不能与转出货位相同");
  323.     if(m_AlfdILoc!=b_AlfdILoc)
  324.     {
  325.       Query->Close();
  326.       Query->SQL->Clear();
  327.       Query->SQL->Add("select loccode from sdloc where loccode='"+m_AlfdILoc+"'");
  328.       Query->Open();
  329.       if(Query->RecordCount<=0)
  330.       {
  331.         Query->Close();
  332.         throw Exception("货位编码:"+m_AlfdILoc+"未定义");
  333.       }
  334.       Query->Close();
  335.     }
  337.    AnsiString  m_AlfdGoods;
  338.    AnsiString  b_AlfdGoods;
  339.    AnsiString  m_AlfdUnit;
  340.    AnsiString  m_AlfdConv;
  341.    m_AlfdGoods=GetDetailValue("AlfdGoods");
  342.    b_AlfdGoods=GetDetailOldValue("AlfdGoods");
  344.    m_AlfdOLoc=GetDetailValue("AlfdOLoc");
  346.    m_AlfdILoc=GetDetailValue("AlfdILoc");
  347.     if(m_AlfdOLoc.IsEmpty())
  348.       throw Exception("转出货位不能为空");
  349.     if(m_AlfdILoc.IsEmpty())
  350.       throw Exception("转入货位不能为空");
  351.     if(m_AlfdGoods.IsEmpty())
  352.       throw Exception("物料编码不能为空");
  353.     if(m_AlfdGoods.Length()>18)
  354.       throw Exception("物料编码长度不能大于18");
  355.     if(m_AlfdGoods!=b_AlfdGoods)
  356.     {
  357.       Query->Close();
  358.       Query->SQL->Clear();
  359.       Query->SQL->Add(" select goodscode,goodsunitcode from sdgoods,sdlg where lgstate=1  and goodscode=lggoodscode and ");
  360.       Query->SQL->Add(" goodscode='"+m_AlfdGoods+"' and lgloccode='"+m_AlfdOLoc+"'");
  361.       Query->Open();
  362.       if(Query->RecordCount<=0)
  363.       {
  364.         Query->Close();
  365.         throw Exception("物料编码:"+m_AlfdGoods+"无效,或转出货位:"+m_AlfdOLoc+"未定义该物料");
  366.       }
  367.       Query->Close();
  368.       Query->SQL->Clear();
  369.       Query->SQL->Add(" select goodscode,goodsunitcode from sdgoods,sdlg where lgstate=1  and goodscode=lggoodscode and ");
  370.       Query->SQL->Add(" goodscode='"+m_AlfdGoods+"' and lgloccode='"+m_AlfdILoc+"'");
  371.       Query->Open();
  372.       if(Query->RecordCount<=0)
  373.       {
  374.         Query->Close();
  375.         throw Exception("物料编码:"+m_AlfdGoods+"无效,或转入货位:"+m_AlfdILoc+"未定义该物料");
  376.       }
  377.       m_AlfdUnit=Query->FieldValues["goodsunitcode"];
  378.       m_AlfdConv=1;
  379.       Query->Close();
  380.     }
  383.    AnsiString  b_AlfdUnit;
  384.    m_AlfdUnit=GetDetailValue("AlfdUnit");
  385.    b_AlfdUnit=GetDetailOldValue("AlfdUnit");
  387.    m_AlfdGoods=GetDetailValue("AlfdGoods");
  388.     if(m_AlfdGoods.IsEmpty())
  389.       throw Exception("物料编码不能为空");
  390.     if(m_AlfdUnit.IsEmpty())
  391.       throw Exception("计量单位不能为空");
  392.     if(m_AlfdUnit.Length()>18)
  393.       throw Exception("计量单位长度不能大于18");
  394.     Query->Close();
  395.     Query->SQL->Clear();
  396.     if(m_AlfdUnit!=b_AlfdUnit)
  397.     {
  398.       Query->Close();
  399.       Query->SQL->Clear();
  400.       Query->SQL->Add("Select Unitcode from sdUnit where Unitcode='"+m_AlfdUnit+"'");
  401.       Query->Open();
  402.       if(Query->RecordCount<=0)
  403.       {
  404.         Query->Close();
  405.         throw Exception("计量单位:"+m_AlfdUnit+"不存在");
  406.       }
  407.       Query->Close();
  408.     }
  410.   double m_AlfdQty;
  411.    m_AlfdQty=GetDetailValue("AlfdQty");
  412.     if(m_AlfdQty<=0)
  413.       throw Exception("调拨数量必须大于零");
  415.    AnsiString  m_AlfdSBatch;
  416.    AnsiString  b_AlfdSBatch;
  419.    m_AlfdSBatch=GetDetailValue("AlfdSBatch");
  420.    b_AlfdSBatch=GetDetailOldValue("AlfdSBatch");
  421.    m_AlfdOLoc=GetDetailValue("AlfdOLoc");
  422.   
  423.    m_AlfdGoods=GetDetailValue("AlfdGoods");
  424.    m_AlfdQty=GetDetailValue("AlfdQty");
  425.    int IsBatch;
  426.     if(m_AlfdGoods.IsEmpty())
  427.       throw Exception("调拔物料不能为空");
  428.     if(m_AlfdSBatch.Length()>18)
  429.       throw Exception("批号编码长度不能大于18");
  430.         Query->Close();
  431.     Query->SQL->Clear();
  432.     Query->SQL->Add("select GoodsBatch from sdgoods where goodscode='"+m_AlfdGoods+"'");
  433.     Query->Open();
  434.     if(Query->RecordCount<=0)
  435.     {
  436.       Query->Close();
  437.       throw Exception("调拔物料不存在");
  438.     }
  439.     else
  440.     {
  441.       IsBatch=Query->FieldValues["GoodsBatch"];
  442.       Query->Close();
  443.     }
  444.     if(IsBatch==0)
  445.     {
  446.       if(!m_AlfdSBatch.IsEmpty())
  447.         throw Exception("物料:"+m_AlfdGoods+" 不需批次管理");
  448.     }
  449.     if(IsBatch==1&&m_AlfdSBatch.IsEmpty())
  450.     {
  451.         throw Exception("物料:"+m_AlfdGoods+" 需批次管理,必须填上调出批号");
  452.     }
  453.     if(m_AlfdSBatch.IsEmpty()==false && m_AlfdSBatch!=b_AlfdSBatch)
  454.     {
  455.       AnsiString BatchSSql;
  456.       AnsiString CurFmonth;
  457.     //  CurFmonth=GetCurMonth();
  458.     //  AnsiString CurFmonth;
  460.       Query->Close();
  461.       Query->SQL->Clear();
  462.       Query->SQL->Add("select CSCMMONTH from sdcscm where CSCMClASSID='Inventory'");
  463.       Query->Open();
  464.       CurFmonth=Query->FieldValues["CSCMMONTH"];
  465.       Query->Close();
  466.       Query->SQL->Clear();
  467.     // m_Query->SQL->Add("select Batchcode from sdBatch where Batchcode='"+value+"'");
  470.       BatchSSql="select BthtAoyQty from sdBtht where BthtBatch='"+m_AlfdSBatch+"' and BthtFmonth='"+CurFmonth+"' and BthtLoc='"+m_AlfdOLoc+"' and BthtGoods='"+Trim(m_AlfdGoods)+"'";
  471.       Query->SQL->Add(BatchSSql);
  472.       Query->Open();
  473.       if(Query->RecordCount<=0)
  474.       {
  475.         Query->Close();
  476.         throw Exception("批号编码:"+m_AlfdSBatch+"未定义");
  477.       }
  478.       double FQty;
  479.       FQty=Query->FieldValues["BthtAoyQty"];
  482.       if (FQty<m_AlfdQty)
  483.       {
  484.         Query->Close();
  485.         throw Exception("转出货位物料的批次数量不够");
  486.       }  
  487.       Query->Close();
  489.     }
  491.    AnsiString  m_AlfdDesc;
  492.    m_AlfdDesc=GetDetailValue("AlfdDesc");
  493.     if(m_AlfdDesc.Length()>40)
  494.       throw Exception("备注长度不能大于40");
  495. }
  496. //---------------------------------------------------------------------------
  497. void __fastcall TKSAlfh::CmdExec(AnsiString Param)
  498. {
  499. }
  500. //---------------------------------------------------------------------------