I found many tally users want to sort Pending Bill Collection date wise so now here is the solutions for this try this tdl
Dear Hitesh, Thanks for sharing this useful TDL. Kindly guide how to use this tdl & where this reports are display
dear hiteshji, i have modify your above codes,but it is not working if their is no table selection - that is it is not working if party does not have outstanding. so please correct below code so that it works properly [#Collection: Pending Bills] Sub Title: $$LocaleString:"Name", $$LocaleString:"Date", $$LocaleString:"Balance", $$LocaleString:"Date Number" Delete : Format FullHeight : Yes Align : Right Add: Format : $$Name, 14 Add: Format : $BillDate, 8 : Universal Date Add: Format : $BaseClosing : "AllSymbols, DrCr" Add: Format : $FinalDateNumbers [system : formula] FormulaMonth : If $$MonthOfDate:$BillDate <=2 then $$MonthOfDate:$BillDate+13 else $$MonthOfDate:$BillDate+1 FormulaYear : If $$MonthOfDate:$BillDate <=2 then $$YearOfDate:$BillDate-1 else $$YearOfDate:$BillDate FormulaDay : $$DayOfDate:$BillDate FormulaDateToNum : (1461*$FormulaYear)/4+(153*$FormulaMonth)/5+$FormulaDay ;;;(146097*$FormulaYear)/400+(153*$FormulaMonth+8)/5+$FormulaDay FinalDateNumbers : $$Round:$FormulaDateToNum:1 [#Line: VCHBILL MainLine] Add : Field : Before : VCHBILL Name : VCHBILL NameTemp [Field : VCHBILL NameTemp] Use : Name field Set As : If not $$InCreateMode Then $$Table:VCHBILLNameTemp:$Name else $$Value Table : MyNewBillColl : $$InCreateMode Table : MyNewBillColl, BillRefBlankColl : not $$InCreateMode Show Table : Always Set Always : Yes Dynamic : "" Width : @@VCHShortNameWidth [#Field: VCHBILL Name] Set As : If not $$IsEmpty:#VCHBILLNameTemp then $$Table:VCHBILLNameTemp:$Name else $$ExclEvaluate:$$FnSetBillName [Collection : BillRefBlankColl] Title : "Blank" List Name : " " [Collection : MyNewBillColl] Use : Pending Bills Delete : Sub Title Add : Sub Title: $$LocaleString:"Invoice No", $$LocaleString:"Date", $$LocaleString:"Balance" Delete : Format FullHeight : Yes Add : Format : $$Name, 14 Add : Format : $BillDate, 8 : Universal Date Add : Format : $BaseClosing : "AllSymbols, DrCr" Client Only : Yes Keep Source : ... Option : ShowBillFnlBlnc : ##VchShowBillFnlBlnc Delete : Sort Add : Sort : @@default : $FinalDateNumbers, $$Number:$Name [#Line: VCHBILL CTLineOne] Local : Field : VCH ShortTitle : Width : @@VCHShortNameWidth*2 [#Line: VCHBILL CTLineTwo] Local : Field : VCH ShortTitle : Width : @@VCHShortNameWidth*2 [#Line: VCHBILL CTLineThree] Local : Field : VCH ShortTitle : Width : @@VCHShortNameWidth*2
Dear Hitesh Ji, please check your code it is not working for party who has no outstanding , we are not able to complete voucher entry as it get stopped at new ref field - we are not able to enter new invoice no as your code are written in which we have to compulsory select from outstanding table show, so please re write your code so that in table always 1st should be add new & then show outstanding details if any
Now I have resolved the issue when party who has no outstanding, you can complete your voucher entry by selecting on account or other bill type [#Collection: Pending Bills] Sub Title: $$LocaleString:"Name", $$LocaleString:"Date", $$LocaleString:"Balance", $$LocaleString:"Date Number" Delete : Format FullHeight : Yes Align : Right Add: Format : $$Name, 14 Add: Format : $BillDate, 8 : Universal Date Add: Format : $BaseClosing : "AllSymbols, DrCr" Add: Format : $FinalDateNumbers [system : formula] FormulaMonth : If $$MonthOfDate:$BillDate <=2 then $$MonthOfDate:$BillDate+13 else $$MonthOfDate:$BillDate+1 FormulaYear : If $$MonthOfDate:$BillDate <=2 then $$YearOfDate:$BillDate-1 else $$YearOfDate:$BillDate FormulaDay : $$DayOfDate:$BillDate FormulaDateToNum : (1461*$FormulaYear)/4+(153*$FormulaMonth)/5+$FormulaDay ;;;(146097*$FormulaYear)/400+(153*$FormulaMonth+8)/5+$FormulaDay FinalDateNumbers : $$Round:$FormulaDateToNum:1 [#Line: VCHBILL MainLine] Add : Field : Before : VCHBILL Name : VCHBILL NameTemp [Field : VCHBILL NameTemp] Use : Name field Set As : If not $$InCreateMode Then $$Table:VCHBILLNameTemp:$Name else $$Value Table : MyNewBillColl : $$InCreateMode and $BillType = $$SysName:AgstRef Table : MyNewBillColl, BillRefBlankColl : not $$InCreateMode and $BillType = $$SysName:AgstRef Show Table : Always Set Always : Yes Dynamic : "" Width : @@VCHShortNameWidth Skip : $BillType != $$SysName:AgstRef Inactive : $BillType != $$SysName:AgstRef [#Field: VCHBILL Name] Set As : If not $$IsEmpty:#VCHBILLNameTemp then $$Table:VCHBILLNameTemp:$Name else $$ExclEvaluate:$$FnSetBillName [Collection : BillRefBlankColl] Title : "Blank" List Name : " " [Collection : MyNewBillColl] Use : Pending Bills Delete : Sub Title Add : Sub Title: $$LocaleString:"Date Number", $$LocaleString:"Name", $$LocaleString:"Date", $$LocaleString:"Balance" Delete : Format FullHeight : Yes Add : Format : $FinalDateNumbers, 10 ;;FinalDateNumbers, 10 Add : Format : $$Name, 14 Add : Format : $BillDate, 8 : Universal Date Add : Format : $BaseClosing : "AllSymbols, DrCr" Client Only : Yes Keep Source : ... Option : ShowBillFnlBlnc : ##VchShowBillFnlBlnc Delete : Sort Add : Sort : @@default : $FinalDateNumbers, $$Number:$Name [#Line: VCHBILL CTLineOne] Local : Field : VCH ShortTitle : Width : @@VCHShortNameWidth*2 [#Line: VCHBILL CTLineTwo] Local : Field : VCH ShortTitle : Width : @@VCHShortNameWidth*2 [#Line: VCHBILL CTLineThree] Local : Field : VCH ShortTitle : Width : @@VCHShortNameWidth*2 [#Line: VCHBILL ExplLine] Add : Field : Before : VCHBILL Name : VCHBILL NameTemp
Dear Sir , thank you hitesh ji , above TDL is now working fine in all the cases , please also email me city tdl if you have , my email id - tejeet1@gmail.com
thank you for tdl sharing. it is working fine in create mode but when we open it in alter mode it got stuck after agnst ref field.(receipt voucher). pls check . also can we hide date number field