สอบถามนิจน์การคำนวณของแบบฟอร์มขายเชื่อ

[parichat]

ถ้าต้องการนำตังเลขที่ใส่ใน ~HREM1 ของแบบฟอร์มขายเชื่อไปคำนวณ สามารถทำได้หรือเปล่าคะ

ขอบคุณค่ะ

[suchai]

[color=red]*~HREM1:    0,      "",                "p_hrem( A->DOCNUM,1,A->SONUM )",  ""
~HREM1:  0,  "",  "h_rem1",    "h_rem1=@p_hrem( A->DOCNUM,1,A->SONUM);vh_rem1=VAL(h_rem1)"
~HREM2:    0,      "",                "p_hrem( A->DOCNUM,2,A->SONUM )",  ""
~HREM3:    0,      "",                "p_hrem( A->DOCNUM,3,A->SONUM )",  ""
~HREM4:    0,      "",                "p_hrem( A->DOCNUM,4,A->SONUM )",  ""
~HREM5:    0,      "",                "p_hrem( A->DOCNUM,5,A->SONUM )",  ""

h_rem1 ยังคงแสดงเป็นตัวอักษรเหมือนเดิม  ส่วน vh_rem1=VAL(h_rem1) จะเป็นค่าตัวเลข
บรรทัดสีแดง ใช้ฟังก์ชั่น VAL แปลงตัวอักษรเป็นตัวเลขเพื่อนำค่าของ vh_rem1 ไปคำนวณต่อ

การใส่ตัวเลขในหมายเหตุของบิล หากเป็นตัวเลขซ้ำๆ เราควรกำหนดค่าตัวเลขเหล่านี้ไว้ใน Master File เช่น รายละเอียดสินค้า รายละเอียดลูกค้า รายละเอียดพนักงานขาย แล้วนำค่ามาแสดงหรือคำนวณในแบบฟอร์มและรายงาน จะสะดวกกว่า แต่ถ้าเป็นตัวเลขที่ไม่แน่นอนเปลี่ยนแปลงอยู่ตลอดเวลา ก็หยอดสดๆ ลงไปได้เลย

การเล่นโปรแกรม Express มากเกินไป อาจจะเกิดการเสพติดได้ กรุณาเล่นอย่างพอประมาณและมีผู้ปกครองให้คำแนะนำด้วย[/color]

[parichat]

ลองแก้ไขแล้ว  หน้าจอแสดงว่า " ไม่พบตัวแปร h_rem1"
แก้ไขที่ไหนต่อคะ

ขอบคุณค่ะ

[suchai]

ลองคัดลอกบรรทัดนี้มาให้ดูหน่อยมาอะไรผิด

*~HREM1:  0,  "",  "p_hrem( A->DOCNUM,1,A->SONUM )",  ""
~HREM1:  0,  "",    "h_rem1",  "h_rem1=@p_hrem( A->DOCNUM,1,A->SONUM);vh_rem1=VAL(h_rem1)"

[parichat]

*~HREM1:    0,    "",                "p_hrem( A->DOCNUM,1,A->SONUM )",  ""
~HREM1:      0,    "",                "h_rem1","h_rem1=@p_hrem( A->DOCNUM,1,A->SONUM);vh_rem1=VAL(h_rem1)"


ผิดตรงไหนหรือเปล่าคะ

[suchai]

2 บรรทัดนี้ไม่ผิดครับ แต่ช่วง "h_rem1",  "h_rem1= ควรเคาะวรรคสักหน่อย อย่าชิดกันไป ไม่ผิด แต่มองยาก

