【正文】 ode) (r_row,39。goods_amount39。,r_amount) r_amount=(r_row,39。goods_amount39。) r_money=r_amount*r_price (r_row,39。tax_mone39。,r_money)//輸入采購訂單號，從商品采購單選出并顯示對應的數(shù)據(jù)dw_1:clicked!r_date=date()//制單日期(r_row,39。sheetdate39。,r_date)(0,false)(row,true)(row)dw_2:itemchanged!()項 目說 明窗口名w_lq出庫單所在的PBL庫功能出庫單父窗口window界面設(shè)計窗口控件說明控件類型控件名控件顯示內(nèi)容說明命令按鈕cb_1查詢查詢數(shù)據(jù)命令按鈕cb_2新增新增數(shù)據(jù)命令按鈕cb_3更新更新數(shù)據(jù)命令按鈕cb_4刪除刪除數(shù)據(jù)命令按鈕cb_5復位數(shù)據(jù)復位命令按鈕cb_6全選全選數(shù)據(jù)命令按鈕cb_7取消全選取消數(shù)據(jù)全選數(shù)據(jù)窗口dw_1顯示數(shù)據(jù)數(shù)據(jù)窗口Dw_2顯示數(shù)據(jù)事件腳本W(wǎng)_lq出庫單i:Open! (sqlca)()(sqlca)()(dw_2)(clicked!)！()()r_row=(1)r_date=date()//制單日期為登錄輸入的時間(r_row,39。sheetdate39。,r_date)(r_row,39。sheetdate39。,r_date)()(0)string r_makerinteger r_sheetid_ckselect oper_name into :r_maker from c_operator where :r_oper=oper_name。(r_row,39。maker39。,r_maker) //自動生成制單人select max(sheetid_ck) into:r_sheetid_ck from goods_out。r_sheetid_ck=r_sheetid_ck+1//單據(jù)號自動加一(r_row,39。sheetid_ck39。,r_sheetid_ck)integer r_sheetidselect max(sheetid) into:r_sheetid from goods_out。r_sheetid=r_sheetid+1(r_row,39。sheetid39。,r_sheetid) //序號自動加一() integer r_left,net,r_goods_amount,r_nowamount,r_keepleft// net=() r_goods_code=(r_row,39。goods_code39。) r_nowamount=(r_row,39。goods_amount39。) select amount into :r_keepleft from goods_amount where goods_code=:r_goods_code。r_left=r_keepleft r_nowamountmessagebox(39。tip39。,r_left)if r_left0 then messagebox(39。tip39。,39。庫存不夠39。)// returnelse () update goods_amount set amount=amount :r_nowamount where goods_code=:r_goods_code。 messagebox(39。Tip39。,39。已更新庫存39。) end if(0)integer r_rowcount,r_rowr_row=()r_rowcount=()=string(r_row) + 39。 / 39。 + string(r_rowcount) ()(0,true)(0,false)dw_1:itemchangedstring r_name,r_unit,r_goods_styledecimal r_price,r_money,r_taxrate,r_tax_moneinteger r_ckd,r_amountstring r_column,r_warehouse()r_row=()r_goods_code=(r_row,39。goods_code39。)//r_dept_code=(r_row,39。dept_code39。)select goods_name,tax_price,unit into :r_name,:r_price,:r_unit from lq_goods where goods_code=:r_goods_code。(r_row,39。tax_price39。,r_price)(r_row,39。goods_name39。,r_name)(r_row,39。unit39。,r_unit) //輸入商品編碼，自動出現(xiàn)商品名稱、價格、計量單位r_amount=(r_row,39。goods_amount39。)r_tax_mone=r_price * r_amount(r_row,39。tax_mone39。,r_tax_mone)//輸入數(shù)量，自動計算出總金額r_ckd=(r_row,39。sheetid_xsd39。)select goods_code,goods_name,tax_price,goods_warehouse,goods_amount,taxrate into :r_goods_code,:r_name,:r_price,:r_warehouse,:r_amount,:r_taxrate from sheet_xs_d where sheetid_xsd=:r_ckd。 (r_row,39。tax_price39。,r_price) (r_row,39。goods_name39。,r_name) (r_row,39。good_warehose39。,r_warehouse) (r_row,39。goods_code39。,r_goods_code) (r_row,39。goods_amount39。,r_amount) r_amount=(r_row,39。goods_amount39。) r_money=r_amount*r_price (r_row,39。tax_mone39。,r_money)//輸入采購訂單號，從商品采購單選出并顯示對應的數(shù)據(jù)dw_1:clicked!r_date=date()//制單日期(r_row,39。sheetdate39。,r_date)(0,false)(row,true)(row)dw_2:itemchanged!()項 目說 明窗口名w_lq出庫單所在的PBL庫功能出庫單父窗口window界面設(shè)計窗口控件說明控件類型控件名控件顯示內(nèi)容說明數(shù)據(jù)窗口dw_1顯示數(shù)據(jù)項 目說 明窗口名w_lq出庫單所在的PBL庫功能出庫單父窗口window界面設(shè)計窗口控件說明控件類型控件名控件顯示內(nèi)容說明命令按鈕cb_1查詢查詢數(shù)據(jù)命令按鈕cb_2新增新增數(shù)據(jù)命令按鈕cb_3更新更新數(shù)據(jù)命令按鈕cb_4刪除刪除數(shù)據(jù)數(shù)據(jù)窗口dw_1顯示數(shù)據(jù)事件腳本W(wǎng)_lq盤存表:Open! (sqlca)()(sqlca)()(dw_2)(clicked!)！()()r_row=(1)r_date=date()//制單日期為登錄輸入的時間(r_row,39。date_pc39。,r_date)(r_row,39。date_pc39。,r_date)()(0)string r_maker() integer r_left,net,r_goods_amount,r_nowamount,r_keepleft// net=() r_goods_code=(r_row,39。goods_code39。) r_nowamount=(r_row,39。goods_amount39。) select amount into :r_keepleft from goods_amount where goods_code=:r_goods_code。r_left=r_keepleft r_nowamountmessagebox(39。tip39。,r_left)if r_left0 then messagebox(39。tip39。,39。庫存不夠39。)// returnelse () update goods_amount set amount=amount :r_nowamount where goods_code=:r_goods_code。 messagebox(39。Tip39。,39。已更新庫存39。) end if(0)integer r_rowcount,r_rowr_row=()r_rowcount=()=string(r_row) + 39。 / 39。 + string(r_rowcount) dw_1:itemchanged(row)string r_name,r_goods_codeinteger r_amount,r_amount_yk,r_amount_sp()r_row=()r_goods_code=(r_row,39。goods_code39。)r_amount_sp=(r_row,39。amount_sp39。)select goods_name into :r_name from c_goods where goods_code=:r_goods_code。(r_row,39。goods_name39。,r_name)select amount into :r_amount from goods_amount where goods_code=:r_goods_code。(r_row,39。amount_zm39。,r_amount)r_amount_yk=r_amount_sp r_amount(r_row,39。amount_yk39。,r_amount_yk)dw_1:clicked!r_date=date()//制單日期(r_row,39。date_pc39。,r_date)(0,false)(row,true)(row)dw_2:itemchanged!()項 目說 明窗口名w_lq進銷存數(shù)量報表所在的PBL庫功能報表查詢父窗口window界面設(shè)計窗口控件說明控件類型控件名控件顯示內(nèi)容說明日歷按鈕Mc_1選擇日期命令按鈕cb_cg查詢查詢采購數(shù)量單行文本框按鈕Sle_datemax輸入日期文本框St_1起始日期顯示起始日期數(shù)據(jù)窗口dw_1顯示數(shù)據(jù)事件腳本W(wǎng)_lq進銷存數(shù)量報表i:Open! (sqlca)()(sqlca)()！ =dw_cg_goods_grid (sqlca) () date r_startdate,r_enddateinteger r_procure_amount,r_sale_amount,r_rowcountstring r_goods_code,r_goods_namer_startdate=date()r_enddate=date()r_rowcount=()delete from lq_cg_amount。for r_row=1 to r_rowcount r_goods_code=(r_row,39。goods_code39。) r_goods_name=(r_row,39。goods_name39。) select sum(goods_amount) into :r_procure_amount from sheet_cg_d where goods_code=:r_goods_code and sheetdate=:r_startdate and sheetdate=:r_enddate。 INSERT INTO lq_cg_amount ( reportdate_qs, reportdate_js, goods_code, goods_name, amount_cg ) VALUES ( :r_startdate, :r_enddate, :r_goods_code, :r_goods_name, :r_procure_amount ) 。next ()=false=fal