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
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.
Sir, thoda gyan de dijiye isape. Help ho jaegi. Jitni samaj thi utna try kiya, ab aap ki help chahiye