รายงานภาษีขาย จะให้ดึงเลขที่ใบกำกับมาจากช่องอ้างอิง

[SUNSUN]

รบกวนสอบถามค่ะ

ถ้าจะให้รายงานภาษีขาย โชว์เลขที่ใบกำกับภาษีขาย แต่จะให้ดึงเลขที่ใบกำกับมาจากช่องอ้างอิง ต้องใช้คำสั่งในรายงานว่าอย่างไรค่ะ

[savek]

ลองแก้ไขในลักษณะนี้ดูนะครับ

viewtopic.php?f=1&t=13390#p48907

[SUNSUN]

ขอบคุณค่ะ

[SUNSUN]

ลองทำแล้ว ไม่ได้ค่ะ รบกวนผู้รู้ดูให้หน่อยค่ะ ไฟล์เดิมเป็นดังนี้

* ISVATS.RL - Sales's V.A.T. Report by Date
*
[report frame]
Ti::~INIT ~PAGE_CLR ~LATE_CLR ~PAGE0 ~LATE
He:à´×͹/»ÕÀÒÉÕ ~PRD (Çѹ·Õè¨Ò¡ ~FROMDATE ¶Ö§ ~TODATE ) `Çѹ·Õè : \DATE
*He:
He: ^$B$EÃÒ§ҹÀÒÉÕ¢Ò•~LATE $E$B^
He:ª×èͼÙé»ÃСͺ¡Òà \NAME `˹éÒ : ~PAGE
He:ª×èÍʶҹ»ÃСͺ¡Òà ~ADDRESS
He:àÅ¢»ÃШӵÑǼÙéàÊÕÂÀÒÉÕÍÒ¡Ã ~TAXID ~P_ORGTXT ~P_ORGSTR
*He:ÊÒ¢Ò ~P_ISDEP ( ) ÊÒ¢Ò·Õè ~FROMDEP
He:\LINE
He: <----㺡ӡѺÀÒÉÕ-----> ª×èͼÙé«×éÍÊÔ¹¤éÒ/¼ÙéÃѺºÃÔ¡Òà •••••àÅ¢»ÃШӵÑÇ Ê¶Ò¹»ÃСͺ¡Òà ÁÙŤèÒÊÔ¹¤éÒ ¨Ó¹Ç¹à§Ô¹
He:ÅӴѺ Çѹ/à´×͹/»Õ•àÅ¢·Õè ••••••¼ÙéàÊÕÂÀÒÉÕ Ê¹­. ÊÒ¢Ò·Õè ËÃ×ͺÃÔ¡Òà ÀÒÉÕÁÙŤèÒà¾ÔèÁ
**:9,999 DD/MM/YY xxxxxxxxxxxx xxxxxxxxx1xxxxxxxxx2xxxxxxxx3xxxxxxxx4xxxxxxxxx5 123456789012315 X 12345 (999,999,999.99)(99,999,999.99)
He:\LINE
*Gh::~CHK_LATE_CLR ~CHK_PAGE0 ;1 VATPRD 0 6
Gh::~CHK_LATE_CLR ~CHK_PAGE0 ;1 VATDAT 0 6
Gh::~NOTPRN_FO
*Bo:~SEQ ~VATDAT ~F~REFNUM •••••~DESCRP ~TAXIDX ~HO ~BR ~AMT01 ~VAT01
Bo:~SEQ ~VATDAT ~YOUREF •••••~DESCRP ~TAXIDX ~HO ~BR ~AMT01 ~VAT01
Bo::~SUMAMT01 ~SUMVAT01 ~SUMAMT0
Gf::~PRN_FO ;1
Gf:~L \FEED ;1
Fo:~P --------------- --------------
Fo:~P ÃÇÁáµèÅÐ˹éÒ $B~SUMAMT1P ~SUMVAT1P $B ~PAGE_CLR
Fo:~P =============== ==============
Fo:~L --------------- --------------
Fo:~L ÃÇÁ ~LATE_SUM $B~SUMAMT1 ~SUMVAT1 $B
Fo:~L =============== ==============
Su:~L \FEED
Su: --------------- --------------
Su:ÃÇÁ·Ñé§ÊÔé¹ ~LATE_SUM $B~TOTAMT1 ~TOTVAT1 $B
Su: =============== ==============
Su:ËÁÒÂà˵Ø: àÅ¢·ÕèÍÍ¡ãËÁè·ÕèÁÕà¤Ã×èͧËÁÒ•'*'•¹Ó˹éÒ•¤×Í•àÍ¡ÊÒ÷Õè¶Ù¡Â¡àÅÔ¡
*Su:>>>> ¨ºÃÒ§ҹ <<<<
[end frame]

