ต้องการแก้ไขรายงานให้ export excel แยก Colunm

หากท่านใดมีข้อสงสัยหรือคำถามเกี่ยวกับการใช้งานโปรแกรม Express สามารถเข้ามาสอบถามได้ที่นี่ครับ

Moderator: Sutas, CO-Admin, Global Moderator

ต้องการแก้ไขรายงานให้ export excel แยก Colunm

โพสต์โดย Kaos » พฤหัสฯ. ก.พ. 16, 2017 9:42 pm

เช่น รายงาน 1F1 ถ้าผมต้องการให้ค่ามันออกแยก column แบบนี้
รูปภาพ

ผมต้องแก้ไข Code รายงานยังไงครับ

โค้ด: เลือกทั้งหมด
* ARMAST.RWT -- Customer Detail Report by Customer Type
*
[report frame]
He:\NAME                                                    `หน้า   : \PAGE
He:รายละเอียดลูกค้า แยกตามประเภทลูกค้า
He:ประเภทลูกค้าจาก  ~FROMCUSTYP     ถึง  ~TOCUSTYP          `วันที่ : \DATE
H1:ลูกค้าจาก        ~FROMCUS        ถึง  ~TOCUS
H1:เขตการขายจาก     ~FROMAREA       ถึง  ~TOAREA
H1:พนักงานขายจาก    ~FROMSLM        ถึง  ~TOSLM
*He:\LINE
He:  รหัส   ","    คำนำหน้า+ชื่อลูกค้า  "," พนักงานขาย","  เขต ","  ประเภทราคา  ","   ส่วนลด ","  
*He:\LINE
Gh:  ~TB     ~TABLE1                                                ; 1 CUSTYP
*               xxxxxxxxx1xxxxxxxxx2xxxxxxxxx3xxxxxxxxx4xxxxxxxxx5xxxxxxxxx6xxxxxxxxx7xxxxxxxxx8xxxxxxxxx9
Bo:  ~CUSCOD    ~CUSNAM                                                           ~SLMCOD     ~AREA    ~PRI    ~DISC
Bo:              ~ADDR01                                                          ~B         ~CONTACT
Bo:              ~ADDR02                                                          ~C         ~ACCNUM         ~F          ~DLVBY
Bo:              ~ADDR03                                                          ~D         ~TRM            ~G          ~CRLINE
Bo:              ~TELNUM                                                          ~E         ~PAYCOND
Bo:~REMARK_NB           ~REMARK
*Gf:\FEED    ;1
Su:>>>> จบรายงาน <<<<
[end frame]

[print options]
Top=0
Right=122
Lines=41
Output=Select, Printer, Screen, File,
File Name=ARMAST.TXT
Fix Foot Line=OFF
Select Scope=OFF
Select Page=OFF
Select Paper=15_Inch, 8_Inch, Default
8_Inch=\027\033\004
15_Inch=\027\033\001
Query=CUSCOD>='Cus1()'.AND.CUSCOD<='Cus2()'
Query=.AND.CUSTYP>='CusTyp1()'.AND.CUSTYP<='CusTyp2()'
Query=.AND.AREACOD>='Area1()'.AND. AREACOD<='Area2()'
Query=.AND.SLMCOD>='Slm1()'.AND.SLMCOD<='Slm2()'
*Sort=CUSTYP+CUSCOD

[master file]
File=ARMAS
Alias=A
Tag=ARMAS5
System=DATA_PATH

[data spec]
*               len  (0)default, (>0)cut, (<0)cut to new line
*~dat:          len,"pict",         "data",             "exp"
~FROMAREA:      0,  "",             "Area1()",          ""
~TOAREA:        0,  "",             "Area2()",          ""
~FROMCUSTYP:    0,  "",             "CusTyp1()",        ""
~TOCUSTYP:      0,  "",             "CusTyp2()",        ""
~FROMCUS:       0,  "",             "Cus1()",           ""
~TOCUS:         0,  "",             "Cus2()",           ""
~FROMSLM:       0,  "",             "Slm1()",           ""
~TOSLM:         0,  "",             "Slm2()",           ""

