รายละเอียดภาษีซื้อ ในแบบฟอร์มใบจ่ายเงิน

[janjira-k]

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

Ih: ;1 gljnlit->VOUCHER aptrn->docnum
Ib: ~ACCNUM ~P_ISDEP~ACCNAM ~DRAMT ~CRAMT ;1
If: ;1
If: ;1
Ih: [เอกสารอ้างอิง•]• ;2 aprcpit->rcpnum aptrn->docnum
Ib:~N•.~RCVNUM เลขที่•~REFNUMX วันที่•~RCVDAT •ครบกำหนด•~DUEDAT ~PAYAMT_I ;2
*Ih:: ;2 stcrd->docnum aprcpit->docnum
*Ib: ~NN ~ARTICLE ~QTY ~TQUCOD ~UNITPR ~NETAMT_I ;2
If: ;2
Ih: [ชำระโดย•]• •••;4 aprcpcq->rcpnum aptrn->docnum
Ib: ~BY #~CHQNUM ~CHQDAT ~BNKACC ~PAYAMT_Q ;4
*If: ๕๔๔๔๔๔๔๔๔๔๔๔๔๔๔๔๔๔๔๖ ;4
Ih:: ;5 isvat->docnum aptrn->docnum
Ib: ~PVATภาษีซื้อ# ~REFNUM ~VATDAT ~AMT01 ~VAT01 ~VATP ;5
Ib: ~02 ขอคืนไม่ได้ ~AMT02 ~VAT02 ;5
Ih: ๕๔๔ ใบหักภาษี ๔๔๔๖;6 istax->refnum aptrn->docnum
Ib: ~PTAX•เลขที่ ~TAXNUM ~TAXDAT ~TAXP ;6
Ib: ยอดจ่าย~PAYAMT หักไว้~RATE %~TAXAMT สำหรับ~TAXDES ;6
Ib:~I2 ยอด#2 ~PAYAMT2 หักไว้~RATE2%~TAXAMT2 สำหรับ~TAXDES2 ;6

--------------------------------------------------------------------------------------------------------------
[print options]
Top=0
Left=0
Tabs=4
Right=94
Lines=45
output=Select, Printer, Screen, File,
File Name=ARRCP.TXT
Print Control=\027\033\001
Fix Summary Line=ON
Select Scope=OFF
Select Page=OFF
Condition=OFF

[range of report]
From=CUR

[master file]
File=aptrn
Alias=A
Tag=aptrn1
System=DATA_PATH

[item file]
File=aprcpit
Alias=B
Tag=aprcpit1
System=DATA_PATH

File=aprcpcq
Alias=D
Tag=aprcpcq1
System=DATA_PATH

File=stcrd
Alias=E
Tag=stcrd5
System=DATA_PATH

File=istax
Alias=T
Tag=istax1
System=DATA_PATH

File=gljnlit
Alias=B
Tag=gljnlit1
System=DATA_PATH

[relate file]
File=apmas
Alias=R
Tag=apmas1
System=DATA_PATH
Master file=aptrn
Master-Related Field=SUPCOD

File=bktrn
Alias=K
Tag=bktrn3
System=DATA_PATH
Master file=aprcpcq
Master-Related Field=CHQNUM

File=bkmas
Alias=L
Tag=bkmas1
System=DATA_PATH
Master file=bktrn
Master-Related Field=BNKACC

File=gljnlit
Alias=B
Tag=gljnlit1
System=DATA_PATH

File=glacc
Alias=R
Tag=glacc1
System=DATA_PATH
Master file=gljnlit
Master-Related Field=ACCNUM+DEPCOD

File=isvat
Alias=U
Index=UVAT
Key=DOCNUM
System=DATA_PATH
Master file=aptrn
Master-Related Field=DOCNUM

