Dear Sir, I have written code for importing purchase data from excel to tally my code is as follows: [Function : VSSPuchImpFunc] Variable : VSSCounter1 : Number : 2 00010 : Open File : ##VSSPuchImpVar : Excel : Read 00011 : While : NOT $$IsEmpty$$FileReadCell:##VSSCounter1:1) 00012 : Set File Log On 00013 : Log:$VoucherNumber 00040 : New Object : Voucher 00045 : Set : SVViewName : $$SysName:InvVchView 00046 : Set : VSSVName : $$FileReadCell:##VSSCounter1:4 00047 : Set : VSSVState : $LedStateName:Ledger:##VSSVName 00048 : Set : VSSVGSTDtls : $PartyGSTIN:Ledger:##VSSVName 00049 : Set : VSSPVAmt : $$FileReadCell:##VSSCounter1:7 00060 : Set Value : VoucherTypeName : $$FileReadCell:##VSSCounter1:1 00050 : Set Value : Date : $$Date:$$FileReadCell:##VSSCounter1:3 00090 : Set Value : VoucherNumber : $$FileReadCell:##VSSCounter1:2 00100 : Set Value : PartyName : $$FileReadCell:##VSSCounter1:4 00101 : Set Value : PartyLedgerName : $$FileReadCell:##VSSCounter1:4 00102 : Set Value : StateName : ##VSSVState 00103 : Set Value : CountryofResidence: "India" 00104 : Set Value : PartyGSTIN : ##VSSVGSTDtls 00105 : Set Value : Reference : $$FileReadCell:##VSSCounter1:5 00106 : Set Value : ReferenceDate : $$Date:$$FileReadCell:##VSSCounter1:6 00107 : Set Value : PersistedView : $$LocaleString:"Invoice Voucher View" 00108 : Set Value : VCHEntryMode : $$LocaleString:"Item Invoice" 00110 : Set Value : IsInvoice : Yes 00111 : Set Value : Amount : $$AsAmount:##VSSPVAmt 00114 : Insert Collection Object : LedgerEntries 00115 : Set Value : LedgerName : ##VSSVName 00116 : Set Value : IsDeemedPositive : No 00117 : Set Value : IsPartyLedger : Yes 00118 : Set Value : Amount : $$AsAmount:##VSSPVAmt 00119 : Set Target : .. 00120 : Set : VSSCounter2 : $$FileReadCell:##VSSCounter1:2 00121 : Set : VSSCounter3 : 2 00125 : While : NOT $$IsEmpty$$FileReadCell:##VSSCounter3:8) 00126 : Set : VSSItmQty : (($$FileReadCell:##VSSCounter3:9)*-1) 00127 : Set : VSSItmRate : (($$FileReadCell:##VSSCounter3:10)) 00128 : Set : VSSStkItm : $$FileReadCell:##VSSCounter3:8 00129 : Set : VSSSIPLedg : If (##VSSVState = "Telangana") Then ($PurcGSTLed:StockItem:##VSSStkItm) Else ($PurcIGSTLed:StockItem:##VSSStkItm) 00130 : Set Target : .. 00151 : Insert Collection Object : AllInventoryEntries 00152 : Set Value : StockItemName : $$FileReadCell:##VSSCounter3:8 00153 : Set Value : ActualQty : $$TgtObject:$$AsQty:##VSSItmQty 00154 : Set Value : BilledQty : $$TgtObject:$$AsQty:##VSSItmQty 00155 : Set Value : Rate : $$TgtObject:$$AsRate:##VSSItmRate 00156 : Set Value : Amount : $$AsAmount:$$FileReadCell:##VSSCounter3:11 00200 : Insert Collection Object : AccountingAllocations 00201 : Set Value : LedgerName : ##VSSSIPLedg 00202 : Set Value : Amount : $$AsAmount:$$FileReadCell:##VSSCounter3:11 00203 : Set Value : IsDeemedPositive : Yes 00204 : Set Target : .. 00225 : Increment : VSSCounter3 00226 : End While 00299 : If :$$FileReadCell:##VSSCounter1:13 > 0 00300 : Insert Collection Object : LedgerEntries 00301 : Set Value : LedgerName : $$LocaleString:"Input IGST @ 18%" 00302 : Set Value : IsDeemedPositive : Yes 00303 : Set Value : RemoveZeroEntries : Yes 00304 : Set Value : IsPartyLedger : No 00306 : Set Value : Amount : $$AsAmount:$$FileReadCell:##VSSCounter1:13 00307 : Set Target : .. 00308 : EndIf 00900 : Create Target 00901 : Increment : VSSCounter1 00902 : Set File Log Off 00903 : Log:$VoucherNumber 01000 : End While 01025 : Close File 01026 : MsgBox : "Status" : "Created Purchase Voucher !!!!!!" 01027 : Return I was able to import the voucher into Tally But getting one problem i.e taxable amount is shown as -ve numbers. Reuqest you to kindly help me. attached screen shot for ready reference. Please kindly help me. View attachment 9026
