Hi All... Jay Here... Hope You Will Like..... Code: [#Part :LedOtherDetails] Switch : LEDJKAlter : JK LED Alter : $$InAlterMode [!Part :JK LED Alter] Add :Line :At ENd :JK LED Alter [Line :JK LED Alter] Field :Medium Prompt,JK LED Alter,JK LED Alter DateTime Local :Field :Medium Prompt :Setas :"Altered By:" Invisible :Yes [Field :JK LED Alter] Use :Name Field Setas :$$CMPUserName Storage :JKLEDAlteredBy ;Skip :Yes [Field :JK LED Alter DateTime] Use :Name Field width :15 Set as :($$String:$$MachineDate:UniversalDate + $$LocaleString:" at " + $$MachineTime) Storage :JKAlteredDateTime ;Skip :Yes ;;; =================================================================================================== ;;;Ledger Alteration Report ;;; =================================================================================================== [#Menu : Gateway of Tally] Add : Item : After : ~Display : Led Last Alteration- History : Display : Led Alter History [Report:Led Alter History] Form : Led Alter Report [Form : Led Alter Report] Part : Alter Title Vertical Align : Top Height : 60% Screen Width : 40% Screen [Part: Log formTitle] Lines :Alter formTitle Space Bottom : 0.5 Scroll : Vertical [Line: Alter formTitle] Field: Form Sub Title Local : Field : Form Sub Title : Set as : "Ledger Alter Report" Local : Field : Form Sub Title : Align : Centre Local : Field : Form Sub Title : Fullwidth : yes Local : Field : Form Sub Title : Color : Blue Local : Field : Form Sub Title : Border: Thin Bottom Local : Field : Form Sub Title : Style: Normaluser [Part : Alter Title] Line : Alter Title_A, Alter Title_B Break On : $$IsEmpty:$LGname Scroll : Vertical Common Borders : Yes Border : Thin Bottom Repeat:Alter Title_B:JKLEDAltered [Line : Alter Title_A] Field:LGnametit, Lgcompnametit, Lgdattit Local : Field : Default : Background : yellow Local : Field : Default : Color : Blue Local : Field : Default : Align : Centre Local : Field : Default : Style: Normal Bold Italic Local : Field : Default : Delete :Storage Border : column Titles [Field : LGnametit] Use : Name Field Info : "Ledger Name" Width: 15 [Field : Lgcompnametit] Use : Name Field Info : "User Name" Width : 25 [Field :Lgdattit] Use : Name Field Info : "Last Alteration Date/Time" Width : 15 [Line : Alter Title_B] Field : LGname, Lgcompname, Lgdat [Field : LGname] Set as :$name Use : Name Field Width : 15 Border : Thin Left [Field : Lgcompname] Use : Name Field Set as : $JKLEDAlteredBy Width : 25 Border : Thin Left [Field :Lgdat] Use : Name Field Set as : $JKAlteredDateTime Width : 15 Border : Thin Left [Collection: JKLEDALTER] TYPE:Ledger Childof :$Name Fetch :JKLEDAlteredBy,JKAlteredDateTime,Name,*.* [Collection: JKLEDAltered] Type:Ledger Fetch :JKLEDAlter,JKLEDAlteredBy,JKAlteredDateTime,Name,*.* Filter:jkledAlter [System:Formulae] jkledAlter: Not $$IsEmpty:$JKLEDAlteredby [System :UDF] JKLEDAlter :Aggregate :8600 JKLEDAlteredBy : String :8601 JKAlteredDateTime : String :8602 [#Form:Ledger] On : Form Accept: Yes: CALL : JayLedfunc [Function : JayLedfunc ] variable:LedAltName:String Variable : LedAltDate :String 010 : Set Target 020 : Set:LedAltName:$$CMPUserName 050 : Set:LedAltDate:($$String:$$MachineDate:UniversalDate + $$LocaleString:" at " + $$MachineTime) 080 : Insert Collection Object:JKLEDALTER 090 : Set Target: (Ledger). 110 : Set Value:JKLEDAlteredBy:##LedAltName 120 : Set Value:JKAlteredDateTime:$$String:(##LedAltDate) 160 : Set Target.. 170 : Set Target.. 175 : Accept Alter
Code: [#Report : Ledger] On : Load : Yes : Call : SetOldLedName Variable : OldLedName [System : Variable] OldLedName [Variable : OldLedName] Type : String Persist : No [Function : Set Old Led Name] 10 : If : $$InAlterMode 20 : Set : OldLedName : $Name 30 : End If [#Part : LedOtherDetails] Switch : LEDJKAlter : JK LED Alter : $$InAlterMode [!Part : JK LED Alter] Add : Line : At End : JK LED Alter [Line : JKLED Alter] Field : Medium Prompt,JK LED Alter,JK LED Alter DateTime, JK Led Old Name Local : Field : Medium Prompt : Setas : "Altered By:" Invisible : Yes [Field : JK LED Alter] Use : Name Field Setas : $$CMPUserName Storage : JKLEDAlteredBy ;Skip :Yes [Field : JK LED Alter DateTime] Use : Name Field Width : 15 Set as : ($$String:$$MachineDate:UniversalDate + $$LocaleString:" at " + $$MachineTime) Storage : JKAlteredDateTime ;Skip :Yes [Line : JKLEDOld Name] Field : Medium Prompt,JK LED Old Name Local : Field : Medium Prompt : Setas : "Old Name:" Invisible : Yes [Field : JK LED Old Name] Use : Name Field Storage : JKLEDOldName ;Set by Condition : $$InCreateMode : $$CMPUserName Set As : ##OldLedName;$Name Set Always : Yes ;Skip :Yes ;;; =================================================================================================== ;;;Ledger Alteration Report ;;; =================================================================================================== [#Menu : Gateway of Tally] Add : Item : After : ~Display : Led Last Alteration- History : Display : Led Alter History [Report:Led Alter History] Form : Led Alter Report [Form : Led Alter Report] Part : Alter Title Vertical Align : Top Height : 100% Screen Width : 100% Screen [Part: Log formTitle] Lines : Alter formTitle Space Bottom : 0.5 Scroll : Vertical [Line : Alter formTitle] Field : Form Sub Title Local : Field : Form Sub Title : Set as : "Ledger Alter Report" Local : Field : Form Sub Title : Align : Center Local : Field : Form Sub Title : Fullwidth : yes Local : Field : Form Sub Title : Color : Blue Local : Field : Form Sub Title : Border: Thin Bottom Local : Field : Form Sub Title : Style: Normaluser [Part : Alter Title] Line : Alter Title_A, Alter Title_B Break On : $$IsEmpty:$LGname Scroll : Vertical Common Borders : Yes Border : Thin Bottom Repeat : Alter Title_B:JKLEDAltered [Line : Alter Title_A] Field : LGnametit, LedgerNameOldTit, CreatedByUserTit, Lgcompnametit, Lgdattit Local : Field : Default : Background : yellow Local : Field : Default : Color : Blue Local : Field : Default : Align : Center Local : Field : Default : Style: Normal Bold Italic Local : Field : Default : Delete :Storage Border : column Titles [Field : LGnametit] Use : Name Field Info : "Ledger Name" Width : 25 [Field : LedgerNameOldTit] Use : Name Field Set As : "Ledger Name (Old)" Width : 25 [Field : CreatedByUserTit] Use : Name Field Info : "Created By" Width : 15 [Field : Lgcompnametit] Use : Name Field Info : "Altered By" Width : 35 [Field : Lgdattit] Use : Name Field Info : "Last Alteration Date/Time" ;Width : 25 [Line : Alter Title_B] Field : LGname, LedgerNameOld, CreatedByUser, Lgcompname, Lgdat [Field : LGname] Set as : $name Use : Name Field Width : 25 Border : Thin Left [Field : Lgcompname] Use : Name Field Set as : $JKLEDAlteredBy Width : 25 Border : Thin Left [Field : CreatedByUser] Use : Name Field Set As : $CreatedBy;$JKLEDCreatedBy Width : 15 Border : Thin Left [Field : LedgerNameOld] Use : Name Field Width : 25 Border : Thin Left Set as : $JKledOldName [Field : Lgdat] Use : Name Field Set as : $JKAlteredDateTime ;Width : 15 Border : Thin Left [Collection : JKLEDALTER] TYPE : Ledger Childof : $Name Fetch : JKLEDAlteredBy,JKAlteredDateTime,Name,*.* [Collection : JKLEDAltered] Type : Ledger Fetch : JKLEDAlter,JKLEDAlteredBy,JKAlteredDateTime,JKLEDCreatedBy,Name,*.* Filter : jkledAlter [System : Formulae] jkledAlter : Not $$IsEmpty:$JKLEDAlteredby [System : UDF] JKLEDAlter : Aggregate : 8600 JKLEDAlteredBy : String : 8601 JKAlteredDateTime : String : 8602 JKLedOldName : String : 8603 [#Form : Ledger] On : Form Accept : Yes : CALL : JayLedfunc [Function : JayLedfunc] Variable : LedAltName : String Variable : LedAltDate : String Variable : LedCreateName : String 005 : If : $$InAlterMode 010 : Set Target 020 : Set:LedAltName:$$CMPUserName 050 : Set:LedAltDate:($$String:$$MachineDate:UniversalDate + $$LocaleString:" at " + $$MachineTime) 080 : Insert Collection Object:JKLEDALTER 090 : Set Target: (Ledger). 110 : Set Value:JKLEDAlteredBy:##LedAltName 120 : Set Value:JKAlteredDateTime:$$String:(##LedAltDate) 160 : Set Target.. 170 : Set Target.. 175 : Accept Object 180 : EndIf 1. Now it doesn't show an error after creating a ledger 2.Added field to display name of user who created the ledger 3.Keeps a track of the old ledger name (ledger name before alteration)
Code: [#Report : Ledger] On : Load : Yes : Call : SetOldLedName Variable : OldLedName [System : Variable] OldLedName [Variable : OldLedName] Type : String Persist : No [Function : Set Old Led Name] 10 : If : $$InAlterMode 20 : Set : OldLedName : $Name 30 : End If [#Part : LedOtherDetails] Switch : LEDJKAlter : JK LED Alter : $$InAlterMode [!Part : JK LED Alter] Add : Line : At End : JK LED Alter [Line : JKLED Alter] Field : Medium Prompt,JK LED Alter,JK LED Alter DateTime, JK Led Old Name Local : Field : Medium Prompt : Setas : "Altered By:" Invisible : Yes [Field : JK LED Alter] Use : Name Field Setas : $$CMPUserName Storage : JKLEDAlteredBy ;Skip :Yes [Field : JK LED Alter DateTime] Use : Name Field Width : 15 Set as : ($$String:$$MachineDate:UniversalDate + $$LocaleString:" at " + $$MachineTime) Storage : JKAlteredDateTime ;Skip :Yes [Line : JKLEDOld Name] Field : Medium Prompt,JK LED Old Name Local : Field : Medium Prompt : Setas : "Old Name:" Invisible : Yes [Field : JK LED Old Name] Use : Name Field Storage : JKLEDOldName ;Set by Condition : $$InCreateMode : $$CMPUserName Set As : ##OldLedName;$Name Set Always : Yes ;Skip :Yes ;;; =================================================================================================== ;;;Ledger Alteration Report ;;; =================================================================================================== [#Menu : Gateway of Tally] Add : Item : After : ~Display : Led Last Alteration- History : Display : Led Alter History [Report:Led Alter History] Form : Led Alter Report [Form : Led Alter Report] Part : Alter Title Vertical Align : Top Height : 100% Screen Width : 100% Screen [Part: Log formTitle] Lines : Alter formTitle Space Bottom : 0.5 Scroll : Vertical [Line : Alter formTitle] Field : Form Sub Title Local : Field : Form Sub Title : Set as : "Ledger Alter Report" Local : Field : Form Sub Title : Align : Center Local : Field : Form Sub Title : Fullwidth : yes Local : Field : Form Sub Title : Color : Blue Local : Field : Form Sub Title : Border: Thin Bottom Local : Field : Form Sub Title : Style: Normaluser [Part : Alter Title] Line : Alter Title_A, Alter Title_B Break On : $$IsEmpty:$LGname Scroll : Vertical Common Borders : Yes Border : Thin Bottom Repeat : Alter Title_B:JKLEDAltered [Line : Alter Title_A] Field : LGnametit, LedgerNameOldTit, CreatedByUserTit, Lgcompnametit, Lgdattit Local : Field : Default : Background : yellow Local : Field : Default : Color : Blue Local : Field : Default : Align : Center Local : Field : Default : Style: Normal Bold Italic Local : Field : Default : Delete :Storage Border : column Titles [Field : LGnametit] Use : Name Field Info : "Ledger Name" Width : 25 [Field : LedgerNameOldTit] Use : Name Field Set As : "Ledger Name (Old)" Width : 25 [Field : CreatedByUserTit] Use : Name Field Info : "Created By" Width : 15 [Field : Lgcompnametit] Use : Name Field Info : "Altered By" Width : 35 [Field : Lgdattit] Use : Name Field Info : "Last Alteration Date/Time" ;Width : 25 [Line : Alter Title_B] Field : LGname, LedgerNameOld, CreatedByUser, Lgcompname, Lgdat Option : AlterOnEnter : $$IsLedger [Field : LGname] Set as : $name Use : Name Field Width : 25 Border : Thin Left Alter:Ledger [Field : Lgcompname] Use : Name Field Set as : $JKLEDAlteredBy Width : 25 Border : Thin Left [Field : CreatedByUser] Use : Name Field Set As : $CreatedBy;$JKLEDCreatedBy Width : 15 Border : Thin Left [Field : LedgerNameOld] Use : Name Field Width : 25 Border : Thin Left Set as : $JKledOldName [Field : Lgdat] Use : Name Field Set as : $JKAlteredDateTime ;Width : 15 Border : Thin Left [Collection : JKLEDALTER] TYPE : Ledger Childof : $Name Fetch : JKLEDAlteredBy,JKAlteredDateTime,Name,*.* [Collection : JKLEDAltered] Type : Ledger Fetch : JKLEDAlter,JKLEDAlteredBy,JKAlteredDateTime,JKLEDCreatedBy,Name,*.* Filter : jkledAlter [System : Formulae] jkledAlter : Not $$IsEmpty:$JKLEDAlteredby [System : UDF] JKLEDAlter : Aggregate : 8600 JKLEDAlteredBy : String : 8601 JKAlteredDateTime : String : 8602 JKLedOldName : String : 8603 [#Form : Ledger] On : Form Accept : Yes : CALL : JayLedfunc [Function : JayLedfunc] Variable : LedAltName : String Variable : LedAltDate : String Variable : LedCreateName : String 005 : If : $$InAlterMode 010 : Set Target 020 : Set:LedAltName:$$CMPUserName 050 : Set:LedAltDate:($$String:$$MachineDate:UniversalDate + $$LocaleString:" at " + $$MachineTime) 080 : Insert Collection Object:JKLEDALTER 090 : Set Target: (Ledger). 110 : Set Value:JKLEDAlteredBy:##LedAltName 120 : Set Value:JKAlteredDateTime:$$String:(##LedAltDate) 160 : Set Target.. 170 : Set Target.. 175 : Accept Object 180 : EndIf 1. Alter Ledger on Enter Added
Little bit added in JAY'S Code.Now it shows 1. Creation date and time 2. what alteration done in ledger. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Ledger alteration history;;;;;;;;;;;;;;;;;;;; [#Report : Ledger] On : Load : Yes : Call : SetOldLedName Variable : OldLedName [System : Variable] OldLedName [Variable : OldLedName] Type : String Persist : No [Function : Set Old Led Name] 10 : If : $$InAlterMode 20 : Set : OldLedName : $Name 30 : End If [#Part : LedOtherDetails] Switch : LEDJKAlter : JK LED Alter : $$InAlterMode [!Part : JK LED Alter] Add : Line : At End : JK LED Alter,JKLEDOld Name,JKLedWht alt [Line : JKLED Alter] Field : Medium Prompt,JK LED Alter,JK LED Alter DateTime;, JK Led Old Name Local : Field : Medium Prompt : Setas : "Altered By:" Invisible : Yes [Field : JK LED Alter] Use : Name Field Setas : $$CMPUserName Storage : JKLEDAlteredBy ;Skip :Yes [Field : JK LED Alter DateTime] Use : Name Field Width : 15 Set as : ($$String:$$MachineDate:UniversalDate + $$LocaleString:" at " + $$MachineTime) Storage : JKAlteredDateTime ;Skip :Yes [Line : JKLEDOld Name] Field : Medium Prompt,JK LED Old Name Local : Field : Medium Prompt : Setas : "Old Name:" Invisible : yes [Field : JK LED Old Name] Use : Name Field Storage : JKLEDOldName ;Set by Condition : $$InCreateMode : $$CMPUserName Set As : ##OldLedName;$Name Set Always : Yes ;Skip :Yes [Line : JKLedWht alt] Field : Medium Prompt,JKLedWht alt Local : Field : Medium Prompt : Setas : "What Alteration Done:" Invisible : NO [Field : JKLedWht alt] Use : Name Field Storage : JKLedWhtalt Set As :"" Control : AltEmptyerrormsg:$$IsEmpty:$$Value ;;AND $$InAltermode Set Always : Yes [System : Formula] AltEmptyerrormsg:$$LocaleString:"What You Altered not specified" ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;create history;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [#Part :LedOtherDetails] Switch : LEDJKEnter : JK LED Enter : Not $$InAlterMode [!Part :JK LED Enter] Add :Line :At ENd :JK LED Enter [Line :JK LED Enter] Field :Medium Prompt,JK LED Enter,JK LED Enter DateTime Local :Field :Medium Prompt :Setas :"Entered By:" Invisible :Yes [Field :JK LED Enter] Use :Name Field Setas :$$CMPUserName Storage :JK LED EnteredBy Skip :Yes [Field :JK LED Enter DateTime] Use :Name Field width :15 Set as $$String:$$MachineDate:UniversalDate + $$LocaleString:" at " + $$MachineTime) Storage :JKEnteredDateTime Skip :Yes ;;; =================================================================================================== ;;;Ledger Alteration Report ;;; =================================================================================================== [#Menu:Sattam's Report] Add : Item : After :Voucher creation Alteration Report : Led Creation Alteration- History : Display : Led Alter History [Report:Led Alter History] Form : Led Alter Report [Form : Led Alter Report] Part : Alter Title Vertical Align : Top Height : 100% Screen Width : 100% Screen Background :"Light Orange" [Part: Log formTitle] Lines : Alter formTitle Space Bottom : 0.5 Scroll : Vertical [Line : Alter formTitle] Field : Form Sub Title Local : Field : Form Sub Title : Set as : "Ledger Alter Report" Local : Field : Form Sub Title : Align : Center Local : Field : Form Sub Title : Fullwidth : yes Local : Field : Form Sub Title : Color : Blue Local : Field : Form Sub Title : Border: Thin Bottom Local : Field : Form Sub Title : Style: Normaluser [Part : Alter Title] Line : Alter Title_A, Alter Title_B Break On : $$IsEmpty:$LGname Scroll : Vertical Common Borders : Yes Border : Thin Bottom Repeat : Alter Title_B:JKLEDAltered [Line : Alter Title_A] Field : LGnametit, LedgerNameOldTit, CreatedByUserTit,Usercrtdttmtit, Lgcompnametit, Lgdattit,Ledwhtalttit Local : Field : Default : Background : yellow Local : Field : Default : color : Maroon;;DarkBlue16Bit Local : Field : Default : Align : Left;Centre Local : Field : Default : Style: Normal Bold ;;Italic Local : Field : Default : Delete :Storage Border : column Titles [Field : LGnametit] Use : Name Field Info : "Ledger Name" Width : 25 [Field : LedgerNameOldTit] Use : Name Field Set As : "Led Name(Old)" Width : 25 [Field : CreatedByUserTit] Use : Name Field Info : "Created By" Width : 25 [Field : Usercrtdttmtit] Use : Name Field Info : "Creation Date/Time" Width : 20 [Field : Lgcompnametit] Use : Name Field Info : "Altered By" Width : 25 [Field : Lgdattit] Use : Name Field Info : "Last Alteration Date/Time" ;Width : 25 [Field : Ledwhtalttit] Use : Name Field Info : "What Alteration Done" ;Width : 25 [Line : Alter Title_B] Field : LGname, LedgerNameOld, CreatedByUser,Usercrtdttm, Lgcompname, Lgdat, Ledwhtalt Option : AlterOnEnter : $$IsLedger Local : Field : Default : color : DarkBlue16Bit Local : Field : LedgerNameOld : color :If ($Name=$JKledOldName OR $$IsEmpty:$JKledOldName) Then "Red" Else "DarkBlue16Bit" Local : Field : Ledwhtalt : color :Maroon Local : Field : Default :Style : Small bold [Field : LGname] Set as : $name Use : Name Field Width : 25 Border : Thin Left Alter:Ledger [Field : Lgcompname] Use : Name Field Set as : $JKLEDAlteredBy Width : 25 Border : Thin Left [Field : CreatedByUser] Use : Name Field Set As : $CreatedBy Width : 25 Border : Thin Left [Field : LedgerNameOld] Use : Name Field Width : 20 Border : Thin Left Set as : If ($Name=$JKledOldName OR $$IsEmpty:$JKledOldName) Then $$String:"Same as Current Name" Else $JKledOldName [Field : Usercrtdttm] Use : Name Field Set as : $JKEnteredDateTime Width : 25 Border : Thin Left [Field : Lgdat] Use : Name Field Set as : $JKAlteredDateTime ;Width : 25 Border : Thin Left [Field : Ledwhtalt] Use : Name Field Set as : $JKLedWhtalt ;Width : 25 Border : Thin Left Right [Collection : JKLEDALTER] TYPE : Ledger Childof : $Name Fetch : JKLEDAlteredBy,CreatedBy,JKAlteredDateTime,JKEnteredDateTime,Name,*.* [Collection : JKLEDAltered] Type : Ledger Fetch : JKLEDAlter,JKLEDAlteredBy,CreatedBy,JKAlteredDateTime,JKEnteredDateTime,Name,*.*;;JKLEDCreatedBy Filter : jkledAlter [System : Formulae] jkledAlter : (Not $$IsEmpty:$JKLEDAlteredby) OR (Not $$IsEmpty:$JKLEDEnteredBy) [System : UDF] JKLEDAlter : Aggregate : 8600 JKLEDAlteredBy : String : 8601 JKAlteredDateTime : String : 8602 JKLedOldName : String : 8603 JKLEDEnteredBy : String :8600 JKEnteredDateTime : String :8650 JKLedWhtalt : String : 8604 [#Form : Ledger] On : Form Accept : Yes : CALL : JayLedfunc [Function : JayLedfunc] Variable : LedAltName : String Variable : LedAltDate : String Variable : LedCreateName : String 005 : If : $$InAlterMode 010 : Set Target 020 : Set:LedAltName:$$CMPUserName 050 : Set:LedAltDate$$String:$$MachineDate:UniversalDate + $$LocaleString:" at " + $$MachineTime) 080 : Insert Collection Object:JKLEDALTER 090 : Set Target: (Ledger). 110 : Set Value:JKLEDAlteredBy:##LedAltName 120 : Set Value:JKAlteredDateTime:$$String##LedAltDate) 160 : Set Target.. 170 : Set Target.. 175 : Accept Object 180 : EndIf
Thanks Sattam and Jai, but your report is not a pure report of Kamlesh. if posible so post same Kamlesh_patel Report thanks..
Dear rohit this is different tdl for ledger master creation and alteration report. I have separate report full details of voucher alteration history which I can't post here.
I Can not Fetch Quantity for Voucher Alternation History, Please Help [system : UDF] VCHQTY : String : 2010 [line:Myline] Field : VH Qty Local : Field : VHQty : Set As : $$String : $BilledQty [function : my Fun] 70 : SET VALUE : VHQTY : $$string : $BilledQty [Field : VHQty] Use : Quantity Field width : 5% Screen Set As : $VHQty Skip : Yes
sir pls check my code not work properly.....udf storage field. [#Line:EI ColumnOne] /* Field:VCH ItemTitle Right Field:VCH QtyTitle,VCH InclRateTitle, VCH RateUnitsTitle, VCH DiscTitle, VCH AmtTitle */ Add:Field:After:VCH Itemtitle:VchPartNoTitle,VchEdiTitle Local:Field:VchSerTitle:Space Left:15 Local:Field:VchEdiTitle:Space Left:15 [Field:VchPartNoTitle] Use:Name Field Set as: "Part No" Width:9 SKip:Yes [Field:VchEdiTitle] Use:Name Field Set as:"Tally Edition." Width:9 Skip:Yes [#Line:EI ColumnTwo] /* Fields:VCH ItemTitle Right Fields: VCH ActualQtyTitle,VCH BilledQtyTitle, VCH InclRateTitle, VCH RateTitle, VCH RateUnitsTitle, VCH DiscTitle,VCH AmtTitle Local:Field:VCH ItemTitle:Setas:"" */Add:Field:After:VCH ItemTitle:VchPartNoTitle,VchEdiTitle Local:Field:VchPartNoTitle:Setas:"" Local:Field:VchPartNoTitle:Space Left:15 Local:Field:VchPartNoTitle:Skip:Yes Local:Field:VchEdiTitle:Setas"" Local:Field:VchEdiTitle:Space Left:15 Local:Field:VchEdiTitle:Skip:Yes [#Line:EI InvInfo] /* Fields:EI DeemedPos,VCHStockItem Right Fields:VCH ActualQty,VCH BilledQty, VCH ReteIncl,VCH Rate, VCH RateUnit, VCH PrevItem, VCH Discount, VCH Value */ Add:Field:After:VCH StockItem: VchPartNo,VchEdition Local:Field:VchEdition:Space Left:15 [Field:VchPartNo] Use:Number Field Set as:$PartNumber:Ledger:$PartyLedgerName Storage:VchPartNo Width:9 Format:"No Zero, No Comma" [Field:VchEdition] Use:Number Field Set as:$SerialEdition:Ledger:$PartyLedgerName Storage:VchEdition Width:9 Format:"No Zero, No Comma" ;;Adding extra field in ledger Master to incorporate Serial number and Software edition to ledger master [#Part:MST LED Explode sundry] Add:Line:After:LED AffectsStock:LedEdition [Line:InvPartNumber] Field:Medium Prompt,InvPartNumber Local:Field:Medium Prompt:Set As:"Part Number?" [Field:InvPartNumber] Use:Number Field Format:"NoZero,No Percentage,No Comma," StorageartNumber Color:Blue [Line:LedEdition] Field:Medium Prompt,LedEdition Local:Field:Medium Prompt:Set As:"Tally Software Edition?" [Field:LedEdition] Use:Name Field Format:"NoZero, No Percentage, No Comma," Storage:SerialEdition Color:blue [System:UDF] PartNumber:Number:801 SerialEdition:Sring:802 VchPartNo:Number:803 VchEdition:String:804
