ขอความอนุเคราะห์เพิ่มเติมคอลัมน์รหัสผู้จำหน่ายก่อนหน้าตัวแปล SUPNAM ให้หน่อยครับ
โพสต์แล้ว: พุธ พ.ย. 28, 2012 9:53 amขอความอนุเคราะห์เพิ่มเติมคอลัมน์รหัสผู้จำหน่ายก่อนหน้าตัวแปล SUPNAM ให้หน่อยครับ
เป็นรายงานแบบ excel รหัส 292 ครับ รบกวนคุณ savek นิดนึงครับ
เนื่องจาก user ต้องการใช้งานจริงๆ
ขอบพระคุณครับ
ธนัญชกร เชยวัดเกาะ
รพ.ศรีสังวรสุโขทัย
โค้ดรายงานทั้งหมดครับ
**************
* APRCPDAT.RWT - Paid Slip Report and Postdate Cheque
*
[report frame]
Ti::~INIT
*He:\NAME `˹éÒ : \PAGE
He:$EÃÒ§ҹ¡ÒèèÒªÓÃÐ˹Õé•àÃÕ§µÒÁÇѹ·Õè·ÓàÍ¡ÊÒÃ$E
He:Çѹ·Õè¨Ò¡ ~FROMDATE ¶Ö§ ~TODATE `Çѹ·Õè : \DATE
*He:\LINE
He:","","Çѹ·Õè·ÓàÍ¡ÊÒÃ","","àÅ¢·Õè","¼Ùé¨Ó˹èÒÂ","àÅ¢·ÕèºÔÅ","µÑ´à§Ô¹ÁÑ´¨Ó","ÂÍ´µÒÁãºÃѺ","¨èÒÂà»ç¹•§/Ê","àªç¤¨èÒÂ","´/º•¨èÒÂ","ÊèǹŴ","ÀÒÉÕ•","ËÁÒÂà˵Ø","","","àÅ¢·Õèàªç¤","ŧÇѹ·Õè•","¸¹Ò¤ÒÃ","ʶҹÐàªç¤
He:~D","","","","","àÅ¢·ÕèãºÃѺ","Çѹ·Õè ","","¨èÒªÓÃÐ","ËÁÒÂà˵Ø
*He: ÃÒÂÅÐàÍÕ´ ¨Ó¹Ç¹ ÃÒ¤ÒµèÍ˹èÇ ÊèǹŴ ¨Ó¹Ç¹à§Ô¹
*He:\LINE
**:DD/MM/YY xxxxxxxxx1xx xxxxxxxxx1xxxxxxxxx2xxxxxxxxx3x xxxxxxxxx1xxxx5 999,999,999.99 999,999,999.99 999,999,999.99 999,999,999.99 999,999.99 xxxxxxxxx1 999,999.99 *** xxxxxxxxx1xxxxxxxxx2xxxxxxxxx3 xxxxxxxxxx DD/MM/YY xxxxxxxxxx xxxxxxxxxx
Bo:~RCPDAT ~F~DOCNUM ~SUPNAM ~REFNUM ~ADVAMT ~RCVAMT ~CSHPAY ~CHQPAY ~INTPAY ~DISC ~TAX ~CHK~YOUREF {1}
Ih:: ;1 APRCPCQ->RCPNUM A->DOCNUM
Ib:{1} ~CHQNUM ~CHQDAT ~BANK ~CHQSTAT ;1
Ih:: ;2 APRCPIT->RCPNUM A->DOCNUM
Ib: ~IT_RCVNUM ~IT_RCVDAT ~IT_REFNUM ~IT_PAYAMT ~IT_YOUREF ;2
*Ih:: ;3 STCRD->DOCNUM APRCPIT->DOCNUM
*Ib: ~ARTICLE ~QTY ~TQUCOD ~UNITPR ~DISC_I ~NETAMT_I ;3
*If: ;3
*Ih:: ;4 artrnrm->docnum+artrnrm->seqnum stcrd->docnum+stcrd->seqnum
*Ib: ~REMARK ;4
Ih: ËÁÒÂà˵Ø: ;5 artrnrm->docnum+'@' aptrn->docnum+'@'
Ib: ~REMARK ;5
If: ;5
*Su: -------------- -------------- -------------- -------------- ---------- ---------- ----------
Su: ÃÇÁ·Ñé§ÊÔé¹ ~CC 㺠$B~SUMADV ~SUMPAY ~SUMCSH ~SUMCHQ ~SUMINT ~SUMDIS ~SUMTAX $B
*Su: ============== ============== ============== ============== ========== ========== ==========
Su:
Su:ËÁÒÂà˵Ø:
Su: 㺨èÒÂà§Ô¹·ÕèÁÕà¤Ã×èͧËÁÒ•'*'•••Ë¹éÒàÅ¢·Õè㺨èÒÂà§Ô¹••ËÁÒ¶֧㺨èÒÂà§Ô¹¶Ù¡Â¡àÅÔ¡
Su: 㺨èÒÂà§Ô¹·ÕèÁÕà¤Ã×èͧËÁÒ•'***'•ã¹ªèͧËÁÒÂà˵ؕ•ËÁÒ¶֧ÂÍ´¨èÒªÓÃÐ˹ÕéäÁèàÃÕºÃéÍÂ
Su:>>>> ¨ºÃÒ§ҹ <<<<
[end frame]
[print options]
Top=0
Right=240
Lines=41
Output=Select, Printer, Screen, File,
File Name=APRCPDAT.TXT
Fix Foot Line=OFF
Select Scope=OFF
Select Page=OFF
Select Paper=15_Inch, Default
15_Inch=\027\033\005
Query=DTOS(DOCDAT)>='Date1()'.AND.DTOS(DOCDAT)<='Date2()'
Query=.AND.SUPCOD>='Sup1()'.AND. SUPCOD<='Sup2()'.AND.RECTYP='9'
Sort=DTOS(DUEDAT)+DOCNUM
[master file]
File=APTRN
Alias=A
Tag=APTRN1
System=DATA_PATH
[item file]
File=APRCPCQ
Alias=C
Tag=APRCPCQ1
System=DATA_PATH
File=APRCPIT
Alias=F
Tag=APRCPIT1
System=DATA_PATH
File=STCRD
Alias=X
Tag=STCRD5
System=DATA_PATH
File=artrnrm
Alias=Y
Tag=artrnrm1
System=DATA_PATH
[relate file]
File=APMAS
Alias=B
Tag=APMAS1
System=DATA_PATH
Master file=APTRN
Master-Related Field=SUPCOD
File=BKTRN
Alias=D
Tag=BKTRN3
System=DATA_PATH
Master file=APRCPCQ
Master-Related Field=CHQNUM
File=BKMAS
Alias=K
Tag=BKMAS1
System=DATA_PATH
Master file=BKTRN
Master-Related Field=BNKACC
File=APTRNX
Clone From=APTRN
Alias=W
Tag=APTRN1
System=DATA_PATH
Master file=APRCPIT
Master-Related Field=DOCNUM
[data spec]
* len (0)default, (>0)cut, (<0)cut to new line
*~dat: len "pict", "data", "exp"
~INIT: 0, "", "", "p_det=@n_prn_detail(); prn_detail=IIF(p_det=0,':',' '); sumadv=0;sumrcv=0;sumcsh=0;sumchq=0;sumint=0;sumdis=0;sumtax=0;cnt=0"
~FROMDATE: 0, "d•´´´•yyyy", "@date1()", ""
~TODATE: 0, "d•´´´•yyyy", "@date2()", ""
~PAYDAT: 0, "", "A->DOCDAT", ""
~RCPDAT: 0, "", "A->DUEDAT", "",C
~F: 0, "", "flag", "flag=IIF(A->DOCSTAT='C',' *',' ' )",D
~DOCNUM: 0, "", "A->DOCNUM", "cnt=cnt+1",E
~REFNUM: 0, "", "A->REFNUM", "",H
~SUPCOD: 0, "", "A->SUPCOD", ""
~SUPNAM: 31, "", "APMAS->SUPNAM", "",F
~YOUREF: 0, "", "A->YOUREF", "",Q
~ADVAMT: 0, "ZZZ,ZZZ,ZZZ.ZZ", "A->ADVAMT", "sumadv=sumadv+A->ADVAMT",I
~RCVAMT: 0, "999,999,999.99", "A->RCVAMT", "sumrcv=sumrcv+A->RCVAMT",J
~CSHPAY: 0, "ZZZ,ZZZ,ZZZ.ZZ", "A->CSHPAY", "sumcsh=sumcsh+A->CSHPAY",K
~CHQPAY: 0, "ZZZ,ZZZ,ZZZ.ZZ", "A->CHQPAY", "sumchq=sumchq+A->CHQPAY",L
~INTPAY: 0, "ZZZ,ZZZ.ZZ", "A->INTPAY", "sumint=sumint+A->INTPAY",M
~DISC: 0, "", "A->DISC", "sumdis=sumdis+A->DISCAMT",N
~TAX: 0, "ZZZ,ZZZ.ZZ", "A->TAX", "sumtax=sumtax+A->TAX",O
~CHK: 0, "", "chkerr", "chkerr=IIF(STR(A->RCVAMT,15,2) # STR(A->NETAMT,15,2),'***', ' ')",P
~CHQNUM: 0, "", "C->CHQNUM", "",R
~CHQDAT: 0, "d ´´´•yyyy", "D->CHQDAT", "",S
~BANK: 10, "", "BKMAS->SHORTNAM", "",T
~CHQAMT: 0, "99999,999.99", "amt", "amt=IIF(BKTRN->CHQNUM#' ', BKTRN->AMOUNT, APRCPCQ->PAYAMT)",U
~CHQSTAT: 0, "", "p_istab( BKTRN->CHQSTAT, 02, 1, 13 )", "",U
~IT_RCVNUM: 0, "", "APRCPIT->DOCNUM", "",F
~IT_RCVDAT: 0, "d ´´´•yyyy", "APTRNX->DOCDAT", "",G
~IT_REFNUM: 0, "", "APTRNX->REFNUM", "",H
~IT_YOUREF: 0, "", "APTRNX->YOUREF", "",J
~IT_VATAMT: 0, "", "APTRNX->VATAMT", ""
~IT_NETAMT: 0, "", "APTRNX->NETAMT", ""
~IT_PAYAMT: 0, "99,999,999.99", "pay", "pay = IIF(APRCPIT->RECTYP='0'.or.APRCPIT->RECTYP='5',APRCPIT->PAYAMT*-1,APRCPIT->PAYAMT)",I
~SUMADV: 0, "999,999,999.99", "sumadv", "",I
~SUMPAY: 0, "999,999,999.99", "sumrcv", "",J
~SUMCSH: 0, "999,999,999.99", "sumcsh", "",K
~SUMCHQ: 0, "999,999,999.99", "sumchq", "",L
~SUMINT: 0, "999,999.99", "sumint", "",M
~SUMDIS: 0, "999,999.99", "sumdis", "",N
~SUMTAX: 0, "999,999.99", "sumtax", "",O
~CC: 0, "999", "cnt", ""
~I: 0, "", "", "seq=0"
~N: 0, "99", "seq", "seq=seq+1"
~ARTICLE: 39, "", "article", "article=STCRD->STKCOD-'/'-STCRD->STKDES"
~STKCOD: 0, "", "STCRD->STKCOD", ""
~STKDES: 0, "", "STCRD->STKDES", ""
~L: 0, "", "STCRD->LOCCOD", ""
~QTY: 0, "ZZ,ZZZ.ZZZ", "STCRD->TRNQTY", ""
~TQUCOD: 0, "", "p_istab( STCRD->TQUCOD, 20, 1, 0 )", "",
~UNITPR: 0, "ZZZZZ,ZZZ.ZZ", "STCRD->UNITPR", ""
~DISC_I: 0, "", "STCRD->DISC", ""
~NETAMT_I: 0, "ZZZ,ZZZ,ZZZ.ZZ", "STCRD->TRNVAL", ""
~D: 0, "", "prn_detail", ""
~REMARK: 0, "", "ARTRNRM->REMARK", ""
เป็นรายงานแบบ excel รหัส 292 ครับ รบกวนคุณ savek นิดนึงครับ
เนื่องจาก user ต้องการใช้งานจริงๆ
ขอบพระคุณครับ
ธนัญชกร เชยวัดเกาะ
รพ.ศรีสังวรสุโขทัย
โค้ดรายงานทั้งหมดครับ
**************
* APRCPDAT.RWT - Paid Slip Report and Postdate Cheque
*
[report frame]
Ti::~INIT
*He:\NAME `˹éÒ : \PAGE
He:$EÃÒ§ҹ¡ÒèèÒªÓÃÐ˹Õé•àÃÕ§µÒÁÇѹ·Õè·ÓàÍ¡ÊÒÃ$E
He:Çѹ·Õè¨Ò¡ ~FROMDATE ¶Ö§ ~TODATE `Çѹ·Õè : \DATE
*He:\LINE
He:","","Çѹ·Õè·ÓàÍ¡ÊÒÃ","","àÅ¢·Õè","¼Ùé¨Ó˹èÒÂ","àÅ¢·ÕèºÔÅ","µÑ´à§Ô¹ÁÑ´¨Ó","ÂÍ´µÒÁãºÃѺ","¨èÒÂà»ç¹•§/Ê","àªç¤¨èÒÂ","´/º•¨èÒÂ","ÊèǹŴ","ÀÒÉÕ•","ËÁÒÂà˵Ø","","","àÅ¢·Õèàªç¤","ŧÇѹ·Õè•","¸¹Ò¤ÒÃ","ʶҹÐàªç¤
He:~D","","","","","àÅ¢·ÕèãºÃѺ","Çѹ·Õè ","","¨èÒªÓÃÐ","ËÁÒÂà˵Ø
*He: ÃÒÂÅÐàÍÕ´ ¨Ó¹Ç¹ ÃÒ¤ÒµèÍ˹èÇ ÊèǹŴ ¨Ó¹Ç¹à§Ô¹
*He:\LINE
**:DD/MM/YY xxxxxxxxx1xx xxxxxxxxx1xxxxxxxxx2xxxxxxxxx3x xxxxxxxxx1xxxx5 999,999,999.99 999,999,999.99 999,999,999.99 999,999,999.99 999,999.99 xxxxxxxxx1 999,999.99 *** xxxxxxxxx1xxxxxxxxx2xxxxxxxxx3 xxxxxxxxxx DD/MM/YY xxxxxxxxxx xxxxxxxxxx
Bo:~RCPDAT ~F~DOCNUM ~SUPNAM ~REFNUM ~ADVAMT ~RCVAMT ~CSHPAY ~CHQPAY ~INTPAY ~DISC ~TAX ~CHK~YOUREF {1}
Ih:: ;1 APRCPCQ->RCPNUM A->DOCNUM
Ib:{1} ~CHQNUM ~CHQDAT ~BANK ~CHQSTAT ;1
Ih:: ;2 APRCPIT->RCPNUM A->DOCNUM
Ib: ~IT_RCVNUM ~IT_RCVDAT ~IT_REFNUM ~IT_PAYAMT ~IT_YOUREF ;2
*Ih:: ;3 STCRD->DOCNUM APRCPIT->DOCNUM
*Ib: ~ARTICLE ~QTY ~TQUCOD ~UNITPR ~DISC_I ~NETAMT_I ;3
*If: ;3
*Ih:: ;4 artrnrm->docnum+artrnrm->seqnum stcrd->docnum+stcrd->seqnum
*Ib: ~REMARK ;4
Ih: ËÁÒÂà˵Ø: ;5 artrnrm->docnum+'@' aptrn->docnum+'@'
Ib: ~REMARK ;5
If: ;5
*Su: -------------- -------------- -------------- -------------- ---------- ---------- ----------
Su: ÃÇÁ·Ñé§ÊÔé¹ ~CC 㺠$B~SUMADV ~SUMPAY ~SUMCSH ~SUMCHQ ~SUMINT ~SUMDIS ~SUMTAX $B
*Su: ============== ============== ============== ============== ========== ========== ==========
Su:
Su:ËÁÒÂà˵Ø:
Su: 㺨èÒÂà§Ô¹·ÕèÁÕà¤Ã×èͧËÁÒ•'*'•••Ë¹éÒàÅ¢·Õè㺨èÒÂà§Ô¹••ËÁÒ¶֧㺨èÒÂà§Ô¹¶Ù¡Â¡àÅÔ¡
Su: 㺨èÒÂà§Ô¹·ÕèÁÕà¤Ã×èͧËÁÒ•'***'•ã¹ªèͧËÁÒÂà˵ؕ•ËÁÒ¶֧ÂÍ´¨èÒªÓÃÐ˹ÕéäÁèàÃÕºÃéÍÂ
Su:>>>> ¨ºÃÒ§ҹ <<<<
[end frame]
[print options]
Top=0
Right=240
Lines=41
Output=Select, Printer, Screen, File,
File Name=APRCPDAT.TXT
Fix Foot Line=OFF
Select Scope=OFF
Select Page=OFF
Select Paper=15_Inch, Default
15_Inch=\027\033\005
Query=DTOS(DOCDAT)>='Date1()'.AND.DTOS(DOCDAT)<='Date2()'
Query=.AND.SUPCOD>='Sup1()'.AND. SUPCOD<='Sup2()'.AND.RECTYP='9'
Sort=DTOS(DUEDAT)+DOCNUM
[master file]
File=APTRN
Alias=A
Tag=APTRN1
System=DATA_PATH
[item file]
File=APRCPCQ
Alias=C
Tag=APRCPCQ1
System=DATA_PATH
File=APRCPIT
Alias=F
Tag=APRCPIT1
System=DATA_PATH
File=STCRD
Alias=X
Tag=STCRD5
System=DATA_PATH
File=artrnrm
Alias=Y
Tag=artrnrm1
System=DATA_PATH
[relate file]
File=APMAS
Alias=B
Tag=APMAS1
System=DATA_PATH
Master file=APTRN
Master-Related Field=SUPCOD
File=BKTRN
Alias=D
Tag=BKTRN3
System=DATA_PATH
Master file=APRCPCQ
Master-Related Field=CHQNUM
File=BKMAS
Alias=K
Tag=BKMAS1
System=DATA_PATH
Master file=BKTRN
Master-Related Field=BNKACC
File=APTRNX
Clone From=APTRN
Alias=W
Tag=APTRN1
System=DATA_PATH
Master file=APRCPIT
Master-Related Field=DOCNUM
[data spec]
* len (0)default, (>0)cut, (<0)cut to new line
*~dat: len "pict", "data", "exp"
~INIT: 0, "", "", "p_det=@n_prn_detail(); prn_detail=IIF(p_det=0,':',' '); sumadv=0;sumrcv=0;sumcsh=0;sumchq=0;sumint=0;sumdis=0;sumtax=0;cnt=0"
~FROMDATE: 0, "d•´´´•yyyy", "@date1()", ""
~TODATE: 0, "d•´´´•yyyy", "@date2()", ""
~PAYDAT: 0, "", "A->DOCDAT", ""
~RCPDAT: 0, "", "A->DUEDAT", "",C
~F: 0, "", "flag", "flag=IIF(A->DOCSTAT='C',' *',' ' )",D
~DOCNUM: 0, "", "A->DOCNUM", "cnt=cnt+1",E
~REFNUM: 0, "", "A->REFNUM", "",H
~SUPCOD: 0, "", "A->SUPCOD", ""
~SUPNAM: 31, "", "APMAS->SUPNAM", "",F
~YOUREF: 0, "", "A->YOUREF", "",Q
~ADVAMT: 0, "ZZZ,ZZZ,ZZZ.ZZ", "A->ADVAMT", "sumadv=sumadv+A->ADVAMT",I
~RCVAMT: 0, "999,999,999.99", "A->RCVAMT", "sumrcv=sumrcv+A->RCVAMT",J
~CSHPAY: 0, "ZZZ,ZZZ,ZZZ.ZZ", "A->CSHPAY", "sumcsh=sumcsh+A->CSHPAY",K
~CHQPAY: 0, "ZZZ,ZZZ,ZZZ.ZZ", "A->CHQPAY", "sumchq=sumchq+A->CHQPAY",L
~INTPAY: 0, "ZZZ,ZZZ.ZZ", "A->INTPAY", "sumint=sumint+A->INTPAY",M
~DISC: 0, "", "A->DISC", "sumdis=sumdis+A->DISCAMT",N
~TAX: 0, "ZZZ,ZZZ.ZZ", "A->TAX", "sumtax=sumtax+A->TAX",O
~CHK: 0, "", "chkerr", "chkerr=IIF(STR(A->RCVAMT,15,2) # STR(A->NETAMT,15,2),'***', ' ')",P
~CHQNUM: 0, "", "C->CHQNUM", "",R
~CHQDAT: 0, "d ´´´•yyyy", "D->CHQDAT", "",S
~BANK: 10, "", "BKMAS->SHORTNAM", "",T
~CHQAMT: 0, "99999,999.99", "amt", "amt=IIF(BKTRN->CHQNUM#' ', BKTRN->AMOUNT, APRCPCQ->PAYAMT)",U
~CHQSTAT: 0, "", "p_istab( BKTRN->CHQSTAT, 02, 1, 13 )", "",U
~IT_RCVNUM: 0, "", "APRCPIT->DOCNUM", "",F
~IT_RCVDAT: 0, "d ´´´•yyyy", "APTRNX->DOCDAT", "",G
~IT_REFNUM: 0, "", "APTRNX->REFNUM", "",H
~IT_YOUREF: 0, "", "APTRNX->YOUREF", "",J
~IT_VATAMT: 0, "", "APTRNX->VATAMT", ""
~IT_NETAMT: 0, "", "APTRNX->NETAMT", ""
~IT_PAYAMT: 0, "99,999,999.99", "pay", "pay = IIF(APRCPIT->RECTYP='0'.or.APRCPIT->RECTYP='5',APRCPIT->PAYAMT*-1,APRCPIT->PAYAMT)",I
~SUMADV: 0, "999,999,999.99", "sumadv", "",I
~SUMPAY: 0, "999,999,999.99", "sumrcv", "",J
~SUMCSH: 0, "999,999,999.99", "sumcsh", "",K
~SUMCHQ: 0, "999,999,999.99", "sumchq", "",L
~SUMINT: 0, "999,999.99", "sumint", "",M
~SUMDIS: 0, "999,999.99", "sumdis", "",N
~SUMTAX: 0, "999,999.99", "sumtax", "",O
~CC: 0, "999", "cnt", ""
~I: 0, "", "", "seq=0"
~N: 0, "99", "seq", "seq=seq+1"
~ARTICLE: 39, "", "article", "article=STCRD->STKCOD-'/'-STCRD->STKDES"
~STKCOD: 0, "", "STCRD->STKCOD", ""
~STKDES: 0, "", "STCRD->STKDES", ""
~L: 0, "", "STCRD->LOCCOD", ""
~QTY: 0, "ZZ,ZZZ.ZZZ", "STCRD->TRNQTY", ""
~TQUCOD: 0, "", "p_istab( STCRD->TQUCOD, 20, 1, 0 )", "",
~UNITPR: 0, "ZZZZZ,ZZZ.ZZ", "STCRD->UNITPR", ""
~DISC_I: 0, "", "STCRD->DISC", ""
~NETAMT_I: 0, "ZZZ,ZZZ,ZZZ.ZZ", "STCRD->TRNVAL", ""
~D: 0, "", "prn_detail", ""
~REMARK: 0, "", "ARTRNRM->REMARK", ""
