xsth.prg

来自「vfp的进销存系统」· PRG 代码 · 共 45 行

*销售退货管理模块
*程序名：xsth
*程序员：
*开发日期：
*最后修改日期：
*修改记录

*变量说明
*rqn:需要打开的日期年份
*rqy:需要打开的日期月份
*qd:确定是否打开

private all except p_*

jytg=.t.
do dksjk with 'xsth','xsth'
do dksjk with 'spk','spk'
do dksjk with 'ysk','ysk'
if reccount()=0
  dhxx='颜色库中没有颜色，不能打开'
  jytg=.f.
endif

if jytg
  rqn=year(date())
  rqy=month(date())
  qd=.t.
  do form rqxz name rqxz linked
  if qd
    select xsth
    set filter to year(日期)=rqn .and. month(日期)=rqy
    count to jls
    cxnr=space(20)
    do jrz with p_gzrrxm,'进入销售退货管理'
    do form xsthdk name xsthdk linked
    do jrz with p_gzrrxm,'退出销售退货管理'

    set message to
    select xsth
    set filter to
  endif
 else
  do form dhk
endif