[print options]
Top=2
Left=0
***Right=136
Right=146
Lines=-50
* ¶éҨСÓ˹´¨Ó¹Ç¹ºÃ÷ѴµèÍ˹éÒµÒµÑÇä»àÅ•ãËé¡Ó˹´à»ç¹àÅ¢µÔ´Åº•àªè¹•Lines=-35
Output=Select, Printer, Screen, File,
File Name=ISVATS.TXT
Fix Foot Line=OFF
Select Scope=OFF
Select Page=OFF
Select Paper=8_Inch, Default
8_Inch=\027\033\000
Prompt=ãËéàÅ×Í¡¾ÔÁ¾ìŧ¡ÃдÒÉ•8•¹ÔéÇ••áÅéÇàÅ×Í¡à¤Ã×èͧ¾ÔÁ¾ì•Laser/InkJet•(ãªé¡ÃдÒÉ•A4)
*Printer=V
Print Mode=1

[master file]
File=ISVAT
Alias=A
Tag=ISVAT4
System=DATA_PATH
*Filter=STR(VAT01*100/AMT01,5,2)='10'
*Filter=STR(VAT01*100/AMT01,5,2)=' 7'
*Filter=VAT01 = 0


[data spec]
* len (0)default, (>0)cut, (<0)cut to new line
*~dat: len, "pict", "data", "exp"
~INIT: 0, "", "", "totamt1=0;totvat1=0;totamtz=0;totvat2=0; opage=1; amt_01=0;vat_01=0;amt_z=0"
~LATE: 0, "", "latemsg", "islate=@n_islate(); latemsg=IIF(islate>0,'(Â×è¹à¾ÔèÁàµÔÁ)', '•••••••••••••••')"
~NOTPRN_FO: 0, "", "", "isprn=':'; endgroup=0"
~PRN_FO: 0, "", "", "isprn=IIF(islate>0,' ',':'); endgroup=1; opage=page"
~L: 0, "", "isprn", ""
~P: 0, "", "prnsumpage", "prnsumpage=IIF(opage=1.and.endgroup=1,':',' ')"
~LATE_SUM: 0, "", "late_sum", "fd=@Date1n(); td=@Date2n(); late_sum=latemsg+IIF(latemsg#' ', ' §Ç´ '+fd+' ¶Ö§ '+td, ' ')"
~ADDRESS: 0, "", "p_addr()", ""
~TAXID: 0, "", "p_taxid()", ""
~FROMDATE: 0, "", "Date1n()", ""
~TODATE: 0, "", "Date2n()", ""
~FROMDEP: 0, "", "Dep1()", ""

~SEQ: 0, "9999", "seq", "seq=seq+1", A
~DOCDAT: 0, "", "A->DOCDAT", "", B
~VATDAT: 0, "", "A->VATDAT", "", B
~F: 0, "", "flag", "flag=IIF(A->DOCSTAT='C',' *',' ' )", C
*~DOCNUM: 0, "", "A->DOCNUM", "", C
~DOCNUM: 0, "", "doc_num", "doc_num=SUBSTRA->DOCNUM, 3, 10)"
*~REFNUM: 0, "", "A->REFNUM", "", D
~REFNUM: 0, "", "ref_num", "ref_num=SUBSTR(A->REFNUM, 3, 15)"


