;;;;;;;;;;;This is code';;;;;;;;; [#Line: VCHBATCH ColumnTwo] Use:VCHBATCH ColumnOne [#Line:EI ColumnOne] Add: Right Fields :Before: VCH QtyTitle:Miexpqntt,Miexpratet,miexpvaluet Local:Field:Miexpqntt:Info:"No" Local:Field:Miexpratet:Info:"Labour" Local:Field:miexpvaluet:Info:"Lab Total" [#Line: VCHBATCH ColumnOne] ;Add:Option:Miexpeicolom@issales ;[!Line:Miexpeicolom] Add: Right Fields :Before: VCH QtyTitle:Miexpqntt,Miexpratet,miexpvaluet Local:Field:Miexpqntt:Info:"No" Local:Field:Miexpratet:Info:"Labour" Local:Field:miexpvaluet:Info:"Lab Total" [Field: Miexpqntt] Style:normal Width:7 [Field:Miexpratet] Style:normal Width:10 [Field:miexpvaluet] Width:10 [#Line:EI InvInfo] Add:Right Fields:Before:VCH BilledQty:Miexpqnt,Miexprate,miexpvalue [#Line: STKVCH Batch2] ;Add:Option:Miexpstkbatch@issales ;[!Line:Miexpstkbatch] Add:Right Fields:Before:VCHBATCH BilledQty:Miexpqnt,Miexprate,miexpvalue [Field:Miexpqnt] Use:Qty Primary Field Storage:Miexpqnt Set as:$Miexpqnt Width:7 Align:left ;Format:"NoSymbol, NoComma, NoZero,Decimal:0" [Field:Miexprate] Use:Rate Field Storage:Miexprate Align:left Set as:$Miexprate Format:"NoSymbol, NoComma, NoZero,Decimal:0,Short Form" [Field:miexpvalue] Use:Amount Field Storage:miexpvalue Align:center Set as:$Miexpqnt * $Miexprate Format:"NoSymbol, NoComma, NoZero,Decimal:0" [System:UDF] Miexpqnt:Quantity:10008 Miexprate :Rate:10009 miexpvalue:Amount:10010 Miexpvalueamount :Amount:10011 [#Field : VCH batch value] Use : Amount Forex Field Width : @@VCHAmountWidth Style : Small Storage : Amount Set By Condition:Yes@Miexpamt ;;;;;;;;;; [System:Formula] Miexpamt:$miexpvalue * (($Rate * $BilledQty * (100 - $Discount)) / 100)