~TABLE1:        0,  "",             "p_istab( A->CUSTYP,45,1,40)",  "",B

~CUSCOD:        0,  "",             "A->CUSCOD",        "",A
~CUSNAM:        0,  "",             "name",             "name = A->PRENAM - ' ' - A->CUSNAM",B
~ADDR:          0,  "",             "addr",             "addr = A->ADDR01 - ' ' - A->ADDR02",
~ADDR01:        0,  "",             "add1",              "add1='ที่อยู่ ' - ' ' - A->ADDR01",B
~ADDR02:        0,  "",             "A->ADDR02",        "",B
~ADDR03:        0,  "",             "ADDR03",        "ADDR03=A->ADDR03 - '  '- A->ZIPCOD",B
~ZIPCOD:        0,  "",             "A->ZIPCOD",        "",
~TELNUM:        0,  "",             "tel",           "tel='โทร ' - '  '- A->TELNUM",B
~CONTACT:       0,  "",             "A->CONTACT",       "",D
~PAYCOND:       0,  "",             "A->PAYCOND",       "",D
~SLMCOD:        0,  "",             "A->SLMCOD",        "",C
~AREA:          0,  "",             "A->AREACOD",       "",D
~TRM:           0,  "",             "SS",               "SS=STR(A->PAYTRM,3,0) - ' วัน' ",D
~PRI:           0,  "",             "A->TABPR",         "",E
~DISC:          0,  "",             "A->DISC",          "",F
~CRLINE:        0,  "99,999,999.99","A->CRLINE",        "",F
~ACCNUM:        0,  "",             "A->ACCNUM",        "",D
~DLVBY:         0,  "",             "A->DLVBY",         "",F
~REMARK_NB:     0,  "",             "has_remark",       "has_remark=IIF(A->REMARK='          ',':',' ')",B
~REMARK:        0,  "",             "A->REMARK",        "",C

~HREM1:         0,  "",             "x1",               "x1=@p_hrem( A->CUSCOD,1 )"
~HREM2:         0,  "",             "x2",               "x2=@p_hrem( A->CUSCOD,2 )"
~HREM3:         0,  "",             "x3",               "x3=@p_hrem( A->CUSCOD,3 )"
~HREM4:         0,  "",             "x4",               "x4=@p_hrem( A->CUSCOD,4 )"
~HREM5:         0,  "",             "x5",               "x5=@p_hrem( A->CUSCOD,5 )"


*~A:        0,  "",             "A",        "A='ที่อยู่  '",B
*~AA:        0,  "",            "AA",       "AA='โทร     '",B
~B:        0,  "",             "B",        "B='ผู้ติดต่อ  '",C
~C:        0,  "",             "C",        "C='เลขที่บ/ช  '",C
~D:        0,  "",             "D",        "D='เครดิต  '",C
~E:        0,  "",             "E",        "E='เงื่อนไข '",C
~F:        0,  "",             "F",        "F='ขนส่งโดย '",E
~G:        0,  "",             "G",        "G='วงเงิน   '",E
~TB:       0,  "",             "TB",        "TB='ประเภท '",A


แก้ไขล่าสุดโดย Kaos เมื่อ พฤหัสฯ. ก.พ. 16, 2017 9:47 pm, แก้ไขแล้ว 1 ครั้ง
Kaos
Newbie
Newbie
 
โพสต์: 4
ลงทะเบียนเมื่อ: พฤหัสฯ. ก.พ. 16, 2017 9:36 pm

Re: ต้องการแก้ไขรายงานให้ export excel แยก Colunm

โพสต์โดย savek » ศุกร์ ก.พ. 17, 2017 10:38 am

ทำตามขั้นตอนในลิ้งค์นี้ได้เลยนะครับ

http://www.esg.co.th/esg/index.php?fi=n ... v=2&ct=100
ภาพประจำตัวสมาชิก
savek
Administrator
Administrator
 
