*倉庫總帳查看模塊
*程序名：ckzz
*程序員：莊稼
*開發日期：1997.12.13
*最后修改日期：
*修改記錄

*變量說明
*cxnr:查詢內容
*qd:確定

private all except p_*

do dksjk with 'ckzz','ckzz'

  cxnr=space(20)
  set message to '倉庫總帳打開'
  do jrz with p_gzrrxm,'打開倉庫總帳查看'
  do form ckzz name ckzz linked
  do jrz with p_gzrrxm,'退出倉庫總帳查看'
  set message to