U8-CDM品种的区域限销方案说明

itinfo

1、导入表单cs_checkQy.zip，表单代码如下：
procedure uf_onload();
var
  dwqylb,xxqylb:string;
begin
  dwqylb := HZ_dwqylb;
  xxqylb := MX_xxqylb;
  if pos(dwqylb,xxqylb) > 0 then
  begin
    DjForm.djmxtable.Edit;
    DjForm.djmxtable.FieldByName('spid').AsString := '';
    ShowMessage('当前单位不能销售 ['+DjForm.djmxtable.FieldByName('spmch').AsString+']，请删除重新选择！');
  end;
end;
2、修改商品检索方案SPTY，增加“限销区域字段”xxqylb（根据实际字段修改）

  select a.spid,b.kcshl,a.spbh,a.spmch,a.shpgg,a.shpchd,a.dw,a.shlv,
       a.jlgg,a.zgjjxz,b.chbdj,a.pizhwh,a.zjm,a.jj,a.hshjj,a.lshj,
       a.zdshj,a.hshjj as zxdj,a.hshjj as htdj,a.hshsj,a.hshsj hshj,
       a.shj,a.zgshj,a.leibie,b.chbdj as dbdj,a.lshj as ylshj,
       b.chbdj as diaocdj,b.chbdj as diaordj,xxqylb
from  spkfk a(nolock),spkfjc b(nolock)
where beactive='是'  and
      a.spid=b.spid and
     (a.spbh like :v_get or
      a.spmch like :v_zjm or
      a.zjm like :v_zjm)
order by a.spbh
3、修改单位检索方案DWTY，增加“区域类别字段”dwqylb（根据实际字段修改）

4、修改单据内商品检索函数为：zl_select_SPTY,runbill_cs_checkQy，为单据明细增加字段xxqylb
理解了一下苹果，复述一下解决思路，不对，请苹果指教。
基本原理：就是在商品上放置一个字段，每个商品存放自己需要限制销售的区域，如果销往单位在这个区域里面，将不允许销售。

商品资料上增加一个字段：xxqylb，可能比较长，里面可以存放很多这个商品不允许销售的区域，比如：华北、济南、云南等；

每个销往单位，都要明确自己所在区域，在 mchk 中，也增加一个字段，记录自己的区域：dwqylb

在落下一个商品时，如果单位的区域在商品不可销售的区域中，那么，就要给予提示。

不知是否可以这样理解这个需求？

windy3000

理解正确！

caplla

区域限销的实现有很多种思路，我实施过的就下五种，KSOA/CDM里带的方案算是比较基础的一种了。

topunion009

区域限销是个什么概念，不懂？

cup

表单的功能，还真是强大啊！！