Code: [#Menu: Gateway Of Tally] Add : Item : Price List : Alter : Salesman Name Add : Item : Price List Display : Display : PriceReportDisp [Report: Salesman Name] Form : Salesman Name Object : Company [Form: Salesman Name] Part : FormSubTitle,Saleman Button: FilterPriceButton ;Button : Delete All, Remove Line, Restore Line, Restore All,Report Operations Height:100% Screen Width:100% Screen Background :@@SV_CHEQUE SpaceRight : 0.5 SpaceLeft : 0.5 Local : Field : Form SubTitle : Info : $$LocaleString:"CIPLA PRICE LIST" Local : Field : Form SubTitle : Color : LeafGreen Local: Field:Form SubTitle : Style : Large SerIf Bold Buttons : PrintButton, ExportButton Local : Field : CMPSalemanName : Max : 250 [Part: Saleman] Lines : UserTitLine,CMP Salesman Repeat : CMP Salesman: mydbsalesman Break on: $$IsEmpty:$SalesmanName Scroll : Vertical Common Border : Yes [Line:UserTitLine] Fields:SNoFld, ItemFld,ItemPer,RTFld, Border:Thick Bottom [Field:SNoFld] Use:Name Field Set as:"S.NO." Width:5% Screen Style:Large Bold Color:"Yellow" Read Only:Yes Skip:Yes Align:Center Background :"Blue" Border:Thin Right [Field: ItemFld] Use:Name Field Set as:"ITEM NAME" Width:80% Screen Color:"Yellow" Read Only:Yes Skip:Yes Style:Large Bold Align:Center Background :"Blue" Border:Thin Right [Field: ItemPer] Use:Name Field Set as:"PER" Width:10% Screen Color:"Yellow" Read Only:Yes Skip:Yes Style:Large Bold Align:Center Background :"Blue" Border:Thin Right [Field:RTFld] Use:Name Field Set as:"PRICE" Width:5% Screen Color:"Yellow" Read Only:Yes Skip:Yes Style:Large Bold Align:Center Background :"Blue" Border:Thin Right [Line: CMP Salesman] Fields : CMPSrNo, CMPSalemanName, CMPPer, CMPSalMobNum [Field:CMPSrNo] Use:Number Field Set as:$$Line Read Only:Yes Skip Forward:No Width:5% Screen Border: Thin Box Align:Center [Field: CMPSalemanName] Use : Short Name Field Storage : SalesmanName Unique : Yes Width:80% Screen Style : Normal Bold Line:0 Border: Thin Box [Field: CMPPer] Use : Short Name Field Storage : CMPPer Unique : No Width:10% Screen Style : Normal Bold Line:0 Border: Thin Box [Field: CMPSalMobNum] Use : Number Field Storage : SalMobNum Width:5% Screen Style : Normal Bold Format : Decimal : 2 Border: Thin Box Align:Right [System: UDF] mydbsalesman : Aggregate: 999 SalesmanName : String : 1000 ;: Yes SalMobNum:Number: 1100 CMPPer: String : 888 [Collection : SalesmanMobNumCollection] Childof : ##SVCurrentCompany [Collection : SalesmanNameCollection] Type : mydbsalesman : Company Childof : ##SVCurrentCompany Fetch : *, *.* Title: "Price List" + $$NewLine + "Create New Item (Alt+C)" Add : Option : EnhancedSalesmanNameCollection [!Collection : EnhancedSalesmanNameCollection] Add : SubTitle :$$LocaleString:"NAME OF ITEM" Add : SubTitle :$$LocaleString:"PER" Add : SubTitle :$$LocaleString:"PRICE" Add : Format : $SalesmanName, 100 Add : Format : $CMPPer, 100 Add : Format : $SalMobNum, 30 Add : Format : $SalMobNum:"Decimals:2" FullHeight : Yes [#System: Formula] SV_TABLE_TITLE_STYLE: "Large Serif Bold" SV_TABLE_SUB_TITLE_STYLE: "Large Serif" SV_TABLE_SUB_TITLE_BG : @@SV_RELEASEDBLUE_ROYAL SV_TABLE_SUB_TITLE_FG : @@SV_RELEASEDWHITE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;PRICE LIST DISPLAY REPORT;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [Report: PriceReportDisp] Form : Salesman Name2 Object : Company [Form: Salesman Name2] On : Form Accept : Yes : Display : PriceReportDisp Part : FormSubTitle,Saleman2 ;Button : Delete All, Remove Line, Restore Line, Restore All,Report Operations Height:100% Screen Width:100% Screen Background :@@SV_CHEQUE SpaceRight : 0.5 SpaceLeft : 0.5 Local : Field : Form SubTitle : Info : $$LocaleString:"CIPLA PRICE LIST" Local : Field : Form SubTitle : Color : LeafGreen Local: Field:Form SubTitle : Style : Large SerIf Bold Buttons : PrintButton, ExportButton Bottom Toolbar Buttons : BottomToolBarBtn1,BottomToolBarBtn2, BottomToolBarBtn3,BottomToolBarBtn4,BottomToolBarBtn5,BottomToolBarBtn6,BottomToolBarBtn7, BottomToolBarBtn8,BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11, BottomToolBarBtn12 Button : Delete Allline [Part: Saleman2] Lines : UserTitLine2,CMP Salesman2 Repeat : CMP Salesman2: SalesmanNameCollection2 ;; mydbsalesman Break on: $$IsEmpty:$SalesmanName Scroll : Vertical Common Border : Yes [Line:UserTitLine2] Fields:SNoFld2, ItemFld2, RTFld2 Border:Thick Bottom [Field:SNoFld2] Use:Name Field Set as:"S.NO." Width:5% Screen Style:Large Bold Color:"Yellow" Read Only:Yes Skip:Yes Align:Center Background :"Blue" Border:Thin Right [Field: ItemFld2] Use:Name Field Set as:"ITEM NAME" Width:90% Screen Color:"Yellow" Read Only:Yes Skip:Yes Style:Large Bold Align:Center Background :"Blue" Border:Thin Right [Field:RTFld2] Use:Name Field Set as:"PRICE" Width:5% Screen Color:"Yellow" Read Only:Yes Skip:Yes Style:Large Bold Align:Center Background :"Blue" Border:Thin Right [Line: CMP Salesman2] Fields : CMPSrNo2, CMPSalemanName2, CMPSalMobNum2 [Field:CMPSrNo2] Use:Number Field Set as:$$Line Read Only:Yes Skip Forward:No Width:5% Screen Border: Thin Box Align:Center [Field: CMPSalemanName2] Use : Short Name Field Set as : $SalesmanName Storage : SalesmanName Unique : Yes Width:90% Screen Style : Normal Bold Line:0 Border: Thin Box [Field: CMPSalMobNum2] Use : Number Field Set As : $SalMobNum Storage : SalMobNum Width:5% Screen Style : Normal Bold Format : Decimal : 2 Border: Thin Box Align:Right [Collection : SalesmanNameCollection2] Type : mydbsalesman : Company Childof : ##SVCurrentCompany Fetch : *, *.* [Button : Delete Allline] Title : "Delete" Key : Alt+D Action : Call : DeletePriceFunc [Function : DeletePriceFunc] ; 100 : Set Target 100 : Set : LineCount : $$NumItems:mydbsalesman 120 : Set Target 130 : While : not $$isempty:##LineCount 140 : deletecollectionobject : mydbsalesman : ##LineCount : yes 150 : Decrement : LineCount 160 : End While [System : Variables] LineCount : 1 [Variable : LineCount] Type : number