กดปุ่ม Ctrl+F แล้วพิมพ์คำว่า  h_rem1  แล้วค้นหาไปเรื่อยๆ ไปดูว่า มีตัวแปรนี้อยู่หลายที่หรือไม่ ใน [data spec] จะเป็นที่เก็บตัวแปร ในส่วนนี้จะมีบรรทัด  ~HREM1:  เหมือนกันถึง 2 บรรทัดไม่ได้ เพราะโปรแกรมจะทำงานในบรรทัดด้านบนก่อน หากเรา copy คำสั่งไปต่อด้านท้ายๆ ก็จะเจอ error แต่ที่ผมลองทำให้ผิด จะเป็น ไม่พบตัวแปร vh_rem1 ครับ

หรือไม่ได้อย่างไร คงต้อง Post แบบฟอร์มขึ้นมาดูครับ ว่าผิดตรงไหน

[parichat]

ต้องการคำนวณ ~CHKAMT = ~TOTAL-~YOUREF-~HREM1


[print options]
Top=1
Left=0
Tabs=4
Right=94
Lines=55
Output=Select, Printer, Screen, File,
File Name=ARIVC.TXT
Print Control=\027\033\005
Fix Summary Line=ON
Select Scope=OFF
*Form=ON
Select Page=ON
Condition=OFF

[range of report]
From=CUR

[master file]
File=artrn
Alias=A
Tag=artrn1
System=DATA_PATH

[item file]
File=stcrd
Alias=B
Tag=stcrd5
System=DATA_PATH

File=artrnrm
Alias=C
Tag=artrnrm1
System=DATA_PATH

[relate file]
File=armas
Alias=R
Tag=armas1
System=DATA_PATH
Master file=artrn
Master-Related Field=CUSCOD

File=stmas
Alias=C
Tag=stmas1
System=DATA_PATH
Master file=stcrd
Master-Related Field=STKCOD

File=oeso
Alias=Y
Tag=oeso1
System=DATA_PATH
Master file=artrn
Master-Related Field=SONUM

File=stloc
Alias=L
Tag=stloc1
System=DATA_PATH
Master file=stcrd
Master-Related Field=STKCOD+LOCCOD

