Code: ;; [Function : KRImportSale] 001 : Call : KRImportLedgers 002 : Call : Import Of KR Sale Voucher [Function : Import Of KR Sale Voucher] Variable : Counter : Number 00 : SET : Counter : 0 01 : START PROGRESS : ($$NumItems:OTCSaleInfo) : "Vouchers Importing " : @@CmpMailName : "Sales Importing ..." 02 : WALK COLLECTION : OTC Sale Info 03 : SET : SVViewName : $$SysName:AcctgVchView 04 : NEW OBJECT : Voucher 05 : SET VALUE : Date : $$Date:@@KRVCHDateStrPost 06 : SET VALUE : VoucherTypeName : $$String:"Sales" 06A : SET VALUE : VoucherNumber : $$String:$KRVchNo 06B : Set Value : IsInvoice : "YES" 06C : Set Value : PartyLedgerName : $KRParty 06D : Set Value : Amount : $KRPartyAmt ;06B : Set Value : IsOptional : "YES" ;155223 ;;;;;;;;;;;;;;; party ledger entry. 07 : INSERTCOLLECTION OBJECT : AllLedgerEntries 07a : SET TARGET : LedgerEntries 07b : SET VALUE : LedgerName : $KRParty 07c : SET VALUE : Amount : $$AsAmount:$KRPartyAmt * -1 07d : SET VALUE : Is Deemed Positive: "YES" 07e : SET TARGET : .. ;;;;;;;;;;;;;;; lodging receipt ac 08 : INSERTCOLLECTION OBJECT : AllLedgerEntries 08a : SET TARGET : LedgerEntries 09 : SET VALUE : LedgerName : "Lodgeing Receipts A/c" 10 : SET VALUE : Amount : $$AsAmount:$KRLodgingAmt 20 : SET VALUE : Is Deemed Positive: "NO" ;30 : SET TARGET : .. ;10a : Walk Collection : TaxObjectAllocations 30a : INSERTCOLLECTION OBJECT : TaxObjectAllocations 30b : SET VALUE : TaxName : "Sale/" + $KRVchNo + "-1" 30c : SET VALUE : AssessableAmount : $$AsAmount:$KRLodgingAmt ; 30d : SET VALUE : Tax : $$AsAmount:$KRSTAmt 30e : Set Value : RefType:"New" 30f : Set Value : Natureofservice: "Taxable" 30g : SET VALUE : TaxType : "Service Tax" 30h : Set Value : Category : "Short Term Accommodation Service (Hotel, Inn, Etc.)" 30i : set value : NotificationNo : $$GetAbatementNoFromLedger:"Lodgeing Receipts A/c":$Category:$Date ; 10b : End Walk 30j : SET TARGET : ... ;30k : Walk Collection:SubCategoryAllocations ; 10a : Insert collection Object:SubCategoryAllocations ; 10b : Set Value : AssessableAmount : $KRLodgingAmt ; 10c : Set Value : RealisedAssessableAmount:$KRLodginAmt ; 10d : Set Value : Sub Category : "Service Tax" ; 10e : Set Value : Tax Rate : "12" ; 10f : Set Value : tax : $$AsAmount:"245" ; ;10g: End Walk ; 10h : Set Target : ... ;;;;;;;;;; Luxury Tax Ac 40 : INSERTCOLLECTION OBJECT : AllLedgerEntries 40a : SET TARGET : LedgerEntries 40b : SET VALUE : LedgerName : "LUXRY TAX" 50 : SET VALUE : Amount : $$AsAmount:$KRLuxaryAmt 50a : SET VALUE : Is Deemed Positive: "NO" 50b : SET TARGET : .. ;;;;;;;;;; EXTRA BED; 60 : INSERTCOLLECTION OBJECT : AllLedgerEntries 60a : SET TARGET : LedgerEntries 60b : SET VALUE : LedgerName : "Extra Bed A/c" 70 : SET VALUE : Amount : $$AsAmount:$KRExtraPersonAmt 70a : SET VALUE : Is Deemed Positive: "NO" 70b : SET TARGET : .. ;support.tallydeveloper@tallysolutions.com ;;;;;;;;;; other amount 90 : INSERTCOLLECTION OBJECT : AllLedgerEntries 90a : SET TARGET : LedgerEntries 90b : SET VALUE : LedgerName : "Other" 90c : SET VALUE : Amount : $$AsAmount:$KROtherAmt ;70a : Set Value : TaxClassificationName:$TaxClassificationName:Ledger:$$String:"Output VAT @ 12.5%" ;70b : Set Value : VATAssessableValue: $$AsAmount:$CVBUOTCAssAmt 90d : SET VALUE : Is Deemed Positive: "NO" 90e : SET TARGET : .. ;;;;;;;;;; foods sales amount 110 : INSERTCOLLECTION OBJECT : AllLedgerEntries 110a : SET TARGET : LedgerEntries 110b : SET VALUE : LedgerName : "Foods Sales in Romms A/c" 110c : SET VALUE : Amount : $$AsAmount:$KRFoodAmt ;70a : Set Value : TaxClassificationName:$TaxClassificationName:Ledger:$$String:"Output VAT @ 12.5%" ;70b : Set Value : VATAssessableValue: $$AsAmount:$CVBUOTCAssAmt 110d : SET VALUE : Is Deemed Positive: "NO" 110e : SET TARGET : .. 280 : SET VALUE : PersistedView : ##SVViewName 290 : SET VALUE : NARRATION :"Being Cash Sale";$NBBNarration 300 : CALL : Save Target OTC 310 : INCREMENT : Counter 320 : SHOW PROGRESS : ##Counter 330 : END WALK 340 : END PROGRESS 340a : MSGBOX: "Status" : "Successfully Process completed!!" 350 : RETURN [Function: Save Target OTC] 04 : Save Target [Collection: OTC Sale Info] ODBC : "Driver={Microsoft Excel Driver (*.xls)};Dbq=D:\ImportVouchers.xls" SQL : "Select * from [Sheet1$]" SQLObject : CVBU OTC Sales Obj [Object : CVBU OTC Sales Obj] KRVCHNo :$_2 KRVCHDate :$_1 KRParty :$_3 KRPartyAmt :$_10 KRLodgingAmt :$_4 KRExtraPersonAmt :$_5 KRLuxaryAmt :$_6 KRSTAmt :$_7 KROtherAmt :$_8 KRFoodAmt :$_9 ;bhaktiinfotech9@gmail.com [System : Formula] KRVCHDate : $_1 KRVCHDateDatePost : $$Date:@@KRVCHDateStrPost KRVCHDateStrPost : ($$StringPart:$_2:8:2) + "-" + + ($$StringPart:$_2:5:2) + "-" + + ($$StringPart:$_2:0:4) ;;End-of-File
