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
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
No sir i was looking for bank allocations problem. My problem is that bank allocations details are not getting saved.
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
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
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
Hi Jenny Your Code Correction is Done. All You Want Working Absolutely Perfect. I Mail You On Same Mail Those You Sent Me.
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)
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.
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......
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.
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
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
15 : SET VALUE : ActualQty :-($$TGTObject:$$AsQty:1);$SaudaWeight 16: SET VALUE : BilledQty :-($$TGTObject:$$ASQty:1);$SaudaWeight