Following code is not Working Properly Please help me It only shows item amt alter history It is not working in ledger amt alter history [#Part: DBLLINE Narration] Add : Line : Atbeginning : EnterAlterLineJRkPart Add : Line : At End : JrkSubformfld [Line: JrkSubformfld] Field :JrkSubformfld,JrkDateFldNewVch,JrkDateFldNewVch1,AllLedEntryField1,AllLedEntryField2,AllInvEntryField1,AllInvEntryField2 [Field : JrkSubformfld] Use : Name Field SubForm : SubformAlterpart : #JrkDateFldNewVch != #JrkDateFldNewVch1 Set As : "Alter Register" Inactive : #JrkDateFldNewVch = #JrkDateFldNewVch1 Width : 13 Color : White ;;Border : Thin box Back ground : Black Invisible : $$InCreateMode [Field:JrkDateFldNewVch] Use : Name Field Set As : IF $$InAltermode Then $PartyLedgerName+ $Vouchernumber + " , "+ $$String:$Date + " , "+ $$Owner:$$Fulllist:AllLedgerEntries:$ledgerName + ","+ $Narration+ " , " + $$String:$LedgerEntries[1].Amount + $$FullList:InventoryEntries:$StockitemName Else "" Storage : JrkDateFldNewVch Set Always : Yes Type : String : Forced Invisible : Yes [Field:JrkDateFldNewVch1] Set As : $PartyLedgerName + $Vouchernumber + " , "+ $$String:$Date + " , "+ $$Owner:$$Fulllist:AllLedgerEntries:$ledgerName + ","+ $Narration+ " , " + $$String:$LedgerEntries[1].Amount + $$FullList:InventoryEntries:$StockitemName Invisible : Yes [Field: AllLedEntryField1] Use : Name Field Set : IF $$IsEmpty:$$Value Then $$FullList:AllLedgerEntries:$ObjectVal Else $$Value Set Always : Yes Invisible : Yes [Field: AllLedEntryField2] Use : Name Field Set : $$FullList:AllLedgerEntries:$ObjectVal Set Always : Yes Invisible : Yes Storage : AllLedEntryField2 [System: UDF] AllLedEntryField2 : String : 31000 [#Field: Vch Narration] On : Focus : Yes : Call : ASD [Function: Asd] 100 : SetValue : AllLedEntryField2 : $$FullList:AllLedgerEntries:$ObjectVal [Field: AllInvEntryField1] Use : Name Field Set : IF $$IsEmpty:$$Value Then $$FullList:InventoryEntries:$ObjectInv Else $$Value Invisible : Yes Set Always : Yes [Field: AllInvEntryField2] Use : Name Field Set : $$FullList:InventoryEntries:$ObjectInv Set Always : Yes Invisible : Yes [#Object: Ledger Entry] ObjectVal : $LedgerName + "-" + $$String:$Amount [#Object: Inventory Entry] ObjectInv : $StockItemName + "-" + $$String:$BilledQty + " - " + $$String:$Rate + " - " + $$String:$Discount + " - " + $$String:$Amount [System: Formula] IsNotEmptsv : Not $$IsEmpty:$Vchcontentfld ISNotSameVchrs : $$CollectionField:$Vchcontentfld:Last:EnterAlterLineAggr != #JrkDateFldNewVch [Collection: EnterAlterLineAggrColl] Type : EnterAlterLineAggr : Voucher Format : $AlteruserfldJrk,10 Format : $AlterTimefldJrk,10 Format : $AlterDtfldJrk,10 [Report: SubformAlterpart] Form : SubformAlterpart [Form: SubformAlterpart] Part : AlterAlterLineJRkPart Height : 50 % Screen Back ground : Dark Green Width : 50 % PAge [Part: AlterAlterLineJRkPart] Line : AlterAlterLineJRkPartTL,AlterAlterLineJRkPart Repeat : AlterAlterLineJRkPart : EnterAlterLineAggr Scroll : Vertical Local : Field : Default : Color : White Set As : $$Numitems:EnterAlterLineAggrColl + 1 Breakon : $$IsEmpty:$AlteruserfldJrk Or $$PrevObj:$Vchcontentfld = $Vchcontentfld [Line:AlterAlterLineJRkPartTL] Field : Vchcontentfld,AlteruserfldJrk,AlterTimefldJrk,alterDtfldJrkTL,DummyamtAlter Local : Field : AlteruserfldJrk : Set As : "User Name" Local : Field : AlterTimefldJrk : Set As : "Time" Border : Column Titles [Field:AlterDtfldJrkTL] Use : Name Field Set As : "Date" Width : @@ShortDateWidth [Line: AlterAlterLineJRkPart] Field : Vchcontentfld,AlteruserfldJrk,AlterTimefldJrk,alterDtfldJrk,DummyamtAlter,LedgerChanges1,LedgerChanges2,InvChanges1,InvChanges2 [Field : AlteruserfldJrk] Use : Name Field Set As : IF $$IsEmpty:$$Value Then ##SVUsername Else $$Value Storage : AlteruserfldJrk Set Always : Yes Inactive : $$PrevObj:$Vchcontentfld = $Vchcontentfld Skip : $$Line < =$$Numitems:EnterAlterLineAggrColl Read only : Yes [Field : AlterTimefldJrk] Use : Name Field Set As : IF $$IsEmpty:$$Value Then $$StringPart:$$MachineTime:0:2+ ":" +$$StringPart:$$MachineTime:3:4 Else $$Value Storage : AlterTimefldJrk Skip : Not $$IsEmpty:$$Value Inactive : $$PrevObj:$Vchcontentfld = $Vchcontentfld [Field: AlterDtfldJrk] Use : Short date Field Set As : IF $$IsEmpty:$$Value Then $$Date:$$MachineDate Else $$Value Storage : AlterDtfldJrk Skip : Not $$IsEmpty:$$Value ReadOnly : Yes Inactive : $$PrevObj:$Vchcontentfld = $Vchcontentfld [Field: Vchcontentfld] Use : Name Field Set As : IF $$IsEmptY:$$Value Then #JrkDateFldNewVch Else $$Value Storage : Vchcontentfld Style : JRKNewsty Fullwidth : Yes Type : String : Forced Set Always : Yes Skip : Not $$IsEmpty:$$Value Or $$Line = $$LastLineNumber Inactive : $$PrevObj:$Vchcontentfld = $Vchcontentfld ReadOnly : Yes Invisible : Yes [Field: DummyamtAlter] Use : Name Field Set As : @@AbcamtJrk Storage : DummyamtAlter Invisible : Yes Set Always : Yes [Field: LedgerChanges1] Use : Name Field Storage : LedgerChanges1 Invisible : Yes Set Always : Yes Set As : IF $$IsEmpty:$$Value Then #AllLedEntryField1 Else $$Value [Field: LedgerChanges2] Use : Name Field Storage : LedgerChanges2 Invisible : Yes Set Always : Yes Set As : IF $$IsEmpty:$LedgerChanges2 Then #AllLedEntryField2 Else $$Value [Field: InvChanges1] Use : Name Field Storage : InvChanges1 Set Always : Yes Set As : IF $$IsEmpty:$$Value Then #AllInvEntryField1 Else $$Value Invisible : Yes [Field: InvChanges2] Use : Name Field Storage : InvChanges2 Set Always : Yes Set As : IF $$IsEmpty:$$Value Then #AllInvEntryField2 Else $$Value Invisible : Yes [System: Formula] AbcamtJrk : $$Number:$$Owner:$Amount [Line: EnterAlterLineJRkPart] Field : EnterfldUserJrk,EnterfldTimeJrk,EnterfldDateJrk,VchContentEnterfld,DummyamtEnter Invisible : Yes [Field: EnterfldUserJrk] Use : Name Field Set As : ##SVUserName Storage : EnterfldUserJrk [Field: EnterfldTimeJrk] Use : Name Field Set As : $$StringPart:$$MachineTime:0:2+ ":" +$$StringPart:$$MachineTime:3:4 Storage : EnterfldTimeJrk [Field: EnterfldDateJrk] Use : Shortdate Field Set As : $Date Storage : EnterfldDateJrk [Field: VchContentEnterfld] Use : Name Field Set As : $Vouchernumber + " , "+ $$String:$Date + " , "+ $$Owner:$$Fulllist:AllLedgerEntries:$ledgerName +","+ $Narration+" , "+$$String:$LedgerEntries[1].Amount Storage : VchContentEnterfld Set Always : Yes Style : JRKNewsty Fullwidth : Yes [Field : DummyamtEnter] Use : Name Field Set As : @@Xyzamtjrk Storage : DummyamtEnter Invisible : Yes Set Always : Yes [System: Formula] Xyzamtjrk : $$Number:$$Owner:$Amount [System: UDF] AlterTimefldJrk : String : 101 alterDtfldJrk : Date : 102 AlteruserfldJrk : String : 103 EnterAlterLineAggr : Aggregate : 104 EnterfldUserJrk : String : 105 EnterfldTimeJrk : String : 106 EnterfldDateJrk : Date : 107 Vchcontentfld : String : 108 VchContentEnterfld : String : 109 DummyamtAlter : String : 110 DummyamtEnter : String : 111 JrkDateFldNewVch : String : 112 LedgerChanges1 : String : 113 LedgerChanges2 : String : 114 InvChanges1 : String : 115 InvChanges2 : String : 116 [Style: JRKNewsty] Font : TimesNewroman Height : 11 Bold : No ;;========== [#Menu: Display Menu] Item : Voucher Alter Register : Display : Voucher Alter Register Control : Voucher Alter Register : $$Allowisplay:VoucherAlterRegister [Report: Voucher Alter Register] Family : "Voucher Alter Register" Variable : SVFromdAte,SVToDate Set : SVFromdate : ##SVCurrentDate Set : SVToDate : ##SVCurrentDate [Form: Voucher Alter Register] Part : Voucher Alter Register Button : Change Period,Export Button,Print Button Background : Released Pale Yellow [Part: Voucher Alter Register] Line : VoucherAlterTTL,Voucher Alter RegisterTL,Voucher Alter Register Repeat : Voucher Alter Register :SOQuotsTrmsv Scroll : Vertical [Line: VoucherAlterTTL] Field : Name Field Local : Field : Name Field : Set As : "Day Book Form " + $$String:##SVFromDate +" to " + $$String:##SVToDate Local : Field : Name Field : Full Width: Yes [Line: Voucher Alter RegisterTL] Field : AlterRegisterDate,AlterRegisterVtypee Right Field : AlterVchno,AlterVchAmts Local : Field : AlterRegisterDate : Set As : "Date" Local : Field : AlterRegisterVtypee : Set As : "Vch Type" Local : Field : AlterVchno : Set As : "Vch No" Local : Field : AlterVchAmts : Set As : "Amount" Local : Field : Default : Type : String Local : Field : Default : Style : Small Bold Local : Field : Default : Align : Center Border: Column titles [Line: Voucher Alter Register] Field : AlterRegisterDate,AlterRegisterVtypee Right Field : AlterVchno,AlterVchAmts Local : Field : Default : Style : Small Bold Explode : UserDatailsCreate Explode : UserDatailsAlter : $$numitems:EnterAlterLineAggr != 0 Option : Alter On enter [Field: Alter RegisterDate] Use : Short Date Field Set As : $Date Alter : Voucher [Field: AlterRegisterVtypee] Use : Name Field Set As : $Vouchertypename [Field: AlterVchno] Use : Name Field Set As : $VoucherNumber [Field: AlterVchAmts] Use : Amount Field Set As : $Amount [Collection: SOQuotsTrmsv] Type : Vouchers Fetch : AllLedgerEntries,Amount [Part: UserDatailsAlter] Line : UserDatailsAlterTL,UserDatailsAlter Repeat : UserDatailsAlter : EnterAlterLineAggr Scroll : Vertical [Line: UserDatailsAlterTL] Field : UserDatailsAlter,UserDatailsAlterTime,UserDatailsAlterDate,VchEntryAlterLed1,VchEntryAlterLed2,VchInvAlterInv1,VchInvAlterInv2 Local : Field : Default : Type : String Local : Field : UserDatailsAlter : Set As : "Altered By " Local : Field : UserDatailsAlterTime : Set As : "Time" Local : Field : UserDatailsAlterDate : Set As : "Date" Local : Field : VchEntryAlterLed1 : Set As : "Ledgers Before" Local : Field : VchEntryAlterLed2 : Set As : "Ledgers After" Local : Field : VchInvAlterInv1 : Set As : "Items Before" Local : Field : VchInvAlterInv2 : Set As : "Items After" Local : Field : Default : Style : Tiny Bold Italic Local : Field : Default : Border : Thin Bottom Local : Field : Default : Space Left : 8 Local : Field : Default : Color : Red [Line: UserDatailsAlter] Field : UserDatailsAlter,UserDatailsAlterTime,UserDatailsAlterDate,VchEntryAlterLed1,VchEntryAlterLed2,VchInvAlterInv1,VchInvAlterInv2 Local : field : Default : Style : Small Italic Local : field : Default : Color : Red ; Local : field : Default : Border : Thin bottom Local : Field : Default : Space Left : 8 [Field: UserDatailsAlter] Use : Name Field Set As : $AlteruserfldJrk [Field: UserDatailsAlterTime] Use : Name Field Set As : $AlterTimefldJrk Width : 9 [Field: UserDatailsAlterDate] Use : Short Date Field Set As : $AlterDtfldJrk [Part: UserDatailsCreate] Line : UserDatailsCreateTL,UserDatailsCreate [Line: UserDatailsCreateTL] Field : UserDatailsAlter,UserDatailsAlterTime,UserDatailsAlterDate Local : field : Default : Style : Small Bold Local : field : Default : Color : Blue ; Local : Field : Default : Border : Thin bottom Local : Field : Default : Space Left : 8 Local : Field : UserDatailsAlter : Set As : "Created By" Local : Field : UserDatailsAlterTime : Set As : "Time" Local : Field : UserDatailsAlterDate : Set As : "Date" Local : Field : Default : Type : String [Line:UserDatailsCreate] Field : UserDatailsAlter,UserDatailsAlterTime,UserDatailsAlterDate Local : Field : Default : Style : Small Italic Local : Field : Default : Color : Blue ; Local : Field : Default : Border : Thin bottom Local : Field : Default : Space Left : 8 Local : Field : UserDatailsAlter : Set As : $EnterfldUserJrk Local : Field : UserDatailsAlterTime : Set As : $EnterfldTimeJrk Local : Field : UserDatailsAlterDate : Set As : $EnterfldDateJrk [#Line: DSP VchDetail] Explode : VoucherAHistory : ##HisToryDeails [Part: VoucherAHistory] Line : UserDatailsCreateTL,UserDatailsCreate,VoucherAHistoryTL,VoucherAHistory Repeat : VoucherAHistory : EnterAlterLineAggr Local: Line : UserDatailsCreateTL : Local : Field : Default : Color : Black Local: Line : UserDatailsCreate : Local : Field : Default : Color : Black Space Top : 1 Space Bottom : 1 [Line: VoucherAHistoryTL] Field : VchEntryAlterUser,VchEntryAlterDate,VchEntryAlterTime,VchEntryAlterLed1,VchEntryAlterLed2,VchInvAlterInv1,VchInvAlterInv2 Local : Field : VchEntryAlterUser : Set As : "User Name" Local : Field : VchEntryAlterDate : Set As : "Date" Local : Field : VchEntryAlterTime : Set As : "Time" Local : Field : VchEntryAlterLed1 : Set As : "Ledgers Before" Local : Field : VchEntryAlterLed1 : Invisible : $$IsEmpty:$$FullList:EnterAlterLineAggr:$LedgerChanges1 Local : Field : VchEntryAlterLed2 : Set As : "Ledgers After" Local : Field : VchEntryAlterLed2 : Invisible : $$IsEmpty:$$FullList:EnterAlterLineAggr:$LedgerChanges1 Local : Field : VchInvAlterInv1 : Set As : "Items Before" Local : Field : VchInvAlterInv1 : Invisible : $$IsEmpty:$$FullList:EnterAlterLineAggr:$InvChanges1 Local : Field : VchInvAlterInv2 : Set As : "Items After" Local : Field : VchInvAlterInv2 : Invisible : $$IsEmpty:$$FullList:EnterAlterLineAggr:$InvChanges1 Local : Field : Default : Style : Tiny Bold Italic Local : Field : Default : Border : Thin Bottom [Line: VoucherAHistory] Field : VchEntryAlterUser,VchEntryAlterDate,VchEntryAlterTime,VchEntryAlterLed1,VchEntryAlterLed2,VchInvAlterInv1,VchInvAlterInv2 Local : Field : Default : Style : Tiny Italic Space Top : .20 [Field: VchEntryAlterUser] Use : Name Field Set As : $AlteruserfldJrk Width: 10 [Field: VchEntryAlterDate] Use : Name Field Set As : $AlterDtfldJrk Width: 9 [Field: VchEntryAlterTime] Use : Name Field Set As : $AlterTimefldJrk Width: 5 [Field: VchEntryAlterLed1] Use : Name Field Set As : $LedgerChanges1 Line : 0 [Field: VchEntryAlterLed2] Use : Name Field Set As : $LedgerChanges2 Line : 0 Option : VchEntryAlterLed1Color : $LedgerChanges1 !=$LedgerChanges2 [!Field: VchEntryAlterLed1Color] Color: Red [Field: VchInvAlterInv1] Use : Name Field Set As : $InvChanges1 Line : 0 [Field: VchInvAlterInv2] Use : Name Field Set As : $InvChanges2 Line : 0 Option : VchInvAlterInv1Color : $InvChanges1 !=$InvChanges2 [!Field: VchInvAlterInv1Color] Color: Red [#Collection: Daybook Vouchers of Company] Fetch: *.* [Variable: HisToryDeails] Type : Logical Persistent : Yes [System: Variable] HisToryDeails : No [#Report: Day Book] Variable : HisToryDeails Set : HisToryDeails : No [#Form: Day Book] Add : Button : HisToryDeails [Button: HisToryDeails] Title : IF Not ##HisToryDeails Then "Show History" Else "Hide History" Key : Alt + H Action : Set : HisToryDeails : Not ##HisToryDeails Inactive: Not $$Allowisplay:VoucherAlterRegister
Also...experts must also take responsibilities in helping/guiding. By giving easy solutions such demands will keep on..... No one wants to take efforts, but want it for free....
