This free codes demonstrates how multiple json files (GSTR2A only) can be loaded and then letter viewed for a particular month; For @Bipin Damania, @sattam @Jenny, @santhosh-c-kurian Code: [#Menu : Import Indirect] Add : Key Item : After : @@LocBanking : "JSon GSTR2A " : 2 : Menu : Rbc_2AReco :NOT $$IsEmpty:$$SelectedCmps ;AND @@RBC_TM_IsOn [Menu :Rbc_2AReco] Key Item : "JSon Viewer " : J : alter : Rbc_Jsn_Options : NOT $$IsEmpty:$$SelectedCmps ;AND @@RBC_TM_IsOn Key Item : "Reconciliation " : R : Display Collection: RecoMonthSelection : NOT $$IsEmpty:$$SelectedCmps ;AND @@RBC_TM_IsOn [System: Variable] Rbc_jsn_Path : "" Rbc_jsn_File : "" Rbc_jsn_PathFile: "" [Variable: Rbc_jsn_Path] Type: String Default: "" Persist: Yes [Variable: Rbc_jsn_File] Type: String Default: "" Persist: Yes [Variable: Rbc_jsn_PathFile] Type: String Default: "" Persist: Yes ;------------------------------------------------------------------------------------------------------------------------------------------------ [Object : JSonFilePathList] Collection : JSonPathFileName : JSonFilePathName [Object : JSonFilePathName] Storage : JSonFileName : String Storage : JSonPathFileName : String ;------------------------------------------------------------------------------------------------------------- [Report: Rbc_jsn_Options] Form : Rbc_jsn_Options Full Screen : Yes Object : JSonFilePathList [Form: Rbc_jsn_Options] No Confirm : No Space Top : 1 Space Left : 1 Space Right : 1 Space Bottom : 1 Height : 70% Page Width : 50% Page Vertical Align : Centre Local : Field : Rbc_jsn_Import Directory : Modifies : Rbc_jsn_Path : Yes Local : Field : Rbc_jsn_Import FileName : Modifies : Rbc_jsn_File : Yes Local: Field: Form SubTitle : Info : "Select JSon or Zip file from the List" Part: Rbc_jsn_ImportSet On : Form Accept : Yes: Call: MainFunction2A ; ; On : Form Accept : Yes: Display Collection : RecoMonthSelection On : Form Accept: Yes: Form Accept [Part: Rbc_jsn_ImportSet] Parts : Rbc_jsn_Import Title, Form SubTitle Parts : Rbc_jsn_Import Directory, Rbc_jsn_Import Details Vertical : Yes Border : thin Bottom [Part: Rbc_jsn_Import Title] Lines : Rbc_jsn_Import, Rbc_jsn_Import Info Space Bottom : 0.20 Border : thin Bottom [Part : Rbc_jsn_Import Directory] Line : Rbc_jsn_Import Directory [Line: Rbc_jsn_Import] Fields : Form Sub Title Local : Field : Form Sub Title : Info : $$LocaleString:"RBC JSon file Importing" [Line: Rbc_jsn_Import Info] Field : Simple Field Local : Field : Simple Field : Info : $$LocaleString:"(Only Zip/JSon (.zip and .json) Format is Supported)" Local : Field : Simple Field : Full Width : Yes Local : Field : Simple Field : Align : Centre [Part: Rbc_jsn_Import Details] Lines : Rbc_jsn_Import FileName Repeat : Rbc_jsn_Import FileName : JSonPathFileName Break On : $$IsEnd:$jsonFileName Or $$IsEndOfList:$jsonFileName Space Bottom : 0.10 Space Bottom : 0.20 Scroll : Vertical [Line: Rbc_jsn_Import Directory] Field : Long Prompt, Rbc_jsn_Import Directory Local : Field : Long Prompt : Info : $$LocaleString:"Import Directory :" Local : Field : Long Prompt : Alignment: Left Local : Field : Long Prompt : Width : 30 Space Bottom : 0.20 [Line: Rbc_jsn_Import FileName] Field : Rbc_jsn_Import Prompt, Rbc_jsn_Import FileName, Rbc_jsn_ImportPathFileName Space Bottom : 0.20 [Field : Rbc_jsn_Import Prompt] Use : Long Prompt Set As : $$LocaleString:"Import File "+$$String:$$Line +" (.zip, .json) :" Alignment: Left Width : 30 [Field: Rbc_jsn_Import Directory] Use : Name Field Width : @@MaxNameWidth Set as : ##Rbc_jsn_Path;##RbcVTopUpExcelPath Full Width : Yes Style : Normal Set Always : Yes Storage : u_RMP_Directory Modifies : Rbc_jsn_Path ;Variable : RbcVTopUpExcelPath Validate : NOT $$IsEmpty:$$Value [Field: RBC Medium Prompt] Use : Name Field Set as : "" Width : @@NarrWidth Full Width : Yes Style : Normal [Field: Rbc_jsn_Import FileName] Use : Name Field Width : @@MaxNameWidth Full Width : Yes Modifies : Rbc_jsn_File Storage : JSonFileName Style : Normal Set Always : Yes Table : RbcJSonList of Files, EndOfList Show Table : On Blank Common Table : No Unique : Yes Validate : NOT $$IsEmpty:$$Value On : Accept : (NOT $$IsEndOfList:$$Value ) : Set:Rbc_jsn_PathFile:##Rbc_jsn_Path+"\"+$$Value On : Accept: (NOT $$IsEndOfList:$$Value ): Field Accept [Field: Rbc_jsn_ImportPathFileName] Use : Name Field Set as : ##Rbc_jsn_Path+"\"+#Rbc_jsn_ImportFileName Skip : Yes Storage : JSonPathFileName Invisible : Yes Set Always : Yes [Collection: RbcJSonList of Files] Title : "List of Files : " + ##Rbc_jsn_Path Source Collection : RbcJSon Files Src Compute : Name : $Name Compute : FileDate : $LastModifiedDate Compute : FileSize : $FileSize Compute : IsDirectory : $IsDirectory Format : $Name, 30 Format : $FileDate, 15 Format : $FileSize, 8 Format : @@FileType Sub Title : "File Name", "System Date", "Size", "Type" Full Height : Yes Filter : RBC_JSonAvailableFormatFilter Unique : $Name, $JSonFileName Client Only : Yes [Collection:RbcJSon Files Src] Data Source : Directory : ##Rbc_jsn_Path Filter : RBC_JSonOnlyFilesFilter Filter : RBC_JSonSelectedFormats Client Only : Yes Keep Source: Yes [Function: RbcJSonSupportedFiles] Parameter : InFileName : String 0010 : Do If : ##InFileName ENDING WITH "zip" OR ##InFileName ENDING WITH "json": Return : Yes [System: Formula] RBC_JSonOnlyFilesFilter : NOT $IsDirectory RBC_JSonSelectedFormats : ($Name ENDING WITH "zip" OR $Name ENDING WITH "json") RBC_JSonAvailableFormatFilter : If ($Name Containing "~$") Then No Else If ##AutoBRSSFileType = "JSon" + Then (##IsJSonFormatSupported AND ($Name ENDING WITH "zip" OR $Name ENDING WITH "json")) Else + Yes ;-------------------------------------------------------------------------------------------------------------- [System : Variables] svctin : "" svCtinChanged : No [Variable : svCtin] Type : String Set Always : Yes [Variable : svCtinChanged] Type : Logical Set Always : Yes [Button: Jsonfilepath] Title: Upload JSON Key: Alt+J Action : Alter: Jenny_jsn_Options ;------------------------------------------------------------------------------------------------------------------------------------------ [Collection : GSTR2A] Data Source : File JSON: ##SvCurrentJsonFile JSON Object :rootObject Fetch : *.* Client Only:Yes ;Object : rootObject [Object : rootObject] Storage : gstin : String Storage : fp : String Collection : b2b : b2bObject Collection : cdn : cdnObject [Object : b2bObject] Storage : ctin : String Storage : cfs : String Storage : cname : String Collection : inv : invObject [Object : cdnObject] Storage : ctin : String Storage : cfs : String Storage : cname : String Collection : nt : ntObject [Object : invObject] Storage : val : Number Storage : inv_typ : String Storage : pos : Number Storage : idt : String Storage : rchrg : String Storage : inum : String Storage : chksum : String Collection : itms : itmsObject [Object : ntObject] Storage : val : Number Storage : ntty : String Storage : nt_dt : String Storage : idt : String Storage : nt_num : String Storage : inum : String Storage : chksum : String Collection : itms : itmsObject [Object : itmsObject] Storage : num : Number Collection : itm_det : itm_detObject [Object: itm_detObject] Storage : samt : Amount Storage : rt : Number Storage : txval: Amount Storage : camt : Amount Storage : csamt : Amount ;-------------------------------------------------------------------------------------------------------------------- [Object : Lv2A] [Object : Lvb2b] [Object : Lvcdn] [Object : LvInvoices] [Object : LvNotes] [Object : LvItems] [Collection : TuAPortalDataSrc] Data Source : Variable: Lv2A Fetch : lv2aCmpCTIN, lv2aFinYear,lv2aFinMnth Fetch : Lvb2b.*,Lvb2b.LvInvoices.*, Lvb2b.Invoices.LvItems.*, Lvcdn.* , Lvcdn.LvNotes.*, Lvcdn.LvNotes.LvItems.* [Collection : TuAPortalDataColl] Source Collection : TuAPortalDataSrc Fetch : *.* Fetch : lv2aCmpCTIN, lv2aFinYear,lv2aFinMnth Filter : FltMonthFilter [System : Formulae] FltMonthFilter : $lv2aFinMnth = ##SvSelectedRecoMonth [Collection : TuPotalRecoMonth] Title : "Reco Month" Source Collection : TuAPortalDataSrc Fetch : lv2aCmpCTIN, lv2aFinYear,lv2aFinMnth Compute : Name : $lv2aFinMnth Format : $Name, 15 [Variable : SvSelectedRecoMonth] Type : String Persistent : No Volatile : Yes [Collection: RecoMonthSelection] Source Collection : TuPotalRecoMonth Trigger : RecoMonthSelection Variable : SvSelectedRecoMonth Report : User Report FullHeight : Yes Format : $Name, 15 Fetch : Name [Report: RecoMonthSelection] Form: RecoMonthSelection Title : $$LocaleString:"Select Reconciliation Period" [Form: RecoMonthSelection] Part : RecoMonthSelection Space Left : 1 Space Right : 1 Vertical Align : Top ; No Confirm : Yes ;On : Form Accept : Yes: Display :User Report On : Form Accept : Yes: Form Accept Local : Field : RecoMonth : Modifies: SvSelectedRecoMonth [Part: RecoMonthSelection] Line : RecoMonthTL ,RecoMonth [Line: RecoMonthTL] Field : Name Field Local : Field : Name Field : Info : "Month" Local : Field : Name Field : Align : Center [Line: RecoMonth] Space Top : .50 Field : RecoMonth [Field: RecoMonth] Use : Name Field Modifies : SvSelectedRecoMonth Table : TuPotalRecoMonth Show Table : Always Align : Center ;---------------------------------------------------------------------------------------------------------------------------------------- [System : Variables] List Variable : Lv2A SvCurrentJsonFile : "" SvSelectedRecoMonth : "" [Variable : SvCurrentJsonFile] Type : String Set Always : Yes [Variable : Lv2A] Variable : TableName : String Variable : lv2aCmpCTIN : String Variable : lv2aFinYear : String Variable : lv2aFinMnth : String List Variable : Lvb2b List Variable : Lvcdn [Variable :Lvb2b] Variable : lvb2bcTin : String Variable : lvb2bcName : String Variable : lvb2bcfStatus : Logical List Variable : LvInvoices [Variable :Lvcdn] Variable : lvcdncTin : String Variable : lvcdncName : String Variable : lvcdncfStatus : Logical List Variable : LvNotes [Variable : LvInvoices] Variable : lvInvCount : Number Variable : lvb2bType : String Variable : lvb2bPOS : String Variable : lvb2bIsRev : Logical Variable : lvb2bINum : String Variable : lvb2bIDate : Date Variable : lvb2bVal : Amount List Variable : LvItems [Variable : LvNotes] Variable : lvInvCount : Number Variable : lvcdnType : String Variable : lvcdnPOS : String Variable : lvcdnIsRev : Logical Variable : lvcdnINum : String Variable : lvcdnIDate : Date Variable : lvcdnntNum : String Variable : lvcdnntDate : Date Variable : lvcdnVal : Amount List Variable : LvItems [Variable : LvItems] Variable : lvItmRate : Number Variable : lvItmtxVal : Amount Variable : lvItmSGST : Amount Variable : lvItmCGST : Amount Variable : lvItmIGST : Amount Variable : lvItmCESS : Amount Variable : lvItmVal : Amount ;-------------------------------------------------------------------------------------------------------------------------------- [Collection : GSTR2A_PartySummary ] Source Collection : TuAPortalDataColl Fetch : .* Walk : Lvb2b By : ctin :$$String:$lvb2bctin Compute : cfs :$lvb2bcfstatus Compute : cname :$lvb2bcName Walk : LvInvoices Compute Var : cvinvcnt :Number : $$NumItems Aggr Compute :val : Sum :$lvb2bVal Walk : LvItems Aggr Compute : invcnt : Sum: ##cvinvcnt Aggr Compute :txval : Sum :$lvItmTxval Aggr Compute :iamt : Sum :$lvItmIGST Aggr Compute :camt : Sum :$lvItmCGST Aggr Compute :samt : Sum :$lvItmSGST Aggr Compute :csamt : Sum :$lvItmCESS [Collection : GSTR2A_PartyBills] Source Collection: TuAPortalDataColl Walk : Lvb2b By : ctin :$$String:$lvb2bctin Walk : LvInvoices By : inum : $$String:$lvb2bInum Compute : idt : $$Date:$lvb2bIdDate Walk : LvItems ;By : inum : $lvb2bInum ;Compute : cname : $lvb2bcName Compute : idt : $$Date:$lvb2bIDate Compute : rt : $b2bItmRate ; use By if you want to show rate wise details also. Aggr Compute :val : Sum :$lvItmVal Aggr Compute :txval : Sum :$lvItmTxval Aggr Compute :iamt : Sum :$lvItmIGST Aggr Compute :camt : Sum :$lvItmCGST Aggr Compute :samt : Sum :$lvItmSGST Aggr Compute :iamt : Sum :$lvItmCESS Filter : cvgstinFilter [System : Variables] sv2ARecoPartyName : "" ;-------------------------------------------------------------------------------------------------------------------------------- [Function : MainFunction2A] Variable : v2aIdx : Number Variable : vb2bIdx : Number Variable : vcdnIdx : Number Variable : vInvIdx : Number Variable : vntIdx : Number Variable : vitmIdx : Number 0050 : List Delete Ex : Lv2A 0060 : Set : v2aIdx : 1 0100 : Walk Collection : JSonPathFileName; JSonFilePathColl 0200 : Set : SvCurrentJsonFile : $jsonPathFileName 0250 : Log : ##SvCurrentJsonFile 0300 : Do If : NOT ($$isEmpty:##SvCurrentJsonFile) : Call : GetDatafrom2APortal 0900 : End Walk ;1000 : Display Collection : RecoMonthSelection [Function : GetDatafrom2APortal] 0070 : Walk Collection : GSTR2A 0080 : List Add Ex : Lv2A 0100 : Set : Lv2A[##v2aIdx].lv2aCmpCTIN : $gstin 0110 : Set : Lv2A[##v2aIdx].lv2aFinYear : $$StringPart:$fp:2:4 0120 : Set : Lv2A[##v2aIdx].lv2aFinMnth : $fp 0145 : Do If : ($$NumItems:b2b > 0) : Call :set2Ab2bValues 0150 : Do If : ($$NumItems:cdn > 0) : Call :set2AcdnValues 0200 : Increment :v2aIdx 0300 : End Walk ; GSTR2A 0400 : Return [Function : set2Ab2bValues] 0050 : Set : vb2bIdx : 1 0055 : Set : Lv2A[##v2aIdx].TableName :"b2b" 0060 : Walk : b2b 0070 : List Add Ex : Lv2A[##v2aIdx].Lvb2b 0150 : Set : Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].lvb2bcTin : $ctin 0160 : Set : Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].lvb2bcName : $cname 0170 : Set : Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].lvb2bcfStatus: if $cfs = "Y" then Yes else if $cfs ="N" then No else No ;0180 : Log:$ctin 0190 : Set : vInvIdx : 1 0210 : Walk : inv 0215 : List Add Ex : Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].LvInvoices 0218 : Set : Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].LvInvoices[##vInvIdx].lvb2bType :$inv_typ 0220 : Set : Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].LvInvoices[##vInvIdx].lvInvCount :$$NumItems:itms 0230 : Set : Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].LvInvoices[##vInvIdx].lvb2bPOS :$pos 0240 : Set : Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].LvInvoices[##vInvIdx].lvb2bIsRev :if $rchrg = "Y" then Yes else if $rchrg ="N" then No else No 0250 : Set : Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].LvInvoices[##vInvIdx].lvb2bINum :$inum 0260 : Set : Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].LvInvoices[##vInvIdx].lvb2bIDate :$idt 0270 : Set : Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].LvInvoices[##vInvIdx].lvb2bVal :$$AsAmount:$Val ;0275 : Log:$$NumItems:itms 0280 : Set : vitmIdx : 1 0285 : Walk : itms ;0290 : Walk : itm_det 0295 : List Add Ex : Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].LvInvoices[##vInvIdx].LvItems 0300 : Set :Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].LvInvoices[##vInvIdx].LvItems[##vitmIdx].lvitmRate :$$Number:$itm_det[1].rt 0310 : Set :Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].LvInvoices[##vInvIdx].LvItems[##vitmIdx].lvitmTxVal :$$AsAmount:$itm_det[1].txval 0320 : Set :Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].LvInvoices[##vInvIdx].LvItems[##vitmIdx].lvitmSGST :$$AsAmount:$itm_det[1].samt 0330 : Set :Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].LvInvoices[##vInvIdx].LvItems[##vitmIdx].lvitmCGST :$$AsAmount:$itm_det[1].camt 0340 : Set :Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].LvInvoices[##vInvIdx].LvItems[##vitmIdx].lvitmIGST :$$AsAmount:$itm_det[1].iamt 0350 : Set :Lv2A[##v2aIdx].Lvb2b[##vb2bIdx].LvInvoices[##vInvIdx].LvItems[##vitmIdx].lvitmCESS :$$AsAmount:$itm_det[1].csamt ; 0360 : Log:$$String:##v2aIdx+ " "+$$String:##vb2bIdx+ " "+$$String:##vInvIdx +" "+$$String:##vitmIdx 0370 : Increment : vitmIdx ;0400 : End Walk ; itm_det 0610 : End Walk ;itms 0620 : Increment : vInvIdx 0650 : End Walk ; inv 0680 : Increment :vb2bIdx 0700 : End Walk ; b2b [Function : set2AcdnValues] 0050 : Set : vcdnIdx : 1 0055 : Set : Lv2A[##v2aIdx].TableName :"cdn" 0060 : Walk : cdn 0070 : List Add Ex : Lv2A[##v2aIdx].Lvcdn 0150 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].lvcdncTin : $ctin 0160 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].lvcdncName : $cname 0170 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].lvcdncfStatus : if $cfs = "Y" then Yes else if $cfs ="N" then No else No 0190 : Set : vntIdx : 1 0210 : Walk : nt 0215 : List Add Ex : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].LvNotes 0218 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].LvNotes[##vntIdx].lvInvCount : $$NumItems:itms 0220 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].LvNotes[##vntIdx].lvcdnType : $ntty 0230 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].LvNotes[##vntIdx].lvcdnPOS : "" 0240 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].LvNotes[##vntIdx].lvcdnIsRev : No 0250 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].LvNotes[##vntIdx].lvcdnINum : $inum 0255 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].LvNotes[##vntIdx].lvcdnntNum : $nt_num 0260 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].LvNotes[##vntIdx].lvcdnIDate : $idt 0265 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].LvNotes[##vntIdx].lvcdnntDate : $nt_dt 0270 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].LvNotes[##vntIdx].lvcdnVal : $$AsAmount:$Val 0275 : Log:$$String:$$LoopIndex + $$String:" -Invoice No " + $$String:$inum 0285 : Set : vitmIdx : 1 0290 : Walk : itms ; 0290 : Walk : itm_det 0295 : List Add Ex : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].LvNotes[##vntIdx].LvItems 0300 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].LvNotes[##vntIdx].LvItems[##vitmIdx].lvitmRate :$$Number:$itm_det[1].rt 0310 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].LvNotes[##vntIdx].LvItems[##vitmIdx].lvitmtxVal :$$AsAmount:$itm_det[1].txval 0320 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].LvNotes[##vntIdx].LvItems[##vitmIdx].lvitmSGST :$$AsAmount:$itm_det[1].samt 0330 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].LvNotes[##vntIdx].LvItems[##vitmIdx].lvitmCGST :$$AsAmount:$itm_det[1].camt 0340 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].LvNotes[##vntIdx].LvItems[##vitmIdx].lvitmIGST :$$AsAmount:$itm_det[1].iamt 0350 : Set : Lv2A[##v2aIdx].Lvcdn[##vcdnIdx].LvNotes[##vntIdx].LvItems[##vitmIdx].lvitmCESS :$$AsAmount:$itm_det[1].csamt 0360 : Increment : vitmIdx ;0400 : End walk ; itm_det 0610 : End Walk ;itms 0640 : Increment : vntIdx 0650 : End Walk ; inv 0680 : Increment :vcdnIdx 0700 : End Walk ; b2b ;------------------------------------------------------------------------------------------------------------------------------- [Report : User Report] ; Use : DSP Template Title : "GSTR - DETAILS" Form : User Report Set : vjennyAllfilter : "" Set : svCtinChanged : No [Form:User Report] ; Use : DSP Template Parts : Rbc_Gstr2_Top, Jenny_InvPart Height : 100% screen Width : 100% screen Local : Field : FormSubTitle : Set As : $$LocaleString:"GSTR - DETAILS" Local : Field : Form SubTitle : Color : Dark Red Local: Field:Form SubTitle : Style : Large SerIf Bold Add: Button: Jsonfilepath,jennyAllfilter [Part: Rbc_Gstr2_Top] Line : FormSubTitle, Rbc_Party_TopTitle, Rbc_Party_TopRep Local : Field: FormSubTitle : Set as: "GSTR-2 Portal Details- For the Period: " +$$String:##SvSelectedRecoMonth Repeat: Rbc_Party_TopRep: GSTR2A_PartySummary Bottom Line : Rbc_Party_TopRepTotal Scroll : Vertical Height : 40 % Screen Local : Line: Default : Border: thin bottom Local : Line: Default : Height : 1.2 Totals : Rbc_St_taxval, Rbc_St_Igst, Rbc_St_Cgst, Rbc_St_Sgst,Rbc_St_invAmount [Line: Rbc_Party_TopTitle] Field : Rbc_S_SrNo, Rbc_S_Gstin,Rbc_S_PartyName, Rbc_St_invno Right Field : Rbc_St_invAmount, Rbc_St_taxval, Rbc_St_Cgst, Rbc_St_Sgst, Rbc_St_Igst, Right Field : Rbc_Cfsstat Local: Field : Defalt : Type : string Local: Field : Defalt : Skip : Yes Local: Field : Default : Style: Small Bold Local: Field : Default : Align: Centre ; Local: Field : Default :Color: Maroon ;DarkBlue16Bit Local: Field : Rbc_S_SrNo : Info : "SNo" Local: Field : Rbc_S_Gstin : Set as: "Party GSTIN" Local: Field : Rbc_S_Gstin : Alignment : Left Local: Field : Rbc_S_PartyName : Set as: "Party Name" Local: Field : Rbc_St_invno : Info: "No. of Bills" Local: Field : Rbc_St_taxval : Info : "Taxable Value" Local: Field : Rbc_St_Igst : Info : "IGST" Local: Field : Rbc_St_Cgst : Info : "CGST" Local: Field : Rbc_St_Sgst : Info : "SGST" Local: Field : Rbc_St_invAmount : Info : "Total Inv Amount" Local: Field : Rbc_Cfsstat : Info : "Submitted Status" Local: Field : Default : Border : thin left Right Border : Column Titles Height : 1.5 Local : Field : Default :Color:DarkBlue16Bit; Maroon [Line: Rbc_Party_TopRep] Field : Rbc_S_Srno, Rbc_S_Gstin,Rbc_S_PartyName, Rbc_St_invno, Right Field : Rbc_St_invAmount, Rbc_St_taxval, Rbc_St_Cgst, Rbc_St_Sgst, Rbc_St_Igst, Right Field : Rbc_Cfsstat Key : RbcSetCtin ;, RbcSetParty ;, Rbc_Fim_lLedAlter AlterOnEnter Local : Field : Default : Style: Tiny Bold Local : Field : Default : Align: Right Local : Field : Rbc_S_PartyName: Alignment:Left Local : Field : Rbc_S_Gstin : Align: Centre Local : Field : Rbc_St_invno : Align: Center Local : Field : Rbc_Cfsstat : Align: Center Local : Field : Default :Color:DarkBlue16Bit; Maroon ; ;Explode: TSPLItemJSonExp Local : Field : Default : Border: thin right On : Focus : Yes : Trigger Key: Enter Height : 1.2 [Line: Rbc_Party_TopRepTotal] Use : Rbc_Party_TopRep ; Local: Field : Defalt : Type : string ; Local: Field : Defalt : Skip : Yes Local: Field : Default : Style: Small Bold Local: Field : Default : Align: Right ; Local: Field : Default :Color: Maroon ;DarkBlue16Bit Local: Field : Rbc_S_SrNo : Info : "Total" Local: Field : Rbc_S_SrNo : Delete : Border Local: Field : Rbc_S_Gstin : Set as: "" Local: Field : Rbc_S_Gstin : Delete : Border Local: Field : Rbc_S_PartyName : Set as: "" Local: Field : Rbc_S_PartyName : Delete : Border Local: Field : Rbc_St_invno : Info: "" Local: Field : Rbc_St_invno : Delete : Border Local: Field : Rbc_St_taxval : Set As: $$Total:Rbc_St_taxval Local: Field : Rbc_St_Igst : Set As: $$Total:Rbc_St_Igst Local: Field : Rbc_St_Cgst : Set As: $$Total:Rbc_St_Cgst Local: Field : Rbc_St_Sgst : Set As: $$Total:Rbc_St_Sgst Local: Field : Rbc_St_invAmount : Set As: $$Total:Rbc_St_invAmount Local: Field : Rbc_Cfsstat : Info : "" Local: Field : Rbc_Cfsstat :Delete : Border Local: Field : Default : Border : thin left Right Border : Thin top Bottom Height : 1.5 Local : Field : Default :Color:DarkBlue16Bit; Maroon [Key: RbcSetCtin] Key : Enter Action : Call: rbc_setctin Inactive: (NOT $$InDisplayMode ) [Function : rbc_setctin] 100 : Set : svctin : $ctin 150 : Set : sv2ARecoPartyName :$$CollectionFieldByKey:$Name:##svCtin:RBC_PartyGstnWise ; 200 : Set : svCtinChanged : Yes [Field : Rbc_S_SrNo] Use : Number Field Set as : $$Line Width : 6 Style : Normal Align : Center [Field: Rbc_S_Gstin] Use: Name field Set as: $$String:$ctin Set Always: Yes Alignment : right Width :20 [Field : Rbc_S_PartyName] Use : Name field Set as: If $$IsEmpty:$cName then $$CollectionFieldByKey:$Name:$ctin:RBC_PartyGstnWise else $$String:$cname Set Always: Yes Full Width : Yes Alignment : Left [Field: Rbc_St_invno] Use: Number Field set as: $$String:$invcnt Width : 8 [Field: Rbc_St_taxval] Use: Amount Field Set as:$$AsAmount:$txval Set Always : yes Width:10 [Field: Rbc_St_Igst] Use: Amount Field Set as : $$AsAmount:$Iamt Set Always : yes Width:10 [Field: Rbc_St_Cgst] Use: Amount Field Set as: $$AsAmount:$Camt Set Always : yes Width:10 [Field: Rbc_St_Sgst] Use : Amount Field Set as : $$AsAmount:$samt Set Always : yes Width:10 [Field: Rbc_St_invAmount] Use: Amount Field Set as : $$AsAmount:$Val ; $txVal+$Iamt+$Camt+$Samt Align:Right Width:10 [Field: Rbc_Cfsstat] Use : Name Field Set as: $$String:$cfs Width : 10 [Part:Jenny_InvPart] Left Part : jnyJsonDataPart Right Part : jnyTallyDataPart Border : thin Box Common Border : Yes Vertical : No Common Border :No [Part : JennyTitlePart] Line :FormSubTitle ,Rbc_PartyNameLine, User Report Titles Local : Field : FormSubTitle : Info : $$LocaleString:"Json Bill Wise Details" Local : Field : Form SubTitle : Color : Dark Red Local : Field:Form SubTitle : Style : Large SerIf Bold Local : Line: Default : Border: thin bottom Local : Line: Default : Height : 1.2 Border : thin Box [Line :Rbc_PartyNameLine] Field : Medium Prompt, PartyInvoiceName Local : Field : Medium Prompt : Set as: "Party Name:" Local : Field : Default :Align: Left Local : Field : Default : Style: Small Bold Local : Field : Default :Color:DarkBlue16Bit; Maroon Local : Field : Default :Color:DarkBlue16Bit; Maroon [Part : jnyJsonDataPart] Top Part : JennyTitlePart Bottom Part :jnyJsonBillPart Vertical : Yes [Part : jnyJsonBillPart] Line : User Report Data Repeat : User Report Data:GSTR2A_PartyBills BottomLines : JennyTotal Scroll : Vertical Total : PartySNo,PartyInvoiceTotal,PartyInvoiceNetAmt,PartySGSTAmt,PartyCGSTAmt,PartyIGSTAmt,PartyCESSAmt Local : Line: Default : Border: thin bottom Local : Line: Default : Height : 1.2 Border : thin Box Common Border : Yes [Part : jnyTallyDataPart] Top Part : JennyTitlePart Bottom Part : jnyTallyBillPart Vertical : Yes Local : Part: JennyTitlePart :Local : Field : FormSubTitle : Info : $$LocaleString:"Tally Bill Wise Details" [Part : jnyTallyBillPart] Line : User Report Data Repeat : User Report Data:Tally2A_PartyBills BottomLines : JennyTotal Scroll : Vertical Total : PartySNo,PartyInvoiceTotal,PartyInvoiceNetAmt,PartySGSTAmt,PartyCGSTAmt,PartyIGSTAmt,PartyCESSAmt Local : Line: Default : Border: thin bottom Local : Line: Default : Height : 1.2 Border : thin Box Common Border : Yes [Line:User Report Titles] Use : User Report Data Left Fields:PartySNo,PartyInvDate,PartyInvoiceNo ;PartyInvoiceName ;PartyGSTINNo, Right Fields:, PartyRateofTax, PartyInvoiceTotal,PartyInvoiceNetAmt,PartySGSTAmt,PartyCGSTAmt,PartyIGSTAmt,PartyCESSAmt Local: Field : Defalt : Type : string Local: Field : Defalt : Skip : Yes Local: Field : Default : Style: Small Bold Local: Field : Default : Border : thin left right Local:Field:PartySNo:Info:"S.No." Local:Field:PartyInvDate:Info:"Date" ; Local:Field:PartyGSTINNo:Set as:"GSTN" Local:Field:PartyInvoiceNo:Set as:"Inoice No" Local:Field:PartyInvoiceName:Set as:"Party Name" Local:Field:PartyRateofTax:Info:"Rate %" Local:Field:PartyInvoiceTotal:Info:"Total" Local:Field:PartyInvoiceNetAmt:Info:"Taxable Amount" Local:Field:PartySGSTAmt:Info:"SGST" Local:Field:PartyCGSTAmt:Info:"CGST" Local:Field:PartyIGSTAmt:Info:"IGST" Local:Field:PartyCESSAmt:Info:"CESS" Border : Column Titles Height : 1.5 Space Bottom : 0 [Line:User Report Data] Local: Field : Default : Border : thin left right Left Fields :PartySNo,PartyInvDate,PartyInvoiceNo ;,PartyInvoiceName; PartyGSTINNo, Right Fields:PartyRateofTax, PartyInvoiceTotal,PartyInvoiceNetAmt,PartySGSTAmt,PartyCGSTAmt,PartyIGSTAmt,PartyCESSAmt Local : Field : Default : Style: Tiny bold Local : Field : Default :Color:DarkBlue16Bit; Maroon ; Border: thin bottom [Field:PartySNo] Set as:$$Line Width:5 Align: Right [Field:PartyInvDate] Use : Short Date Field Set as :$$Date:$idt Width :10 Align : Right [Field:PartyGSTINNo] Set as:$ctin Width:15 Align: Right [Field:PartyInvoiceNo] Set as:$inum Width:10 Align: Centre [Field:PartyInvoiceName] Use : Name Field Set as: ##sv2arecoPartyName ; $$CollectionFieldByKey:$Name:##svctin:RBC_PartyGstnWise Alignment: Left Case : Upper Case [Field : PartyRateofTax] Use : Number Field Set as :$$Number:$rt ;Format :"Percent" Alignment : Center [Field:PartyInvoiceTotal] Use : Amount Field Set as:$$AsAmount:$val Width:10 Alignment : Right [Field:PartyInvoiceNetAmt] Use : Amount Field Set as:$$AsAmount:$txval Width:10 Alignment : Right [Field:PartySGSTAmt] Use : Amount Field Set as:$$AsAmount:$samt Width:10 Alignment : Right [Field:PartyCGSTAmt] Use : Amount Field Set as:$$AsAmount:$camt Width:10 Alignment : Right [Field:PartyIGSTAmt] Use : Amount Field Set as:$$AsAmount:$iamt Width:10 Alignment : Right [Field:PartyCESSAmt] Use : Amount Field Set as:$$AsAmount:$csamt Width:10 Alignment : Right [Line: JennyTotal] Use : User Report Data Local : Field : Default : Type : String Local : Field : Default : Style : Tiny Bold Local : Field : Default : Align : Centre Local : Field : PartySNo : Set as: "Total" Local : Field : PartySNo :Delete : Border Local : Field : PartyInvDate : Set as: "" Local : Field : PartyGSTINNo : Set as: "" Local : Field : PartyInvoiceNo : Set as: "" ;Local : Field : PartyInvoiceName: Set as: "" Local : Field : PartyRateOfTax : Set as: "" Local : Field : PartyInvDate : Delete : Border Local : Field : PartyGSTINNo : Delete : Border Local : Field : PartyInvoiceNo : Delete : Border Local : Field : PartyInvoiceName: Delete : Border Local : Field : PartyRateOfTax : Delete : Border Local : Field : PartyInvoiceTotal: Set as: $$Total:PartyInvoiceTotal Local : Field : PartyInvoiceNetAmt: Set as: $$Total:PartyInvoiceNetAmt Local : Field : PartySGSTAmt : Set as: $$Total:PartySGSTAmt Local : Field : PartyCGSTAmt : Set as: $$Total:PartyCGSTAmt Local : Field : PartyIGSTAmt : Set as: $$Total:PartyIGSTAmt Local : Field : PartyCESSAmt : Set as: $$Total:PartyCESSAmt Border : Thin top Bottom Local: Field : Default : Border : thin left right ;;;;;;;;;;;;;;;;;;;;;;;;;;FILTER START;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [Button:jennyAllfilter] Key : Alt+F Action : Alter: jennyAllfilter Title : Filter [Report:jennyAllfilter] Form : jennyAllfilter [Form:jennyAllfilter] Part : jennyAllfilter No Confirmation : Yes [Part:jennyAllfilter] Line : jennyAllfilter [Line:jennyAllfilter] Field : Medium Prompt,jennyAllfilter Option : alter on enter Local : Field : Medium Prompt : Set as : "Filter : " Local : Field : Medium Prompt : Color :Blue Local : Field : Medium Prompt : Style :Normal Bold [Field:jennyAllfilter] Use : Name Field Width : 30 Border : Thin Box Variable : vjennyAllfilter Modifies : vjennyAllfilter [System: Formulae] jennyAllfilter : $ctin = ##vjennyAllfilter Or $inum = ##vjennyAllfilter Or $$IsSysName:##vjennyAllfilter [Variable:vjennyAllfilter] Type : String [System:Variable] vjennyAllfilter : "" [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 [System : Formulae] RBCnonEmptyGstin : Not $$Isempty:$PartyGSTIN ; To reduce the search ;---------------------------------------------------------------------------- [Variable :sv2ARecoPartyName] Type : String Set Always : Yes ;Collections ;------------------------------------------------------------------------------ [Collection : Tally2A VchSource] Type : Vouchers : Ledger Child Of: ##sv2ARecoPartyName Fetch : Date, voucherTypeName, PartyLedgerName, PartyGSTIN, VoucherNumber, Amount Fetch : LedgerEntries.* [Collection : Tally2A_PartyBills] Source Collection: Tally2A VchSource By : ctin : if $$IsEmpty:$PartyGSTIN then $(Ledger, ##sv2ARecoPartyName).PartyGstin else $PartyGSTIN Compute : cname :##sv2ARecoPartyName Compute : val : $Amount By : inum : if $$IsEmpty:$Reference then $PARTYINVNO else $Reference Compute : idt : if $$IsEmpty:$ReferenceDate then $PARTYINVDATE else $ReferenceDate Walk : LedgerEntries Compute : rt : if (@@IsGSTDutyLed)then $BasicRateOfInvoiceTax else 0 ; use By if you want to show rate wise details also. Aggr Compute :txval : Sum :if @@IsGSTPurcLedger then $Amount else 0 ; Condition for purchase ledger not yet appllied yet Aggr Compute :iamt : Sum :if @@IsIGSTDutyTaxLed then $Amount else 0 Aggr Compute :camt : Sum :if @@IsCGSTDutyTaxLed then $Amount else 0 Aggr Compute :samt : Sum :if @@IsSGSTDutyTaxLed then $amount else 0 Is ODBC Table : Yes ;Filter : cvgstinFilter [System : Formulae] cvgstinFilter : $ctin = ##svctin
Sir, i have load json but while opening reconciliation menu it showing nothing other than month heading
please help me with this... i have load json but while opening reconciliation menu it showing nothing other than month heading
