ขอความอนุเคราะห์เพิ่มเติมคอลัมน์รหัสผู้จำหน่ายก่อนหน้าตัวแปล SUPNAM ให้หน่อยครับ

[toptech]

ขอความอนุเคราะห์เพิ่มเติมคอลัมน์รหัสผู้จำหน่ายก่อนหน้าตัวแปล 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",  ""

[savek]

ลองใส่ตัวแปร ~SUPCOD เข้าไปด้านหน้าตัวแปร ~SUPNAM ดูนะครับ