โดย bowling_or » อังคาร พ.ค. 30, 2017 5:40 pm
แก้ไขฟอร์มการจ่ายชำระหนี้คะ
He: $EãºÊӤѨèÒÂ$E
*He:
He:¨èÒÂãËé¡Ñº••~SUPCOD ~BILLBE àÅ¢·Õè•PV ~RCPNUM
He: ~SUPNAM Çѹ·Õè•PV ~RCPDAT
He:
*He: ~ADDR01
*He: ~ADDR02
*He: àÅ¢»ÃШӵÑǼÙéàÊÕÂÀÒÉÕ ~TAXIDX ~ORG
He:ÃÒ¡ÒÃ:•~YOUREF
He:ïôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôð
Bo: Acc Number Acc Name Debit Credit
Ih:: ;6 gljnlit->voucher aptrn->docnum
Ib: ~ACCNUM ~ACCNAM ~DRAMT ~CRAMT ;6
If: ÃÇÁÂÍ´ ~TOTDR ~TOTCR ;6
If:ïôôôôøôôôôôôôôôôôôôôôôôøôôôôôôôôôôôøôôôôôôôôôôøôôôôôôôôôôôôôôøôôôôôôôôôôôôôôôøôôôôôôôôôôôôôôôð
If:ó No.ó àÅ¢·ÕèãºÃѺ ó Çѹ·Õè ó•¤Ãº¡Ó˹´ ó ¨Ó¹Ç¹à§Ô¹ ó ÂÍ´¤§¤éÒ§ ó ÂÍ´¨èÒ ó
If:õôôôôùôôôôôôôôôôôôôôôôôùôôôôôôôôôôôùôôôôôôôôôôùôôôôôôôôôôôôôôùôôôôôôôôôôôôôôôùôôôôôôôôôôôôôôôö
Bo::
Ih:: ;1 aprcpit->rcpnum aptrn->docnum
Ib: ~N ~RCVNUM ~RCVDAT ~DUEDAT ~NETAMT ~REMAMT ~PAYAMT_I ;1
*Ih:: ;2 stcrd->docnum aprcpit->docnum
*Ib: ~NN ~ARTICLE ~QTY ~TQUCOD ~UNITPR ~NETAMT_I ;2
Ih: õôô ªÓÃÐâ´ÂÍ×è¹æ ôôö ;3 aprcpcq->rcpnum aptrn->docnum
Ib: ~BY ~CHQNUM ~CHQDAT ~BNKACC ~AMOUNT_Q ~PAYAMT_Q ;3
*If: õôôôôôôôôôôôôôôôôôö ;3
Ih: õôô ãºËÑ¡ÀÒÉÕ ôôôö;5 istax->refnum aptrn->docnum
Ib: ~PTAXàÅ¢·Õè ~TAXNUM ~TAXDAT ~TAXP ;4
Ib: ÂÍ´¨èÒ ~PAYAMT ËÑ¡äÇé ~RATE %~TAXAMT ÊÓËÃѺ ~TAXDES ;4
Ib:~I2 ÂÍ´#2 ~PAYAMT2 ËÑ¡äÇé ~RATE2%~TAXAMT2 ÊÓËÃѺ ~TAXDES2 ;4
bt:ó ó ó ó ó ó ó ó
Fo:õôôôô÷ôôôôôôôôôôôôôôôôô÷ôôôôôôôôôôô÷ôôôôôôôôôô÷ôôôôôôôôôôôôôô÷ôôôôôôôôôôôôôôôùôôôôôôôôôôôôôôôö
Su:ó ¨Ó¹Ç¹à§Ô¹·Ñé§ÊÔé¹ ó ~RCVAMT ó
Su:~CHKSRV ÀÒÉÕÁÙŤèÒà¾ÔèÁ ó ~VATAMT ó
Su:~CHKSRV ¨Ó¹Ç¹à§Ô¹¤èÒºÃÔ¡Òà ó ~SRVAMT ó
Su:õôôôôôôôôôôôôôøôôôôôôôôôôôôôôôøôôôôôôôôôôôôôôôøôôôôôôôôôôôôôôôôøôôôôôôôôôôôôôùôôôôôôôôôôôôôôôö
Su:ó ´/º ¨èÒ ó à§Ô¹Ê´ (A)óªÓÃÐâ´ÂÍ×è¹æ(B) ó ÀÒÉÕ•³•·Õè¨èÒ ó ÊèǹŴÃѺ ó ÂÍ´¨èÒÂÊØ·¸Ô ó
Su:ó ~INTPAY ó ~CSHPAY ó ~CHQPAY ó ~TAX ó~DISCAMT ó ~NET ó
Su:õôôôôôôôôôôôôô÷ôôôôôôôôôôôôôôô÷ôôôôôôôôôôôôôôô÷ôôôôôôôôôôôôôôôô÷ôôôôôôôôôôôôô÷ôôôôôôôôôôôôôôôö
*Su:ó Çѹ·Õè¨èÒÂà§Ô¹ ~PAYDAT ó
Su:óµÑÇÍÑ¡ÉÕ:•~BAHT ó
*Su:ó ó
*Su:ó ª×èͼÙé¨èÒÂà§Ô¹•________________ ª×èͼÙéÃѺà§Ô¹•____________________ ó
*Su:ó Çѹ·Õè ___/___/___ Çѹ·Õè ___/___/___ ó
*Su:ó ¾ÔÁ¾ìâ´Â ~PRNBY Çѹ·Õè ~PRNDAT ~PRNTIM ¾ÔÁ¾ì¤ÃÑé§·Õè~PRNCNT ºÑ¹·Ö¡â´Â ~RECBY ó
Su:õôôôôôôôôôôôôôôôøôôôôôôôôôôôôôôôôôôôøôôôôôôôôôôôôôôôôôôôøôôôôôôôôôôôôôôôôôôôøôôôôôôôôôôôôôôôôö
Su:ó ¼Ùé¨Ñ´·Ó ó ¼ÙéµÃǨÊͺ ó ¼Ùé͹ØÁѵԨèÒ ó ¼ÙéÃѺà§Ô¹ ó ¼Ùé¨èÒÂà§Ô¹ ó
Su:õôôôôôôôôôôôôôôôùôôôôôôôôôôôôôôôôôôôùôôôôôôôôôôôôôôôôôôôùôôôôôôôôôôôôôôôôôôôùôôôôôôôôôôôôôôôôö
Su:ó ó ó ó ó ó
Su:ó ó ó ó ó ó
Su:õôôôôôôôôôôôôôôôùôôôôôôôôôôôôôôôôôôôùôôôôôôôôôôôôôôôôôôôùôôôôôôôôôôôôôôôôôôôùôôôôôôôôôôôôôôôôö
Su:ó• ___/___/___ ó•• ___/___/___ ó • ___/___/___ ó ••___/___/___ ó ___/___/___ ó
Su:ñôôôôôôôôôôôôôôô÷ôôôôôôôôôôôôôôôôôôô÷ôôôôôôôôôôôôôôôôôôô÷ôôôôôôôôôôôôôôôôôôô÷ôôôôôôôôôôôôôôôôò
[end frame]
*** ¤ÓÊÑè§µèͨҡ¹Õ镼ÙéãªéäÁè¤ÇÃá¡é䢕****************************************
[print options]
Top=0
Left=0
Tabs=4
Right=94
Lines=48
Output=Select, Printer, Screen, File,
File Name=ARRCP.TXT
Print Control=\027\033\001
Fix Summary Line=ON
Select Scope=OFF
Select Page=OFF
Condition=OFF
[range of report]
From=CUR
[master file]
File=aptrn
Alias=A
Tag=aptrn1
System=DATA_PATH
[item file]
File=aprcpit
Alias=B
Tag=aprcpit1
System=DATA_PATH
File=aprcpcq
Alias=D
Tag=aprcpcq1
System=DATA_PATH
File=stcrd
Alias=E
Tag=stcrd5
System=DATA_PATH
File=istax
Alias=T
Tag=istax1
System=DATA_PATH
File=GLJNLIT
Alias=G
Tag=GLJNLIT1
System=DATA_PATH
[relate file]
File=apmas
Alias=R
Tag=apmas1
System=DATA_PATH
Master file=aptrn
Master-Related Field=SUPCOD
File=bktrn
Alias=K
Tag=bktrn3
System=DATA_PATH
Master file=aprcpcq
Master-Related Field=CHQNUM
File=bkmas
Alias=L
Tag=bkmas1
System=DATA_PATH
Master file=bktrn
Master-Related Field=BNKACC
File=GLACC
Alias=M
Tag=GLACC1
System=DATA_PATH
Master file=GLJNLIT
Master-Related Field=ACCNUM
[data spec]
* len (0)default, (>0)cut, (<0)cut to new line
*~dat: len, "pict", "data", "exp"
~ADDR: 0, "", "p_addr()", ""
~TAXID: 0, "", "p_taxid()", ""
~TEL: 0, "", "p_telnum()", ""
~INIT: 0, "", "", "seq=0; sumam:0=0; sumam:1=0;totdr=0;totcr=0"
~RCPNUM: 0, "", "APTRN->DOCNUM", ""
~RCPDAT: 0, "", "APTRN->DUEDAT", ""
~PAYDAT: 0, "", "APTRN->DOCDAT", ""
~SUPCOD: 0, "", "APTRN->SUPCOD", ""
~SUPNAM: 0, "", "sup_nam", "sup_nam = APMAS->PRENAM - '•' - APMAS->SUPNAM"
~ADDR01: 0, "", "APMAS->ADDR01", ""
~ADDR02: 0, "", "addr_02", "addr_02 = APMAS->ADDR02 - '•' - APMAS->ZIPCOD"
~YOUREF: 0, "", "APTRN->YOUREF", ""
~RCVAMT: 0, "99,999,999.99", "APTRN->RCVAMT", ""
~BAHT: 0, "", "t_baht(APTRN->CSHPAY+APTRN->CHQPAY)", ""
~N: 0, "999", "seq", "seq=seq+1; q=0"
~RCVNUM: 0, "", "APRCPIT->DOCNUM", ""
~RCVDAT: 0, "", "APTRNX->DOCDAT", ""
~DUEDAT: 0, "", "APTRNX->DUEDAT", ""
~BILNUM: 0, "", "APTRNX->BILNUM", ""
~NETAMT: 0, "ZZ,ZZZ,ZZZ.ZZ", "APTRNX->NETAMT", ""
~REMAMT: 0, "ZZ,ZZZ,ZZZ.ZZ", "APTRNX->REMAMT", ""
~PAYAMT_I: 0, "99,999,999.99", "pay", "pay = IIF(APRCPIT->RECTYP='0'.or.APRCPIT->RECTYP='5',APRCPIT->PAYAMT*-1,APRCPIT->PAYAMT)"
~VATAMT: 0, "99,999,999.99", "APTRN->VATAMT", ""
~SRVAMT: 0, "99,999,999.99", "srvamt", "srvamt = APTRN->RCVAMT - APTRN->VATAMT"
~CHKSRV: 0, "", "chksrv", "chksrv = IIF(APTRN->VATAMT > 0, 'ó', ':')"
~REFNUM: 0, "", "APTRN->REFNUM", ""
~BY: 0, "", "p_isrun( APRCPCQ->CHQNUM, ZP, 1, 17)", ""
~CHQNUM: 0, "", "chqnum", "chqnum= substr(APRCPCQ->CHQNUM,3,10)"
~CHQDAT: 0, "", "BKTRN->CHQDAT", ""
~BNKACC: 0, "", "BKMAS->SHORTNAM", ""
~AMOUNT_Q: 0, "ZZ,ZZZ,ZZZ.ZZ", "BKTRN->AMOUNT", ""
~REMAMT_Q: 0, "ZZ,ZZZ,ZZZ.ZZ", "BKTRN->REMAMT", ""
~PAYAMT_Q: 0, "ZZ,ZZZ,ZZZ.ZZ", "APRCPCQ->PAYAMT", ""
~INTPAY: 0, "9,999,999.99", "APTRN->INTPAY", ""
~CSHPAY: 0, "99,999,999.99", "APTRN->CSHPAY", ""
~CHQPAY: 0, "99,999,999.99", "APTRN->CHQPAY", ""
~TAX: 0, "9,999,999.99", "APTRN->TAX", ""
~DISCAMT: 0, "9,999,999.99", "APTRN->DISCAMT", ""
~NET: 0, "99,999,999.99", "net", "net=IIF(STR(APTRN->NETAMT,15,2) = STR(APTRN->RCVAMT,15,2), APTRN->CSHPAY+APTRN->CHQPAY, 99999999999.99)"
~HREM1: 0, "", "p_hrem(A->DOCNUM,1)", ""
~HREM2: 0, "", "p_hrem(A->DOCNUM,2)", ""
~HREM3: 0, "", "p_hrem(A->DOCNUM,3)", ""
~HREM4: 0, "", "p_hrem(A->DOCNUM,4)", ""
~HREM5: 0, "", "p_hrem(A->DOCNUM,5)", ""
~DEP: 0, "", "A->DEPCOD", ""
~P_ISDEP: 0, "", "p_isdep( A->DEPCOD )", ""
~NN: 0, "999", "q", "q=q+1"
~ARTICLE: 43, "", "article", "article = STCRD->STKCOD - '•' - STCRD->STKDES"
~STKCOD: 0, "", "STCRD->STKCOD", ""
~STKDES: 28, "", "STCRD->STKDES", ""
~L: 0, "", "STCRD->LOCCOD", ""
~QTY: 0, "qtyZ(7)", "STCRD->TRNQTY", ""
~TQUCOD: 9, "", "p_istab( STCRD->TQUCOD, 20, 1, 0 )", ""
~UNITPR: 0, "priZ(10)", "STCRD->UNITPR", ""
~DISC_I: 0, "", "STCRD->DISC", ""
~NETAMT_I: 0, "ZZ,ZZZ,ZZZ.ZZ", "STCRD->TRNVAL", ""
~REMARK: 0, "", "ARTRNRM->REMARK", ""
~MQTY: 0, "qtyZ(7)", "mqty", "mqty = STCRD->TRNQTY * STCRD->TFACTOR"
~MQUCOD: 0, "", "p_istab( STMAS->QUCOD, 20, 1, 0 )", "",
~TAXNUM: 0, "", "ISTAX->TAXNUM", ""
~TAXDAT: 0, "", "ISTAX->TAXDAT", ""
~TAXNAM: 0, "", "ISTAX->NAME", ""
~TAXADDR: 0, "", "ISTAX->ADDR", ""
~TAXID: 0, "", "ISTAX->TAXID", ""
~TAXDES: 0, "", "ISTAX->TAXDES", ""
~PTAX: 0, "", "", "prd = @format_date( ISTAX->TAXPRD, MM/YY )"
~TAXP: 0, "", "tax_prd", "tax_prd=IIF( SUBSTR(DTOS(ISTAX->TAXPRD),1,6) # SUBSTR(DTOS(ISTAX->TAXDAT),1,6), '(Â×è¹ÃÇÁã¹§Ç´ '+prd+ISTAX->LATE+')', ' ')"
~PAYAMT: 0, "99,999,999.99", "ISTAX->AMOUNT", ""
~RATE: 0, "999.99", "ISTAX->TAXRAT", ""
~TAXAMT: 0, "9,999,999.99", "ISTAX->TAXAMT", ""
~TAXCOND: 0, "", "ISTAX->TAXCOND", ""
*Item#2
~I2: 0, "", "item2", "item2=IIF(ISTAX->AMOUNT2 >=0.01 .or. ISTAX->TAXAMT2 >=0.01, 'ó','}')"
~TAXDES2: 0, "", "ISTAX->TAXDES2", ""
~PAYAMT2: 0, "99,999,999.99", "ISTAX->AMOUNT2", ""
~RATE2: 0, "999.99", "ISTAX->TAXRAT2", ""
~TAXAMT2: 0, "9,999,999.99", "ISTAX->TAXAMT2", ""
~TAXCOND2: 0, "", "ISTAX->TAXCOND", ""
~PRNBY: 0, "", "p_userid()", ""
~PRNDAT: 0, "", "@d_prndat()", ""
~PRNTIM: 0, "", "s_prntim()", ""
~PRNCNT: 0, "999", "@n_prncnt()", ""
~RECBY: 0, "", "A->USERID", ""
~P_ORGTXT: 0, "", "p_orgtxt()", ""
~P_ORG: 0, "", "p_orgnum()", ""
~P_ORGSTR: 0, "", "p_orgstr()", ""
~BILLBE: 0, "", "A->BILLBE", "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),' ')"
~SEEKSUP: 0, "", "SeekSup()", ""
~ACCNUM: 0, "", "GLJNLIT->ACCNUM", ""
~ACCNAM: 0, "", "GLACC->ACCNAM", ""
~DRAMT: 0, "ZZZ,ZZZ,ZZZ.ZZ", "dramt", "dramt = IIF(GLJNLIT->TRNTYP='0', GLJNLIT->AMOUNT, 0); totdr=totdr+dramt"
~CRAMT: 0, "ZZZ,ZZZ,ZZZ.ZZ", "cramt", "cramt = IIF(GLJNLIT->TRNTYP='1', GLJNLIT->AMOUNT, 0); totcr=totcr+cramt"
~TOTDR: 0, "ZZZ,ZZZ,ZZZ.ZZ", "totdr", ""
~TOTCR: 0, "ZZZ,ZZZ,ZZZ.ZZ", "totcr", ""