Tally chapter 96 TDL for multi sales entry by Rajiv Mishra Computer class

-

   TDL CODE

Multiple Sales entry in few Seconds









[#Menu: Gateway of Tally]   
   
    Add    : Item   : "Bulk Sales Entry" : Alter : CphSales EntryRpt
   
    [Report : CphSales EntryRpt]
       
        Form    : CphSales EntryFrm
        Title   : $$LocaleString:"Bulk Sales Entry"
        Object    : Company
       
        ;Fetch Collection: Sales Support Ledgers Extract, Party Ledgers Extract
       
               
        [Form : CphSales EntryFrm]
           
            Part         : Form SubTitle, CphSales CrLedPrt, CphSales DrLedPrt
            Width        : 70% Page
            Height        : 100% Page
            Space Left    : 0.25
            Space Right    : 0.25   
            Horizontal Align: Left
           
            Local        : Field    : Form SubTitle    : Info        : "Bulk Sales Entry"
           
            On        : Form Accept : yes        : Form Accept
            On         : Form Accept : yes     : Call     : CphSale BulkAutoEntry


       


            [Part : CphSales CrLedPrt]
               
                Line : CphSales CrLedLne
               
                    [Line : CphSales CrLedLne]
   
                        Field    : Medium Prompt, CphSales CrLedFld                       
                        Local    : Field    : Medium Prompt    : Info    : $$LocaleString:"Credit Ledger"
                        Space Bottom    : 0.50
                       

                        [Field    : CphSales CrLedFld]
                           
                            Type        : String
                            Use            : Name Field
                            Table        : CphSales SalesLed
                            Storage        : LedgerName
                            Show Table    : Always
                            Case        : Title Case
                            Width        : 50
                            Align        : Left
                            Border        : Thin Box
                           
                                [Collection: CphSales SalesLed]
   
                                    Title         : "List of Ledgers"
                                    Type         : Ledger
                                    Child of     : $$GroupSales
                                    Belongs to     : yes
                                    Format         : $Name,30
                                    Align         : Right
                                    Full Height : Yes
                           


                  

            [Part : CphSales DrLedPrt]
               
                Line     : CphSales DrLedTtleLne, CphSales DrLedDetlsLne
                Repeat    : CphSales DrLedDetlsLne : CphSalesCollection
                Scroll            : Vertical
                Common Border    : Yes
                Break On        : $$IsEndOfList:$PartyLedgerName
               
               
                    [Line : CphSales DrLedTtleLne]
                       
                        Use        : CphSales DrLedDetlsLne       
                       
                        Local    : Field    : Default                    : Inactive    : No
                        Local    : Field    : Default                    : Delete    : Storage
                        Local    : Field    : Default                    : Type        : String                       
                        Local    : Field    : Default                    : Style        : Normal
                       
                        Local    : Field    : CphSales SerialNoFld        : Info        : $$LocaleString:"Sno."
                       
                        Local    : Field    : CphSales DateFld            : Info        : $$LocaleString:"Date"
                       
                        Local    : Field    : CphSales DebitLedgerFld    : Info        : $$LocaleString:"Debit Ledger"
                       
                        Local    : Field    : CphSales DrAmountFld        : Info        : $$LocaleString:"Amount"

                        Local    : Field    : CphSales SALESLEDNAME        : Info        : $$LocaleString:"Sales Ledger"
                        Border    : Thin TopBottom
                        Delete    : Space Top
                                               

                [Line    : CphSales DrLedDetlsLne]
                   
                    Field        : CphSales SerialNoFld, CphSales DateFld, CphSales DebitLedgerFld, CphSales SalesLedName
                    Right Field    : CphSales DrAmountFld
                   
                    Space Top    : 0.25
                   

                    [Field    : CphSales SerialNoFld]
                       
                        Use          : Short Name Field
                        Width        : @@SymWidth
                        Set as       : $$Line
                        Skip         : Yes
                                           
                       


                    [Field    : CphSales DateFld]
                       
                        Type        :     Date
                        Use            :    Short Date Field
                        Storage        :    Date
                        ;;Set as        :    $Date
                        Width        :     @@ShortWidth
                       

                    [Field    : CphSales DebitLedgerFld]
                       
                        Type        :     String
                        Use            :     Name Field
                        Table        :     CphSales SundryDebtorsLed, EndOfList       
                        Storage        :     PartyLedgerName
                        ;;Set as        :     $Name
                        Show Table    :     Always
                        Case        :     Title Case
                        Full Width    :     Yes
                        Align        :     Left
                        Inactive    :     $$IsEndOfList:$PartyLedgerName        ;;$$IsEndOfList:$Name    ;;$$IsEmpty:$Name
                       


                        [Collection: CphSales SundryDebtorsLed]
   
                            Title         : "List of Ledgers"
                            Type         : Ledger
                            Child of     : $$GroupSundryDebtors
                            Belongs to     : yes
                            Format         : $Name,30
                            Align         : Right
                            Full Height : Yes
                           
                       

                    [Field    : CphSales DrAmountFld]
                       
                        Type        :     Amount
                        Use            :    Amount Field
                        Storage        :    Amount
                        ;;Set as        :   $Amount
                        Width        :     @@ShortWidth
                        Inactive    :     $$IsEndOfList:$PartyLedgerName        ;$$IsEndOfList:$Name;;$$IsEmpty:$Name
                           
                       


                    [Field    : CphSales SALESLEDNAME]   

                        Type        :     String
                        Table        : CphSales SalesLed
                        Storage        :     SalesLedgerName
                        ;;Set as        :     $LedgerName
                        Show Table    :     Always
                        ;;Case        :     Title Case
                        Full Width    :     Yes
                        ;; Skip        :     Yes
                        Align        :     Left
                        Inactive    :     $$IsEndOfList:$PartyLedgerName        ;;$$IsEndOfList:$Name    ;;$$IsEmpty:$Name
                       
   






[Collection: CphSalesCollection]
       
    Title         : "Bulk Sales Entry"
    Type        : CphSales BulkEntry : Company
    Child Of    : ##SVCurrentCompany
                   
                       
                       

[System: UDF]

    CphSales BulkEntry             : Aggregate : 41071
    Date                    : Date        : 41072
    PartyLedgerName            : String    : 41073
    Amount                : Amount    : 41074
    SalesLedgerName            : String    : 41075

[System: UDF]
    LedgerName                : String    : 41068




[System: Variable]
    [Variable : Counter]
       Type: Number






[Function: CphSale BulkAutoEntry]

;; Procedural Block
   
    Variable : CphDate             : Date   
    Variable : CphDrLedgerName     : String
    Variable : CphCrLedgerName     : String
    Variable : CphAmount        : Amount
   
    ;;Variable : CphNoofEntry        : Number:1   
    Variable     : Counter         : Number: 1
   
    001 :     Start Batch Post        : 10
    ;;003 :     SET : Counter           : 0 
    005 :     START PROGRESS          : ($$NumItems:CphSalesCollection)   : "Creating Vouchers" : @@CmpMailName : "Creating Sales Vouchers ..."
    007 :     WALK COLLECTION         : CphSalesCollection    ;;Sales Info
    ;;000 :   SET : CphNoofEntry         : $$Line:##CphNoofEntry ;; Counter
    010 :     SET : CphDate            : $$Date:$Date
    ;; 020 :     SET : CphDrLedgerName   : $LedgerName
    ;; 030 :     SET : CphCrLedgerName   : $SalesLedgerName                    ;; $PartyLedgerName
   
    020 :     SET : CphDrLedgerName   : $PartyLedgerName
    030 :     SET : CphCrLedgerName   : $SalesLedgerName

    040 :     SET : CphAmount            : $$AsAmount:$Amount   
   
    ;040a:   WHILE : ##CphNoofEntry >= 1
    050    :     SET             :     SVViewName            : $$SysName:AcctgVchView
   
   

    060    :     NEW OBJECT        :     Voucher   
    070    :     SET VALUE         :    Date                   : ##CphDate   
    080    :     SET VALUE        :     VoucherTypeName        : $$VchTypeSales
   
    090    :    SET VALUE         :    Narration             : $Narration
    100    :    SET VALUE         :    Narration             : "For Invoice No : " + $VoucherNumber + " Auto Receipt  "


;;Debit Entry
    110    :    INSERT COLLECTION OBJECT : AllLedgerEntries
    ;;110a  :    SET TARGET        : LedgerEntries
    120    :    SET VALUE         : Ledger Name            : ##CphDrLedgerName
;;    130    :   
    140    :    SET VALUE         : IsDeemedPositive         : "Yes"   
        141     :     SET VALUE         : Amount                : ##CphAmount * (-1)     ;##CphAmount
    150    :     SET TARGET        : ..

    150a  :    LOG : $$String:##CphDrLedgerName ;+ $$String:#CphAmount + "Dr"
    ;150b  :    LOG : ##CphCrLedgerName + $$String:#CphAmount + "Cr"
   

;;Credit Entry
    160    :    INSERT COLLECTION OBJECT :  AllLedgerEntries
;;    161    :    SET TARGET        : LedgerEntries
    160a:     SET TARGET        : LedgerEntries
    170    :    SET VALUE         : Ledger Name              :   ##CphCrLedgerName
    180    :    SET VALUE         : Amount                :     ##CphAmount   ;##CphAmount
    190    :    SET VALUE         : IsDeemedPositive         :   "No"   
    200    :     SET TARGET        : ..
   
   

    210    :   SET VALUE         : PersistedView : ##SVViewName
    ;210a:     CALL             : CphSave Target Sales
    220    :   CREATE TARGET
   
    ;;230    :     SET             : CphDate            : ##CphDate
    230 :     INCREMENT         : Counter
    230a:     SHOW PROGRESS     : ##Counter
    240    :     END WALK   
    ;250    :     MSGBOX             : " Message Box " : "Successful created All the Sales Voucher"
    260 :     END PROGRESS
    ;260 :   DISPLAY            : CphSales Daybook
    ;270    :     LOG : ">>>Voucher Created on "+$$String:$$Machinedate + " @ " + $$String:$$MachineTime + ">>>>>"
    280    :   RETURN
    290 :    End Batch Post

/*
[Function: CphSave Target Sales]
   
    10 : Save Target
*/






[Report: CphSales  Daybook]

    Use        : Daybook
    Set        : VoucherTypeName    : "Sales"
    Set        : SVFromDate        : $$FinYearBeg:##StartDate:$StartingFrom:Company:##SVCurrentCompany
    Set        : SVToDate            : $$FinYearEnd:##StartDate:$StartingFrom:Company:SVCurrentCompany
           



टिप्पणियाँ

एक टिप्पणी भेजें

इस ब्लॉग से लोकप्रिय पोस्ट

Tally Chapter 153 TDL for Custom List of Stock Item By Rajiv Mishra Computer Class

-
चित्र
  Few lines are missing Here. Watch the full video for full code.   Use            : ExtractAlias Collection     Source Collection    : Stock Item Src     Collection        : StockItem PartNo With Closing     Title               : $$LocaleString:"List of Items                                     Stock Qty     LastSale Price "         Fetch               : Name, VchStkItmBalance,LastSalePrice,ClosingBalance     Set as             : $FirstName     Keep Source        : ().     Client Only        : Yes     Format          : $VchStkItmBalance...
Read more »

Tally Chapter 105 TDL for Receipt contra Payment BULK Entry by Rajiv Mishra Computer Class

-
चित्र
 TDL CODE --------------TDL CODE STARTS HERE------------------------ [#Menu: Gateway of Tally] Add : Item : "Bulk Pay/ Rec/ Contra Entry" : Alter : JennyPayment EntryRpt [Report : JennyPayment EntryRpt] Form : JennyPayment EntryFrm Title : $$LocaleString:"Bulk Payment Entry" Object : Company [Form : JennyPayment EntryFrm] Part : Form SubTitle, JennyPayment DrLedPrt;JennyPayment CrLedPrt, JennyPayment DrLedPrt Width : 100% Page Height : 100% Page Space Left : 0.25 Space Right : 0.25 Horizontal Align: Left Local : Field : Form SubTitle : Info : "Bulk Payment / Receipt / Contra Entry" On : Form Accept : yes : Form Accept On : Form Accept : yes : Call : CphSale BulkAutoEntry ;; Sales Credit Part ;; ;;------------------------------------------------------------------------------------------ ; [Part : JennyPayment CrLedPrt] ; ; Line : JennyPayment CrLedLne;,JennyPayment SalesLedName ; ; [Line : JennyPayment CrLedLne] ; ; Field : Medium Prompt, JennyPayment CrLed...
Read more »

TDL CODE for New Column in Invoice by Rajiv Mishra Computer class

-
चित्र
TDL CODE For NEW COLUMN in INVOICE    NOTE:-   2 lines of this TDL File is Missing, Please Watch the VIDEO Lesson for those lines               इस TDL FILE की  2 Lines  नही दी गै है, कृप्या  TALLY CHAPTER  87 VIDEO को जरुर देखे       TDL PLAYLIST : - https://youtube.com/playlist?list=PL3OwfzHiGFsAjgxYzZQBUtJ5btzC0dc51 TDL CHAPTER 77:- https://youtu.be/fND31-N0ESc TDL CHAPTER 78:- https://youtu.be/hIAFXaOEdXE TDL CHAPTER 79:- https://youtu.be/PW4isAdC57w TDL CHAPTER 80:- https://youtu.be/hdPuzzIyIIw TDL CHAPTER 81:- https://youtu.be/1MNuLYCzQNs . TDL CHAPTER 82:- https://youtu.be/sdsaN-OW8WU TDL CHAPTER 83:- https://youtu.be/eYF6gkGJtJU TDL CHAPTER 84:- https://youtu.be/vWcjy55NfHo TDL CHAPTER 85:- https://youtu.be/2H9C7PWPlX4 TDL CHAPTER 86:- https://youtu.be/6KV-Ldflzp8 TDL CHAPTER 87:-https://youtu.be/PBKnm4MTuWk __________________________________________ ____________...
Read more »