line 3362
#20240202 added by longine
IF q_record2.sal_ttl <= 0 then
let p_record.sal_code = "2" # 不開發票
let p_record3.inv_status = "5" # 不傳
line 3538
#20240202 added by longine
IF q_record2.sal_ttl <= 0 then
let p_record.sal_code = "2" # 不開發票
let p_record3.inv_status = "5"
line 1444
##---庫存更新 20240217-----------------
# 20240208 sal_cash =0 & sal_ticket >0 & sal_code ="5" 13%
# if q_record2.sal_ticket >0 and
# q_record2.sal_cash =0 and
# msg("P010","P","") = "N" then
# next field sal_cash
# end if
line 4295
#20240118 added 3 line
error "現卷小於總額!"
display by name q_record2.sal_cash attributes(reverse)
next field sal_cash
FUNCTION insert_daym() #20240204 modified
add check_invoice_now() +add "E007","e008","E009"
sysp901q.4gl add "E010" for "E.結束"
add FUNCTION first_of_last_month(p_date) 240229 + check_invoice_now() modified
FUNCTION print_sdata()
#bug fix 20240531 by longine
let pr_s_record.invoice_date =
("20"||p_record.sal_id[1,2]||"-"||p_record.sal_id[3,4]||"-"||p_record.sal_id
[5,6])