Voucher Not included In GSTR1

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