how to open billwise detail screen in to select pending bills

Discussion in 'Free Source Codes' started by Jenny, Aug 14, 2021.

    
  1. Jenny

    Jenny Active Member


    Code:
    [Field : JennyPayment DrAmountFld]
    Type : Amount
    Use : Amount Field
    Storage : Amount
    Width : @@ShortWidth
    Inactive : $$IsEndOfList:$JennyPaymentVchtypeFld
    Border : Thin Box
    Background:Silver
    Style: "Normal"
    I want to open billwise detils and select pending bills of selected ledger and import with billwise details..my function is given below..
    Code:
    [Function: CphSale BulkAutoEntry]
    ;; Procedural Block
    Parameter : JennyVTypeName : String : ##SVVoucherType
    ;Parameter : pVoucherType : String
    Variable : SVVoucherType : String
    
    Variable : CphDate : Date
    Variable : CphDrLedgerName : String
    Variable : CphCrLedgerName : String
    Variable : CphAmount : Amount
    Variable : CphNarration : String
    Variable : CphJennyPaymentVchtype: String
    Variable : CphJennyCHQNO : String
    Variable : Counter : Number: 1
    
    ;00: Set : SVVoucherType : ##pVoucherType
    001 : Start Batch Post : 10
    005 : START PROGRESS : ($$NumItems:JennyPaymentCollection) : "Creating Vouchers" : @@CmpMailName : "Creating Sales Vouchers ..."
    007 : WALK COLLECTION : JennyPaymentCollection
    010 : SET : CphDate : $$Date:$Date
    010a : Set : CphJennyPaymentVchtype :""
    015 : SET : CphJennyPaymentVchtype :$JennyPaymentVchtypeFld
    020 : SET : CphDrLedgerName : $PartyLedgerName
    030 : SET : CphCrLedgerName : $SalesLedgerName
    040 : SET : CphAmount : $$AsAmount:$Amount
    041 : SET : CphJennyCHQNO : $JennyQuickChqnoFld
    045 : SET : CphNarration : $Narration
    050 : SET : SVViewName : $$SysName:AcctgVchView
    060 : NEW OBJECT : Voucher
    070 : SET VALUE : Date : ##CphDate
    080 : SET VALUE : VoucherTypeName :##CphJennyPaymentVchtype; ##SVVoucherType;$$VchTypePayment ; $$VchTypeReceipt;VoucherTypeName
    ;080a : Log: #JennyPaymentVchtypeFld
    090 : SET VALUE : Narration :$Narration
    ;091 : SET VALUE : Narration :if $JennyQuickChqnoFld = ##CphJennyCHQNO then "[Cheque No : " +$JennyQuickChqnoFld +"] "  +  $Narration else $Narration
    110 : INSERT COLLECTION OBJECT : AllLedgerEntries
    111 : SET VALUE : LedgerName : if ##CphJennyPaymentVchtype="Payment" or ##CphJennyPaymentVchtype="Journal" Then ##CphDrLedgerName +
                    Else if ##CphJennyPaymentVchtype="Receipt" or ##CphJennyPaymentVchtype="Contra" Then ##CphCrLedgerName Else ""
    112 : SET VALUE : Is Deemed Positive: if ##CphJennyPaymentVchtype="Payment" or ##CphJennyPaymentVchtype="Journal" Then "Yes" +
                    Else if ##CphJennyPaymentVchtype="Receipt" or ##CphJennyPaymentVchtype="Contra" Then "No" Else ""
    141 : SET VALUE : Amount : ##CphAmount; * (-1)
    150 : SET TARGET : ..
    
    160 : INSERT COLLECTION OBJECT : AllLedgerEntries
    170 : SET VALUE : LedgerName : if ##CphJennyPaymentVchtype="Receipt" or ##CphJennyPaymentVchtype="Contra" Then ##CphDrLedgerName +
                    Else if ##CphJennyPaymentVchtype="Payment" or ##CphJennyPaymentVchtype="Journal" Then ##CphCrLedgerName Else ""
    180 : SET VALUE : Is Deemed Positive: if ##CphJennyPaymentVchtype="Receipt" or ##CphJennyPaymentVchtype="Contra" Then "Yes" +
                    Else if ##CphJennyPaymentVchtype="Payment" or ##CphJennyPaymentVchtype="Journal" Then "No" Else ""
    190 : SET VALUE : Amount : ##CphAmount
    
    
    ;-----------------------------------------------------------------------------------
    ;Bank Allocation
    
        201      : IF  : ($$IsLedOfGrp:$PartyLedgerName:$$GroupBank OR $$IsLedOfGrp:$SalesLedgerName:$$GroupBank)
        202      : INSERT COLLECTION OBJECT            : BANKALLOCATIONS 
        202a     : Set Target: BANKALLOCATIONS
        203      : SET VALUE    : DATE                    : $$Date:$Date
        204      : SET VALUE    : INSTRUMENTDATE        : $$Date:$Date
        205      : SET VALUE    : NAME                    : $$MakeUniqueID
        206      : SET VALUE    : TRANSACTIONTYPE        : "Cheque"
        207      : SET VALUE    : BANKNAME                : ""
        208      : SET VALUE    : PAYMENTMODE            : "Transacted"
        209      : SET VALUE    : INSTRUMENTNUMBER        :##CphJennyCHQNO
        210      : SET VALUE    : AMOUNT                : $$AsAmount:$Amount
           212        : End If
        213      : SET TARGET    : ..
    
    217 : SET VALUE : PersistedView : ##SVViewName
    218 : CREATE TARGET
    219 : INCREMENT : Counter
    219a : SHOW PROGRESS : ##Counter
    220 : END WALK
    221 : END PROGRESS
    
    222 : DISPLAY : JennyPayment Daybook
    
    230 : RETURN
    290 : End Batch Post
     

    Attached Files:




  2. You want details for Bill Allocations as shown in Image right????
     


  3. Jenny

    Jenny Active Member


    Open and also Stored when I import...1st thing it's open....
     



  4. You need to make it from scratch, you can find bill allocations code in TDL developer.

    If you have try to enable default Bill Allocations part then you will have problem of renaming existing UDF name in Bil.
     


  5. PANKAJ BHONDLE

    PANKAJ BHONDLE Active Member


    Sidhe raste nahi aayega, ungli tedi karani padegi
     



  6. Sir, thoda gyan de dijiye isape. Help ho jaegi.
    Jitni samaj thi utna try kiya, ab aap ki help chahiye
     


  7. Himanshu-2002

    Himanshu-2002 Active Member


    I think just change the object at report level and Everything should be fine
     


  8. Himanshu-2002

    Himanshu-2002 Active Member


    Object at report level will be equal to aggregate udf
     


  9. PANKAJ BHONDLE

    PANKAJ BHONDLE Active Member


    Rajesh bhanushali ji, call me 9822412242
     


Share This Page