โพสต์: 12467
ลงทะเบียนเมื่อ: พฤหัสฯ. พ.ย. 15, 2007 11:04 am

Re: ต้องการแก้ไขรายงานให้ export excel แยก Colunm

โพสต์โดย Kaos » ศุกร์ ก.พ. 17, 2017 1:08 pm

ขอบคุณครับสำหรับคำแนะนำ
ผมขอให้ช่วยอีกนนิดครับผมลองทำตามวิธีที่ส่งให้ดู แล้วครับมันยังเป็นหลายบรรทัดอยู่ เราสามารถระบุยังไงได้บ้างให้แบบมันออกข้อมูลเรียงเป็น Row เดียว เช่น ~CUSCOD ให้ออก Column A  , ~CUSNAM Column B , ~ADDR01  Column C แบบนี้อะครับ ผมลองลบ Bo : ให้เหลืออันเดียวมันก็จะเรียงกันหมด แต่มันไม่แยกเป็น Column ได้
Kaos
Newbie
Newbie
 
โพสต์: 4
ลงทะเบียนเมื่อ: พฤหัสฯ. ก.พ. 16, 2017 9:36 pm

Re: ต้องการแก้ไขรายงานให้ export excel แยก Colunm

โพสต์โดย ITIMz » ศุกร์ ก.พ. 17, 2017 1:51 pm

ย้ายให้มันอยู่ BO เดียวกันก่อนครับ และแก้ในส่วนที่เป็น Data spec

Bo:  ~CUSCOD    ~CUSNAM                                                          ~SLMCOD    ~AREA    ~PRI    ~DISC  ~ADDR01  ~ADDR02



~ADDR01:        0,  "",            "add1",              "add1='ที่อยู่ ' - ' ' - A->ADDR01",B  เปลี่ยนเป็นคอลัมน์ที่ต้องการ G
~ADDR02:        0,  "",            "A->ADDR02",        "",B  เปลี่ยนเป็นคอลัมน์ที่ต้องการ H
~ADDR03:        0,  "",            "ADDR03",        "ADDR03=A->ADDR03 - '  '- A->ZIPCOD",B  เปลี่ยนเป็นคอลัมน์ที่ต้องการ I
ภาพประจำตัวสมาชิก
ITIMz
Hero Member
Hero Member
 
โพสต์: 508
ลงทะเบียนเมื่อ: จันทร์ ก.ย. 01, 2014 9:29 am

Re: ต้องการแก้ไขรายงานให้ export excel แยก Colunm

โพสต์โดย Kaos » ศุกร์ ก.พ. 17, 2017 4:54 pm

ขอบคุณครับสำหรับคำแนะนำครับ

ผมรบกวนต่ออีกนิดครับน่าจะใกล้ได้หละ ผมลองทำดูแล้ว ข้อมูลมันขึ้นซ้อนทับกันอะครับ ตามรูป ไม่ทราบว่าจะต้องแก้ไขอย่างไรได้บ้าง

รูปภาพ


อันนี้ Code : ที่แก้ไขครับ

โค้ด: เลือกทั้งหมด
* ARMAST.RWT -- Customer Detail Report by Customer Type
*
[report frame]
He:\NAME                                                    `หน้า   : \PAGE
He:รายละเอียดลูกค้า แยกตามประเภทลูกค้า
He:ประเภทลูกค้าจาก  ~FROMCUSTYP     ถึง  ~TOCUSTYP          `วันที่ : \DATE
H1:ลูกค้าจาก        ~FROMCUS        ถึง  ~TOCUS
H1:เขตการขายจาก     ~FROMAREA       ถึง  ~TOAREA
H1:พนักงานขายจาก    ~FROMSLM        ถึง  ~TOSLM
*He:\LINE
He:  รหัส   ","    คำนำหน้า+ชื่อลูกค้า  "," พนักงานขาย","  เขต ","  ประเภทราคา  ","   ส่วนลด ","  
*He:\LINE
Gh:  ~TB     ~TABLE1                                                ; 1 CUSTYP
*               xxxxxxxxx1xxxxxxxxx2xxxxxxxxx3xxxxxxxxx4xxxxxxxxx5xxxxxxxxx6xxxxxxxxx7xxxxxxxxx8xxxxxxxxx9
Bo:  ~CUSCOD ~CUSNAM ~SLMCOD ~AREA ~PRI ~DISC ~ADDR01  ~CONTACT ~ADDR02  ~ACCNUM  ~DLVBY ~ADDR03  ~TRM             ~CRLINE ~TELNUM ~E ~PAYCOND ~REMARK_NB ~REMARK
*Gf:\FEED    ;1
Su:>>>> จบรายงาน <<<<
[end frame]

