โดย savek » เสาร์ ธ.ค. 24, 2022 7:51 pm
สามารถเลียนแบบคำสั่งในการแก้ไขแบบฟอร์มจากในหน้าจอสมุดรายวันมาได้เลยนะครับ จากตัวอย่างข้างล่างนี้จะดึงเลขที่บัญชี กับยอดเดบิต เครดิตมาแสดงนะครับ
Ih:: ;1 arrcpit->rcpnum artrn->docnum
Ib: ~N ~IVCNUM ~IVCDAT ~DUEDAT ~NETAMT ~REMAMT ~RCVAMT ;1
*Ih:: ;2 stcrd->docnum arrcpit->docnum
*Ib: ~NN ~ARTICLE ~QTY ~TQUCOD ~UNITPR ~NETAMT_I ;2
*Ih:õôôôô÷ô ªÓÃÐâ´ÂÍ×蹕æ ö;3 arrcpcq->rcpnum artrn->docnum
*Ib: ~BY ~CHQNUM ~CHQDAT ~AMOUNT_Q ~BNKCOD ~RCVAMT_Q ;3
*If:õôôôôøôôôôôôôôôôôôôôôö ;3
Ih:: ;2 gljnlit->VOUCHER arrcpit->rcpnum
Ib: ~ACCNUM ~DRAMT ~CRAMT ;2
[item file]
File=arrcpit
Alias=B
Tag=arrcpit1
System=DATA_PATH
File=gljnlit
Alias=B
Tag=gljnlit1
System=DATA_PATH
File=arrcpcq
Alias=D
Tag=arrcpcq1
System=DATA_PATH
~P_ORGTXT: 0, "", "p_orgtxt()", ""
~P_ORG: 0, "", "p_orgnum()", ""
~P_ORGSTR: 0, "", "p_orgstr()", ""
~BILLTO: 0, "", "A->BILLTO", "tax_id=@TAXID()"
~TAXIDX: 0, "", "tax_id", ""
*~ORG: 0, "", "org", "org=IIF(tax_id#' '.AND.A->ORGNUM>=0,IIF(A->ORGNUM=0,'•สำนักงานใหญ่•••', '•สาขาที่•' -LTRIM(STR(A->ORGNUM,5,0))),' ')"
~ORG: 0, "", "org", "br=@p_orgnum_00009( A->ORGNUM ); org=IIF(tax_id#' '.AND.A->ORGNUM>=0,IIF(A->ORGNUM=0,'•สำนักงานใหญ่••', '•สาขาที่•'-br),' ')"
~SEEKCUS: 0, "", "SeekCus()", ""
~ACCNUM: 0, "", "GLJNLIT->ACCNUM", ""
~DRAMT: 0, "ZZZ,ZZZ,ZZZ.ZZ", "dramt", "dramt = IIF(GLJNLIT->TRNTYP='0', GLJNLIT->AMOUNT, 0)"
~CRAMT: 0, "ZZZ,ZZZ,ZZZ.ZZ", "cramt", "cramt = IIF(GLJNLIT->TRNTYP='1', GLJNLIT->AMOUNT, 0)"