[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; srvamt=0;totdr=0;totcr=0""

~ACCNUM: 0, "", "GLJNLIT->ACCNUM", ""
~ACCNAM: 43, "", "GLACC->ACCNAM", ""
~H_DESCRP: 0, "", "GLJNL->DESCRP", ""
~DESCRP: 41, "", "GLJNLIT->DESCRP", ""
~DRAMT: 0, "ZZZ,ZZZ,ZZZ.ZZ", "dramt", "dramt = IIF(GLJNLIT->TRNTYP='0', GLJNLIT->AMOUNT, 0); totdr=totdr+dramt"
~CRAMT: 0, "ZZZ,ZZZ,ZZZ.ZZ", "cramt", "cramt = IIF(GLJNLIT->TRNTYP='1', GLJNLIT->AMOUNT, 0); totcr=totcr+cramt"
~TOTDR: 0, "ZZZ,ZZZ,ZZZ.ZZ", "totdr", ""
~TOTCR: 0, "ZZZ,ZZZ,ZZZ.ZZ", "totcr", ""

~RCPNUM: 0, "", "APTRN->DOCNUM", ""
~RCPDAT: 0, "", "APTRN->DUEDAT", ""
~PAYDAT: 0, "", "APTRN->DOCDAT", ""
~SUPCOD: 0, "", "APTRN->SUPCOD", ""
~SUPNAM: 0, "", "sup_nam", "sup_nam = APMAS->PRENAM - '•' - APMAS->SUPNAM"
~ADDR01: 0, "", "APMAS->ADDR01", ""
~ADDR02: 0, "", "addr_02", "addr_02 = APMAS->ADDR02 - '•' - APMAS->ZIPCOD"
~YOUREF: 0, "", "APTRN->YOUREF", ""
~RCVAMT: 0, "99,999,999.99", "APTRN->RCVAMT", ""
~BAHT: 0, "", "t_baht(APTRN->CSHPAY+APTRN->CHQPAY)", ""

~N: 0, "999", "seq", "seq=seq+1; q=0"
~RCVNUM: 0, "", "APRCPIT->DOCNUM", ""
~RCVDAT: 0, "", "APTRNX->DOCDAT", ""
~DUEDAT: 0, "", "APTRNX->DUEDAT", ""
~BILNUM: 0, "", "APTRNX->BILNUM", ""
~NETAMT: 0, "ZZ,ZZZ,ZZZ.ZZ", "APTRNX->NETAMT", ""
~REMAMT: 0, "ZZ,ZZZ,ZZZ.ZZ", "APTRNX->REMAMT", ""
~PAYAMT_I: 0, "99,999,999.99", "pay", "pay = IIF(APRCPIT->RECTYP='0'.or.APRCPIT->RECTYP='5',APRCPIT->PAYAMT*-1,APRCPIT->PAYAMT)"

~VATAMT: 0, "99,999,999.99", "APTRN->VATAMT", ""
~SRVAMT: 0, "99,999,999.99", "srvamt", "srvamt = APTRN->RCVAMT - APTRN->VATAMT"
~CHKSRV: 0, "", "chksrv", "chksrv = IIF(APTRN->VATAMT > 0, '๓', ':')"
~REFNUM: 0, "", "APTRN->REFNUM", ""

~BY: 0, "", "p_isrun( APRCPCQ->CHQNUM, ZP, 1, 30)", ""
~CHQNUM: 0, "", "chqnum", "chqnum= substr(APRCPCQ->CHQNUM,3,10)"
~CHQDAT: 0, "", "BKTRN->CHQDAT", ""
~BNKACC: 0, "", "BKMAS->SHORTNAM", ""
~AMOUNT_Q: 0, "ZZ,ZZZ,ZZZ.ZZ", "BKTRN->AMOUNT", ""
~REMAMT_Q: 0, "ZZ,ZZZ,ZZZ.ZZ", "BKTRN->REMAMT", ""
~PAYAMT_Q: 0, "ZZ,ZZZ,ZZZ.ZZ", "APRCPCQ->PAYAMT", ""

~INTPAY: 0, "9,999,999.99", "APTRN->INTPAY", ""
~CSHPAY: 0, "99,999,999.99", "APTRN->CSHPAY", ""
~CHQPAY: 0, "99,999,999.99", "APTRN->CHQPAY", ""
~TAX: 0, "9,999,999.99", "APTRN->TAX", ""
~DISCAMT: 0, "9,999,999.99", "APTRN->DISCAMT", ""
~NET: 0, "99,999,999.99", "net", "net=IIF(STR(APTRN->NETAMT,15,2) = STR(APTRN->RCVAMT,15,2), APTRN->CSHPAY+APTRN->CHQPAY, 99999999999.99)"

~HREM1: 0, "", "p_hrem(A->DOCNUM,1)", ""
~HREM2: 0, "", "p_hrem(A->DOCNUM,2)", ""
~HREM3: 0, "", "p_hrem(A->DOCNUM,3)", ""
~HREM4: 0, "", "p_hrem(A->DOCNUM,4)", ""
~HREM5: 0, "", "p_hrem(A->DOCNUM,5)", ""

~DEP: 0, "", "A->DEPCOD", ""
~P_ISDEP: 0, "", "p_isdep( A->DEPCOD )", ""

~NN: 0, "999", "q", "q=q+1"
~ARTICLE: 43, "", "article", "article = STCRD->STKCOD - '•' - STCRD->STKDES"
~STKCOD: 0, "", "STCRD->STKCOD", ""
~STKDES: 28, "", "STCRD->STKDES", ""
~L: 0, "", "STCRD->LOCCOD", ""
~QTY: 0, "qtyZ(7)", "STCRD->TRNQTY", ""
~TQUCOD: 9, "", "p_istab( STCRD->TQUCOD, 20, 1, 0 )", ""
~UNITPR: 0, "priZ(10)", "STCRD->UNITPR", ""
~DISC_I: 0, "", "STCRD->DISC", ""
~NETAMT_I: 0, "ZZ,ZZZ,ZZZ.ZZ", "STCRD->TRNVAL", ""
~REMARK: 0, "", "ARTRNRM->REMARK", ""
~MQTY: 0, "qtyZ(7)", "mqty", "mqty = STCRD->TRNQTY * STCRD->TFACTOR"
~MQUCOD: 0, "", "p_istab( STMAS->QUCOD, 20, 1, 0 )", "",

~TAXNUM: 0, "", "ISTAX->TAXNUM", ""
~TAXDAT: 0, "", "ISTAX->TAXDAT", ""
~TAXNAM: 0, "", "ISTAX->NAME", ""
~TAXADDR: 0, "", "ISTAX->ADDR", ""
~TAXID: 0, "", "ISTAX->TAXID", ""
~TAXDES: 0, "", "ISTAX->TAXDES", ""
~PTAX: 0, "", "", "prd = @format_date( ISTAX->TAXPRD, MM/YY )"
~TAXP: 0, "", "tax_prd", "tax_prd=IIF( SUBSTR(DTOS(ISTAX->TAXPRD),1,6) # SUBSTR(DTOS(ISTAX->TAXDAT),1,6), '(ยื่นรวมในงวด '+prd+ISTAX->LATE+')', ' ')"
~PAYAMT: 0, "99,999,999.99", "ISTAX->AMOUNT", ""
~RATE: 0, "999.99", "ISTAX->TAXRAT", ""
~TAXAMT: 0, "9,999,999.99", "ISTAX->TAXAMT", ""
~TAXCOND: 0, "", "ISTAX->TAXCOND", ""
*Item#2
~I2: 0, "", "item2", "item2=IIF(ISTAX->AMOUNT2 >=0.01 .or. ISTAX->TAXAMT2 >=0.01, '๓','}')"
~TAXDES2: 0, "", "ISTAX->TAXDES2", ""
~PAYAMT2: 0, "99,999,999.99", "ISTAX->AMOUNT2", ""
~RATE2: 0, "999.99", "ISTAX->TAXRAT2", ""
~TAXAMT2: 0, "9,999,999.99", "ISTAX->TAXAMT2", ""
~TAXCOND2: 0, "", "ISTAX->TAXCOND", ""

~PRNBY: 0, "", "p_userid()", ""
~PRNDAT: 0, "", "@d_prndat()", ""
~PRNTIM: 0, "", "s_prntim()", ""
~PRNCNT: 0, "999", "@n_prncnt()", ""
~RECBY: 0, "", "A->USERID", ""

~P_ORGTXT: 0, "", "p_orgtxt()", ""
~P_ORG: 0, "", "p_orgnum()", ""
~P_ORGSTR: 0, "", "p_orgstr()", ""
~BILLBE: 0, "", "A->BILLBE", "tax_id=@TAXID()"
~TAXIDX: 0, "", "tax_id", ""
*~ORG: 0, "", "org", "org=IIF(tax_id#' '.AND.A->ORGNUM>=0,IIF(A->ORGNUM=0,'•สำนักงานใหญ่•••', '•สาขาที่•' -LTRIM(STR(A->ORGNUM,5,0))),' ')"
~ORG: 0, "", "org", "br=@p_orgnum_00009( A->ORGNUM ); org=IIF(tax_id#' '.AND.A->ORGNUM>=0,IIF(A->ORGNUM=0,'•สำนักงานใหญ่••', '•สาขาที่•'-br),' ')"
~SEEKSUP: 0, "", "SeekSup()", ""

~ACCNUM: 0, "", "GLJNLIT->ACCNUM", ""
~ACCNAM: 43, "", "GLACC->ACCNAM", ""
~DESCRP: 41, "", "GLJNLIT->DESCRP", ""
~DRAMT: 0, "ZZZ,ZZZ,ZZZ.ZZ", "dramt", "dramt = IIF(GLJNLIT->TRNTYP='0', GLJNLIT->AMOUNT, 0)"
~CRAMT: 0, "ZZZ,ZZZ,ZZZ.ZZ", "cramt", "cramt = IIF(GLJNLIT->TRNTYP='1', GLJNLIT->AMOUNT, 0)"

~REFNUMX: 0, "", "APTRNX->REFNUM", ""

~DEP: 0, "", "GLJNLIT->DEPCOD", ""
~P_ISDEP: 0, "", "p_isdep( GLJNLIT->DEPCOD )", ""

~ACCNUM: 0, "", "GLJNLIT->ACCNUM", ""
~ACCNAM: 43, "", "GLACC->ACCNAM", ""
~DRAMT: 0, "ZZZ,ZZZ,ZZZ.ZZ", "dramt", "dramt = IIF(GLJNLIT->TRNTYP='0', GLJNLIT->AMOUNT, 0); totdr=totdr+dramt"
~CRAMT: 0, "ZZZ,ZZZ,ZZZ.ZZ", "cramt", "cramt = IIF(GLJNLIT->TRNTYP='1', GLJNLIT->AMOUNT, 0); totcr=totcr+cramt"
~TOTDR: 0, "ZZZ,ZZZ,ZZZ.ZZ", "totdr", ""
~TOTCR: 0, "ZZZ,ZZZ,ZZZ.ZZ", "totcr", ""

[savek]

ต้องแก้ไขค่อนข้างเยอะเลยครับ รบกวนโทร.เข้ามาที่ฝ่ายบริการลูกค้า ให้ทางเจ้าหน้าที่แนะนำขั้นตอนดีกว่านะครับ