Please find the below code and the EXCEL File. Using this Code Sale Voucher has been created, but it is not included in GSTR1. This code is working and Voucher is included in GSTR1 in all previous Tally Prime Versions. The problem starts from Tally Prime Release 3.0 Please help me to resolve the issue. [Function: BERP ImpSalesVCH] Variable : Counter : Number Variable : SavedCnt : Number Variable : BillAmt : Number Variable : BillDisc : Number Variable : DateStr : String Variable : LedAmt : Number Variable : LedName : String Variable : CurrVar : Number Variable : LedMobile : String Variable : VCHDate : String Variable : Test : String Variable : DateFormat: String Variable : VCHDateVar: Date Variable : VCHTypeNameVar: String Variable : VCHNoVar: String Variable : StateVar: String Variable : GSTNVar: String 00 : SET FILE LOG ON 01 : LOG : "Importing Sales Vouchers " + $$String$$MachineDate) + " " + $$String$$MachineTime) 02 : LOG : "------------------------" 05 : SET FILE LOG OFF 10 : SET : Counter : 0 11 : SET : SavedCnt : 0 25 : Set : CurrVar : ($$NumItems:BSalesColl) 25b : Set : DateFormat: (If $$IsEmpty$$FilterCount:BSalesColl:IsDDMMGt12) then "YYYYDDMM" else "YYYYMMDD") ;;$BillDate ;;($$String:##VCHDate:"ShortDate") 26 : START PROGRESS : ##CurrVar : "Sales Voucher Import" : @@CmpMailName : "Importing Vouchers ..." 29 : WALK COLLECTION : BSales Coll 30a : If : ($$IsEmpty:$EVCHDate OR $$IsEmpty:$EVCHNo OR $$IsEmpty:$EParty) 30b : Set File Log On 30c : Log : "Skipped | " + (##CurrVar + 1) + " | " + $EVCHDate + " | " + $EVCHNo + " | " + $EParty 30d : Set File Log Off 30e : Continue 30f : End If 30g : Set: GSTNVar: $EGSTN 31a : Set: LedName: $EParty 31b : Set: LedMobile: $EPartyMobile 31c : Set: VCHDateVar: If $$CurrentlicStatus = 9 AND NOT ($$StringPart:$EVCHDate:8:2 = "01" OR $$StringPart:$EVCHDate:8:2 = "02" OR $$StringPart:$EVCHDate:8:2 = "31") then ($$Date"01/" + $$StringPart:$EVCHDate:5:2 + "/" + $$StringPart:$EVCHDate:0:4)) else ($$Date$$StringPart:$EVCHDate:8:2 + "/" + $$StringPart:$EVCHDate:5:2 + "/" + $$StringPart:$EVCHDate:0:4)) ;; New Voucher 40 : NEW OBJECT : Voucher 45 : Set: VCHTypeNameVar: "Sales" 50 : SET VALUE : VoucherTypeName : ##VCHTypeNameVar 55 : Set: VCHNoVar: $EVCHNo 60 : SET VALUE: VoucherNumber: ##VCHNoVar 61 : SET VALUE: Date: ##VCHDateVar 66 : Set Value: Reference: ##VCHNoVar 67 : Set Value: IsInvoice: No 71a : Set Value: REFERENCEDATE: ##VCHNoVar 71b : Set Value: GSTREGISTRATIONTYPE: If $$IsEmpty:##GSTNVar OR $$StringLength:##GSTNVar < 5 then "Unregistered/Consumer" Else "Regular" 71c : Set Value: COUNTRYOFRESIDENCE: "India" 71d : Set Value: PARTYNAME: ##LedName 71e : Set Value: BASICBUYERNAME: ##LedName 71f : Set Value: PARTYMAILINGNAME: ##LedName 71g : Set Value: CONSIGNEEMAILINGNAME: ##LedName 71h : Set Value: CONSIGNEECOUNTRYNAME: "India" 71i : Set Value: BASICBASEPARTYNAME: ##LedName 081a: Set Value: VCHGSTStatusisIncluded : Yes 081b: Set Value: VCHGSTStatusisUnCertain: No 081c: Set Value: VCHGSTSTATUSISAPPLICABLE: Yes 081d: Set Value: ISELIGIBLEFORITC: Yes ;; Party Ledger in Sales Invoice 100 : INSERT COLLECTION OBJECT : LedgerEntries 105 : SET OBJECT : LedgerEntries 110 : SET VALUE : IsDeemedPositive : Yes 112 : SET VALUE : LedgerName : ##LedName 114 : Set Value : StateName : $LedStateName:Ledger:##LedName 116 : Set Value : CONSIGNEESTATENAME: $LedStateName:Ledger:##LedName 117 : Set Value : PLACEOFSUPPLY: $LedStateName:Ledger:##LedName 118 : Set Value : CONSIGNEEGSTIN : $(Ledger, ##LedName).LEDGSTREGDETAILS[1].GSTIN ;;$PartyGSTIN:Ledger:##LedName 120 : Set Value : PARTYGSTIN : $(Ledger, ##LedName).LEDGSTREGDETAILS[1].GSTIN ;;$PartyGSTIN:Ledger:##LedName 121 : Set : BillAmt : ($$Number:$ETaxableAmt0) + ($$Number:$ESGST0) + ($$Number:$ECGST0) + ($$Number:$EIGST0) + ($$Number:$ETaxableAmt5) + ($$Number:$ESGST5) + ($$Number:$ECGST5) + ($$Number:$EIGST5) + ($$Number:$ETaxableAmt12) + ($$Number:$ESGST12) + ($$Number:$ECGST12) + ($$Number:$EIGST12) + ($$Number:$ETaxableAmt18) + ($$Number:$ESGST18) + ($$Number:$ECGST18) + ($$Number:$EIGST18) + ($$Number:$ETaxableAmt28) + ($$Number:$ESGST28) + ($$Number:$ECGST28) + ($$Number:$EIGST28) 122 : Set : BillDisc : ($$Number:$EDiscount) 124 : Set : LedAmt : $$Round:##BillAmt:1 125 : SET VALUE : Amount : ($$AsDrAmt:$$AsPositive:##LedAmt) - ($$AsDrAmt:$$AsPositive:##BillDisc) 128 : Set Target : .. ;; Sales Ledger 135 : If: $$Number:$ETaxableAmt0 != 0 138 : INSERT COLLECTION OBJECT : LedgerEntries 140 : SET OBJECT : LedgerEntries 145 : SET VALUE : IsDeemedPositive : No 150 : SET VALUE : LedgerName : "Sales 0%" 151 : Set Value : GSTOVRDNNATURE : If ##StateVar = $StateName:Company:##SVCurrentCompany then "Sales Nil Rated" Else "Interstate Sales Nil Rated" 153 : Set : LedAmt : ($$Number:$ETaxableAmt0) 155 : Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 156 : Set Target : .. 158 : End If 159a: If: $$Number:$EDiscount != 0 159b: INSERT COLLECTION OBJECT : LedgerEntries 159c: SET OBJECT : LedgerEntries 159d: SET VALUE : IsDeemedPositive : Yes 159e: SET VALUE : LedgerName : "Discount" 159f: Set : LedAmt : ($$Number:$EDiscount) 159g: Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 159h: Set Target : .. 159i: End If 161 : If: $$Number:$ETaxableAmt5 != 0 163 : INSERT COLLECTION OBJECT : LedgerEntries 165 : SET OBJECT : LedgerEntries 167 : SET VALUE : IsDeemedPositive : No 171 : SET VALUE : LedgerName : "Sales 5%" 172 : Set Value : GSTOVRDNNATURE : If ##StateVar = $StateName:Company:##SVCurrentCompany then "Local Sales - Taxable" Else "Interstate Sales - Taxable" 172a: Set Value : GSTOVRDNINELIGIBLEITC: $$SysName:Applicable 173 : Set : LedAmt : ($$Number:$ETaxableAmt5) 174 : Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 178 : Set Target : .. 180 : End If 183 : If: $$Number:$ESGST5 != 0 186 : INSERT COLLECTION OBJECT : LedgerEntries 189 : SET OBJECT : LedgerEntries 193 : SET VALUE : IsDeemedPositive : No 195 : SET VALUE : LedgerName : "SGST 2.5%" 196 : Set : LedAmt : ($$Number:$ESGST5) 198 : Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 199 : Set Target : .. 200 : End If 202 : If: $$Number:$ECGST5 != 0 205 : INSERT COLLECTION OBJECT : LedgerEntries 208 : SET OBJECT : LedgerEntries 210 : SET VALUE : IsDeemedPositive : No 212 : SET VALUE : LedgerName : "CGST 2.5%" 213 : Set : LedAmt : ($$Number:$ECGST5) 215 : Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 218 : Set Target : .. 220 : End If 222 : If: $$Number:$EIGST5 != 0 225 : INSERT COLLECTION OBJECT : LedgerEntries 228 : SET OBJECT : LedgerEntries 230 : SET VALUE : IsDeemedPositive : No 232 : SET VALUE : LedgerName : "IGST 5%" 233 : Set : LedAmt : ($$Number:$EIGST5) 235 : Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 238 : Set Target : .. 240 : End If 361 : If: $$Number:$ETaxableAmt12 != 0 363 : INSERT COLLECTION OBJECT : LedgerEntries 365 : SET OBJECT : LedgerEntries 367 : SET VALUE : IsDeemedPositive : No 371 : SET VALUE : LedgerName : "Sales 12%" 372 : Set Value : GSTOVRDNNATURE : If ##StateVar = $StateName:Company:##SVCurrentCompany then "Local Sales - Taxable" Else "Interstate Sales - Taxable" 372a: Set Value : GSTOVRDNINELIGIBLEITC: $$SysName:Applicable 373 : Set : LedAmt : ($$Number:$ETaxableAmt12) 374 : Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 378 : Set Target : .. 380 : End If 383 : If: $$Number:$ESGST12 != 0 386 : INSERT COLLECTION OBJECT : LedgerEntries 389 : SET OBJECT : LedgerEntries 393 : SET VALUE : IsDeemedPositive : No 395 : SET VALUE : LedgerName : "SGST 6%" 396 : Set : LedAmt : ($$Number:$ESGST12) 398 : Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 399 : Set Target : .. 400 : End If 402 : If: $$Number:$ECGST12 != 0 405 : INSERT COLLECTION OBJECT : LedgerEntries 408 : SET OBJECT : LedgerEntries 410 : SET VALUE : IsDeemedPositive : No 412 : SET VALUE : LedgerName : "CGST 6%" 413 : Set : LedAmt : ($$Number:$ECGST12) 415 : Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 418 : Set Target : .. 420 : End If 422 : If: $$Number:$EIGST12 != 0 425 : INSERT COLLECTION OBJECT : LedgerEntries 428 : SET OBJECT : LedgerEntries 430 : SET VALUE : IsDeemedPositive : No 432 : SET VALUE : LedgerName : "IGST 12%" 433 : Set : LedAmt : ($$Number:$EIGST12) 435 : Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 438 : Set Target : .. 440 : End If 501 : If: $$Number:$ETaxableAmt18 != 0 503 : INSERT COLLECTION OBJECT : LedgerEntries 505 : SET OBJECT : LedgerEntries 507 : SET VALUE : IsDeemedPositive : No 511 : SET VALUE : LedgerName : "Sales 18%" 513 : Set Value : GSTOVRDNNATURE : If ##StateVar = $StateName:Company:##SVCurrentCompany then "Local Sales - Taxable" Else "Interstate Sales - Taxable" 513a: Set Value : GSTOVRDNINELIGIBLEITC: $$SysName:Applicable 515 : Set : LedAmt : ($$Number:$ETaxableAmt18) 517 : Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 521 : Set Target : .. 523 : End If 531 : If: $$Number:$ESGST18 != 0 533 : INSERT COLLECTION OBJECT : LedgerEntries 535 : SET OBJECT : LedgerEntries 537 : SET VALUE : IsDeemedPositive : No 539 : SET VALUE : LedgerName : "SGST 9%" 541 : Set : LedAmt : ($$Number:$ESGST18) 543 : Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 547 : Set Target : .. 550 : End If 553 : If: $$Number:$ECGST18 != 0 555 : INSERT COLLECTION OBJECT : LedgerEntries 557 : SET OBJECT : LedgerEntries 560 : SET VALUE : IsDeemedPositive : No 562 : SET VALUE : LedgerName : "CGST 9%" 564 : Set : LedAmt : ($$Number:$ECGST18) 566 : Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 568 : Set Target : .. 570 : End If 573 : If: $$Number:$EIGST18 != 0 575 : INSERT COLLECTION OBJECT : LedgerEntries 578 : SET OBJECT : LedgerEntries 580 : SET VALUE : IsDeemedPositive : No 582 : SET VALUE : LedgerName : "IGST 18%" 584 : Set : LedAmt : ($$Number:$EIGST18) 586 : Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 588 : Set Target : .. 590 : End If 601 : If: $$Number:$ETaxableAmt28 != 0 603 : INSERT COLLECTION OBJECT : LedgerEntries 605 : SET OBJECT : LedgerEntries 607 : SET VALUE : IsDeemedPositive : No 611 : SET VALUE : LedgerName : "Sales 28%" 613 : Set Value : GSTOVRDNNATURE : If ##StateVar = $StateName:Company:##SVCurrentCompany then "Local Sales - Taxable" Else "Interstate Sales - Taxable" 613a: Set Value : GSTOVRDNINELIGIBLEITC: $$SysName:Applicable 615 : Set : LedAmt : ($$Number:$ETaxableAmt28) 617 : Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 620 : Set Target : .. 622 : End If 625 : If: $$Number:$ESGST28 != 0 627 : INSERT COLLECTION OBJECT : LedgerEntries 629 : SET OBJECT : LedgerEntries 631 : SET VALUE : IsDeemedPositive : No 633 : SET VALUE : LedgerName : "SGST 14%" 635 : Set : LedAmt : ($$Number:$ESGST28) 638 : Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 641 : Set Target : .. 643 : End If 651 : If: $$Number:$ECGST28 != 0 654 : INSERT COLLECTION OBJECT : LedgerEntries 657 : SET OBJECT : LedgerEntries 660 : SET VALUE : IsDeemedPositive : No 663 : SET VALUE : LedgerName : "CGST 14%" 665 : Set : LedAmt : ($$Number:$ECGST28) 667 : Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 669 : Set Target : .. 671 : End If 673 : If: $$Number:$EIGST28 != 0 675 : INSERT COLLECTION OBJECT : LedgerEntries 677 : SET OBJECT : LedgerEntries 679 : SET VALUE : IsDeemedPositive : No 681 : SET VALUE : LedgerName : "IGST 28%" 684 : Set : LedAmt : ($$Number:$EIGST28) 686 : Set Value : Amount : $$AsCrAmt:$$AsPositive:##LedAmt 688 : Set Target : .. 690 : End If 692 : If: ##BillAmt != $$Round:##BillAmt:1 694 : INSERT COLLECTION OBJECT : LedgerEntries 696 : SET OBJECT : LedgerEntries 698 : SET VALUE : IsDeemedPositive : If ($$Round:##BillAmt:1 > ##BillAmt) then No Else Yes 701 : SET VALUE : LedgerName : "Round Off" 703 : Set : LedAmt : $$Round:##BillAmt:1 - ##BillAmt 705 : Set Value : Amount : If ($$Round:##BillAmt:1 - ##BillAmt) < 0 then $$AsDrAmt:$$AsPositive:##LedAmt else $$AsCrAmt:$$AsPositive:##LedAmt 707 : Set Target : .. 709 : End If 811 : Save Target 813 : If: $$LastResult 815 : Increment: SavedCnt 817 : End If 820 : INCREMENT : Counter 822 : SHOW PROGRESS : ##Counter 824 : END WALK 826 : END PROGRESS 828 : MSGBOX: "Status" : "Process completed successfully!!" 831 : SET FILE LOG ON 833 : LOG : "Records Read : " + $$String:##Counter 835 : LOG : "Vouchers Created : " + $$String:##SavedCnt 837 : SET FILE LOG OFF 841 : RETURN
Pass a SINGLE Sales entry in Tally Prime 3.0 and above --- then EXPORT it to XML version -- Open the XML and find out what relevant details you are missing or names has been changed.