1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Ledger Monthly Summary -Button in Invoice Creation Window

Discussion in 'Tally Developer' started by NSA, Oct 26, 2021.

    
  1. NSA

    NSA Member


    Here is a small code to switch to the monthly summary of Party from the same window of invoice creation.
    Hope, it will be helpful for the people.

    [#Form:Default]
    Add:Option:RCPminiDefaultForm:mad:@ISsales or @@ISPurchase
    [!Form:RCPminiDefaultForm]
    Add:Toolbar Buttons: before : HelpButton:RCPMiniLedgerViewButton
    [Button:RCPMiniLedgerViewButton]
    Title:"Mini"
    Key:Ctrl+1
    Inactive:$$Isempty:$PartyLedgerName
    Action:Call:RCPMiniLedSelectFunction

    [Function: RCPMiniLedSelectFunction]
    Variable:LedgerName
    00:Set:LedgerName:$PartyLedgername
    10:Display:Ledger Monthly summary
     
    NSA, Oct 26, 2021
    #1
    Watheq likes this.


  2. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Very nice. good code. Keep it up.
     
    Amit Kamdar, Oct 28, 2021
    #2
    NSA likes this.


  3. NSA

    NSA Member


    Th
    Thank You Sir
     
    NSA, Oct 29, 2021
    #3


  4. Watheq

    Watheq New Member


    its brilliant, simple, short and very much effective.
     
    Watheq, Nov 4, 2021
    #4


  5. NSA

    NSA Member


    Thank You Sir
     
    NSA, Nov 7, 2021
    #5


  6. NSA

    NSA Member


    Yes, because "Necessity is the Mother of Invention"
    ;);););):D:D:D

    Thank you
    [​IMG]
     
    NSA, Nov 7, 2021
    #6


  7. MZMS

    MZMS New Member


    Hello Sir.
    How to use it?
     
    MZMS, Nov 9, 2021
    #7


  8. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Load File and press ctrl+1 in Sales n Purchase Voucher entry screen.
     
    Amit Kamdar, Nov 9, 2021
    #8
    NSA likes this.


  9. saravanan1999

    saravanan1999 New Member


    Hello Sir,

    I Have a query, i am trying to get the sales register inventry product items but i have only geting first product in each entry.
    I had tryed below code
    Please help me to get all product in sales register


    <ENVELOPE>
    <HEADER>
    <VERSION>1</VERSION>
    <TALLYREQUEST>Export</TALLYREQUEST>
    <TYPE>Data</TYPE>
    <ID>All Vouchers</ID>
    </HEADER>
    <BODY>
    <DESC>
    <STATICVARIABLES>
    <EXPLODEFLAG>Yes</EXPLODEFLAG>
    <SVEXPORTFORMAT>$$SysName:XML</SVEXPORTFORMAT>
    <SVFROMDATE>${fromDate}</SVFROMDATE>
    <SVTODATE>${toDate}</SVTODATE>
    <DBINVEXPLODEFLAG>Yes</DBINVEXPLODEFLAG>
    </STATICVARIABLES>
    <TDL>
    <TDLMESSAGE>
    <REPORT NAME="All Vouchers">
    <FORMS>SalesRegisterGR</FORMS>
    <TITLE>SalesRegisterGR </TITLE>
    </REPORT>
    <FORM NAME="SalesRegisterGR">
    <TOPPARTS>SalesRegisterGR, SYNCHeader, RTS SVSRMBody</TOPPARTS>
    <XMLTAG>"TallyGraphs"</XMLTAG>
    </FORM>
    <PART NAME="RTS SVSRMBody">
    <TOPPARTS>RTS SVSRMResponse</TOPPARTS>
    <XMLTAG>"BODY"</XMLTAG>
    <Vertical>Yes</Vertical>
    </PART>
    <PART NAME="RTS SVSRMResponse">
    <TOPPARTS>RTS SVSRMData</TOPPARTS>
    <XMLTAG>"IMPORTDATA"</XMLTAG>
    <Vertical>Yes</Vertical>
    </PART>
    <PART NAME="RTS SVSRMData">
    <TOPPARTS>RTS SVSRMTallyMsg</TOPPARTS>
    <XMLTAG>"REQUESTDATA"</XMLTAG>
    <Vertical>Yes</Vertical>
    </PART>
    <PART NAME="RTS SVSRMTallyMsg">
    <TOPLINES>RTS SVSRMMsgs Main</TOPLINES>
    <REPEAT>RTS SVSRMMsgs Main : RTS SVSendRemoteMsgs</REPEAT>
    <SCROLLED>Vertical</SCROLLED>
    </PART>
    <LINE NAME="RTS SVSRMMsgs Main">
    <XMLTAG>"TALLYMESSAGE"</XMLTAG>
    <XMLAttr>"xmlns:UDF" : "TallyUDF"</XMLAttr>
    <LINE>RTS SVSRMMsgs</LINE>
    </LINE>
    <LINE NAME="RTS SVSRMMsgs">
    <Field>Simple Field</Field>
    <FullObject>Yes</FullObject>
    </LINE>
    <PART NAME="SalesRegisterGR">
    <TOPLINES>SalesRegister Line Title, SalesRegister Details </TOPLINES>
    <REPEAT>SalesRegister Details : GetLedgerCollAmt</REPEAT>
    <SCROLLED>Vertical</SCROLLED>
    <COMMONBORDERS>Yes</COMMONBORDERS>
    </PART>
    <LINE NAME="SalesRegister Line Title">
    <USE>SalesRegister Details</USE>
    <LOCAL>Field : Default : Type : String </LOCAL>
    <LOCAL>Field : Field PartyLedgerName : Set as: "AmounrtyLedgerName : Set as: "Group Name"</LOCAL>
    <LOCAL>Field : Field Credit Amountt"</LOCAL>
    <LOCAL>Field : Field VoucherKey : Set as:$VoucherKey</LOCAL>
    <LOCAL>Field : Field VoucherNumber : Set as:$VoucherNumber</LOCAL>
    <LOCAL>Field : Field VoucherTypeName : Set as: "VoucherTypeName"</LOCAL>
    <LOCAL>Field : Field STKName : Set as:"STKNAME"</LOCAL>
    <LOCAL>Field : Field STName : Set as:"STNAME"</LOCAL>
    </LINE>
    <LINE NAME="SalesRegister Details">
    <LEFTFIELDS>PartyLedgerName</LEFTFIELDS>
    <RIGHTFIELDS>Amount,SalesDate,InvoiceNo,GrossRevenue,VoucherKey,VoucherNumber,Field VoucherTypeName,STKName,STName</RIGHTFIELDS>
    <XMLTAG>SalesRegister</XMLTAG>
    </LINE>
    <FIELD NAME="PartyLedgerName">
    <USE>Name Field</USE>
    <SET>$SalesLedgerName</SET>
    </FIELD>
    <FIELD NAME="SalesDate">
    <USE>Name Field</USE>
    <SET>$Date</SET>
    </FIELD>
    <FIELD NAME="InvoiceNo">
    <USE>Name Field</USE>
    <SET>$VoucherNumber</SET>
    </FIELD>
    <FIELD NAME="Amount">
    <USE>Name Field</USE>
    <SET>$AprAmt</SET>
    </FIELD>
    <FIELD NAME="GrossRevenue">
    <USE>Name Field</USE>
    <SET>$GrossRevenue</SET>
    </FIELD>
    <FIELD NAME="VoucherKey">
    <USE>NUMBER</USE>
    <SET>$VoucherKey</SET>
    </FIELD>
    <FIELD NAME="VoucherNumber">
    <USE>NUMBER</USE>
    <SET>$VoucherNumber</SET>
    </FIELD>
    <FIELD NAME="Field VoucherTypeName">
    <USE>Name Field</USE>
    <SET>$VoucherTypeName</SET>
    </FIELD>
    <FIELD NAME="STKName">
    <USE>Name Field</USE>
    <SET>$STKINAME</SET>
    </FIELD>
    <FIELD NAME="STName">
    <USE>Name Field</USE>
    <SET>$BaseUnits:StockItem:#Stkname</SET>
    </FIELD>
    <COLLECTION NAME="AllVoucher" ISMODIFY="No">
    <TYPE>Voucher</TYPE>
    <CHILDOF>$$VchTypeSales</CHILDOF>
    <BELONGSTO>YES</BELONGSTO>
    <FETCH>SVFROMDATE,SVTODATE,VoucherNumber,LedgerName,Date,Amount,VoucherTypeName,Date,RATEDETAILS.List,GSTDetails.List,LedgerEntries.List,AllInventoryEntries.List,Ledger Vouchers</FETCH>
    </COLLECTION>
    <COLLECTION NAME="GetLedgerCollAmt" ISMODIFY="No">
    <SourceCOLLECTION>AllVoucher</SourceCOLLECTION>
    <By>VoucherNumber : $VoucherNumber</By>
    <By>Date : $Date</By>
    <compute>SalesLedgerName :$LedgerName</compute>
    <compute>GrossRevenue :$GrossRevenue</compute>
    <compute>VoucherKey :$VoucherKey</compute>
    <compute>VoucherNumber :$VoucherNumber</compute>
    <compute>VoucherTypeName :$VoucherTypeName</compute>
    <compute>AprAmt : $Amount </compute>

    <AggrCompute>Amount : Sum : $Amount</AggrCompute>
    <Compute>STKINAME:$Stockitem</Compute>
    <FILTERS>Filter_IsSales,Filter_DateRange</FILTERS>
    </COLLECTION>
    <COLLECTION NAME="RTS SVSendRemoteMsgs">
    <TYPE>Voucher</TYPE>
    <FETCH>*.*</FETCH>
    <FETCH>LedgerEntries.*</FETCH>
    <FILTERS>LedgerFilterVal,Filter_IsSales,Filter_DateRange,IsOptionalFilter</FILTERS>
    </COLLECTION>
    <SYSTEM TYPE="Formulae" NAME="LedgerFilterVal">$$IsLedOfGrp:$PartyNameExpEXP:$$GroupSundryDebtors</SYSTEM>
    <SYSTEM TYPE="Formulae" NAME="Filter_DateRange">($Date&gt;=$$Date:##SVFROMDATE) AND ($Date&lt;=$$Date:##SVTODATE)</SYSTEM>
    <SYSTEM TYPE="Formulae" NAME="Filter_IsSales">($$IsSales:$VoucherTypeName)</SYSTEM>
    <SYSTEM TYPE="Formulae" NAME="IsOptionalFilter">NOT $IsOptional</SYSTEM>
    </TDLMESSAGE>
    </TDL>
    </DESC>
    </BODY>
    </ENVELOPE>
     
    saravanan1999, Nov 10, 2021
    #9


Share This Page