~DESCRP: 48, "", "xname", "xname=IIF(A->PRENAM#' ', A->PRENAM-'•'-A->DESCRP, A->DESCRP+ ' ')", E
~AMT01: 0, "(999,999,999.99)", "amt_01", "amt_01 = IIF(A->RECTYP='5',A->AMT01*-1,A->AMT01)", I
~VAT01: 0, "(99,999,999.99)", "vat_01", "vat_01 = IIF(A->RECTYP='5',A->VAT01*-1,A->VAT01)", J
~SUMAMT01: 0, "(999,999,999.99)", "", "sumamt1=sumamt1+amt_01; totamt1=totamt1+amt_01; sumamtp1=sumamtp1+amt_01", I
~SUMVAT01: 0, "(99,999,999.99)", "", "sumvat1=sumvat1+vat_01; totvat1=totvat1+vat_01; sumvatp1=sumvatp1+vat_01", J
~AMTZ: 0, "(999,999,999.99)", "amt_z", "amt_z = IIF(A->RECTYP='5',A->AMTRAT0*-1,A->AMTRAT0)", K
~SUMAMT0: 0, "(999,999,999.99)", "", "sumamtz=sumamtz+amt_z; totamtz=totamtz+amt_z; sumamtp2=sumamtp2+amt_z", K

~REMARK: 27, "", "A->REMARK", "", L

~SUMAMT1: 0, "(999,999,999.99)", "sumamt1", "", I
~SUMVAT1: 0, "(99,999,999.99)", "sumvat1", "", J
~SUMAMTZ: 0, "(999,999,999.99)", "sumamtz", "", K

~SUMAMT1P: 0, "(999,999,999.99)", "sumamtp1", "", I
~SUMVAT1P: 0, "(99,999,999.99)", "sumvatp1", "", J
~SUMAMTZP: 0, "(999,999,999.99)", "sumamtp2", "", K

~PRD: 0, "´´´´•»»»»", "@d_fromprd()", ""
~LATE_CLR: 0, "", "", "sumamt1=0;sumvat1=0; sumamtz=0;sumvat2=0"
~CHK_LATE_CLR: 0, "", "", "sumamt1=IIF(islate>0,0,sumamt1); sumvat1=IIF(islate>0,0,sumvat1); sumamtz=IIF(islate>0,0,sumamtz); sumvat2=IIF(islate>0,0,sumvat2)"
~PAGE_CLR: 0, "", "", "sumamtp1=0;sumvatp1=0; sumamtp2=0;sumvatp2=0"
~PAGE: 0, "9999", "page", "page=page+1"
~PAGE0: 0, "", "", "page=0; seq=0"
~CHK_PAGE0: 0, "", "", "page=IIF(islate>0,0,page); seq=IIF(islate>0,0,seq)"

~TOTAMT1: 0, "(999,999,999.99)", "totamt1", "", I
~TOTVAT1: 0, "(99,999,999.99)", "totvat1", "", J
~TOTAMTZ: 0, "(999,999,999.99)", "totamtz", "", K

~DEP: 0, "", "A->DEPCOD", ""
~P_ISDEP: 0, "", "dd_str", "dd=@Dep1(); dd_str=@p_isdep( dd )"

~P_ORGTXT: 0, "", "p_orgtxt()", ""
~P_ORG: 0, "", "p_orgnum()", ""
~P_ORGSTR: 0, "", "p_orgstr()", ""
~TAXIDX: 0, "", "tax_id", "tax_id=IIF(A->TAXID='0000000000000', ' ', A->TAXID)", F
~HO: 0, "", "ho", "br=@p_orgnum_00009( A->ORGNUM ); ho=IIF(tax_id=' ', ' ',IIF(br='00000','X',' '))", G
~BR: 0, "", "br", "br=IIF(tax_id=' '.OR.ho='X'.OR.A->ORGNUM<0, ' ',br)", H

[suchai]

ดูแล้ว แต่ไม่ได้ดูในรายงานภาษีขาย ดูว่า คุณน่าจะยังไม่เคยอ่าน บทที่ 25 การแก้ไขแบบฟอร์ม/รายงาน