[print options]
Top=0
Right=122
Lines=41
Output=Select, Printer, Screen, File,
File Name=ARMAST.TXT
Fix Foot Line=OFF
Select Scope=OFF
Select Page=OFF
Select Paper=15_Inch, 8_Inch, Default
8_Inch=\027\033\004
15_Inch=\027\033\001
Query=CUSCOD>='Cus1()'.AND.CUSCOD<='Cus2()'
Query=.AND.CUSTYP>='CusTyp1()'.AND.CUSTYP<='CusTyp2()'
Query=.AND.AREACOD>='Area1()'.AND. AREACOD<='Area2()'
Query=.AND.SLMCOD>='Slm1()'.AND.SLMCOD<='Slm2()'
*Sort=CUSTYP+CUSCOD

[master file]
File=ARMAS
Alias=A
Tag=ARMAS5
System=DATA_PATH

[data spec]
*               len  (0)default, (>0)cut, (<0)cut to new line
*~dat:          len,"pict",         "data",             "exp"
~FROMAREA:      0,  "",             "Area1()",          ""
~TOAREA:        0,  "",             "Area2()",          ""
~FROMCUSTYP:    0,  "",             "CusTyp1()",        ""
~TOCUSTYP:      0,  "",             "CusTyp2()",        ""
~FROMCUS:       0,  "",             "Cus1()",           ""
~TOCUS:         0,  "",             "Cus2()",           ""
~FROMSLM:       0,  "",             "Slm1()",           ""
~TOSLM:         0,  "",             "Slm2()",           ""

~TABLE1:        0,  "",             "p_istab( A->CUSTYP,45,1,40)",  "",B

~CUSCOD:        0,  "",             "A->CUSCOD",        "",A
~CUSNAM:        0,  "",             "name",             "name = A->PRENAM - ' ' - A->CUSNAM",B
~ADDR:          0,  "",             "addr",             "addr = A->ADDR01 - ' ' - A->ADDR02",
~ADDR01:        0,  "",             "add1",              "add1='ที่อยู่ ' - ' ' - A->ADDR01",C
~ADDR02:        0,  "",             "A->ADDR02",        "",D
~ADDR03:        0,  "",             "ADDR03",        "ADDR03=A->ADDR03 - '  '- A->ZIPCOD",E
~ZIPCOD:        0,  "",             "A->ZIPCOD",        "",
~TELNUM:        0,  "",             "tel",           "tel='โทร ' - '  '- A->TELNUM",F
~CONTACT:       0,  "",             "A->CONTACT",       "",G
~PAYCOND:       0,  "",             "A->PAYCOND",       "",H
~SLMCOD:        0,  "",             "A->SLMCOD",        "",I
~AREA:          0,  "",             "A->AREACOD",       "",J
~TRM:           0,  "",             "SS",               "SS=STR(A->PAYTRM,3,0) - ' วัน' ",K
~PRI:           0,  "",             "A->TABPR",         "",L
~DISC:          0,  "",             "A->DISC",          "",M
~CRLINE:        0,  "99,999,999.99","A->CRLINE",        "",N
~ACCNUM:        0,  "",             "A->ACCNUM",        "",O
~DLVBY:         0,  "",             "A->DLVBY",         "",P
~REMARK_NB:     0,  "",             "has_remark",       "has_remark=IIF(A->REMARK='          ',':',' ')",Q
~REMARK:        0,  "",             "A->REMARK",        "",R

