PLEASE FIND BELOW TCP FOR AUTO BANK ENTRIES FROM EXCEL TO TALLY 1) DIFNE ALL COLUMN IN BANK LEDGER 2) CREATE "UPI PAY" AND "Bank Charges" FOR AUTO ALLOCATION LEGER
Thanks sir for this. Do you have gstr 2a auto reconciliation and auto production entry on sales tdl. Please share it if you have
Code: [Collection : INVGSTR2A] Data Source : File JSONZip: ##Rbc_jsn_PathFile ;JSON Object Path:b2b:1 ;JSON Object : GSTR2ATable Fetch : *.* Client Only:Yes [Object :GSTR2ATable] Collection : b2b : b2bObject [Object : b2bObject] Storage : ctin : String ;;;;;;; SUPPLIER GSTN NO Storage : cfs : String ;;;;;;; Storage : cname : String Collection : inv : invObject [Object : invObject] Storage : val : Amount ;;;;;; INVOICE TOTAL Storage : inv_typ : String ;;;;;;; INNOCIE TYPE Storage : pos : Number ;;;;;;; STATECODE Storage : idt : String ;;;;;;; INVOICE DATE Storage : rchrg : String ;;;;;;; IS REVERSE CHARGE Storage : inum : String ;;;;;;; INVOICE NUMBER Storage : chksum : String ;;;;;;; UNIQUE CODE Collection : itms : itmsObject [Object : itmsObject] Storage : num : Number Collection : itm_det : itm_detObject [Object: itm_detObject] Storage : samt : Amount ;;;;;; SGST AMOUNT Storage : rt : String ;;;;;; GST RATE Storage : txval : Amount ;;;;;; TAXABLE VALUE Storage : camt : Amount ;;;;;;; CGST AMOUNT Storage : iamt : Amount ;;;;;;; IGST AMOUN Storage : csamt :Amount ;;;;;; CESS AMOUNT [Collection : GSTR2A_BILLSummary] Source Collection: INVGSTR2A Title : "GSTIN-NO LIST" Walk : b2b Compute : SupplierGSTn :$ctin Compute : cfs :$cfs Compute : cname :$cName Compute Var : cvinvcnt : Number : $$NumItems Compute :NumberofBills : $$Number:##cvinvcnt Walk : Inv Compute : VoucherNumber : $inum Compute : VoucherDate : $idt Compute :IsReversecharge :$rchrg Walk : itms, itm_det Compute : GSTRate :$$String:$rt Compute : InvoiceTotal :$$AsAmount:$val Compute :TaxableAmount :$txval Compute :IGST :IF $$IsEmpty:$iamt THEN $$AsAmount:"0" ELSE $iamt Compute :CGST :IF $$IsEmpty:$camt THEN $$AsAmount:"0" ELSE $camt Compute :SGST :IF $$IsEmpty:$samt THEN $$AsAmount:"0" ELSE $samt Compute :CESS :IF $$IsEmpty:$csamt THEN $$AsAmount:"0" ELSE $csamt Compute :INVOICETYPE :"BILL" Format:$INVOICETYPE Format:$CFS Format:$PartyName,35 Format:$SupplierGSTn,10 Format:$NumberofBills,10 Format:$VoucherNumber,10 Format:$VoucherDate,10 Format:$IsReversecharge,10 Format:$GSTRate,10 Format:$InvoiceTotal,10 Format:$TaxableAmount,10 Format:$IGST,10 Format:$CGST,10 Format:$SGST,10 Format:$CESS,10 [Collection:GSTR2APartywiseSummery] Source Collection:GSTR2A_BILLSummary Fetch : *.* By:SupplierGSTn:$SupplierGSTn ;By:GSTRATE:$GSTRATE By:VoucherNumber:$VoucherNumber Sort:@@Default: $SupplierGSTn Compute:PartyName:$$CollectionFieldByKey:$Name:$SupplierGSTn:RBC_PartyGstnWise Aggr Compute:TaxableAmount1:Sum:IF $$IsEmpty:$TaxableAmount THEN $$AsAmount:"0" ELSE $$AsAmount:$TaxableAmount Aggr Compute:IGST1:Sum:IF $$IsEmpty:$IGST THEN $$AsAmount:"0" ELSE $$AsAmount:$IGST Aggr Compute:CGST1:Sum:IF $$IsEmpty:$CGST THEN $$AsAmount:"0" ELSE $$AsAmount:$CGST Aggr Compute:SGST1:Sum:IF $$IsEmpty:$SGST THEN $$AsAmount:"0" ELSE $$AsAmount:$SGST Aggr Compute:CESS1:Sum:IF $$IsEmpty:$CESS THEN $$AsAmount:"0" ELSE $$AsAmount:$CESS Compute:TotalVoucherAmt:$TaxableAmount1+$IGST1+$CGST1+$SGST1+$CESS1 Compute:InvoiceTotal:$InvoiceTotal Format:$INVOICETYPE Format:$CFS Format:$PartyName,35 Format:$SupplierGSTn,10 Format:$NumberofBills,10 Format:$VoucherNumber,10 Format:$VoucherDate,10 Format:$IsReversecharge,10 Format:$$Number:$GSTRate,10 Format:$InvoiceTotal,10 Format:$TaxableAmount1,10 Format:$IGST1,10 Format:$CGST1,10 Format:$SGST1,10 Format:$CESS1,10 [Collection:GSTR2APartywiserateSummery] Source Collection:GSTR2A_BILLSummary Fetch : *.* By:SupplierGSTn:$SupplierGSTn By:GSTRATE:$GSTRATE ;By:VoucherNumber:$VoucherNumber Sort:@@Default: $SupplierGSTn Compute:PartyName:$$CollectionFieldByKey:$Name:$SupplierGSTn:RBC_PartyGstnWise Aggr Compute:TaxableAmount1:Sum:$$AsAmount:$TaxableAmount Aggr Compute:IGST1:Sum:$$AsAmount:$IGST Aggr Compute:CGST1:Sum:$$AsAmount:$CGST Aggr Compute:SGST1:Sum:$$AsAmount:$SGST Aggr Compute:CESS1:Sum:$$AsAmount:$CESS Compute:TotalVoucherAmt:$TaxableAmount1+$IGST1+$CGST1+$SGST+$CESS Format:$INVOICETYPE Format:$CFS Format:$PartyName,35 Format:$SupplierGSTn,10 Format:$NumberofBills,10 Format:$VoucherNumber,10 Format:$VoucherDate,10 Format:$IsReversecharge,10 Format:$$Number:$GSTRate,10 Format:$InvoiceTotal,10 Format:$TaxableAmount1,10 Format:$IGST1,10 Format:$CGST1,10 Format:$SGST1,10 Format:$CESS1,10 Filter:IspartyGSTnSame [Collection:GSTR2APartywisebILLWISESummery] Source Collection:GSTR2A_BILLSummary Fetch : *.* By:SupplierGSTn:$SupplierGSTn ;By:GSTRATE:$GSTRATE By:VoucherNumber:$VoucherNumber Sort:@@Default: $SupplierGSTn Compute:PartyName:$$CollectionFieldByKey:$Name:$SupplierGSTn:RBC_PartyGstnWise Aggr Compute:TaxableAmount1:Sum:$$AsAmount:$TaxableAmount Aggr Compute:IGST1:Sum:$$AsAmount:$IGST Aggr Compute:CGST1:Sum:$$AsAmount:$CGST Aggr Compute:SGST1:Sum:$$AsAmount:$SGST Aggr Compute:CESS1:Sum:$$AsAmount:$CESS Compute:TotalVoucherAmt:$TaxableAmount1+$IGST1+$CGST1+$SGST+$CESS Format:$INVOICETYPE Format:$CFS Format:$PartyName,35 Format:$SupplierGSTn,10 Format:$NumberofBills,10 Format:$VoucherNumber,10 Format:$VoucherDate,10 Format:$IsReversecharge,10 Format:$$Number:$GSTRate,10 Format:$InvoiceTotal,10 Format:$TaxableAmount1,10 Format:$IGST1,10 Format:$CGST1,10 Format:$SGST1,10 Format:$CESS1,10 Filter:IspartyGSTnSame [Collection:GSTR2ABILLWISERATESummery] Source Collection:GSTR2A_BILLSummary Fetch : *.* By:SupplierGSTn:$SupplierGSTn By:GSTRATE:$GSTRATE By:VoucherNumber:$VoucherNumber Sort:@@Default: $SupplierGSTn Compute:PartyName:$$CollectionFieldByKey:$Name:$SupplierGSTn:RBC_PartyGstnWise Aggr Compute:TaxableAmount1:Sum:$$AsAmount:$TaxableAmount Aggr Compute:IGST1:Sum:$$AsAmount:$IGST Aggr Compute:CGST1:Sum:$$AsAmount:$CGST Aggr Compute:SGST1:Sum:$$AsAmount:$SGST Aggr Compute:CESS1:Sum:$$AsAmount:$CESS Compute:TotalVoucherAmt:$TaxableAmount1+$IGST1+$CGST1+$SGST+$CESS Format:$INVOICETYPE Format:$CFS Format:$PartyName,35 Format:$SupplierGSTn,10 Format:$NumberofBills,10 Format:$VoucherNumber,10 Format:$VoucherDate,10 Format:$IsReversecharge,10 Format:$$Number:$GSTRate,10 Format:$InvoiceTotal,10 Format:$TaxableAmount1,10 Format:$IGST1,10 Format:$CGST1,10 Format:$SGST1,10 Format:$CESS1,10 Filter:IsvOUCERNOSame [Collection : RBC_PartyGstnWise] Type : Ledger ;Child Of : $$GroupSundryCreditors; Group would be Sundry Debtors for GSTR1 Fetch : PartyGSTIN, Name Format : $PartyGSTIN, 20 Format : $Name, 25 Search Key : $PartyGSTIN Sort : @@Default : $PartyGSTIN Filter : RBCnonEmptyGstin [Function:PurchaseGVTYP] Variable : ProgressCount : Number Variable : Counter : Number 000 : SET : Counter : 0 001 : START PROGRESS : 1 : "Importing Master" : @@CmpMailName : "Creating Voucher Type ..." 042 : NEW OBJECT : VOUCHER TYPE 043 : Set Value : Name : "GSTR2A" 044 : Set Value : Parent : "Purchase" 050 : Set Value : Numbering Method : "Manual" 055 : Set Value : IsOptional : "Yes" 056 : Set Value : Prevent Duplicates : "Yes" 060 : CREATE TARGET 160 : CREATE TARGET 180 : INCREMENT : Counter 190 : SHOW PROGRESS : ##Counter 200 : END PROGRESS ;210 : Msg Box: "Ledger Auto Creation !!!":"IGST Ledger Imported Successfully !!!" 211 : RETURN [Function:GSTR2AIMPO] Variable : ProgressCount : Number Variable : Counter : Number Variable : BillNo : String Variable : MPIGSTIN : String Variable : MPIDate : String Variable : MPIRefno : String Variable : MPIPartyName : String Variable : MPIPartyState : String variable : MPI PurhcaseNil : Amount Variable : MPI Purchase5 : Amount Variable : MPI purchase12 : Amount Variable : MPI purchase18 : Amount Variable : MPI purchase28 : Amount Variable : MPI SGSTINPUT : Amount Variable : MPI CGSTINPUT : Amount Variable : MPI iGSTINPUT : Amount Variable : MPI GrandTotal : Amount 00 : SET : Counter : 0 10 :IF :$$IsEmpty:$Name:VoucherType:"GSTR2A" 15 : Call: PurchaseGVTYP 19 : End If ;10: Call:PurchasePartyLedgerCreation 20 : START PROGRESS : ($$NumItems:GSTR2APartywiseSummery) : "Importing GSTR2A" : @@CmpMailName : "Importing GSTR2A ..." ;+ $$NewLine + $$String:($$NumItems:VCHLVExcellVariableBillWise)+$$String:"/"+$$String:##Counter 30 : WALK COLLECTION : GSTR2APartywiseSummery ;;------------------------------------------------- ;;Create Party Ledger under Sundry Creditors if party ledger name not found 39 : Set: MPIGSTIN:$SupplierGSTn 40 : Set : BillNo : $VoucherNumber 41 : IF :$$IsEmpty:$PartyName 42 : NEW OBJECT : Ledger 43 : Set Value : Name : $SupplierGSTn 44 : Set Value : Parent : "Sundry Creditors" 45 : Set Value : GSTRegistrationType : "Regular" 46 : Set Value : PartyGSTIN : $SupplierGSTn 47 : Set Value : CountryofResidence : "India" 48 : Set Value : LedStateName : If $$IsStatepurchase:$SupplierGSTn then "Maharashtra" else "" 49 : Set Value :IsBillWiseOn :"No" 50 : CREATE TARGET 51 : END IF 52 : Set : MPI GrandTotal : @@GrandTotal ;53 : Log:"invoice Total- "+$$String:@@GrandTotal;@@GRANDTOTAL ;48 : Log: $$String:"Grand Total"+ $$String:##MPIGrandTotal ;;------------------------------------------------- ;;Basic Info 81 : SET : SVViewName : $$SysName:AcctgVchView 83 : NEW OBJECT : Voucher 84 : SET VALUE : Date : $$Date:$VoucherDate 85 : SET VALUE : VoucherTypeName : "GSTR2A" 86 : SET VALUE : Narration : "GSTR 2A DETAILS: - PartyName:-" + $$String:$PartyName + " GSTIN NO.- " + $$String:$SupplierGSTn + " Taxable AMOUNT - " + $$String:$TaxableAmount1 + " CGST AMOUNT - " + $$String:$CGST1 + " SGST AMOUNT - " + $$String:$SGST1 + " IGST AMOUNT - " + $$String:$IGST1 + " CESS AMOUNT - " + $$String:$CESS1 + " INVOICE TOTAL : - " + $$String:@@GRANDTOTAL 87 : SET VALUE : VoucherNumber : ##BillNo 88 : SET VALUE : Reference : ##BillNo 89 : Set Value : Isoptional :"Yes" 90 : Set Value : CFS1 : IF $CFS = "Y" THEN "Yes" else "No" 91 : Set Value : iSREVERSECHARGE1 : if $IsReversecharge = "N" THEN "No" else "Yes" ;90 : Log: $$Date:$SupBillDate 95 : SET VALUE : ReferenceDate :$$Date:$VoucherDate ;;--------------------------------------------------------- ;;TO Entry ;58 : Log: $$String:"InvoiceTotal: "+ $$String:##MPIGrandTotal 101 : INSERT COLLECTION OBJECT : LedgerEntries 102 : SET TARGET : LedgerEntries 103 : SET VALUE : LedgerName : If $$IsEmpty:$PartyName then $SupplierGSTn else $PartyName 104 : SET VALUE : Amount : $$AsAmount:@@GrandTotal 105 : SET VALUE : Is Deemed Positive : "No" 106 : SET TARGET : .. ;;--------------------------------------------------------- ;;BY PURCHASE Entry 107: Walk Collection:GSTR2ABILLWISERATESummery P160 : If: $$IsStatepurchase:$SupplierGSTn P170 : INSERT COLLECTION OBJECT : LedgerEntries P171 : SET TARGET : LedgerEntries P172 : SET VALUE : LedgerName : @@PURCHASESTATElEDGER;##purchaseimportvar2 P173 : SET VALUE : Amount : $TaxableAmount ;P174 : Set Value : GSTOVRDNNATURE :"Purchase Exempt" P176 : SET VALUE : Is Deemed Positive : "Yes" P177 : SET TARGET : .. P178 : End If P260 : If: Not $$IsStatepurchase:$SupplierGSTn P270 : INSERT COLLECTION OBJECT : LedgerEntries P271 : SET TARGET : LedgerEntries P272 : SET VALUE : LedgerName : @@PURCHASEOMSlEDGER;##purchaseimportvar7 P273 : SET VALUE : Amount : $TaxableAmount ;P274 : Set Value : GSTOVRDNNATURE : if $$IsEmpty:$TIGST and not $$IsEmpty:$TCGST then "Purchase Taxable" Else "Interstate Purchase Taxable" P276 : SET VALUE : Is Deemed Positive : "Yes" P277 : SET TARGET : .. p278 : End If 108 : End Walk ;;--------------------------------------------------------- ;;BY Gst Enty G160 : If: $$IsStatepurchase:$SupplierGSTn G180 : INSERT COLLECTION OBJECT : LedgerEntries G181 : SET TARGET : LedgerEntries G182 : SET VALUE : LedgerName : "CGST INPUT";##purchaseimportvar3 G183 : SET VALUE : Amount : $CGST1 G184 : SET VALUE : Is Deemed Positive : "Yes" G185 : SET TARGET : .. G190 : End If G280 : INSERT COLLECTION OBJECT : LedgerEntries G281 : SET TARGET : LedgerEntries G282 : SET VALUE : LedgerName : "SGST INPUT";##purchaseimportvar4 G283 : SET VALUE : Amount : $SGST1 G284 : SET VALUE : Is Deemed Positive : "Yes" G285 : SET TARGET : .. G360 : If: Not $$IsStatepurchase:$SupplierGSTn G380 : INSERT COLLECTION OBJECT : LedgerEntries G381 : SET TARGET : LedgerEntries G382 : SET VALUE : LedgerName : "IGST INPUT";##purchaseimportvar5 G383 : SET VALUE : Amount : $IGST1 G384 : SET VALUE : Is Deemed Positive : "Yes" G385 : SET TARGET : .. G390 : End If ;G480 : INSERT COLLECTION OBJECT : LedgerEntries ;G481 : SET TARGET : LedgerEntries ;G482 : SET VALUE : LedgerName : "ROUND";##purchaseimportvar6 ;G483 : SET VALUE : Amount : if $$IsNegative:(@@RoundValue) then @@RoundValue1 else @@RoundValue ;G484 : SET VALUE : Is Deemed Positive :if $$IsNegative:(@@RoundValue) then "Yes" else "No" ;G485 : SET TARGET : .. ;G486 : Log: $$String:"Bill No. "+ $$String:##MPIBillNo + $$String:"Round Value. " +$$String:@@RoundValue ;;--------------------------------------------------------- 109 : CREATE TARGET ;;--------------------------------------------------------- 110 : SET VALUE : PersistedView : ##SVViewname 130 : INCREMENT : Counter 140 : SHOW PROGRESS : ##Counter 150 : END WALK 160 : END PROGRESS 155 : Msg Box: "GSTR2A Imported Successful":"GSTR2A Imported Successful" ;170 : RETURN [Function:IsStatepurchase] Parameters: P1 :String Variable:STATECODE:String Return:Logical ;000:Set:INPUT:$$FileReadCell:##RowIndex:4 010:Set:STATECODE:$$StringPart:##P1:0:2 030: Return :@@statesales [System:Formulas] statesales: if ##STATECODE = "27" then "Yes" else "No" PURCHASESTATElEDGER: IF $GSTRate= "0" THEN "GSTR2A_0" ELSE IF $GSTRate= "5" THEN "GSTR2A_5" ELSE IF $GSTRate= "12" THEN "GSTR2A_12" ELSE IF $GSTRate= "18" THEN "GSTR2A_18" ELSE "GSTR2A_28" PURCHASEOMSlEDGER: IF $GSTRate= "0" THEN "GSTR2A_I0" ELSE IF $GSTRate= "5" THEN "GSTR2A_I5" ELSE IF $GSTRate= "12" THEN "GSTR2A_I12" ELSE IF $GSTRate= "18" THEN "GSTR2A_I18" ELSE "GSTR2A_I28" GrandTotal :$$AsAmount:($TaxableAmount1+$IGST1+$CGST1+$SGST1+$CESS1) no but in progress i share auto entries in tally from gst2a in optional voucher please use above code for help
NEW UPDATE IN TCP IMPORT SATATUS & AUTO PARTY CREATE FROM PARTY IN BANK STATEMENT NOTE IF YOU HAVE ALREADY USE THIS TCP PLEASE UPDATE NEW QUOLUM DETAIL IN LEDGER
create button & find source path for import json maine sab isi site se liya hai import ka program aur gstr2a ka program ko mix kiya sercch karo
Download Developer from Tally website....... You can either make your program (TDL) on developer or can use NOTEPAD also........... There are many samples folder in developer and also many program here on this forum......... You got to learn it slow by slow.....and you can do it.
write short program and use simple method to write program use tally developer its free for learning purpose. all learning session avaible on youtube query raise on this site or ask to tally
Msg for demo Note. 1] IN ledger Column write cash or Party Ledger Name then automatic create entry in fevour party ledger and contra entry 2] if import manual option use first feed all party name then post entry in bank manual import option
That is why it is called DEMO........... For full functionality please BUY from the developer, who has invested time and efforts.