ผมแนะนำให้ ลองอ่านเริ่มต้น ในบทที่ 25 สักหลายรอบ เข้าใจหรือไม่เข้าใจ ขอให้อ่านไป จะไปพอที่จะแก้ไขรายงานเองได้บ้าง

โครงสร้าง Relate File คุณก็ยังไม่ได้สร้าง ตามที่เขาบอก และตัวแปร ~YOUREF คุณก็ยังไม่ได้สร้างตามที่เขาบอก

อืม...นะ

* ISVATS.RL - Sales's V.A.T. Report by Date
*
[report frame]
Ti::~INIT ~PAGE_CLR ~LATE_CLR ~PAGE0 ~LATE
He:à´×͹/»ÕÀÒÉÕ ~PRD (Çѹ·Õè¨Ò¡ ~FROMDATE ¶Ö§ ~TODATE ) `Çѹ·Õè : \DATE
*He:
He: ^$B$EÃÒ§ҹÀÒÉÕ¢Ò•~LATE $E$B^
He:ª×èͼÙé»ÃСͺ¡Òà \NAME `˹éÒ : ~PAGE
He:ª×èÍʶҹ»ÃСͺ¡Òà ~ADDRESS
He:àÅ¢»ÃШӵÑǼÙéàÊÕÂÀÒÉÕÍÒ¡Ã ~TAXID ~P_ORGTXT ~P_ORGSTR
*He:ÊÒ¢Ò ~P_ISDEP ( ) ÊÒ¢Ò·Õè ~FROMDEP
He:\LINE
He: <----㺡ӡѺÀÒÉÕ-----> ª×èͼÙé«×éÍÊÔ¹¤éÒ/¼ÙéÃѺºÃÔ¡Òà •••••àÅ¢»ÃШӵÑÇ Ê¶Ò¹»ÃСͺ¡Òà ÁÙŤèÒÊÔ¹¤éÒ ¨Ó¹Ç¹à§Ô¹
He:ÅӴѺ Çѹ/à´×͹/»Õ•àÅ¢·Õè ••••••¼ÙéàÊÕÂÀÒÉÕ Ê¹­. ÊÒ¢Ò·Õè ËÃ×ͺÃÔ¡Òà ÀÒÉÕÁÙŤèÒà¾ÔèÁ
**:9,999 DD/MM/YY xxxxxxxxxxxx xxxxxxxxx1xxxxxxxxx2xxxxxxxx3xxxxxxxx4xxxxxxxxx5 123456789012315 X 12345 (999,999,999.99)(99,999,999.99)
He:\LINE
*Gh::~CHK_LATE_CLR ~CHK_PAGE0 ;1 VATPRD 0 6
Gh::~CHK_LATE_CLR ~CHK_PAGE0 ;1 VATDAT 0 6
Gh::~NOTPRN_FO
*Bo:~SEQ ~VATDAT ~F~REFNUM •••••~DESCRP ~TAXIDX ~HO ~BR ~AMT01 ~VAT01
Bo:~SEQ ~VATDAT ~YOUREF •••••~DESCRP ~TAXIDX ~HO ~BR ~AMT01 ~VAT01
Bo::~SUMAMT01 ~SUMVAT01 ~SUMAMT0
Gf::~PRN_FO ;1
Gf:~L \FEED ;1
Fo:~P --------------- --------------
Fo:~P ÃÇÁáµèÅÐ˹éÒ $B~SUMAMT1P ~SUMVAT1P $B ~PAGE_CLR
Fo:~P =============== ==============
Fo:~L --------------- --------------
Fo:~L ÃÇÁ ~LATE_SUM $B~SUMAMT1 ~SUMVAT1 $B
Fo:~L =============== ==============
Su:~L \FEED
Su: --------------- --------------
Su:ÃÇÁ·Ñé§ÊÔé¹ ~LATE_SUM $B~TOTAMT1 ~TOTVAT1 $B
Su: =============== ==============
Su:ËÁÒÂà˵Ø: àÅ¢·ÕèÍÍ¡ãËÁè·ÕèÁÕà¤Ã×èͧËÁÒ•'*'•¹Ó˹éÒ•¤×Í•àÍ¡ÊÒ÷Õè¶Ù¡Â¡àÅÔ¡
*Su:>>>> ¨ºÃÒ§ҹ <<<<
[end frame]

