電子發票開發歷程ˊ

admin

1)rehat linux 5 need to install sshpass-1.06.tar.gz2)win10 install  ssh server
3)posp003y.4gl   --> posp013y.4gl
   posf003y.per  ---> posf013y.per
   sysp9001.4gl ----> sysp901q.4gl
4)pq  posp003y  ---> px posp013y
5) desigin history
#   DATE-WRITTEN     :     2023-08-30 V21   #mis login 可查詢 sal_time 查詢 show "HH:MM"
#   DATE-WRITTEN     :     2023-09-08 V30   #發票電子化POSF013Y+POSP013Y.4GL +SYSP901Q.4GL PX POSP103Y
#   DATE-WRITTEN     :     2023-09-08 V31   #發票電子手機載具(\XXXXXXX)導入 POSTCCRM POSFCCRM.PER ::/get_carrier
#   DATE-WRITTEN     :     2023-09-08 V32   #發票電子手機載具(\XXXXXXX)導入 POSTCUSM ADD cus_crr_code1
#   DATE-WRITTEN     :     2023-09-18 V33   #發票電子手機載具(\XXXXXXX)導入 POStcrrm ADD cus_zip and save all   
#   DATE-WRITTEN     :     2023-09-18 V34   #發票電子手機載具(\XXXXXXX)導入 #有載具須開發票 且表伸首列不可開窗會員修改
#   DATE-WRITTEN     :     2023-09-18 V35   #發票電子手機載具(\XXXXXXX)導入 #POSTSLDM 增 VAT_NO 統編 inv_status POSF013F.PER修改
#   DATE-WRITTEN     :     2023-09-22 V35   #發票電子手機載具(\XXXXXXX)導入 #增 TAB(31) FOR INV_STATUS   
#   DATE-WRITTEN     :     2023-09-28 V35   #發票電子手機載具(\XXXXXXX)導入 #增 random_code(4) get_random_code() POSF013F.PER修改
#   DATE-WRITTEN     :     2023-09-29 V35   #發票電子手機載具(\XXXXXXX)導入 #增 print_edata to print e-inoice     
#   DATE-WRITTEN     :     2023-10-02 V35   #發票電子手機載具(\XXXXXXX)導入 #增 發票補上傳功能  sysp901q.4gl midify
#   DATE-WRITTEN     :     2023-10-02 V35   #發票電子手機載具(\XXXXXXX)導入 #C0401,C0501存放位置及命名確認修改
#   DATE-WRITTEN     :     2023-10-09 V35   #發票電子手機載具(\XXXXXXX)導入 #posfinvc add "user_from" 使用者主機 for sftp#   DATE-WRITTEN     :     2023-10-09 V35   #發票電子手機載具(\XXXXXXX)導入 #posfinvc add "user_from" 使用者主機 for sftp (posfinvf)
#   DATE-WRITTEN     :     2023-10-13 V40   #發票電子手機載具(\XXXXXXX)導入 #上傳檔案欄位空白NEED CLIPPED ,SMALL ,INTEGER -->CHAR
#   DATE-WRITTEN     :     2023-10-26 V41   #發票電子手機載具(\XXXXXXX)導入 #上傳檔案須追加 print_form (0,3)for "3J0002"
#   DATE-WRITTEN     :     2023-10-26 V41   #發票電子手機載具(\XXXXXXX)導入 # 不開發票允許作廢(取消)
#   DATE-WRITTEN     :     2023-12-01 V41   #發票電子手機載具(\XXXXXXX)導入 # p_file add ".txt"
#   DATE-WRITTEN     :     2023-12-11 V41   #發票電子手機載具(\XXXXXXX)導入 # use ftp replace ssh ,fltopc changed and b_file added
#   DATE-WRITTEN     :     2023-12-11 V42   #發票電子手機載具(\XXXXXXX)導入 # 交班列印posfdays display_shiftmsg() added
#   DATE-WRITTEN     :     2024-01-01-V43   #發票電子手機載具(\XXXXXXX)導入 #上傳檔案須追加 print_form (2)for "3J0002"
#   DATE-WRITTEN     :     2024-01-01-V43   #上傳檔案須追加 print_form (2)for "3J0002"
#   DATE-WRITTEN     :     2024-01-03 V44   #不開發票時  inv_no="XP********"
#   DATE-WRITTEN     :     2024-01-03 V44   #add check_invoice_now
#   DATE-WRITTEN     :     2024-01-04 V45   #add check_sal_id  not open for used
#   DATE-WRITTEN     :     2024-01-06 V46   #add check_inv_no()  避免發票重覆存檔 line 5405/6173 add "E004"
#   DATE-WRITTEN     :     2024-01-10 V47   #引進 卷=折價 功能  print_edata() modify
#   DATE-WRITTEN     :     2024-01-10 V48   #posfinvf all noentry,check_inv_no closed for px posp013z used
#   DATE-WRITTEN     :     2024-01-15 V49   #m_remark1,m_remakr2 added for print sal_pcno,sal_opno.sal_id
#   DATE-WRITTEN     :     2024-01-15 V50   #posfdayv.per 交班發票資料(a101/a102)
#   DATE-WRITTEN     :     2024-01-15 V52   #"E005" added for p_record4.invnum_bal <= 0
#   DATE-WRITTEN     :     2024-01-18 V53   #強化控管 "現卷小於總額!" line 4089
#   DATE-WRITTEN     :     2024-01-18 V54   #bug fix add k_curr
#   DATE-WRITTEN     :     2024-02-02 v55...#sal_ttl<=0  不開發票 sal_code = "2" inv_status = "5"
#   DATE-WRITTEN     :     2024-02-04 v56...#insert_daym()  modified
#   DATE-WRITTEN     :     2024-02-27 v57...#add  check_invoice_now() add  "E007","E008","E009"
#   DATE-WRITTEN     :     2024-02-28 v58...#sysp901q.4gl modified add  "E010" for   "E.結束"
#   DATE-WRITTEN     :     2024-02-29 v59.. #check_invoice_now() modified ,first_of_last_month(p_date) added
#   DATE-WRITTEN     :     2024-02-29 v60.. #release from 2024/3/1 onward (posp013z +posp013y)r


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