~HREM1:         0,  "",             "x1",               "x1=@p_hrem( A->CUSCOD,1 )"
~HREM2:         0,  "",             "x2",               "x2=@p_hrem( A->CUSCOD,2 )"
~HREM3:         0,  "",             "x3",               "x3=@p_hrem( A->CUSCOD,3 )"
~HREM4:         0,  "",             "x4",               "x4=@p_hrem( A->CUSCOD,4 )"
~HREM5:         0,  "",             "x5",               "x5=@p_hrem( A->CUSCOD,5 )"


*~A:        0,  "",             "A",        "A='ที่อยู่  '",B
*~AA:        0,  "",            "AA",       "AA='โทร     '",B
*~B:        0,  "",             "B",        "B='ผู้ติดต่อ  '",C
*~C:        0,  "",             "C",        "C='เลขที่บ/ช  '",C
*~D:        0,  "",             "D",        "D='เครดิต  '",C
*~E:        0,  "",             "E",        "E='เงื่อนไข '",C
*~F:        0,  "",             "F",        "F='ขนส่งโดย '",E
*~G:        0,  "",             "G",        "G='วงเงิน   '",E
~TB:       0,  "",             "TB",        "TB='ประเภท '",A


Kaos
Newbie
Newbie
 
โพสต์: 4
ลงทะเบียนเมื่อ: พฤหัสฯ. ก.พ. 16, 2017 9:36 pm

Re: ต้องการแก้ไขรายงานให้ export excel แยก Colunm

โพสต์โดย ITIMz » จันทร์ ก.พ. 20, 2017 9:11 am

ต้องเผื่อความกว้างให้แต่ละค่าตัวแปรด้วยนะครับ ตัวแแปรไหนแสดงผลออกมายาวก็ต้องเผื่อที่ไว้ให้เยอะนิดนะครับ  ยกตัวอย่าง CUSNAM = ชื่อลูกค้า

Bo:  ~CUSCOD              ~CUSNAM                                                                  ~SLMCOD    ~AREA    ~PRI 
ภาพประจำตัวสมาชิก
ITIMz
Hero Member
Hero Member
 
โพสต์: 508
ลงทะเบียนเมื่อ: จันทร์ ก.ย. 01, 2014 9:29 am

Re: ต้องการแก้ไขรายงานให้ export excel แยก Colunm

โพสต์โดย Kaos » อังคาร ก.พ. 21, 2017 8:33 am

ขอบคุณครับ
สอบถามอีกนิดครับการเว้นช่องว่าง 1 space เท่ากับ 1 character ไหมครับ
Kaos
Newbie
Newbie
 
โพสต์: 4
ลงทะเบียนเมื่อ: พฤหัสฯ. ก.พ. 16, 2017 9:36 pm

Re: ต้องการแก้ไขรายงานให้ export excel แยก Colunm

โพสต์โดย ITIMz » อังคาร ก.พ. 21, 2017 10:16 am

ใช่ครับ แต่การเว้นวรรคจะมี 2 แบบ คือการเว้นวรรคไทยและเว้นวรรคอังกฤษ ซึ่งเวลาสั่งพิมพ์ออกมา จะกว้างไม่เท่ากันครับ ภาษาอังกฤษจะกว้างกว่า
ถ้าเว้นวรรคไทยจะมีตัว
ภาพประจำตัวสมาชิก
ITIMz
Hero Member
Hero Member
 
โพสต์: 508
ลงทะเบียนเมื่อ: จันทร์ ก.ย. 01, 2014 9:29 am


ย้อนกลับไปยัง ถาม-ตอบปัญหาเกี่ยวกับโปรแกรม Express

ผู้ใช้งานขณะนี้

กำลังดูบอร์ดนี้: Google [Bot] และ บุคคลทั่วไป 62 ท่าน