[print options]
Top=2
Left=0
***Right=136
Right=146
Lines=-50
* ¶éҨСÓ˹´¨Ó¹Ç¹ºÃ÷ѴµèÍ˹éÒµÒµÑÇä»àÅ•ãËé¡Ó˹´à»ç¹àÅ¢µÔ´Åº•àªè¹•Lines=-35
Output=Select, Printer, Screen, File,
File Name=ISVATS.TXT
Fix Foot Line=OFF
Select Scope=OFF
Select Page=OFF
Select Paper=8_Inch, Default
8_Inch=\027\033\000
Prompt=ãËéàÅ×Í¡¾ÔÁ¾ìŧ¡ÃдÒÉ•8•¹ÔéÇ••áÅéÇàÅ×Í¡à¤Ã×èͧ¾ÔÁ¾ì•Laser/InkJet•(ãªé¡ÃдÒÉ•A4)
*Printer=V
Print Mode=1

[master file]
File=ISVAT
Alias=A
Tag=ISVAT4
System=DATA_PATH
*Filter=STR(VAT01*100/AMT01,5,2)='10'
*Filter=STR(VAT01*100/AMT01,5,2)=' 7'
*Filter=VAT01 = 0

[relate file]
File=ARTRN
Alias=B
Tag=ARTRN1
System=DATA_PATH
Master file=isvat
Master-Related Field=DOCNUM

[data spec]
* len (0)default, (>0)cut, (<0)cut to new line
*~dat: len, "pict", "data", "exp"
~INIT: 0, "", "", "totamt1=0;totvat1=0;totamtz=0;totvat2=0; opage=1; amt_01=0;vat_01=0;amt_z=0"
~LATE: 0, "", "latemsg", "islate=@n_islate(); latemsg=IIF(islate>0,'(Â×è¹à¾ÔèÁàµÔÁ)', '•••••••••••••••')"
~NOTPRN_FO: 0, "", "", "isprn=':'; endgroup=0"
~PRN_FO: 0, "", "", "isprn=IIF(islate>0,' ',':'); endgroup=1; opage=page"
~L: 0, "", "isprn", ""
~P: 0, "", "prnsumpage", "prnsumpage=IIF(opage=1.and.endgroup=1,':',' ')"
~LATE_SUM: 0, "", "late_sum", "fd=@Date1n(); td=@Date2n(); late_sum=latemsg+IIF(latemsg#' ', ' §Ç´ '+fd+' ¶Ö§ '+td, ' ')"
~ADDRESS: 0, "", "p_addr()", ""
~TAXID: 0, "", "p_taxid()", ""
~FROMDATE: 0, "", "Date1n()", ""
~TODATE: 0, "", "Date2n()", ""
~FROMDEP: 0, "", "Dep1()", ""

~SEQ: 0, "9999", "seq", "seq=seq+1", A
~DOCDAT: 0, "", "A->DOCDAT", "", B
~VATDAT: 0, "", "A->VATDAT", "", B
~F: 0, "", "flag", "flag=IIF(A->DOCSTAT='C',' *',' ' )", C
*~DOCNUM: 0, "", "A->DOCNUM", "", C
~DOCNUM: 0, "", "doc_num", "doc_num=SUBSTRA->DOCNUM, 3, 10)"
*~REFNUM: 0, "", "A->REFNUM", "", D
~REFNUM: 0, "", "ref_num", "ref_num=SUBSTR(A->REFNUM, 3, 15)"


