AUTO ENTRIES FROM GSTR2A TO TALLY ACCOUNT WISE

Discussion in 'Tally Developer' started by narayane88, Oct 19, 2020.

    
Tags:
  1. narayane88

    narayane88 Active Member


    Code:
    [Collection    : INVGSTR2A]
        Data Source    : File JSONZip: ##Rbc_jsn_PathFile
        ;JSON Object Path:b2b:1
        ;JSON Object : GSTR2ATable
        Fetch : *.*
        Client Only:Yes
      
    
    
    [Object    :GSTR2ATable]
        Collection    :     b2b        : b2bObject
    
    [Object        :    b2bObject]
    
        Storage    :    ctin    : String ;;;;;;; SUPPLIER GSTN NO
        Storage    :    cfs     : String ;;;;;;;
        Storage    :    cname   : String
        Collection :     inv     : invObject
               
    [Object    : invObject]
       
        Storage        :  val        : Amount ;;;;;; INVOICE TOTAL
        Storage        :  inv_typ    : String ;;;;;;; INNOCIE TYPE
        Storage        :  pos        : Number ;;;;;;; STATECODE
        Storage        :  idt        : String ;;;;;;; INVOICE DATE
        Storage        :  rchrg      : String ;;;;;;; IS REVERSE CHARGE
        Storage        :  inum       : String ;;;;;;; INVOICE NUMBER
        Storage        :  chksum     : String ;;;;;;; UNIQUE CODE
       
        Collection     : itms         : itmsObject
               
    [Object    : itmsObject]
        Storage    :     num    : Number
        Collection    : itm_det     : itm_detObject
    [Object: itm_detObject]
       Storage        :  samt    : Amount ;;;;;; SGST AMOUNT
       Storage        :  rt     : String  ;;;;;; GST RATE
       Storage        :  txval  : Amount    ;;;;;; TAXABLE VALUE
       Storage        :  camt  : Amount    ;;;;;;; CGST AMOUNT
       Storage        :  iamt  : Amount     ;;;;;;; IGST AMOUN
       Storage          :    csamt :Amount        ;;;;;; CESS AMOUNT
    
    
    [Collection    : GSTR2A_BILLSummary]
        Source Collection: INVGSTR2A
        Title        : "GSTIN-NO LIST"
        Walk         :    b2b
        Compute     : SupplierGSTn          :$ctin
        Compute     : cfs                :$cfs
        Compute     : cname             :$cName
        Compute Var : cvinvcnt             : Number     : $$NumItems
        Compute        :NumberofBills        : $$Number:##cvinvcnt
        Walk        : Inv
        Compute        : VoucherNumber      : $inum
        Compute        : VoucherDate        : $idt
        Compute        :IsReversecharge    :$rchrg
      
        Walk        : itms, itm_det
      
        Compute        : GSTRate            :$$String:$rt
        Compute     : InvoiceTotal         :$$AsAmount:$val
        Compute     :TaxableAmount         :$txval
        Compute     :IGST                :IF $$IsEmpty:$iamt THEN $$AsAmount:"0" ELSE $iamt
        Compute     :CGST                :IF $$IsEmpty:$camt THEN $$AsAmount:"0" ELSE $camt
        Compute     :SGST                :IF $$IsEmpty:$samt THEN $$AsAmount:"0" ELSE $samt
        Compute     :CESS                :IF $$IsEmpty:$csamt THEN $$AsAmount:"0" ELSE $csamt
        Compute        :INVOICETYPE        :"BILL"
      
    
        Format:$INVOICETYPE
        Format:$CFS
        Format:$PartyName,35
        Format:$SupplierGSTn,10
        Format:$NumberofBills,10
        Format:$VoucherNumber,10
        Format:$VoucherDate,10
        Format:$IsReversecharge,10
        Format:$GSTRate,10
        Format:$InvoiceTotal,10
        Format:$TaxableAmount,10
        Format:$IGST,10
        Format:$CGST,10
        Format:$SGST,10
        Format:$CESS,10
      
    
    [Collection:GSTR2APartywiseSummery]
        Source Collection:GSTR2A_BILLSummary
      
        Fetch        : *.*
      
    
        By:SupplierGSTn:$SupplierGSTn
        ;By:GSTRATE:$GSTRATE
        By:VoucherNumber:$VoucherNumber
        Sort:@@Default: $SupplierGSTn
      
        Compute:PartyName:$$CollectionFieldByKey:$Name:$SupplierGSTn:RBC_PartyGstnWise
        Aggr Compute:TaxableAmount1:Sum:IF $$IsEmpty:$TaxableAmount THEN $$AsAmount:"0" ELSE  $$AsAmount:$TaxableAmount
        Aggr Compute:IGST1:Sum:IF $$IsEmpty:$IGST THEN $$AsAmount:"0" ELSE $$AsAmount:$IGST
        Aggr Compute:CGST1:Sum:IF $$IsEmpty:$CGST THEN $$AsAmount:"0" ELSE $$AsAmount:$CGST
        Aggr Compute:SGST1:Sum:IF $$IsEmpty:$SGST THEN $$AsAmount:"0" ELSE $$AsAmount:$SGST
        Aggr Compute:CESS1:Sum:IF $$IsEmpty:$CESS THEN $$AsAmount:"0" ELSE $$AsAmount:$CESS
        Compute:TotalVoucherAmt:$TaxableAmount1+$IGST1+$CGST1+$SGST1+$CESS1
        Compute:InvoiceTotal:$InvoiceTotal
    
        Format:$INVOICETYPE
        Format:$CFS
        Format:$PartyName,35
        Format:$SupplierGSTn,10
        Format:$NumberofBills,10
        Format:$VoucherNumber,10
        Format:$VoucherDate,10
        Format:$IsReversecharge,10
        Format:$$Number:$GSTRate,10
        Format:$InvoiceTotal,10
        Format:$TaxableAmount1,10
        Format:$IGST1,10
        Format:$CGST1,10
        Format:$SGST1,10
        Format:$CESS1,10
      
      
    
    [Collection:GSTR2APartywiserateSummery]
        Source Collection:GSTR2A_BILLSummary
      
        Fetch        : *.*
      
    
        By:SupplierGSTn:$SupplierGSTn
        By:GSTRATE:$GSTRATE
        ;By:VoucherNumber:$VoucherNumber
        Sort:@@Default: $SupplierGSTn
      
        Compute:PartyName:$$CollectionFieldByKey:$Name:$SupplierGSTn:RBC_PartyGstnWise
        Aggr Compute:TaxableAmount1:Sum:$$AsAmount:$TaxableAmount
        Aggr Compute:IGST1:Sum:$$AsAmount:$IGST
        Aggr Compute:CGST1:Sum:$$AsAmount:$CGST
        Aggr Compute:SGST1:Sum:$$AsAmount:$SGST
        Aggr Compute:CESS1:Sum:$$AsAmount:$CESS
        Compute:TotalVoucherAmt:$TaxableAmount1+$IGST1+$CGST1+$SGST+$CESS
      
    
        Format:$INVOICETYPE
        Format:$CFS
        Format:$PartyName,35
        Format:$SupplierGSTn,10
        Format:$NumberofBills,10
        Format:$VoucherNumber,10
        Format:$VoucherDate,10
        Format:$IsReversecharge,10
        Format:$$Number:$GSTRate,10
        Format:$InvoiceTotal,10
        Format:$TaxableAmount1,10
        Format:$IGST1,10
        Format:$CGST1,10
        Format:$SGST1,10
        Format:$CESS1,10
        Filter:IspartyGSTnSame
      
    
    
    
    [Collection:GSTR2APartywisebILLWISESummery]
        Source Collection:GSTR2A_BILLSummary
      
        Fetch        : *.*
      
    
        By:SupplierGSTn:$SupplierGSTn
        ;By:GSTRATE:$GSTRATE
        By:VoucherNumber:$VoucherNumber
        Sort:@@Default: $SupplierGSTn
      
        Compute:PartyName:$$CollectionFieldByKey:$Name:$SupplierGSTn:RBC_PartyGstnWise
        Aggr Compute:TaxableAmount1:Sum:$$AsAmount:$TaxableAmount
        Aggr Compute:IGST1:Sum:$$AsAmount:$IGST
        Aggr Compute:CGST1:Sum:$$AsAmount:$CGST
        Aggr Compute:SGST1:Sum:$$AsAmount:$SGST
        Aggr Compute:CESS1:Sum:$$AsAmount:$CESS
        Compute:TotalVoucherAmt:$TaxableAmount1+$IGST1+$CGST1+$SGST+$CESS
      
    
        Format:$INVOICETYPE
        Format:$CFS
        Format:$PartyName,35
        Format:$SupplierGSTn,10
        Format:$NumberofBills,10
        Format:$VoucherNumber,10
        Format:$VoucherDate,10
        Format:$IsReversecharge,10
        Format:$$Number:$GSTRate,10
        Format:$InvoiceTotal,10
        Format:$TaxableAmount1,10
        Format:$IGST1,10
        Format:$CGST1,10
        Format:$SGST1,10
        Format:$CESS1,10
        Filter:IspartyGSTnSame
      
    
    [Collection:GSTR2ABILLWISERATESummery]
        Source Collection:GSTR2A_BILLSummary
      
        Fetch        : *.*
      
    
        By:SupplierGSTn:$SupplierGSTn
        By:GSTRATE:$GSTRATE
        By:VoucherNumber:$VoucherNumber
        Sort:@@Default: $SupplierGSTn
      
        Compute:PartyName:$$CollectionFieldByKey:$Name:$SupplierGSTn:RBC_PartyGstnWise
        Aggr Compute:TaxableAmount1:Sum:$$AsAmount:$TaxableAmount
        Aggr Compute:IGST1:Sum:$$AsAmount:$IGST
        Aggr Compute:CGST1:Sum:$$AsAmount:$CGST
        Aggr Compute:SGST1:Sum:$$AsAmount:$SGST
        Aggr Compute:CESS1:Sum:$$AsAmount:$CESS
        Compute:TotalVoucherAmt:$TaxableAmount1+$IGST1+$CGST1+$SGST+$CESS
      
    
        Format:$INVOICETYPE
        Format:$CFS
        Format:$PartyName,35
        Format:$SupplierGSTn,10
        Format:$NumberofBills,10
        Format:$VoucherNumber,10
        Format:$VoucherDate,10
        Format:$IsReversecharge,10
        Format:$$Number:$GSTRate,10
        Format:$InvoiceTotal,10
        Format:$TaxableAmount1,10
        Format:$IGST1,10
        Format:$CGST1,10
        Format:$SGST1,10
        Format:$CESS1,10
        Filter:IsvOUCERNOSame
    
    [Collection    : RBC_PartyGstnWise]
        Type        : Ledger
        ;Child Of    : $$GroupSundryCreditors; Group would be Sundry Debtors for GSTR1
        Fetch        : PartyGSTIN, Name
        Format        : $PartyGSTIN, 20
        Format        : $Name, 25
    
        Search Key    : $PartyGSTIN
        Sort        : @@Default : $PartyGSTIN
        Filter        : RBCnonEmptyGstin
      
    
      
    [Function:PurchaseGVTYP]
        Variable    : ProgressCount        : Number
        Variable      : Counter             : Number
      
        000 : SET : Counter   : 0
        001 : START PROGRESS  : 1   : "Importing Master" : @@CmpMailName : "Creating Voucher Type ..."
      
      
        042        :            NEW OBJECT            : VOUCHER TYPE
        043      :            Set Value                : Name                     : "GSTR2A"
        044      :           Set Value               : Parent                 : "Purchase"
        050        :            Set Value                : Numbering Method        : "Manual"
        055        :            Set Value                : IsOptional            : "Yes"
        056        :            Set Value                : Prevent Duplicates    : "Yes"
      
        060      :        CREATE TARGET
    
      
        160      :        CREATE TARGET
      
        180     :                 INCREMENT             : Counter
        190     :                 SHOW PROGRESS             : ##Counter
        200     :     END PROGRESS
        ;210        :    Msg Box: "Ledger Auto Creation !!!":"IGST Ledger Imported Successfully !!!"
        211     :     RETURN
    
    
    
    
    
    
    [Function:GSTR2AIMPO]
      
        Variable    : ProgressCount        : Number
        Variable      : Counter             : Number
      
        Variable    : BillNo            : String  
      
        Variable    : MPIGSTIN    : String
        Variable    : MPIDate            : String
        Variable    : MPIRefno            : String
        Variable    : MPIPartyName        : String
        Variable    : MPIPartyState        : String
        variable    : MPI PurhcaseNil    : Amount
        Variable    : MPI Purchase5        : Amount
        Variable    : MPI purchase12    : Amount
        Variable    : MPI purchase18    : Amount
        Variable    : MPI purchase28    : Amount
        Variable    : MPI SGSTINPUT        : Amount
        Variable    : MPI CGSTINPUT        : Amount
        Variable    : MPI iGSTINPUT        : Amount
        Variable    : MPI GrandTotal     : Amount
      
    
        00 : SET : Counter   : 0
        10    :IF :$$IsEmpty:$Name:VoucherType:"GSTR2A"
        15    : Call: PurchaseGVTYP
        19    : End If
        ;10: Call:PurchasePartyLedgerCreation
        20 : START PROGRESS  : ($$NumItems:GSTR2APartywiseSummery)   : "Importing GSTR2A" : @@CmpMailName : "Importing GSTR2A ..." ;+ $$NewLine + $$String:($$NumItems:VCHLVExcellVariableBillWise)+$$String:"/"+$$String:##Counter
        30 : WALK COLLECTION : GSTR2APartywiseSummery
    
        ;;-------------------------------------------------
        ;;Create Party Ledger under Sundry Creditors if party ledger name not found
        39        :    Set: MPIGSTIN:$SupplierGSTn
        40      :       Set             : BillNo         : $VoucherNumber  
        41      :     IF :$$IsEmpty:$PartyName
        42        :            NEW OBJECT            : Ledger
        43      :            Set Value                : Name                     : $SupplierGSTn
        44      :           Set Value               : Parent                 : "Sundry Creditors"
        45        :            Set Value                : GSTRegistrationType    : "Regular"
        46        :            Set Value                : PartyGSTIN            : $SupplierGSTn
        47        :            Set Value                : CountryofResidence    : "India"
        48        :            Set Value                : LedStateName            : If $$IsStatepurchase:$SupplierGSTn then "Maharashtra" else ""
        49        :            Set Value                :IsBillWiseOn            :"No"
        50      :        CREATE TARGET
        51      :       END IF   
        52        : Set  : MPI GrandTotal : @@GrandTotal
        ;53        : Log:"invoice Total- "+$$String:@@GrandTotal;@@GRANDTOTAL
        ;48        : Log: $$String:"Grand Total"+ $$String:##MPIGrandTotal
        ;;-------------------------------------------------
        ;;Basic Info
    
        81     :     SET                 : SVViewName             : $$SysName:AcctgVchView
      
        83    :     NEW OBJECT        : Voucher
        84    :     SET VALUE        : Date                : $$Date:$VoucherDate
        85    :     SET VALUE        : VoucherTypeName        : "GSTR2A"
        86      :     SET VALUE        : Narration            : "GSTR 2A DETAILS: - PartyName:-"     + $$String:$PartyName + " GSTIN NO.- " + $$String:$SupplierGSTn + " Taxable AMOUNT - " + $$String:$TaxableAmount1 + " CGST AMOUNT - " + $$String:$CGST1 + " SGST AMOUNT - " + $$String:$SGST1 + " IGST AMOUNT - " + $$String:$IGST1 + " CESS AMOUNT - " + $$String:$CESS1 + " INVOICE TOTAL : - " + $$String:@@GRANDTOTAL
        87      :     SET VALUE        : VoucherNumber            : ##BillNo
        88      :     SET VALUE        : Reference            : ##BillNo
        89        :    Set Value        : Isoptional        :"Yes"
        90        :     Set Value        : CFS1                : IF $CFS = "Y" THEN "Yes" else "No"
        91        :     Set Value        : iSREVERSECHARGE1    : if $IsReversecharge = "N" THEN "No" else "Yes"
        ;90        :    Log: $$Date:$SupBillDate
        95      :     SET VALUE        : ReferenceDate :$$Date:$VoucherDate
      
        ;;---------------------------------------------------------
        ;;TO Entry
      
        ;58    : Log: $$String:"InvoiceTotal: "+ $$String:##MPIGrandTotal
        101      :     INSERT COLLECTION OBJECT    : LedgerEntries
        102     :     SET TARGET            : LedgerEntries
        103    :    SET VALUE            : LedgerName        : If $$IsEmpty:$PartyName then $SupplierGSTn else $PartyName
        104    :     SET VALUE            : Amount        : $$AsAmount:@@GrandTotal
        105    :     SET VALUE            : Is Deemed Positive    : "No"
        106    :     SET TARGET            : ..
    
      
    
        ;;---------------------------------------------------------
        ;;BY PURCHASE Entry
        107: Walk Collection:GSTR2ABILLWISERATESummery
        P160    :    If: $$IsStatepurchase:$SupplierGSTn
        P170    :     INSERT COLLECTION OBJECT    : LedgerEntries
        P171    :     SET TARGET            : LedgerEntries
        P172    :    SET VALUE            : LedgerName            : @@PURCHASESTATElEDGER;##purchaseimportvar2
        P173    :     SET VALUE            : Amount                : $TaxableAmount
        ;P174    :    Set Value            : GSTOVRDNNATURE        :"Purchase Exempt"
        P176    :     SET VALUE            : Is Deemed Positive    : "Yes"
        P177    :     SET TARGET            : ..
        P178    :    End If
      
        P260    :    If: Not $$IsStatepurchase:$SupplierGSTn
        P270    :     INSERT COLLECTION OBJECT    : LedgerEntries
        P271    :     SET TARGET            : LedgerEntries
        P272    :    SET VALUE            : LedgerName        : @@PURCHASEOMSlEDGER;##purchaseimportvar7
        P273    :     SET VALUE            : Amount        : $TaxableAmount
        ;P274    :    Set Value            : GSTOVRDNNATURE        : if $$IsEmpty:$TIGST and not $$IsEmpty:$TCGST then "Purchase Taxable" Else "Interstate Purchase Taxable"
        P276    :     SET VALUE            : Is Deemed Positive    : "Yes"
        P277    :     SET TARGET            : ..
        p278    :    End If
        108        :    End Walk
        ;;---------------------------------------------------------
        ;;BY Gst Enty
        G160    :    If: $$IsStatepurchase:$SupplierGSTn
        G180    :     INSERT COLLECTION OBJECT    : LedgerEntries
        G181    :     SET TARGET            : LedgerEntries
        G182    :    SET VALUE            : LedgerName        : "CGST INPUT";##purchaseimportvar3
        G183    :     SET VALUE            : Amount        : $CGST1
        G184    :     SET VALUE            : Is Deemed Positive    : "Yes"
        G185    :     SET TARGET            : ..
        G190    : End If
      
      
        G280    :     INSERT COLLECTION OBJECT    : LedgerEntries
        G281    :     SET TARGET            : LedgerEntries
        G282    :    SET VALUE            : LedgerName        : "SGST INPUT";##purchaseimportvar4
        G283    :     SET VALUE            : Amount        : $SGST1
        G284    :     SET VALUE            : Is Deemed Positive    : "Yes"
        G285    :     SET TARGET            : ..
      
        G360    :    If: Not $$IsStatepurchase:$SupplierGSTn
        G380    :     INSERT COLLECTION OBJECT    : LedgerEntries
        G381    :     SET TARGET            : LedgerEntries
        G382    :    SET VALUE            : LedgerName        : "IGST INPUT";##purchaseimportvar5
        G383    :     SET VALUE            : Amount        : $IGST1
        G384    :     SET VALUE            : Is Deemed Positive    : "Yes"
        G385    :     SET TARGET            : ..
        G390    : End If
        ;G480    :     INSERT COLLECTION OBJECT    : LedgerEntries
        ;G481    :     SET TARGET            : LedgerEntries
        ;G482    :    SET VALUE            : LedgerName        : "ROUND";##purchaseimportvar6
        ;G483    :     SET VALUE            : Amount        : if $$IsNegative:(@@RoundValue) then @@RoundValue1 else @@RoundValue
        ;G484    :     SET VALUE            : Is Deemed Positive    :if $$IsNegative:(@@RoundValue) then "Yes" else "No"
        ;G485    :     SET TARGET            : ..
        ;G486    : Log: $$String:"Bill No. "+ $$String:##MPIBillNo + $$String:"Round Value. " +$$String:@@RoundValue
        ;;---------------------------------------------------------  
        109    :     CREATE TARGET  
        ;;---------------------------------------------------------
    
        110     :       SET VALUE               : PersistedView     : ##SVViewname
        130     :     INCREMENT             : Counter
        140     :     SHOW PROGRESS             : ##Counter
      
        150     :     END WALK
        160     :     END PROGRESS
        155        :    Msg Box: "GSTR2A Imported Successful":"GSTR2A Imported Successful"
        ;170     :     RETURN
      
    
    
    [Function:IsStatepurchase]
      
        Parameters: P1 :String
        Variable:STATECODE:String
        Return:Logical
      
        ;000:Set:INPUT:$$FileReadCell:##RowIndex:4
        010:Set:STATECODE:$$StringPart:##P1:0:2
        030: Return :@@statesales
      
    [System:Formulas]
        statesales: if ##STATECODE = "27" then "Yes" else "No"
        PURCHASESTATElEDGER: IF $GSTRate= "0" THEN "GSTR2A_0" ELSE IF $GSTRate= "5" THEN "GSTR2A_5" ELSE IF $GSTRate= "12" THEN "GSTR2A_12" ELSE IF $GSTRate= "18" THEN "GSTR2A_18" ELSE "GSTR2A_28"
        PURCHASEOMSlEDGER: IF $GSTRate= "0" THEN "GSTR2A_I0" ELSE IF $GSTRate= "5" THEN "GSTR2A_I5" ELSE IF $GSTRate= "12" THEN "GSTR2A_I12" ELSE IF $GSTRate= "18" THEN "GSTR2A_I18" ELSE "GSTR2A_I28"
        GrandTotal :$$AsAmount:($TaxableAmount1+$IGST1+$CGST1+$SGST1+$CESS1)
    

    this code usefull for auto entries from gstr2a all entries in entered in optional voucher then as you wish you have change in purchase register
     


  2. anish

    anish Member


    how to use this code sir ?
     


  3. narayane88

    narayane88 Active Member


    as soon as complete code post
     
    anish likes this.


  4. narayane88

    narayane88 Active Member


    full code for import GSTR2A report in optional Voucher

    first create all excpected ledger then try

    Code:
    [#Menu: Gateway of Tally]
        ;Title    : "Shree Accouting Services 9960589622"
        Add        : Key Item : Before: @@locQuit : GSTR2A RECO  : F : Menu : GSTR2A
        Key Item: BLANK
    
       
       
    [Menu: GSTR2A]
        Title       : $$LocaleString:"GSTR 2A RECO"
       
        ;Indent        : "Master Imports"
        ;Key Item    : "Item Master"             : i : Execute    : GST Item Import
        ;Key Item    : "Ledger Master"         : l : Execute    : GST Ledger Import
        Item        : BLANK
       
        Indent        : "Imports"
        Item        : BLANK
        Key Item    : "IMPORT GSTR2A"         : 2:alter    : Rbc_Jsn_Options :  NOT $$IsEmpty:$$SelectedCmps
        Item        : BLANK
       
    
    
    
    
    [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:  Call : GSTR2AIMPO
        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    : INVGSTR2A]
        Data Source    : File JSONZip: ##Rbc_jsn_PathFile
        ;JSON Object Path:b2b:1
        ;JSON Object : GSTR2ATable
        Fetch : *.*
        Client Only:Yes
       
    
    
    [Object    :GSTR2ATable]
        Collection    :     b2b        : b2bObject
    
    [Object        :    b2bObject]
    
        Storage    :    ctin    : String ;;;;;;; SUPPLIER GSTN NO
        Storage    :    cfs     : String ;;;;;;;
        Storage    :    cname   : String
        Collection :     inv     : invObject
                
    [Object    : invObject]
        
        Storage        :  val        : Amount ;;;;;; INVOICE TOTAL
        Storage        :  inv_typ    : String ;;;;;;; INNOCIE TYPE
        Storage        :  pos        : Number ;;;;;;; STATECODE
        Storage        :  idt        : String ;;;;;;; INVOICE DATE
        Storage        :  rchrg      : String ;;;;;;; IS REVERSE CHARGE
        Storage        :  inum       : String ;;;;;;; INVOICE NUMBER
        Storage        :  chksum     : String ;;;;;;; UNIQUE CODE
        
        Collection     : itms         : itmsObject
                
    [Object    : itmsObject]
        Storage    :     num    : Number
        Collection    : itm_det     : itm_detObject
    [Object: itm_detObject]
       Storage        :  samt    : Amount ;;;;;; SGST AMOUNT
       Storage        :  rt     : String  ;;;;;; GST RATE
       Storage        :  txval  : Amount    ;;;;;; TAXABLE VALUE
       Storage        :  camt  : Amount    ;;;;;;; CGST AMOUNT
       Storage        :  iamt  : Amount     ;;;;;;; IGST AMOUN
       Storage          :    csamt :Amount        ;;;;;; CESS AMOUNT
    
    
    [Collection    : GSTR2A_BILLSummary]
        Source Collection: INVGSTR2A
        Title        : "GSTIN-NO LIST"
        Walk         :    b2b
        Compute     : SupplierGSTn          :$ctin
        Compute     : cfs                :$cfs
        Compute     : cname             :$cName
        Compute Var : cvinvcnt             : Number     : $$NumItems
        Compute        :NumberofBills        : $$Number:##cvinvcnt
        Walk        : Inv
        Compute        : VoucherNumber      : $inum
        Compute        : VoucherDate        : $idt
        Compute        :IsReversecharge    :$rchrg
       
        Walk        : itms, itm_det
       
        Compute        : GSTRate            :$$String:$rt
        Compute     : InvoiceTotal         :$$AsAmount:$val
        Compute     :TaxableAmount         :$txval
        Compute     :IGST                :IF $$IsEmpty:$iamt THEN $$AsAmount:"0" ELSE $iamt
        Compute     :CGST                :IF $$IsEmpty:$camt THEN $$AsAmount:"0" ELSE $camt
        Compute     :SGST                :IF $$IsEmpty:$samt THEN $$AsAmount:"0" ELSE $samt
        Compute     :CESS                :IF $$IsEmpty:$csamt THEN $$AsAmount:"0" ELSE $csamt
        Compute        :INVOICETYPE        :"BILL"
       
    
        Format:$INVOICETYPE
        Format:$CFS
        Format:$PartyName,35
        Format:$SupplierGSTn,10
        Format:$NumberofBills,10
        Format:$VoucherNumber,10
        Format:$VoucherDate,10
        Format:$IsReversecharge,10
        Format:$GSTRate,10
        Format:$InvoiceTotal,10
        Format:$TaxableAmount,10
        Format:$IGST,10
        Format:$CGST,10
        Format:$SGST,10
        Format:$CESS,10
       
    
    [Collection:GSTR2APartywiseSummery]
        Source Collection:GSTR2A_BILLSummary
       
        Fetch        : *.*
       
    
        By:SupplierGSTn:$SupplierGSTn
        ;By:GSTRATE:$GSTRATE
        By:VoucherNumber:$VoucherNumber
        Sort:@@Default: $SupplierGSTn
       
        Compute:PartyName:$$CollectionFieldByKey:$Name:$SupplierGSTn:RBC_PartyGstnWise
        Aggr Compute:TaxableAmount1:Sum:IF $$IsEmpty:$TaxableAmount THEN $$AsAmount:"0" ELSE  $$AsAmount:$TaxableAmount
        Aggr Compute:IGST1:Sum:IF $$IsEmpty:$IGST THEN $$AsAmount:"0" ELSE $$AsAmount:$IGST
        Aggr Compute:CGST1:Sum:IF $$IsEmpty:$CGST THEN $$AsAmount:"0" ELSE $$AsAmount:$CGST
        Aggr Compute:SGST1:Sum:IF $$IsEmpty:$SGST THEN $$AsAmount:"0" ELSE $$AsAmount:$SGST
        Aggr Compute:CESS1:Sum:IF $$IsEmpty:$CESS THEN $$AsAmount:"0" ELSE $$AsAmount:$CESS
        Compute:TotalVoucherAmt:$TaxableAmount1+$IGST1+$CGST1+$SGST1+$CESS1
        Compute:InvoiceTotal:$InvoiceTotal
    
        Format:$INVOICETYPE
        Format:$CFS
        Format:$PartyName,35
        Format:$SupplierGSTn,10
        Format:$NumberofBills,10
        Format:$VoucherNumber,10
        Format:$VoucherDate,10
        Format:$IsReversecharge,10
        Format:$$Number:$GSTRate,10
        Format:$InvoiceTotal,10
        Format:$TaxableAmount1,10
        Format:$IGST1,10
        Format:$CGST1,10
        Format:$SGST1,10
        Format:$CESS1,10
       
       
    
    [Collection:GSTR2APartywiserateSummery]
        Source Collection:GSTR2A_BILLSummary
       
        Fetch        : *.*
       
    
        By:SupplierGSTn:$SupplierGSTn
        By:GSTRATE:$GSTRATE
        ;By:VoucherNumber:$VoucherNumber
        Sort:@@Default: $SupplierGSTn
       
        Compute:PartyName:$$CollectionFieldByKey:$Name:$SupplierGSTn:RBC_PartyGstnWise
        Aggr Compute:TaxableAmount1:Sum:$$AsAmount:$TaxableAmount
        Aggr Compute:IGST1:Sum:$$AsAmount:$IGST
        Aggr Compute:CGST1:Sum:$$AsAmount:$CGST
        Aggr Compute:SGST1:Sum:$$AsAmount:$SGST
        Aggr Compute:CESS1:Sum:$$AsAmount:$CESS
        Compute:TotalVoucherAmt:$TaxableAmount1+$IGST1+$CGST1+$SGST+$CESS
       
    
        Format:$INVOICETYPE
        Format:$CFS
        Format:$PartyName,35
        Format:$SupplierGSTn,10
        Format:$NumberofBills,10
        Format:$VoucherNumber,10
        Format:$VoucherDate,10
        Format:$IsReversecharge,10
        Format:$$Number:$GSTRate,10
        Format:$InvoiceTotal,10
        Format:$TaxableAmount1,10
        Format:$IGST1,10
        Format:$CGST1,10
        Format:$SGST1,10
        Format:$CESS1,10
        Filter:IspartyGSTnSame
       
    
    
    
    [Collection:GSTR2APartywisebILLWISESummery]
        Source Collection:GSTR2A_BILLSummary
       
        Fetch        : *.*
       
    
        By:SupplierGSTn:$SupplierGSTn
        ;By:GSTRATE:$GSTRATE
        By:VoucherNumber:$VoucherNumber
        Sort:@@Default: $SupplierGSTn
       
        Compute:PartyName:$$CollectionFieldByKey:$Name:$SupplierGSTn:RBC_PartyGstnWise
        Aggr Compute:TaxableAmount1:Sum:$$AsAmount:$TaxableAmount
        Aggr Compute:IGST1:Sum:$$AsAmount:$IGST
        Aggr Compute:CGST1:Sum:$$AsAmount:$CGST
        Aggr Compute:SGST1:Sum:$$AsAmount:$SGST
        Aggr Compute:CESS1:Sum:$$AsAmount:$CESS
        Compute:TotalVoucherAmt:$TaxableAmount1+$IGST1+$CGST1+$SGST+$CESS
       
    
        Format:$INVOICETYPE
        Format:$CFS
        Format:$PartyName,35
        Format:$SupplierGSTn,10
        Format:$NumberofBills,10
        Format:$VoucherNumber,10
        Format:$VoucherDate,10
        Format:$IsReversecharge,10
        Format:$$Number:$GSTRate,10
        Format:$InvoiceTotal,10
        Format:$TaxableAmount1,10
        Format:$IGST1,10
        Format:$CGST1,10
        Format:$SGST1,10
        Format:$CESS1,10
        Filter:IspartyGSTnSame
       
    
    [Collection:GSTR2ABILLWISERATESummery]
        Source Collection:GSTR2A_BILLSummary
       
        Fetch        : *.*
       
    
        By:SupplierGSTn:$SupplierGSTn
        By:GSTRATE:$GSTRATE
        By:VoucherNumber:$VoucherNumber
        Sort:@@Default: $SupplierGSTn
       
        Compute:PartyName:$$CollectionFieldByKey:$Name:$SupplierGSTn:RBC_PartyGstnWise
        Aggr Compute:TaxableAmount1:Sum:$$AsAmount:$TaxableAmount
        Aggr Compute:IGST1:Sum:$$AsAmount:$IGST
        Aggr Compute:CGST1:Sum:$$AsAmount:$CGST
        Aggr Compute:SGST1:Sum:$$AsAmount:$SGST
        Aggr Compute:CESS1:Sum:$$AsAmount:$CESS
        Compute:TotalVoucherAmt:$TaxableAmount1+$IGST1+$CGST1+$SGST+$CESS
       
    
        Format:$INVOICETYPE
        Format:$CFS
        Format:$PartyName,35
        Format:$SupplierGSTn,10
        Format:$NumberofBills,10
        Format:$VoucherNumber,10
        Format:$VoucherDate,10
        Format:$IsReversecharge,10
        Format:$$Number:$GSTRate,10
        Format:$InvoiceTotal,10
        Format:$TaxableAmount1,10
        Format:$IGST1,10
        Format:$CGST1,10
        Format:$SGST1,10
        Format:$CESS1,10
        Filter:IsvOUCERNOSame
    
    [Collection    : RBC_PartyGstnWise]
        Type        : Ledger
        ;Child Of    : $$GroupSundryCreditors; Group would be Sundry Debtors for GSTR1
        Fetch        : PartyGSTIN, Name
     
        Format        : $PartyGSTIN, 20
        Format        : $Name, 25
    
        Search Key    : $PartyGSTIN
        Sort        : @@Default : $PartyGSTIN
        Filter        : RBCnonEmptyGstin
       
    
    
    
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;CREDIT NOTE
    
    [System            : Formulae]
        RBCnonEmptyGstin    : Not $$Isempty:$PartyGSTIN
        IspartyGSTnSame: $SupplierGSTn= ##MPIGSTIN
        IsvOUCERNOSame: $VoucherNumber= ##BillNo
    
    
    
    [Collection    : CDNGSTR2A]
        Data Source    : File JSONZip: ##Rbc_jsn_PathFile
        ;JSON Object Path:b2b:1
        ;JSON Object : GSTR2ATable
        Fetch : *.*
        Client Only:Yes
       
    
    
    [Object    :CDNGSTR2ATable]
        Collection    :     cdn        : CDNb2bObject
    
    [Object        :    CDNb2bObject]
    
        Storage    :    ctin    : String ;;;;;;; SUPPLIER GSTN NO
        Storage    :    cfs     : String ;;;;;;;
        Storage    :    cname   : String
        Collection :     nt     : CDNObject
                
    [Object    : CDNObject]
        
        Storage        :  val        : Number ;;;;;; CREDIT NOTE TOTAL
        Storage        :  ntty    : String ;;;;;;; NOTE TYPE
        ;Storage        :  pos        : Number ;;;;;;; STATECODE
        Storage        :  idt        : String ;;;;;;; INVOICE DATE
        Storage            : nt_dt        : String ;;;;;Note Date
        Storage        :  p_gst      : String ;;;;;;; ISPOSTGST
        Storage        :  inum       : String ;;;;;;; INVOICE NUMBER
        Storage           : nt_num:String    ;;;;;Note number
        Storage        :  chksum     : String ;;;;;;; UNIQUE CODE
        
        Collection     : itms         : CDNitmsObject
                
    [Object    : CNDitmsObject]
        Storage    :     num    : Number
        Collection    : itms     : CDNitm_detObject
    [Object: CNDitm_detObject]
       Storage        :  samt    : Amount ;;;;;; SGST AMOUNT
       Storage        :  rt     : Number  ;;;;;; GST RATE
       Storage        :  txval  : Amount    ;;;;;; TAXABLE VALUE
       Storage        :  camt  : Amount    ;;;;;;; CGST AMOUNT
       Storage        :  iamt  : Amount     ;;;;;;; IGST AMOUN
       Storage          :    csamt :Amount        ;;;;;; CESS AMOUNT
    
    
    [Collection    : GSTR2A_CDNSummary ]
        Source Collection: CDNGSTR2A
        Title: "GSTIN-NO LIST"
        Walk :    cdn,
        Compute        : SupplierGSTn    :$ctin
        Compute    : cfs    :$cfs
        Compute    : cname :$cName
        Compute Var    : cvinvcnt : Number : $$NumItems
        Compute:NumberofBills: $$Number:##cvinvcnt
        Walk    : nt
        Compute    : VoucherNumber    : $inum
        Compute    : VoucherDate    : $idt
        Compute        :IsReversecharge:$rchrg
        Walk    : itms
        Walk: itm_det
        Compute    : GSTRate    : $rt
     
       Compute : InvoiceTotal     :$val
       Compute :TaxableAmount     :$txval
       Compute :IGST    :$iamt
       Compute :CGST    :$camt
       Compute :SGST    :$samt
       Compute :CESS    :$csamt
        Format:"CREDIT NOTE"
        Format:$SupplierGSTn,10
        Format:$NumberofBills,10
        Format:$VoucherNumber,10
        Format:$VoucherDate,10
        Format:$IsReversecharge,10
        Format:$GSTRate,10
        Format:$InvoiceTotal,10
        Format:$TaxableAmount,10
        Format:$IGST,10
        Format:$CGST,10
        Format:$SGST,10
        Format:$CESS,10
       
    
    
    
    
    
       
    [Function:PurchaseGVTYP]
        Variable    : ProgressCount        : Number
        Variable      : Counter             : Number
       
        000 : SET : Counter   : 0 
        001 : START PROGRESS  : 1   : "Importing Master" : @@CmpMailName : "Creating Voucher Type ..."
       
       
        042        :            NEW OBJECT            : VOUCHER TYPE
        043      :            Set Value                : Name                     : "GSTR2A"
        044      :           Set Value               : Parent                 : "Purchase"
        050        :            Set Value                : Numbering Method        : "Manual"
        055        :            Set Value                : IsOptional            : "Yes"
        056        :            Set Value                : Prevent Duplicates    : "Yes"
       
        060      :        CREATE TARGET
    
       
        160      :        CREATE TARGET
       
        180     :                 INCREMENT             : Counter
        190     :                 SHOW PROGRESS             : ##Counter
        200     :     END PROGRESS
        ;210        :    Msg Box: "Ledger Auto Creation !!!":"IGST Ledger Imported Successfully !!!"
        211     :     RETURN
    
    
    
    
    
    
    [Function:GSTR2AIMPO]
       
        Variable    : ProgressCount        : Number
        Variable      : Counter             : Number
       
        Variable    : BillNo            : String   
       
        Variable    : MPIGSTIN    : String
        Variable    : MPIDate            : String
        Variable    : MPIRefno            : String
        Variable    : MPIPartyName        : String
        Variable    : MPIPartyState        : String
        variable    : MPI PurhcaseNil    : Amount
        Variable    : MPI Purchase5        : Amount
        Variable    : MPI purchase12    : Amount
        Variable    : MPI purchase18    : Amount
        Variable    : MPI purchase28    : Amount
        Variable    : MPI SGSTINPUT        : Amount
        Variable    : MPI CGSTINPUT        : Amount
        Variable    : MPI iGSTINPUT        : Amount
        Variable    : MPI GrandTotal     : Amount
       
    
        00 : SET : Counter   : 0 
        10    :IF :$$IsEmpty:$Name:VoucherType:"GSTR2A"
        15    : Call: PurchaseGVTYP
        19    : End If
        ;10: Call:PurchasePartyLedgerCreation
        20 : START PROGRESS  : ($$NumItems:GSTR2APartywiseSummery)   : "Importing GSTR2A" : @@CmpMailName : "Importing GSTR2A ..." ;+ $$NewLine + $$String:($$NumItems:VCHLVExcellVariableBillWise)+$$String:"/"+$$String:##Counter
        30 : WALK COLLECTION : GSTR2APartywiseSummery
    
        ;;-------------------------------------------------
        ;;Create Party Ledger under Sundry Creditors if party ledger name not found
        39        :    Set: MPIGSTIN:$SupplierGSTn
        40      :       Set             : BillNo         : $VoucherNumber   
        41      :     IF :$$IsEmpty:$PartyName
        42        :            NEW OBJECT            : Ledger
        43      :            Set Value                : Name                     : $SupplierGSTn
        44      :           Set Value               : Parent                 : "Sundry Creditors"
        45        :            Set Value                : GSTRegistrationType    : "Regular"
        46        :            Set Value                : PartyGSTIN            : $SupplierGSTn
        47        :            Set Value                : CountryofResidence    : "India"
        48        :            Set Value                : LedStateName            : If $$IsStatepurchase:$SupplierGSTn then "Maharashtra" else ""
        49        :            Set Value                :IsBillWiseOn            :"No"
        50      :        CREATE TARGET
        51      :       END IF    
        52        : Set  : MPI GrandTotal : @@GrandTotal
        ;53        : Log:"invoice Total- "+$$String:@@GrandTotal;@@GRANDTOTAL
        ;48        : Log: $$String:"Grand Total"+ $$String:##MPIGrandTotal
        ;;-------------------------------------------------
        ;;Basic Info
    
        81     :     SET                 : SVViewName             : $$SysName:AcctgVchView
       
        83    :     NEW OBJECT        : Voucher
        84    :     SET VALUE        : Date                : $$Date:$VoucherDate
        85    :     SET VALUE        : VoucherTypeName        : "GSTR2A"
        86      :     SET VALUE        : Narration            : "GSTR 2A DETAILS: - PartyName:-"     + $$String:$PartyName + " GSTIN NO.- " + $$String:$SupplierGSTn + " Taxable AMOUNT - " + $$String:$TaxableAmount1 + " CGST AMOUNT - " + $$String:$CGST1 + " SGST AMOUNT - " + $$String:$SGST1 + " IGST AMOUNT - " + $$String:$IGST1 + " CESS AMOUNT - " + $$String:$CESS1 + " INVOICE TOTAL : - " + $$String:@@GRANDTOTAL
        87      :     SET VALUE        : VoucherNumber            : ##BillNo
        88      :     SET VALUE        : Reference            : ##BillNo
        89        :    Set Value        : Isoptional        :"Yes"
        90        :     Set Value        : CFS1                : IF $CFS = "Y" THEN "Yes" else "No"
        91        :     Set Value        : iSREVERSECHARGE1    : if $IsReversecharge = "N" THEN "No" else "Yes"
        ;90        :    Log: $$Date:$SupBillDate
        95      :     SET VALUE        : ReferenceDate :$$Date:$VoucherDate
       
        ;;---------------------------------------------------------
        ;;TO Entry
       
        ;58    : Log: $$String:"InvoiceTotal: "+ $$String:##MPIGrandTotal
        101      :     INSERT COLLECTION OBJECT    : LedgerEntries
        102     :     SET TARGET            : LedgerEntries
        103    :    SET VALUE            : LedgerName        : If $$IsEmpty:$PartyName then $SupplierGSTn else $PartyName
        104    :     SET VALUE            : Amount        : $$AsAmount:@@GrandTotal
        105    :     SET VALUE            : Is Deemed Positive    : "No"
        106    :     SET TARGET            : ..
    
       
    
        ;;---------------------------------------------------------
        ;;BY PURCHASE Entry
        107: Walk Collection:GSTR2ABILLWISERATESummery
        P160    :    If: $$IsStatepurchase:$SupplierGSTn
        P170    :     INSERT COLLECTION OBJECT    : LedgerEntries
        P171    :     SET TARGET            : LedgerEntries
        P172    :    SET VALUE            : LedgerName            : @@PURCHASESTATElEDGER;##purchaseimportvar2
        P173    :     SET VALUE            : Amount                : $TaxableAmount
        ;P174    :    Set Value            : GSTOVRDNNATURE        :"Purchase Exempt"
        P176    :     SET VALUE            : Is Deemed Positive    : "Yes"
        P177    :     SET TARGET            : ..
        P178    :    End If
       
        P260    :    If: Not $$IsStatepurchase:$SupplierGSTn
        P270    :     INSERT COLLECTION OBJECT    : LedgerEntries
        P271    :     SET TARGET            : LedgerEntries
        P272    :    SET VALUE            : LedgerName        : @@PURCHASEOMSlEDGER;##purchaseimportvar7
        P273    :     SET VALUE            : Amount        : $TaxableAmount
        ;P274    :    Set Value            : GSTOVRDNNATURE        : if $$IsEmpty:$TIGST and not $$IsEmpty:$TCGST then "Purchase Taxable" Else "Interstate Purchase Taxable"
        P276    :     SET VALUE            : Is Deemed Positive    : "Yes"
        P277    :     SET TARGET            : ..
        p278    :    End If
        108        :    End Walk
        ;;---------------------------------------------------------
        ;;BY Gst Enty
        G160    :    If: $$IsStatepurchase:$SupplierGSTn
        G180    :     INSERT COLLECTION OBJECT    : LedgerEntries
        G181    :     SET TARGET            : LedgerEntries
        G182    :    SET VALUE            : LedgerName        : "CGST INPUT";##purchaseimportvar3
        G183    :     SET VALUE            : Amount        : $CGST1
        G184    :     SET VALUE            : Is Deemed Positive    : "Yes"
        G185    :     SET TARGET            : ..
        G190    : End If
       
       
        G280    :     INSERT COLLECTION OBJECT    : LedgerEntries
        G281    :     SET TARGET            : LedgerEntries
        G282    :    SET VALUE            : LedgerName        : "SGST INPUT";##purchaseimportvar4
        G283    :     SET VALUE            : Amount        : $SGST1
        G284    :     SET VALUE            : Is Deemed Positive    : "Yes"
        G285    :     SET TARGET            : ..
       
        G360    :    If: Not $$IsStatepurchase:$SupplierGSTn
        G380    :     INSERT COLLECTION OBJECT    : LedgerEntries
        G381    :     SET TARGET            : LedgerEntries
        G382    :    SET VALUE            : LedgerName        : "IGST INPUT";##purchaseimportvar5
        G383    :     SET VALUE            : Amount        : $IGST1
        G384    :     SET VALUE            : Is Deemed Positive    : "Yes"
        G385    :     SET TARGET            : ..
        G390    : End If
        ;G480    :     INSERT COLLECTION OBJECT    : LedgerEntries
        ;G481    :     SET TARGET            : LedgerEntries
        ;G482    :    SET VALUE            : LedgerName        : "ROUND";##purchaseimportvar6
        ;G483    :     SET VALUE            : Amount        : if $$IsNegative:(@@RoundValue) then @@RoundValue1 else @@RoundValue
        ;G484    :     SET VALUE            : Is Deemed Positive    :if $$IsNegative:(@@RoundValue) then "Yes" else "No"
        ;G485    :     SET TARGET            : ..
        ;G486    : Log: $$String:"Bill No. "+ $$String:##MPIBillNo + $$String:"Round Value. " +$$String:@@RoundValue
        ;;---------------------------------------------------------   
        109    :     CREATE TARGET   
        ;;---------------------------------------------------------
    
        110     :       SET VALUE               : PersistedView     : ##SVViewname
        130     :     INCREMENT             : Counter
        140     :     SHOW PROGRESS             : ##Counter
       
        150     :     END WALK
        160     :     END PROGRESS
        155        :    Msg Box: "GSTR2A Imported Successful":"GSTR2A Imported Successful"
        ;170     :     RETURN
       
    
    
    [Function:IsStatepurchase]
       
        Parameters: P1 :String
        Variable:STATECODE:String
        Return:Logical
       
        ;000:Set:INPUT:$$FileReadCell:##RowIndex:4
        010:Set:STATECODE:$$StringPart:##P1:0:2
        030: Return :@@statesales
       
    [System:Formulas]
        statesales: if ##STATECODE = "27" then "Yes" else "No"
        PURCHASESTATElEDGER: IF $GSTRate= "0" THEN "GSTR2A_0" ELSE IF $GSTRate= "5" THEN "GSTR2A_5" ELSE IF $GSTRate= "12" THEN "GSTR2A_12" ELSE IF $GSTRate= "18" THEN "GSTR2A_18" ELSE "GSTR2A_28"
        PURCHASEOMSlEDGER: IF $GSTRate= "0" THEN "GSTR2A_I0" ELSE IF $GSTRate= "5" THEN "GSTR2A_I5" ELSE IF $GSTRate= "12" THEN "GSTR2A_I12" ELSE IF $GSTRate= "18" THEN "GSTR2A_I18" ELSE "GSTR2A_I28"
        GrandTotal :$$AsAmount:($TaxableAmount1+$IGST1+$CGST1+$SGST1+$CESS1)
    
     
    gangstar and psr like this.


  5. anish

    anish Member


    Thank you very much for Sharing !
     


  6. G Vijay

    G Vijay Member


    Hello

    I'm getting error : FUNCTION: 'GSTR2AIMPO' LABEL: 90 : Invalid Method Name: CFS1,
    how to sort out this Issue.

    Thanks in advance
     


Share This Page