GSTR2 Viewer with Party Summary and Bills

Discussion in 'Free Source Codes' started by Devendra_Rawat, Feb 17, 2020.

    
  1. Devendra_Rawat

    Devendra_Rawat Well-Known Member


    @Jenny @sattam

    Json GSTR2 View
    Code tries to get party name from tally ledger master, if GSTN matches.

    Filters not looked upon, users can set them right



    Jenny.jpg
    Code:
    [#Menu        : Import Indirect]
        Add    : Key Item    :  After : @@LocBanking    :  "JSon Viewer    "    : T : alter    : Rbc_Jsn_Options :  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
          
    [Report: Rbc_jsn_Options]
      
        Form        : Rbc_jsn_Options
        Full Screen    : Yes
    
    [Form: Rbc_jsn_Options]
        No Confirm      : No
        Space Top       : 1
        Space Left      : 1
        Space Right     : 1
        Space Bottom    : 1
    
        Height        : 30% Page
        Width        : 60% 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:  Display : User Report
        On    : Form Accept: Yes: Form Accept
      
    [Function    : LogjSonfileName]
      
        10        : Log: ##Rbc_jsn_PathFile
    
    [Part: Rbc_jsn_ImportSet]
        Parts    : Rbc_jsn_Import Title, Form SubTitle
        Parts    : 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
    
        [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 Directory, Rbc_jsn_Import FileName
            Space Bottom    : 0.10
            Space Bottom    : 0.20
          
          
        [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 : 40
            Space Bottom    : 0.20
          
        [Line: Rbc_jsn_Import FileName]
            Field   : Long Prompt, Rbc_jsn_Import FileName
            Local   : Field : Long Prompt    : Info     : $$LocaleString:"Import File Name (.zip, .json) :"
            Local   : Field : Long Prompt : Alignment: Left
            Local   : Field : Long Prompt : Width : 40
            Space Bottom    : 0.20
            
          
        [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        : u_RMP_FileName  
            Style        : Normal
            Set Always    : Yes
            Table        : RbcJSonList of Files
            Show Table : On Blank
            Validate    : NOT $$IsEmpty:$$Value
      
            On    : Accept:  Yes  : Set:Rbc_jsn_PathFile:##Rbc_jsn_Path+"\"+$$Value
            On     : Accept:  Yes: Field Accept
          
    
          
      
    [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
                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
    
    
    [Collection    : GSTR2A]
        Data Source    : File JSON: ##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
        Storage    :    cfs        : String
        Storage    :    cname     : String
        Collection    : inv : invObject
      
                  
    [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    : 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        :  iamt : Amount
      
    ;--------------------------------------------------------------------------------------------------------------------------------
    [System    : Variables]
        svctin    : ""
        svCtinChanged : No
      
    [Variable    : svCtin]
        Type    : String
        Set Always    : Yes
      
    [Variable    : svCtinChanged]
        Type    : Logical
        Set Always    : Yes
    
    
    [Collection    : GSTR2A_PartySummary ]
        Source Collection: GSTR2A
      
        Walk :    b2b
        By        : ctin    :$ctin
        Compute    : cfs    :$cfs
        Compute    : cname :$cName
        Compute Var    : cvinvcnt : Number : $$NumItems
        ;Compute Var    : cvctin : Number : ##svctin
      
        Walk    : Inv
        ;Compute    : inum    : $inum
        ;Compute    : idt    : $idt  
        Walk    : itms, itm_det
      
        Aggr Compute : invcnt : Sum: ##cvinvcnt
        Aggr Compute :val      : Sum :$val
        Aggr Compute :txval : Sum :$txval
        Aggr Compute :iamt     : Sum :$iamt
        Aggr Compute :camt     : Sum :$camt
        Aggr Compute :samt    : Sum :$samt
        Aggr Compute :iamt    : Sum :$Iamt  
      
    
    [Collection    : GSTR2A_PartyBills]
      
        Source Collection: GSTR2A
      
        Walk :    b2b
        By        : ctin    :$ctin
        Compute    : cname :$cName
      
      
        Walk    : inv
        By        : inum    : $inum
      
        Compute    : idt    : $$Date:$idt  
          
        Walk    : itms, itm_det
        Compute    : rt    : $rt  ; use By if you want to show rate wise details also.
      
        Aggr Compute :val      : Sum :$val
        Aggr Compute :txval : Sum :$txval
        Aggr Compute :iamt     : Sum :$iamt
        Aggr Compute :camt     : Sum :$camt
        Aggr Compute :samt    : Sum :$samt
        Aggr Compute :iamt    : Sum :$Iamt  
      
        Filter        : cvgstinFilter
      
    
    [System    : Formulae]
        cvgstinFilter : $ctin = ##svctin
    
    [Button: Jsonfilepath]
        Title: Upload JSON
        Key: Alt+J
        Action : Alter: Jenny_jsn_Options
    
    [Report    :    User Report]
    ;    Use     : DSP Template
        Form    : User Report
        Title     : "GSTR - DETAILS"
        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 : Info : $$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"
        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     : RbcDisplayonEnter ;, Rbc_Fim_lLedAlter AlterOnEnter
            Local     : Field : Default : Style: Tiny Bold
            Local     : Field : Default : Align: Right
            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: RbcDisplayonEnter]
      
            Key     : Enter
            Action  :    Set        :  svCtin :    $ctin
            Inactive: (NOT $$InDisplayMode )
    
          
        [Function    : rbc_setctin]
              
            100    :    Set    : svctin :    $ctin
            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: $$String:$cName
                Set Always: Yes
                Full Width    : Yes
              
            [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]
        Part        : JennyTitlePart, JennyDataPart
        Vertical    : Yes
        Common Border    :No
      
    [Part : JennyTitlePart]
        Line        :    FormSubTitle , User Report Titles
        Local        : Field : FormSubTitle : Info : $$LocaleString:"Party 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
    
      
    [Part : JennyDataPart]
        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
      
    [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:$$FilterValue:$Name:Ledger:1:ctinFilter
      
        Alignment: Left
        Full Width    : Yes
    
    [System    : Formulae]
        ctinFilter : $PartyGSTIN =$$String:$ctin
      
    [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 : ""
    
    
    
     
    Last edited: Feb 17, 2020
    sandeep76out and Vashisth like this.


  2. Bipin Damania

    Bipin Damania Active Member


    Dear Devendraji

    I am getting error

    'Collection:b2b'

    Could not find description!

    Please reply
     


  3. Frz

    Frz Member


    Same error here
     


  4. Devendra_Rawat

    Devendra_Rawat Well-Known Member


    Unzip and extract GST2a json file first.

    Zip is not supported in this tdl
     


  5. sattam

    sattam Active Member


    not getting party name
     


  6. sattam

    sattam Active Member


    Dear Devendraji,
    how to get taxable value,cgst,sgst,igst,total inoice amt from tally voucher collection
     


  7. sattam

    sattam Active Member



  8. sattam

    sattam Active Member


    Dear Devendraji,
    how to get taxable value,cgst,sgst,igst,total inoice amt from tally voucher collection
     


  9. sattam

    sattam Active Member



  10. Devendra_Rawat

    Devendra_Rawat Well-Known Member


    Why are you looking for reconciliation when that feature is already there in Tally ? it is cumbersome procedure.. and take lot of time.

    anyway ..first decide the fields on which you would like to match invoices like, invoice No, date and taxable amount etc to get voucher detail.
     
    Vashisth likes this.


  11. Jenny

    Jenny Active Member


    How to gets partyname?..its not showing
     


  12. Devendra_Rawat

    Devendra_Rawat Well-Known Member


    Code update to remove bug in Party name; Kindly ensure GSTIN you have in json are existing in your tally ledger masters


    Code:
    [#Menu        : Import Indirect]
        Add    : Key Item    :  After : @@LocBanking    :  "JSon Viewer    "    : T : alter    : Rbc_Jsn_Options :  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
           
    [Report: Rbc_jsn_Options]
       
        Form        : Rbc_jsn_Options
        Full Screen    : Yes
    
    [Form: Rbc_jsn_Options]
        No Confirm      : No
        Space Top       : 1
        Space Left      : 1
        Space Right     : 1
        Space Bottom    : 1
        Height        : 30% Page
        Width        : 60% 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:  Display : User Report
        On    : Form Accept: Yes: Form Accept
       
    [Function    : LogjSonfileName]
       
        10        : Log: ##Rbc_jsn_PathFile
    
    [Part: Rbc_jsn_ImportSet]
        Parts    : Rbc_jsn_Import Title, Form SubTitle
        Parts    : 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
    
        [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 Directory, Rbc_jsn_Import FileName
            Space Bottom    : 0.10
            Space Bottom    : 0.20
           
           
        [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 : 40
            Space Bottom    : 0.20
           
         [Line: Rbc_jsn_Import FileName]
            Field   : Long Prompt, Rbc_jsn_Import FileName
            Local   : Field : Long Prompt    : Info     : $$LocaleString:"Import File Name (.zip, .json) :"
            Local   : Field : Long Prompt : Alignment: Left
            Local   : Field : Long Prompt : Width : 40
            Space Bottom    : 0.20
            
           
        [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        : u_RMP_FileName   
            Style        : Normal
            Set Always    : Yes
            Table        : RbcJSonList of Files
            Show Table : On Blank
            Validate    : NOT $$IsEmpty:$$Value
       
            On    : Accept:  Yes  : Set:Rbc_jsn_PathFile:##Rbc_jsn_Path+"\"+$$Value
            On     : Accept:  Yes: Field Accept
           
    
           
       
    [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
                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
    
    
    [Collection    : GSTR2A]
        Data Source    : File JSON: ##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
        Storage    :    cfs        : String
        Storage    :    cname     : String
        Collection    : inv : invObject
       
                   
    [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    : 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        :  iamt : Amount
      
    ;--------------------------------------------------------------------------------------------------------------------------------
    [System    : Variables]
        svctin    : ""
        svCtinChanged : No
       
    [Variable    : svCtin]
        Type    : String
        Set Always    : Yes
       
    [Variable    : svCtinChanged]
        Type    : Logical
        Set Always    : Yes
    
    
    [Collection    : GSTR2A_PartySummary ]
        Source Collection: GSTR2A
       
        Walk :    b2b
        By        : ctin    :$ctin
        Compute    : cfs    :$cfs
        Compute    : cname :$cName
        Compute Var    : cvinvcnt : Number : $$NumItems
        ;Compute Var    : cvctin : Number : ##svctin
       
        Walk    : Inv
        ;Compute    : inum    : $inum
        ;Compute    : idt    : $idt   
        Walk    : itms, itm_det
       
        Aggr Compute : invcnt : Sum: ##cvinvcnt
        Aggr Compute :val      : Sum :$val
        Aggr Compute :txval : Sum :$txval
        Aggr Compute :iamt     : Sum :$iamt
        Aggr Compute :camt     : Sum :$camt
        Aggr Compute :samt    : Sum :$samt
        Aggr Compute :iamt    : Sum :$Iamt   
       
    
    [Collection    : GSTR2A_PartyBills]
       
        Source Collection: GSTR2A
       
        Walk :    b2b
        By        : ctin    :$ctin
        Compute    : cname :$cName
       
       
        Walk    : inv
        By        : inum    : $inum
       
        Compute    : idt    : $$Date:$idt   
           
        Walk    : itms, itm_det
        Compute    : rt    : $rt  ; use By if you want to show rate wise details also.
       
        Aggr Compute :val      : Sum :$val
        Aggr Compute :txval : Sum :$txval
        Aggr Compute :iamt     : Sum :$iamt
        Aggr Compute :camt     : Sum :$camt
        Aggr Compute :samt    : Sum :$samt
        Aggr Compute :iamt    : Sum :$Iamt   
       
        Filter        : cvgstinFilter
       
    
    [System    : Formulae]
        cvgstinFilter : $ctin = ##svctin
    
    [Button: Jsonfilepath]
        Title: Upload JSON
        Key: Alt+J
        Action : Alter: Jenny_jsn_Options
    
    [Report    :    User Report]
    ;    Use     : DSP Template
        Form    : User Report
        Title     : "GSTR - DETAILS"
        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 : Info : $$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"
        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     : RbcDisplayonEnter ;, 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: RbcDisplayonEnter]
       
            Key     : Enter
            Action  :    Set        :  svCtin :    $ctin
            Inactive: (NOT $$InDisplayMode )
    
           
        [Function    : rbc_setctin]
               
            100    :    Set    : svctin :    $ctin
            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]
        Part        : JennyTitlePart, JennyDataPart
        Vertical    : Yes
        Common Border    :No
       
    [Part : JennyTitlePart]
        Line        :    FormSubTitle ,Rbc_PartyNameLine, User Report Titles
        Local        : Field : FormSubTitle : Info : $$LocaleString:"Party 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 : JennyDataPart]
        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
      
    [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: $$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
    ;----------------------------------------------------------------------------
     
    Rajsrisrimal likes this.


  13. jgkumar1976

    jgkumar1976 Member


    COLLECTION B2B MISSING
     


  14. Devendra_Rawat

    Devendra_Rawat Well-Known Member


    For @sattam
    preliminary steps in showing how data from tally voucher is fetched for json GSTIn (basic)
    Ensure,
    1. Purchase Data for party appearing in json file exists
    2. Purchase voucher contains GSTIN of the party in supplementary details..
    3. GST purchase Entry is proper in tally

    4. See attached JPG report Sattam.jpg



    Code:
    [#Menu        : Import Indirect]
        Add    : Key Item    :  After : @@LocBanking    :  "JSon Viewer    "    : T : alter    : Rbc_Jsn_Options :  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
           
    [Report: Rbc_jsn_Options]
       
        Form        : Rbc_jsn_Options
        Full Screen    : Yes
    
    [Form: Rbc_jsn_Options]
        No Confirm      : No
        Space Top       : 1
        Space Left      : 1
        Space Right     : 1
        Space Bottom    : 1
        Height        : 30% Page
        Width        : 60% 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:  Display : User Report
        On    : Form Accept: Yes: Form Accept
       
    [Function    : LogjSonfileName]
       
        10        : Log: ##Rbc_jsn_PathFile
    
    [Part: Rbc_jsn_ImportSet]
        Parts    : Rbc_jsn_Import Title, Form SubTitle
        Parts    : 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
    
        [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 Directory, Rbc_jsn_Import FileName
            Space Bottom    : 0.10
            Space Bottom    : 0.20
           
           
        [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 : 40
            Space Bottom    : 0.20
           
         [Line: Rbc_jsn_Import FileName]
            Field   : Long Prompt, Rbc_jsn_Import FileName
            Local   : Field : Long Prompt    : Info     : $$LocaleString:"Import File Name (.zip, .json) :"
            Local   : Field : Long Prompt : Alignment: Left
            Local   : Field : Long Prompt : Width : 40
            Space Bottom    : 0.20
            
           
        [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        : u_RMP_FileName   
            Style        : Normal
            Set Always    : Yes
            Table        : RbcJSonList of Files
            Show Table : On Blank
            Validate    : NOT $$IsEmpty:$$Value
       
            On    : Accept:  Yes  : Set:Rbc_jsn_PathFile:##Rbc_jsn_Path+"\"+$$Value
            On     : Accept:  Yes: Field Accept
           
    
           
       
    [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
                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: ##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
        Storage    :    cfs        : String
        Storage    :    cname     : String
        Collection    : inv : invObject
       
                   
    [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    : 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        :  iamt : Amount
    
    
    ;Report
    ;--------------------------------------------------------------------
    
    
    [Report    :    User Report]
    ;    Use     : DSP Template
        Form    : User Report
        Title     : "GSTR - DETAILS"
        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 : Info : $$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"
        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
    ;----------------------------------------------------------------------------
    
    [Collection    : GSTR2A_PartySummary ]
        Source Collection: GSTR2A
       
        Walk :    b2b
        By        : ctin    :$ctin
        Compute    : cfs    :$cfs
        Compute    : cname :$cName
        Compute Var    : cvinvcnt : Number : $$NumItems
        ;Compute Var    : cvctin : Number : ##svctin
       
        Walk    : Inv
        ;Compute    : inum    : $inum
        ;Compute    : idt    : $idt   
        Walk    : itms, itm_det
       
        Aggr Compute : invcnt : Sum: ##cvinvcnt
        Aggr Compute :val      : Sum :$val
        Aggr Compute :txval : Sum :$txval
        Aggr Compute :iamt     : Sum :$iamt
        Aggr Compute :camt     : Sum :$camt
        Aggr Compute :samt    : Sum :$samt
        Aggr Compute :iamt    : Sum :$Iamt   
       
    
    [Collection    : GSTR2A_PartyBills]
       
        Source Collection: GSTR2A
       
        Walk :    b2b
        By        : ctin    :$ctin
        Compute    : cname :$cName
       
       
        Walk    : inv
        By        : inum    : $inum
       
        Compute    : idt    : $$Date:$idt   
           
        Walk    : itms, itm_det
        Compute    : rt    : $rt  ; use By if you want to show rate wise details also.
       
        Aggr Compute :val      : Sum :$val
        Aggr Compute :txval : Sum :$txval
        Aggr Compute :iamt     : Sum :$iamt
        Aggr Compute :camt     : Sum :$camt
        Aggr Compute :samt    : Sum :$samt
        Aggr Compute :iamt    : Sum :$Iamt   
       
        Filter        : cvgstinFilter
    
    [System    : Variables]   
        sv2ARecoPartyName : ""
       
    [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
    
     
    sattam likes this.


  15. Karan Rathore

    Karan Rathore New Member


    Devendra Ji,
    Thanks for share your awesome work per isme ek problem hai tally data wale part me first payment bhi show ho raha hai aur kya isko month wise lock kar sakte means jis month ki json hai usi month ka tally data show kare aur isko export bhi kar sake. Annotation 2020-02-18 112325_LI.jpg
     


  16. Devendra_Rawat

    Devendra_Rawat Well-Known Member


    report me svfromdate and svtodate month beginning or end pe set kar do aur tally collection me date range ki filter laga do.

    kindly note that this tdl is not meant for reco work
     


  17. madhu.vukyam

    madhu.vukyam New Member


    please provide export option
     


  18. Jenny

    Jenny Active Member


    I Modified this code.....
    1. its all json(.zip) file read either gstr1 or gstr2
    2. filter also working...
    3. only pending tally ledger fetch...

    If possible please rectify my code...
    Code:
    [#Menu        : Import Indirect]
        Add    : Key Item    :  After : @@LocBanking    :  "JSon Viewer    "    : T : alter    : Rbc_Jsn_Options :  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
         
    [Report: Rbc_jsn_Options]
     
        Form        : Rbc_jsn_Options
        Full Screen    : Yes
    
    [Form: Rbc_jsn_Options]
        No Confirm      : No
        Space Top       : 1
        Space Left      : 1
        Space Right     : 1
        Space Bottom    : 1
    
        Height        : 30% Page
        Width        : 60% 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:  Display : User Report
        On    : Form Accept: Yes: Form Accept
     
    [Function    : LogjSonfileName]
     
        10        : Log: ##Rbc_jsn_PathFile
    
    [Part: Rbc_jsn_ImportSet]
        Parts    : Rbc_jsn_Import Title, Form SubTitle
        Parts    : 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
    
        [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 Directory, Rbc_jsn_Import FileName
            Space Bottom    : 0.10
            Space Bottom    : 0.20
         
         
        [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 : 40
            Space Bottom    : 0.20
         
        [Line: Rbc_jsn_Import FileName]
            Field   : Long Prompt, Rbc_jsn_Import FileName
            Local   : Field : Long Prompt    : Info     : $$LocaleString:"Import File Name (.zip, .json) :"
            Local   : Field : Long Prompt : Alignment: Left
            Local   : Field : Long Prompt : Width : 40
            Space Bottom    : 0.20
           
         
        [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        : u_RMP_FileName 
            Style        : Normal
            Set Always    : Yes
            Table        : RbcJSonList of Files
            Show Table : On Blank
            Validate    : NOT $$IsEmpty:$$Value
     
            On    : Accept:  Yes  : Set:Rbc_jsn_PathFile:##Rbc_jsn_Path+"\"+$$Value
            On     : Accept:  Yes: Field Accept
         
    
         
     
    [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
                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
    
    
    [Collection    : GSTR2A]
        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
        Storage    :    cfs     : String
        Storage    :    cname   : String
        Collection :     inv     : invObject
     
                 
    [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    : 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        :  iamt : Amount
     
    ;--------------------------------------------------------------------------------------------------------------------------------
    [System    : Variables]
        svctin    : ""
        svCtinChanged : No
     
    [Variable    : svCtin]
        Type    : String
        Set Always    : Yes
     
    [Variable    : svCtinChanged]
        Type    : Logical
        Set Always    : Yes
    
    
    [Collection    : GSTR2A_PartySummary ]
        Source Collection: GSTR2A
        Title: "GSTIN-NO LIST"
        Walk :    b2b
        By        : ctin    :$ctin
        Compute    : cfs    :$cfs
        Compute    : cname :$cName
        Compute Var    : cvinvcnt : Number : $$NumItems
        ;Compute Var    : cvctin : Number : ##svctin
     
        Walk    : Inv
        ;Compute    : inum    : $inum
        ;Compute    : idt    : $idt 
        Walk    : itms, itm_det
     
        Aggr Compute : invcnt : Sum: ##cvinvcnt
        Aggr Compute :val      : Sum :$val
        Aggr Compute :txval : Sum :$txval
        Aggr Compute :iamt     : Sum :$iamt
        Aggr Compute :camt     : Sum :$camt
        Aggr Compute :samt    : Sum :$samt
        Aggr Compute :iamt    : Sum :$Iamt 
       
    Filter    : jennyAllfilter
       
    
    [Collection    : GSTR2A_PartyBills]
     
        Source Collection: GSTR2A
     
        Walk :    b2b
        By        : ctin    :$ctin
        Compute    : cname :$cName
     
     
        Walk    : inv
        By        : inum    : $inum
     
        Compute    : idt    : $$Date:$idt 
         
        Walk    : itms, itm_det
        Compute    : rt    : $rt  ; use By if you want to show rate wise details also.
     
        Aggr Compute :val      : Sum :$val
        Aggr Compute :txval : Sum :$txval
        Aggr Compute :iamt     : Sum :$iamt
        Aggr Compute :camt     : Sum :$camt
        Aggr Compute :samt    : Sum :$samt
        Aggr Compute :iamt    : Sum :$Iamt 
     
        Filter        : cvgstinFilter
       
       
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;FILTER COLLECTION;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
    
       
    
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    [System    : Formulae]
        cvgstinFilter : $ctin = ##svctin
    
    [Button: Jsonfilepath]
        Title: Upload Json (.Zip)
        Key: Alt+J
        Action : Alter: Rbc_jsn_Options;Jenny_jsn_Options
    
    [Report    :    User Report]
    ;    Use     : DSP Template
        Form    : User Report
        Title     : "GSTR - DETAILS"
        Set     : vjennyAllfilter : ""
        Set        : svCtinChanged : No
       
    [Form:User Report]
       ; Use         : DSP Template
        Parts    : Rbc_Gstr2_Top;,  Jenny_InvPart
        Button:EXPLODEFLAG
        Height : 100% screen
        Width : 100% screen
        Local : Field : FormSubTitle : Info : $$LocaleString:"GSTR - DETAILS"
        Local   : Field : Form SubTitle : Color          : Dark Red
        Local: Field:Form SubTitle    : Style    : Large SerIf Bold 
        Add: Button: Jsonfilepath,jennyAllfilter
        Background: @@SV_RELEASEDLEAFGREEN_PL
     
    [Part: Rbc_Gstr2_Top]
     
        Line  : FormSubTitle, Rbc_Party_TopTitle,  Rbc_Party_TopRep
     
        Local : Field: FormSubTitle : Set as: "GSTR-2 Portal Details"
        Repeat: Rbc_Party_TopRep: GSTR2A_PartySummary
        Bottom Line    : Rbc_Party_TopRepTotal
        Scroll    : Vertical
        Height    : 100 % 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                      
        ;Common Border   : Yes         
     
    
    
    [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_SrNo    : Border        :Thin Box
        Local: Field    : Rbc_S_Gstin             : Set as: "Party GSTIN"
        Local: Field    : Rbc_S_Gstin             : Alignment    : Center
        Local: Field    : Rbc_S_Gstin    : Border        :Thin Box
        Local: Field    : Rbc_S_PartyName         : Set as: "Party Name"
        Local: Field    : Rbc_S_PartyName    : Border        :Thin Box
        Local: Field    : Rbc_St_invno        : Info: "No. of Bills"
        ;Local: Field    : Rbc_St_invno    : Border        :Thin Box
        Local:Field:Rbc_St_invno :Lines:2
        Local: Field    : Rbc_St_taxval        : Info    : "Taxable Value"
        Local: Field    : Rbc_St_taxval    : Border        :Thin Box
        Local:Field:Rbc_St_taxval :Lines:2
        Local: Field    : Rbc_St_Igst            : Info    : "IGST"
        Local: Field    : Rbc_St_Igst    : Border        :Thin Box
        Local: Field    : Rbc_St_Cgst            : Info    : "CGST"
        Local: Field    : Rbc_St_Cgst    : Border        :Thin Box
        Local: Field    : Rbc_St_Sgst            : Info    : "SGST"
        Local: Field    : Rbc_St_Sgst    : Border        :Thin Box
        Local: Field    : Rbc_St_invAmount     : Info    : "Total Inv Amount"
        Local: Field    : Rbc_St_invAmount    : Border        :Thin Box
        Local:Field:Rbc_St_invAmount:Lines:2
        Local: Field    : Rbc_Cfsstat                : Info    : "Submitted Status"
        Local: Field    : Rbc_Cfsstat    : Border        :Thin Box
        Local:Field:Rbc_Cfsstat:Lines:2
        Local: Field    : Default    : Border        : Thin Top Left Bottom
        ;Border    :  Thin Top Left Bottom
        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
            Explode : Jenny_InvPart : ($$KeyExplode OR ##ExplodeFlag)
           
            Key     : RbcDisplayonEnter ;, Rbc_Fim_lLedAlter AlterOnEnter
            Local     : Field : Default : Style: Tiny Bold
            Local: Field     : Default     : Align: Left
            Local    : Field    : Rbc_S_Srno : Border: Thin Top Left Right
            Local    : Field    : Rbc_S_Gstin : Border: Thin Top Left Right
            Local    : Field    : Rbc_S_PartyName : Border: Thin Top Left Right
            Local    : Field    : Rbc_St_invno : Border: Thin Top Left Right
            Local    : Field    : Rbc_St_invAmount : Border: Thin Top Left Right
            Local    : Field    : Rbc_St_taxval : Border: Thin Top Left Right
            Local    : Field    : Rbc_St_Cgst : Border: Thin Top Left Right
            Local    : Field    : Rbc_St_Sgst : Border: Thin Top Left Right
            Local    : Field    : Rbc_St_Igst : Border: Thin Top Left Right
            Local    : Field    : Rbc_Cfsstat : Border: Thin Top Left Right
           
           
            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 Top Left Right;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  : ""
            Local: Field     : Rbc_S_SrNo                : Delete    : Border
            Local: Field     : Rbc_S_SrNo                :Border: Sub Totals
            Local: Field    : Rbc_S_Gstin             : Set as: ""
            Local: Field    : Rbc_S_Gstin             : Delete    : Border
            Local: Field     : Rbc_S_Gstin                :Border: Sub Totals
            Local: Field    : Rbc_S_PartyName         : Set as: "Total"
            Local: Field    : Rbc_S_PartyName         : Delete    : Border
            Local: Field     : Rbc_S_PartyName                :Border: Sub Totals
            Local: Field    : Rbc_St_invno        : Info: ""
            Local: Field    : Rbc_St_invno        : Delete    : Border
            Local: Field     : Rbc_St_invno               :Border: Right Totals
            Local: Field    : Rbc_St_taxval        : Set As: $$Total:Rbc_St_taxval
            Local: Field     : Rbc_St_taxval                 :Border: Sub Totals
            Local: Field    : Rbc_St_Igst            : Set As: $$Total:Rbc_St_Igst
            Local: Field     : Rbc_St_Igst                 :Border: Sub Totals
            Local: Field    : Rbc_St_Cgst            : Set As: $$Total:Rbc_St_Cgst
            Local: Field     : Rbc_St_Cgst                 :Border: Thin Box
            Local: Field    : Rbc_St_Sgst            : Set As: $$Total:Rbc_St_Sgst
            Local: Field     : Rbc_St_Sgst                 :Border: Thin Box
            Local: Field    : Rbc_St_invAmount     : Set As: $$Total:Rbc_St_invAmount
            Local: Field     : Rbc_St_invAmount                :Border: Thin Box
            Local: Field    : Rbc_Cfsstat                : Info    : ""
            Local: Field    : Rbc_Cfsstat                :Delete    : Border
            Local: Field     : Rbc_Cfsstat                 :Border: Thin Box
            Local: Field    : Default    : Border        : thin left Right
            Border    : Flush Column Titles
            Height    : 1.5
            Local     : Field : Default :Color:DarkBlue16Bit; Maroon
         
        [Key: RbcDisplayonEnter]
     
            Key     : Enter
            Action  :    Set        :  svCtin :    $ctin
            Inactive: (NOT $$InDisplayMode )
    
         
        [Function    : rbc_setctin]
             
            100    :    Set    : svctin :    $ctin
            200    :    Set    : svCtinChanged : Yes
     
        [Field : Rbc_S_SrNo]
         
            Use    : Number Field
            Set as : $$Line
            Width  : 3
            Style  : Normal
            Align  : Center
         
         
            [Field: Rbc_S_Gstin]
                Use: Name field
                Set as: $$String:$ctin
                Set Always: Yes
                Alignment    : right
                Width    :15
         
            [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
                Align    : Left
               
            [Field: Rbc_St_invno]
    
                Use: Number Field
                set as: $$String:$invcnt
                Width    : 5
             
            [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:8
             
            [Field: Rbc_St_Cgst]
             
                Use: Amount  Field
                Set as: $$AsAmount:$Camt
                Set Always    : yes
                Width:8
             
            [Field: Rbc_St_Sgst]
             
                Use        : Amount Field
                Set as    : $$AsAmount:$samt
                Set Always    : yes
                Width:8     
             
            [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    :9
               
    [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
         
    ;;;;;;;;;;;;;;;;;;;;;;;;;;FILTER START;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
    [Button:jennyAllfilter]
        Key : Alt+F
        Action : Alter: jennyAllfilter
        Title : Filter Gstin-No
    
    [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 Gstin No : "
        Local : Field : Medium Prompt : Color :Blue
        Local : Field : Medium Prompt : Style :Normal Bold
    
    [Field:jennyAllfilter]
        ;Table : GSTR2A_FILTERCOLL,EndOfList
        ;ShowTable : Always
        Use : Name Field
        Width : 20
        Border : Thin Box
        Variable : vjennyAllfilter
        Modifies : vjennyAllfilter
    
    [System: Formulae]
        jennyAllfilter : $ctin = ##vjennyAllfilter Or $$IsSysName:##vjennyAllfilter
    
    [Variable:vjennyAllfilter]
        Type : String
    
    [System:Variable]
        vjennyAllfilter : ""
       
    
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;EXPLODE PART START;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
    [Part:Jenny_InvPart]
        Part        : JennyTitlePart, JennyDataPart
        Bottom Part:JennyTotal
        Scroll: Vertical
        Vertical: Yes
        Common Border    :No
     
    [Part : JennyTitlePart]
       
        Line        :    FormSubTitle , User Report Titles
        Local        : Field : FormSubTitle : Info : $$LocaleString:"Bill Wise Details"
        Local          : Field : Form SubTitle        : Color          : Dark Red
        Local        : Field:Form SubTitle    : Style    : Large SerIf Bold
        Local        : Field : FormSubTitle : Align: Center
        Local        : Line: Default : Border: thin bottom
        Local        : Line: Default : Height    : 1.2
        ;Local          : Field : Form SubTitle        : Border        : thin Box
        Local          : Field : Form SubTitle        : Full Width        : Yes
        ;Border        : thin Box
    
     
    [Part : JennyDataPart]
        Line        :    User Report Data
        Repeat        :    User Report Data:GSTR2A_PartyBills
        ;BottomLines :     JennyTotal
        ;Bottom Part: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 :PartySNo      :BackGround :yellow
        Local:Field:PartyInvDate:Info:"Date"
        Local      : Field :PartyInvDate      :BackGround :yellow
        Local:Field:PartyInvoiceNo:Set as:"Inoice No"
        Local      : Field :PartyInvoiceNo      :BackGround :yellow
        Local:Field:PartyInvoiceName:Set as:"Party Name"
        Local      : Field :PartyInvoiceName      :BackGround :yellow
        Local:Field:PartyRateofTax:Info:"Rate %"
        Local      : Field :PartyRateofTax      :BackGround :yellow
        Local:Field:PartyInvoiceTotal:Info:"Total"
        Local      : Field :PartyInvoiceTotal      :BackGround :yellow
        Local:Field:PartyInvoiceNetAmt:Info:"Taxable Amount"
        Local      : Field :PartyInvoiceNetAmt      :BackGround :yellow
        Local:Field:PartySGSTAmt:Info:"SGST"
        Local      : Field :PartySGSTAmt      :BackGround :yellow
        Local:Field:PartyCGSTAmt:Info:"CGST"
        Local      : Field :PartyCGSTAmt      :BackGround :yellow
        Local:Field:PartyIGSTAmt:Info:"IGST"
        Local      : Field :PartyIGSTAmt      :BackGround :yellow
        Local:Field:PartyCESSAmt:Info:"CESS"
        Local      : Field :PartyCESSAmt      :BackGround :yellow
    
        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:Black; Maroon    ;
        Border: thin bottom
        Local        : Field: Default : BackGround :White
    [Field:PartySNo]
        Set as:$$Line
        Width:5
        Align: Center
       
       
    [Field:PartyInvDate]
        Use        : Short Date Field
        Set as    :$$Date:$idt
        Width    :10
        Align    : Left
       
    [Field:PartyGSTINNo]
        Set as:$ctin
        Width:15
        Align: Left
       
    [Field:PartyInvoiceNo]
        Set as:$inum
        Width:12
        Align: Left
       
    [Field:PartyInvoiceName]
        Use    :    Name Field
        Set as:#Rbc_S_PartyName
        ;Set as:$$CollectionField:$Name:Ledger:1:ctinFilter
        Alignment: Left
        Full Width    : Yes
       
    [System    : Formulae]
        ctinFilter : $PartyGSTIN = $$String:$ctin
     
    [Field    : PartyRateofTax]
        Use        : Number Field
        Set as    :$$Number:$rt
        ;Format    :"Percent"
        Alignment    : Left
       
    [Field:PartyInvoiceTotal]
        Use    : Amount Field
        Set as:$$AsAmount:$val
        Width:10
        Alignment    : Left
    
    [Field:PartyInvoiceNetAmt]
        Use    : Amount Field
        Set as:$$AsAmount:$txval
        Width:10
       Alignment    : Left
     
    [Field:PartySGSTAmt]
        Use    : Amount Field
        Set as:$$AsAmount:$samt
        Width:10
       Alignment    : Left
     
    [Field:PartyCGSTAmt]
        Use    : Amount Field
        Set as:$$AsAmount:$camt
        Width:10
       Alignment    : Left
     
    [Field:PartyIGSTAmt]
        Use    : Amount Field
        Set as:$$AsAmount:$iamt
        Width:10
       Alignment    : Left
     
    [Field:PartyCESSAmt]
        Use    : Amount Field
        Set as:$$AsAmount:$csamt
        Width:10
       Alignment    : Left
      
    [Part : JennyTotal]
      Line :JennyTotal
     
    [Line: JennyTotal]
            Use    :    User Report Data
            Local : Field : Default : Type    : String
            Local        : Field: Default : BackGround :Jenny Aquamarine
            Local : Field : Default : Style : Normal Bold
            Local : Field : Default : Skip    : Yes
            Local : Field : PartyInvoiceName : Align : Right
            Local : Field : PartySNo        : Set as: ""
            Local : Field : PartySNo        :Delete    : Border
            Local : Field : PartyInvDate     : Set as: ""
            Local : Field : PartyInvDate     : Delete    : Border   
            ;Local : Field : PartyGSTINNo    : Set as: ""
            ;Local : Field : PartyGSTINNo    : Delete    : Border
            Local : Field : PartyInvoiceNo    : Set as: ""
            Local : Field : PartyInvoiceNo    : Delete    : Border
            Local : Field : PartyInvoiceName: Set as: "Total"
            Local : Field : PartyInvoiceName: Delete    : Border
            Local : Field : PartyInvoiceName: Border    :Thin Right
            Local : Field : PartyRateOfTax    : Set as: ""
            ;Local : Field : PartyRateOfTax    :  Delete    : Border
            Local : Field : PartyInvoiceTotal: Set as: $$Total:PartyInvoiceTotal
            Local : Field : PartyInvoiceTotal : Align : Centre
            Local : Field : PartyInvoiceNetAmt: Set as: $$Total:PartyInvoiceNetAmt
            Local : Field : PartyInvoiceNetAmt : Align : Centre
            Local : Field : PartySGSTAmt : Set as: $$Total:PartySGSTAmt
            Local : Field : PartySGSTAmt : Align : Centre
            Local : Field : PartyCGSTAmt : Set as: $$Total:PartyCGSTAmt
            Local : Field : PartyCGSTAmt : Align : Centre
            Local : Field : PartyIGSTAmt : Set as: $$Total:PartyIGSTAmt
            Local : Field : PartyIGSTAmt : Align : Centre
            Local : Field : PartyCESSAmt : Set as: $$Total:PartyCESSAmt
            Local : Field : PartyCESSAmt : Align : Centre
            Border    : Thin top Bottom
            Local: Field    : Default     : Border : thin left right
    
    
        [Color: Jenny Aquamarine]
        RGB: 244,187,255
     


  19. Devendra_Rawat

    Devendra_Rawat Well-Known Member


    Great.. Jenny.. Tally Vouchers of already posted here ... just two posts above your post..
    can you again combined.. your new code with it
     
    Jenny likes this.


  20. Jenny

    Jenny Active Member


    I try to add tally voucher part but data not fetch correctly...can you send me only send me that code....
     


  21. Jenny

    Jenny Active Member


    I do that its fetching but in gstr1 date not fetch and is that possible if i import particular month then tally ledger showing in that month but now its showing all details start to end and (showing also receipt,payment etc...) is that possible for filter?
     


  22. sattam

    sattam Active Member


    Nice , looking so good this report.But Taxable value not fetch from tally data collection, I tried also ,it fetch taxable value from inventories entries but additional value like discount transporting charges etc not fetch in my report
     


  23. sattam

    sattam Active Member


    please tell me how to fetch additional values like discount, transporting charges etc
     


  24. sattam

    sattam Active Member



  25. sattam

    sattam Active Member


    Please see marked box field in tally report. No 3 line taxable value and igst amount not getting from collection for reverse charge entry. In No 4 line in tally report taxable value mismatch for additional ledger discount.
    what can I do please reply
     


Share This Page