Please help me with Function....

Discussion in 'Free Source Codes' started by Jenny, May 31, 2021.

    
  1. Jenny

    Jenny Active Member


    Problem solved
     
    Last edited: Jun 1, 2021
    bharat shah likes this.


  2. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    On : Form Accept : @@IsThisPymt : Call : CphSale BulkAutoEntry PAYMENT
    On : Form Accept : @@IsThisRcpt : Call : CphSale BulkAutoEntry RECEIPT

    [System : formula]
    IsThisPymt : #JennyPaymentVchtypeFld CONTAINS "Payment"
    IsThisRcpt : #JennyPaymentVchtypeFld CONTAINS "Receipt"

    Then alter your Function accordingly for Dr/Cr
     



  3. Even you ca do the following

    give a If condtion and on that basis imprt the same


    if : #JennyPaymentVchtypeFld CONTAINS "Payment"
    ;;----------------------------------------------------------------------------
    ;;Debit Entry
    110 : INSERT COLLECTION OBJECT : AllLedgerEntries

    120 : SET VALUE : Ledger Name : ##CphDrLedgerName

    140 : SET VALUE : IsDeemedPositive : "Yes"


    141 : SET VALUE : Amount : ##CphAmount * (-1)
    150 : SET TARGET : ..
    150a : LOG : $$String:##CphDrLedgerName

    ;----------------------------------------------------------------------------
    ;;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 : ..
    Else


    ;----------------------------------------------------------------------------
    ;;Credit Entry
    260 : INSERT COLLECTION OBJECT : AllLedgerEntries
    270 : SET VALUE : Ledger Name : ##CphCrLedgerName
    280 : SET VALUE : Amount : ##CphAmount
    290 : SET VALUE : IsDeemedPositive : "No"
    300 : SET TARGET : ..

    ;;----------------------------------------------------------------------------
    ;;Debit Entry
    310 : INSERT COLLECTION OBJECT : AllLedgerEntries
    320 : SET VALUE : Ledger Name : ##CphDrLedgerName
    340 : SET VALUE : IsDeemedPositive : "Yes"
    341 : SET VALUE : Amount : ##CphAmount * (-1)
    350 : SET TARGET : ..
    350a : LOG : $$String:##CphDrLedgerName
    ;----------------------------------------------------------------------------
    Endif
     


  4. Devendra_Rawat

    Devendra_Rawat Well-Known Member


    even @Rajesh-bhanushali was looking for this
     



  5. No sir i was looking for bank allocations problem.

    My problem is that bank allocations details are not getting saved.
     



  6. Replace function no 080 with below function

    Code:
    080    :    SET VALUE        :     VoucherTypeName        :IF $JennyPaymentVchFld CONTAINS "Payment" then $$VchTypePayment else $$VchTypeReceipt;#JennyPaymentVchtypeFld; ##SVVoucherType;$$VchTypePayment ; $$VchTypeReceipt;VoucherTypeName  
    and change your storage name system:UDF
    There You have typing mistake
    change it with JennyPaymentVchFld in all related place where you have written it.

    Everything is else is great.
    Keep it up Jenny Mam

     



  7. after above changes you will have some changes in type of doing entry i.e. in Receipt voucher first debit entry will come instead of default credit entry for which you have to make changes according to the post no 3 by sanjaybjthakkar
     



  8. find attachment of modified code
     

    Attached Files:



  9. Jenny

    Jenny Active Member


    After that changes as per sanjaybjthakkar post .... if single entry import its working perfect in receipt but if i import payment receipt at a time then same issue in receipt
     


  10. Anuj Mittal

    Anuj Mittal New Member


    Hi Jenny
    Your Code Correction is Done.
    All You Want Working Absolutely Perfect.

    I Mail You On Same Mail Those You Sent Me.
     



  11. please share me once you got solutions, as i am yet to get it...
     


  12. Anuj Mittal

    Anuj Mittal New Member


    Done..
     
    Last edited: Jun 3, 2021
    bharat shah likes this.


  13. Jenny

    Jenny Active Member


    in my email there is no attachment .send it again and this code u attached here same problem going on... if single entry import its working but if multi entry import its problem in receipt (showing first debit and then credit)
     



  14. Perfect will you please explain what changes you have incorporated for credit first in receipt entry
     



  15. thank you sir
     



  16. can some one help for Bank Allocations part as i am stuck from many weeks, unable to solve yet...
    Have asked for help from many, but got no positive reply, it will be good help to me.
     


  17. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    For starters...am not helping too ;);).... simple as I do not have answers or knowledge in this subject matter.

    Same way others are busy or whatever.... so have patience.

    Someone will help as and when they are able to...... :)
     
    panam likes this.



  18. i have already made functional code, except bank allocation part working.
    just problem is that its not fatching bank allocation details.

    Have gone through various samples code, other code etc but no use.
    Hopefully, SOMEDAY, SOMEONE will help me.
     


  19. bharat shah

    bharat shah Member


    How did
    What is the problem? where is the code
     



  20. Code:
    150    :     IF                            : ($$IsLedOfGrp:##CphDrLedgerName:$$GroupBank OR $$IsLedOfGrp:##CphDrLedgerName:$$GroupBankOD)
        ;201    :    If:Not $$IsEmpty:##ChqNo
        150a    :    SET TARGET        : LedgerEntries
        150b    :    SET                : BankLedgerAmount                    : ##CphAmount ;* (-) 1
        151 :          INSERT COLLECTION OBJECT                : BankAllocations
        ;210    :            WALK            : BankAllocations
        152 :                SET TARGET    : BankAllocations
        153 :                SET VALUE        : Date                            :##CphChequeDate
        154    :                SET VALUE        : TransactionType               :$$Sysname:ChequeDD
        155:                SET VALUE        : BankPartyName            :##CphCrLedgerName
        156    :                SET VALUE        : InstrumentNumber                :##CphRBChequeNoUDF
        157    :               SET VALUE         : InstrumentDate                :##CphChequeDate
        158    :                Set Value        : PAYMENTMODE    : "Transacted"
        159    :                SET VALUE        : PAYMENTFAVOURING      :##CphDrLedgerName
        160    :                SET VALUE         : UniqueReferenceNumber : ##CphRBChequeNoUDF
        162    :                SET VALUE       : ChequeCrossComment : $$LocaleString:"A/c Payee"
        163    :                 SET VALUE        : Amount                :##CphAmount*-1
        164    :                 SET TARGET        : ...
        165 :      END IF
    
    problem is instrument no and date is showing blank after doing entry
     


  21. Anuj Mittal

    Anuj Mittal New Member


    Hi Developers Can Any One Help Me in Given Below Function.
    As Per This Position This Function is Working Fine And Created The Sales Voucher.
    But At This Time I Comment Label No. 15,16,17.
    if i Uncooment its Giving Me Error on Lable 17 : Action Execution Failed.
    Please Help Me.

    [#Menu: Gateway of Tally]
    Add : Item : "Create Sales Voucher" : Call : CreateVoucher
    [Function : CreateVoucher]
    01 : New Object : VOUCHER
    02 : Set Value : DATE : "01-04-2021"
    03 : Set Value : PARTYLEDGERNAME : "Anuj Mittal" ;$$FileReadCell:##runningRow:3
    04 : Set Value : VOUCHER TYPENAME : "Sales"
    05 : Set Value : ChangeVchMode : No
    06 : Set Value : PERSISTEDVIEW : "Invoice Voucher View"
    07 : Set Value : ISINVOICE : "Yes"
    08 : Insert Collection Object : Ledger Entries
    09 : Set Value : LEDGERNAME : "Sales"
    10 : Set Value : ISDEEMEDPOSITIVE : No
    11 : Set Value : Amount : 1000
    12 : Insert Collection Object : Inventory Allocations
    13 : Set Value : STOCKITEMNAME : "Chana Dal"
    14 : Set Value : ISDEEMEDPOSITIVE : No
    ;15 : SET VALUE : ActualQty :50;$SaudaWeight
    ;16: SET VALUE : BilledQty :50;$SaudaWeight
    ;17: Set Value : Rate :20;$SaudaRate
    18 : Set Value : AMOUNT : 1000
    19 : Set Target : ..
    20 : Set Target : ..
    21 : Insert Collection Object : LEDGER ENTRIES
    22 : Set Value : LEDGER NAME : "Anuj Mittal";$$FileReadCell:##runningrow:3
    23 : Set Value : IS DEEMED POSITIVE : Yes
    24 : Set Value : ISPARTYLEDGER : Yes
    25 : Set Value : AMOUNT : $$Negative:1000
    26 : Set Target : ..
    27 : Create Target
     


  22. bharat shah

    bharat shah Member


    sorry bro no idea
     


  23. gangstar

    gangstar Member


    15 : SET VALUE : ActualQty :-($$TGTObject:$$AsQty:1);$SaudaWeight
    16: SET VALUE : BilledQty :-($$TGTObject:$$ASQty:1);$SaudaWeight
     


  24. sattam

    sattam Active Member


    send me full code if u wish
     



  25. sir mailed you whole code
     


Share This Page