~DESCRP: 48, "", "xname", "xname=IIF(A->PRENAM#' ', A->PRENAM-'•'-A->DESCRP, A->DESCRP+ ' ')", E
~AMT01: 0, "(999,999,999.99)", "amt_01", "amt_01 = IIF(A->RECTYP='5',A->AMT01*-1,A->AMT01)", I
~VAT01: 0, "(99,999,999.99)", "vat_01", "vat_01 = IIF(A->RECTYP='5',A->VAT01*-1,A->VAT01)", J
~SUMAMT01: 0, "(999,999,999.99)", "", "sumamt1=sumamt1+amt_01; totamt1=totamt1+amt_01; sumamtp1=sumamtp1+amt_01", I
~SUMVAT01: 0, "(99,999,999.99)", "", "sumvat1=sumvat1+vat_01; totvat1=totvat1+vat_01; sumvatp1=sumvatp1+vat_01", J
~AMTZ: 0, "(999,999,999.99)", "amt_z", "amt_z = IIF(A->RECTYP='5',A->AMTRAT0*-1,A->AMTRAT0)", K
~SUMAMT0: 0, "(999,999,999.99)", "", "sumamtz=sumamtz+amt_z; totamtz=totamtz+amt_z; sumamtp2=sumamtp2+amt_z", K

~REMARK: 27, "", "A->REMARK", "", L

~SUMAMT1: 0, "(999,999,999.99)", "sumamt1", "", I
~SUMVAT1: 0, "(99,999,999.99)", "sumvat1", "", J
~SUMAMTZ: 0, "(999,999,999.99)", "sumamtz", "", K

~SUMAMT1P: 0, "(999,999,999.99)", "sumamtp1", "", I
~SUMVAT1P: 0, "(99,999,999.99)", "sumvatp1", "", J
~SUMAMTZP: 0, "(999,999,999.99)", "sumamtp2", "", K

~PRD: 0, "´´´´•»»»»", "@d_fromprd()", ""
~LATE_CLR: 0, "", "", "sumamt1=0;sumvat1=0; sumamtz=0;sumvat2=0"
~CHK_LATE_CLR: 0, "", "", "sumamt1=IIF(islate>0,0,sumamt1); sumvat1=IIF(islate>0,0,sumvat1); sumamtz=IIF(islate>0,0,sumamtz); sumvat2=IIF(islate>0,0,sumvat2)"
~PAGE_CLR: 0, "", "", "sumamtp1=0;sumvatp1=0; sumamtp2=0;sumvatp2=0"
~PAGE: 0, "9999", "page", "page=page+1"
~PAGE0: 0, "", "", "page=0; seq=0"
~CHK_PAGE0: 0, "", "", "page=IIF(islate>0,0,page); seq=IIF(islate>0,0,seq)"

~TOTAMT1: 0, "(999,999,999.99)", "totamt1", "", I
~TOTVAT1: 0, "(99,999,999.99)", "totvat1", "", J
~TOTAMTZ: 0, "(999,999,999.99)", "totamtz", "", K

~DEP: 0, "", "A->DEPCOD", ""
~P_ISDEP: 0, "", "dd_str", "dd=@Dep1(); dd_str=@p_isdep( dd )"

~P_ORGTXT: 0, "", "p_orgtxt()", ""
~P_ORG: 0, "", "p_orgnum()", ""
~P_ORGSTR: 0, "", "p_orgstr()", ""
~TAXIDX: 0, "", "tax_id", "tax_id=IIF(A->TAXID='0000000000000', ' ', A->TAXID)", F
~HO: 0, "", "ho", "br=@p_orgnum_00009( A->ORGNUM ); ho=IIF(tax_id=' ', ' ',IIF(br='00000','X',' '))", G
~BR: 0, "", "br", "br=IIF(tax_id=' '.OR.ho='X'.OR.A->ORGNUM<0, ' ',br)", H

~YOUREF: 0, "", "ARTRN->YOUREF", ""

[SUNSUN]

ขอบคุณค่ะ ต้องขออภัยที่รบกวนค่ะ เพิ่งใช้โปรแกรมครั้งแรก ประกอบกับคุณแม่ป่วยหนัก ทำให้ต้องทำงานด้วย ดูแลคนป่วยไปด้วย จะพยายามหาเวลาและหาเอกสารมาศึกษาเพิ่มขึ้นค่ะ ขอบคุณอีกครั้่งในคำแนะนำค่ะ