Bulk Entries

Discussion in 'Free Source Codes' started by A Sam, Sep 3, 2021.

    
  1. A Sam

    A Sam Member


    Hi All,

    some of our experts please help me on this; why vouchers not getting created

    I am looking for payments and receipts with reference number field on both

    Code:
    [#Menu: Gateway of Tally]  
      
        Add    : Item   : "Bulk Payment Entry" : Alter : CphSales EntryRpt
            
            [Report : CphSales EntryRpt]
          
                Form    : CphSales EntryFrm
                Title   : $$LocaleString:"Bulk Payment Entry"
                Object    : Company
          
            [Form : CphSales EntryFrm]
              
                Part        : Form SubTitle, CphSales CrLedPrt, CphSales 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 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"
                            Local    : Field    : Medium Prompt    : Width   : 17
                            Space Bottom    : 0.50
                          
                    [Field    : CphSales CrLedFld]
                              
                            Type        : String
                            Use            : Name Field
                            Table        : CashBank LedgersExtract
                            Storage        : RBCBLedgerName
                            Show Table    : Always
                            Case        : Title Case
                            Width        : 50
                            Align        : Left
                          
            [Part : CphSales DrLedPrt]
                  
                    Line        : CphSales DrLedTtleLne, CphSales DrLedDetlsLne
                    Repeat        : CphSales DrLedDetlsLne : CphSalesCollection
                    Scroll        : Vertical
                    Common Border: Yes
                    Border        : Thin Box
                  
                    Break On    : $$IsEndOfList:#CphSalesDebitLedgerFld
                  
                    [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    : CphVchNarration            : Info        : $$LocaleString:"Narration"                      
                            Local    : Field    : CphRefNo                    : Info        : $$LocaleString:"Ref No"                    
                            Local    : Field    : CphChequeNo                : Info        : $$LocaleString:"Cheque No"                    
                            Border    : Thin TopBottom
                            Delete    : Space Top
                          
                    [Line  : CphSales DrLedDetlsLne]
                      
                            Field    : CphSales SerialNoFld, CphSales DateFld, CphSales DebitLedgerFld, CphSales DrAmountFld, CphChequeNo, CphRefNo, CphVchNarration
                      
                            Border        : Thin Left
                            Space Top    : 0.25
                          
                    [Field  : CphSales SerialNoFld]
                          
                            Use        : Short Name Field
                            Width    : @@SymWidth
                            Set As    : $$Line
                            Skip    : Yes
                              Border    : Thin Right
                          
                    [Field  : CphSales DateFld]
                          
                            Type        : Date
                            Use            : Short Date Field
                            Storage        : $Date
                            Set As        : $$PrevObj:$Date           ; Line added                      
                            Set Always    : Yes                       ; Line added
                            Width        : @@ShortWidth
                            Case         : Title Case  
                            Border        : Thin Right      
                          
                    [Field  : CphSales DebitLedgerFld]
                          
                            Type        : String
                            Use         : Name Field
                            Table       : All Ledger, EndOfList      
                            Keys        : Create Ledger, Alter Ledger
                            Storage     : $PartyLedgerName
                            Show Table  : Always
                            Case        : Title Case
                            Width        : 50 ;@@NameWidth
                            Align       : Left
                   ;         Inactive    : $$IsEndOfList:$PartyLedgerName        ;;$$IsEndOfList:$Name    ;;$$IsEmpty:$Name                    
                            Border        : Thin Right                
                          
                    [Field    : CphSales DrAmountFld]
                          
                            Type        : Amount
                            Use         : Amount Field
                            Storage     : $Amount
                            Width       : @@AmountWidth
                            Inactive    : $$IsEndOfList:#CphSalesDebitLedgerFld
                            Border        : Thin Right
                          
                    [Field:CphVchNarration]
                          
                            Use            : Voucher Narration Field
                            Storage        : $Narration
                            Key            : PrevVchNarration, PrevLedNarration
                            Case        : Title Case
                            Full Width    : Yes
                            Inactive    : $$IsEndOfList:#CphSalesDebitLedgerFld
                            Border        : Thin Right
                          
                          
                    [Field:CphChequeNo]
                            Use         : Name Field
                            Width       : @@shortwidth
                            Storage     : CheNumUDf
                            Inactive    : $$IsEndOfList:#CphSalesDebitLedgerFld   ;$$IsEndOfList:$Name;;$$IsEmpty:$Name
                            Border        : Thin Right
                          
                    [Field:CphRefNo]
                            Use         : Name Field
                            Width       : @@shortwidth
                            Storage     : $VchRefNo
                            Inactive    : $$IsEndOfList:#CphSalesDebitLedgerFld
                            Border        : Thin Right
                          
        [Collection: CphSalesCollection]
          
            Title        : "Bulk Payment Entry"
            Type        : CphSales BulkEntry : Company
            Child Of    : ##SVCurrentCompany
                                                          
        [System: UDF]
    
            CphSales BulkEntry    : Aggregate : 41071
            Date                : Date      : 41072
            PartyLedgerName     : String    : 41073
            Amount              : Amount    : 41074
            RBCBLedgerName      : String    : 41075
            CheNumUDf           : String    : 41076
            VchRefNo              : String    : 41077  
            Narration           : String    : 41078
      
    ;; Bulk Auto Entry ;;
    ;;-----------------------------------------------------------------------------------------------------------------------
    
    [Function: CphSale BulkAutoEntry]
    
    ;; Procedural Block
        Parameter: MASVTypeName     : String : ##SVVoucherType
        Variable : SVVoucherType     : String
      
        Variable : CphDate          : Date  
        Variable : CphDrLedgerName  : String
        Variable : CphCrLedgerName  : String
        Variable : CphAmount        : Amount
        Variable : CphChqNo            : String
        Variable : VchRefNo            : String
        Variable : Narration        : String
      
        Variable : CphMASVchType    : String
        Variable : Counter          : Number: 1
      
        001 :    Start Batch Post        : 10
        005 :   START PROGRESS          : ($$NumItems:CphSalesCollection)   : "Creating Vouchers" : @@CmpMailName : "Creating Payment Vouchers ..."
        007 :   WALK COLLECTION         : CphSalesCollection
        010 :   SET : CphDate           : $$Date:$Date
        020 :   SET : CphDrLedgerName   : $PartyLedgerName
        030 :   SET : CphCrLedgerName   : #CphSalesCrLedFld
        040 :   SET : CphAmount         : $$AsAmount:$Amount  
        041 :   SET : CphChqNo            : #CphChequeNo
    ;    042 :   SET : ChpRefNo            : #VchRefNo
        043 :   SET : Narration          : $Narration
      
        050 :   SET  : SVViewName    : $$SysName:AcctgVchView
        060 :   NEW OBJECT            : Voucher  
        070 :   SET VALUE            : VoucherTypeName   : $$VchTypePayment  
        080 :   SET VALUE            : Date                : ##CphDate  
      
          
    ;    081 :   SET VALUE            : ChqNo    : #CphChequeNo
    ;    082 :   SET VALUE            : VchRefNo    : #CphRefNo
    
        090 :   SET VALUE            : Narration         : $Narration
    ;    100 :   SET VALUE            : Narration         : "Cheque No :" + $CheNumUDf + ", Against Bill No:"+$Narration
    
    ;;----------------------------------------------------------------------------
    ;;Debit Entry
    
        160 : INSERT COLLECTION OBJECT :  AllLedgerEntries
        160a: SET TARGET    : LedgerEntries
        170 : SET VALUE     : Ledger Name        : ##CphCrLedgerName
        180 : SET VALUE     : Amount            : ##CphAmount  ;* (-) 1 ;##CphAmount
        190 : SET VALUE     : IsDeemedPositive  : "No"
        200 : SET TARGET    : ..
      
    */
    ;----------------------------------------------------------------------------
    ;;Credit Entry
        160 : INSERT COLLECTION OBJECT : AllLedgerEntries
        170 : SET VALUE : Ledger Name : ##CphCrLedgerName
        180 : SET VALUE : Amount : ##CphAmount
        190 : SET VALUE : IsDeemedPositive : "No"
        200 : SET TARGET : ..
      
    ;Bank Allocations
        201 : IF                : ($$IsLedOfGrp:$RBCBLedgerName:$$GroupBank OR $$IsLedOfGrp:$RBCBLedgerName:$$GroupBankOD)
        202 : SET TARGET        : LedgerEntries[$$LoopIndex]
        203 : SET               : BankLedgerAmount        : $Amount
        209 : INSERT COLLECTION OBJECT                    : BankAllocations
        210 : WALK                : BankAllocations
        211 : SET TARGET        : BankAllocations[$$LoopIndex]
        220 : SET VALUE            : Date                  : $$Owner:$$Owner:$Date
        230 : SET VALUE            : TransactionType       : $$LocaleString:"Cheque"
        235 : SET VALUE            : BankName                : $RBCBLedgerName  ; ?
        240 : SET VALUE            : InstrumentNumber      : $$Owner:$$Owner:$ChqNumUDF
        250 : SET VALUE         : InstrumentDate        : $$String:##CphDate
        260 : SET VALUE            : PAYMENTFAVOURING      : $$String:##CphDrLedgerName
        270 : SET VALUE            : Amount                : (##CphAmount) *-1
        280 : SET TARGET        : ...
        281 : END WALK  
        290 : SET TARGET        : ..
        300 : END IF
      
    ;-----------------------------------------------------------------------------------
        310 : SET VALUE        : PersistedView : ##SVViewName
        320 : CREATE TARGET
        340 : INCREMENT     : Counter
        350a: SHOW PROGRESS : ##Counter
        360 : END WALK  
        370 : MSGBOX        : " Message Box " : "Successful created All the Payment Vouchers"
        380 : END PROGRESS
        390 : DISPLAY       : CphPayment Daybook
        ;390: LOG : ">>>Voucher Created on "+$$String:$$Machinedate + " @ " + $$String:$$MachineTime + ">>>>>"
        400 : RETURN
        410 : End Batch Post
      
    
      
    [Report: CphPayment  Daybook]
    
        Use        : Daybook
        Set     : VoucherTypeName    : "Payment"
        Set     : SVFromDate        : $$FinYearBeg:##StartDate:$StartingFrom:Company:##SVCurrentCompany
        Set     : SVToDate          : $$FinYearEnd:##StartDate:$StartingFrom:Company:##SVCurrentCompany
    
    Thanks
     
    Last edited: Sep 3, 2021


  2. A Sam

    A Sam Member


    Hope some one will look into this
     


  3. Eresh

    Eresh New Member


    Sir any update of your program Bulk Entries
     


  4. balajimg

    balajimg Active Member


    you have set "IsDeemedPositive" as "No" for both debit & credit
     


  5. Mahesh Sethi

    Mahesh Sethi Member



Share This Page