[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; sumamt0=0; sumamt1=0; SQTY=0; sdnet=0"
~TXT0:      0,      "",                "txt0",            "txt0 = IIF( ARTRN->FLGVAT <> '1', ' Amount ', '&Atilde;&Ograve;&curren;&Ograve;&Atilde;&Ccedil;&Aacute;&Agrave;&Ograve;&Eacute;&Otilde;')",
*~TXT1:    0,      "",                "txt1",            "txt1 = IIF( ARTRN->FLGVAT <> '1', '&uml;&Oacute;&sup1;&Ccedil;&sup1;&agrave;&sect;&Ocirc;&sup1;&Euml;&Aring;&Ntilde;&sect;&Euml;&Ntilde;&iexcl;&Ecirc;&egrave;&Ccedil;&sup1;&Aring;&acute;',    '&uml;&Oacute;&sup1;&Ccedil;&sup1;&agrave;&sect;&Ocirc;&sup1;&Atilde;&Ccedil;&Aacute;&middot;&Ntilde;&eacute;&sect;&Ecirc;&Ocirc;&eacute;&sup1;      ')",
~TXT1:      0,      "",                "txt1",            "txt1 = IIF( ARTRN->FLGVAT <> '1', 'Sub Total Before Tax ', '&uml;&Oacute;&sup1;&Ccedil;&sup1;&agrave;&sect;&Ocirc;&sup1;&Atilde;&Ccedil;&Aacute;&middot;&Ntilde;&eacute;&sect;&Ecirc;&Ocirc;&eacute;&sup1;      ')",
~TXT2:      0,      "",                "txt2",            "txt2 = IIF( ARTRN->FLGVAT <> '1', 'Grand Total', '&Atilde;&Ograve;&curren;&Ograve;&Ecirc;&Ocirc;&sup1;&curren;&eacute;&Ograve;            ')",
*~DOCNUM:  0,      "",                "doc_num",          "doc_num=SUBSTR(ARTRN->DOCNUM, 3, "
~DOCNUM:    0,      "",                "ARTRN->DOCNUM",    ""
*~DOCDAT:  0,      "",                "p_date( ARTRN->DOCDAT)",  ""
~DOCDAT:    0,      "",                "ARTRN->DOCDAT",    ""
~CUSCOD:    0,      "",                "ARTRN->CUSCOD",    ""
~CUSNAM:    0,      "",                "cus_nam",          "cus_nam = ARMAS->PRENAM - '

[suchai]

~HREM1:      0,     "",                 "h_rem1","h_rem1=@p_hrem( A->DOCNUM,1,A->SONUM);vh_rem1=VAL(h_rem1)"

ช่วยเคาะวรรคให้เป็นแบบนี้หน่อย

[color=red]~HREM1:      0,    "",        "h_rem1",    "h_rem1=@p_hrem( A->DOCNUM,1,A->SONUM);vh_rem1=VAL(h_rem1)"

แล้วก็ไปแก้ไขบรรทัดนี้

~CHKAMT:    0,      "99,999,999.99",    "netamt",           "netamt= (sdnet - val(ARTRN->YOUREF))"

ให้เป็น

~CHKAMT:    0,      "99,999,999.99",    "netamt",           "netamt= (sdnet - val(ARTRN->YOUREF) - vh_rem1)"

เท่านั้นครับ

พิมพ์ผิดนิดนึง เลยกลับมาแก้ไข[/color]

[parichat]

แก้ไขแล้ว แต่ ยังแสดง    ไม่พบตัวแปร 'vh_rem1'


ทำอย่างไรต่อดีคะ

[savek]

อืม ผมลองแก้ไขตามที่คุณ Suchai แนะนำไป ก็แสดงผลนะครับ

เพียงแค่อาจจะต้องแก้ไขบรรทัดนี้เพิ่มเติมอีกนิดหน่อยเท่านั้นครับ

~CHKAMT:    0,      "99,999,999.99",    "netamt",          "netamt= (sdnet - val(ARTRN->YOUREF) - vh_rem1)"

หากแก้ไขไม่ได้ยังไงจริงๆ รบกวนโพสท์ชุดคำสั่งในการแก้ไขแบบฟอร์มทั้งหมด ลงในกระทู้อีกทีครับ

[parichat]

แก้ไขแล้วยังไม่ได้ค่ะ


*** &curren;&Oacute;&Ecirc;&Ntilde;&egrave;&sect;&micro;&egrave;&Iacute;&uml;&Ograve;&iexcl;&sup1;&Otilde;&eacute;

[savek]

ขอดูทั้งหมดเลยครับ ในส่วนของ [report frame] ด้วยครับ

[suchai]

ถ้าดูที่ด้านบนสุดของแบบฟอร์ม จะบอกที่เก็บข้อมูลของแบบฟอร์มนั้นๆ

ส่งมาเลยครับ  suchai9@yahoo.co.th ส่งมาเลย

เดี๋ยวผมทดสอบให้ แป๊ปเดียว สายตาไม่ดี ดูบนนี้ไม่ไหว เดี๋ยวใช้ความรู้สึกทดสอบเอา 

[parichat]

* ARIVC.RL - &atilde;&ordm;&iexcl;&Oacute;&iexcl;&Ntilde;&ordm;&Ecirc;&Ocirc;&sup1;&curren;&eacute;&Ograve;

[savek]

อืม เป็นเพราะ ~HREM1 ไม่ได้ถูกอ่านค่าจากในส่วนของ [report frame] ครับ

วิธีแก้ไขต้องย้ายตัวแปร ~HREM1 ไปไว้ในบรรทัด Su: บรรทัดที่มีการทำงาน เช่น ย้ายไปไว้ด้านหน้า ก่อนยอดรวมเงินแบบนี้ครับ

Su:&oacute;          ~HREM1                        Total    ~SQTY          Sub Total    &oacute;~AMOUNT      &oacute;