D
Daniel Ruiz
Guest
Hello I need to develop a window that throws a bar chart , currently use the bindingSource of Progress and Telerik UI for WinForms. I tried these two methods. ================================================== ============== Solution 1: I follow the steps in this link: http://www.telerik.com/videos/winforms/getting-started-with-radchartview-for-winforms The problem arises when I finish using the wizard Telerik. And the visual control does not display any bar chart 
. I tried using other controls to see if the bug occurred only with this control. I obtained the same results. ================================================== ============== Solution 2: I implemented the configuration of the attachment of the post of Paul Radbone : https://community.progress.com/community_groups/openedge_development/f/19/p/23039/80620#80620 I obtained results for grid controls. The bar chart now displays categories, however, are only the number of records in my table. Although they are not bar charts such. ================================================== ============== My question is what can be done in both cases to work properly and what I'm doing wrong? Thank you for your attention, really I am grateful to anyone who can support me. Greetings. Deputy screenshots and source code. /*------------------------------------------------------------------------ File : laGrafica Purpose : Syntax : Description : Author(s) : Daniel Created : Mon Oct 03 15:33:38 CDT 2016 Notes : ----------------------------------------------------------------------*/ USING Progress.Lang.*. USING Progress.Windows.Form. BLOCK-LEVEL ON ERROR UNDO, THROW. CLASS pruebas.laGrafica INHERITS Form: DEFINE PRIVATE VARIABLE bindingSourceTap AS Progress.Data.BindingSource NO-UNDO. DEFINE PRIVATE VARIABLE chartTAP AS Telerik.WinControls.UI.RadChartView NO-UNDO. DEFINE PRIVATE VARIABLE components AS System.ComponentModel.IContainer NO-UNDO. DEFINE PRIVATE VARIABLE radGridView1 AS Telerik.WinControls.UI.RadGridView NO-UNDO. DEFINE PRIVATE VARIABLE rEmpleadoGrid AS System.Windows.Forms.DataGridView NO-UNDO. /*---------------------INICIO: Código generado manualmente------------------*/ DEFINE VARIABLE hTTEmpleado AS HANDLE NO-UNDO. DEFINE VARIABLE hDataSet AS HANDLE NO-UNDO. DEFINE VARIABLE hBuffTTEmpleado AS HANDLE NO-UNDO. DEFINE VARIABLE hEmpleadoQry AS HANDLE NO-UNDO. DEFINE TEMP-TABLE ttEmpleado NO-UNDO LIKE Empleado. DEFINE DATASET dsEmpleado FOR ttEmpleado. /*---------------------METODO Custom(): generado manualmente------------------*/ METHOD PRIVATE VOID Custom(): hDataSet = DATASET dsEmpleado:HANDLE. hTTEmpleado = TEMP-TABLE ttEmpleado:HANDLE. hBuffTTEmpleado = hTTEmpleadoEFAULT-BUFFER-HANDLE. /* Define la fuente de datos */ DEFINE DATA-SOURCE dEmp FOR Empleado. /* Une la fuente de datos al buffer del dataset */ hBuffTTEmpleado:ATTACH-DATA-SOURCE(DATA-SOURCE dEmp:HANDLE,?,?,?). /* Llena el dataset usando la fuente de datos */ hDataSet:FILL(). /* Consulta de navegacion para empleado */ hEmpleadoQry = hDataSet:TOP-NAV-QUERY(). hEmpleadoQry:QUERY-PREPARE("for EACH ttEmpleado where nombre <> ''"). hEmpleadoQry:QUERY-OPEN(). hEmpleadoQry:GET-NEXT(). /* Despliega todos los empleados en la rejilla */ bindingSourceTap = NEW Progress.Data.BindingSource(hEmpleadoQry, "*", ""). /* Disable editing because procedure does not include event logic to handle changes. */ bindingSourceTap:AllowEdit = FALSE. bindingSourceTap:AllowRemove = FALSE. rEmpleadoGrid:Name = "CustGrid". rEmpleadoGrid:Text = "Customer Grid". rEmpleadoGridataSource = bindingSourceTap. radGridView1ataSource = bindingSourceTap. rEmpleadoGrid:TabIndex = 1. /*_______Zona de pruebas_________*/ chartTAPataSource = bindingSourceTap. /*_______Zona de pruebas_________*/ END METHOD. /*---------------------FIN: Código generado manualmente------------------*/ CONSTRUCTOR PUBLIC laGrafica ( ): SUPER(). InitializeComponent(). Custom(). THIS-OBJECT:ComponentsCollection:ADD(THIS-OBJECT:components). CATCH e AS Progress.Lang.Error: UNDO, THROW e. END CATCH. END CONSTRUCTOR. METHOD PRIVATE VOID InitializeComponent( ): /* NOTE: The following method is automatically generated. We strongly suggest that the contents of this method only be modified using the Visual Designer to avoid any incompatible modifications. Modifying the contents of this method using a code editor will invalidate any support for this file. */ THIS-OBJECT:components = NEW System.ComponentModel.Container(). @VisualDesigner.FormMember (NeedsInitialize="true"). DEFINE VARIABLE cartesianArea1 AS Telerik.WinControls.UI.CartesianArea NO-UNDO. cartesianArea1 = NEW Telerik.WinControls.UI.CartesianArea(). @VisualDesigner.FormMember (NeedsInitialize="true"). DEFINE VARIABLE categoricalAxis1 AS Telerik.WinControls.UI.CategoricalAxis NO-UNDO. categoricalAxis1 = NEW Telerik.WinControls.UI.CategoricalAxis(). @VisualDesigner.FormMember (NeedsInitialize="true"). DEFINE VARIABLE linearAxis1 AS Telerik.WinControls.UI.LinearAxis NO-UNDO. linearAxis1 = NEW Telerik.WinControls.UI.LinearAxis(). @VisualDesigner.FormMember (NeedsInitialize="true"). DEFINE VARIABLE barSeries1 AS Telerik.WinControls.UI.BarSeries NO-UNDO. barSeries1 = NEW Telerik.WinControls.UI.BarSeries(). @VisualDesigner.FormMember (NeedsInitialize="true"). DEFINE VARIABLE barSeries2 AS Telerik.WinControls.UI.BarSeries NO-UNDO. barSeries2 = NEW Telerik.WinControls.UI.BarSeries(). @VisualDesigner.FormMember (NeedsInitialize="true"). DEFINE VARIABLE tableViewDefinition1 AS Telerik.WinControls.UI.TableViewDefinition NO-UNDO. tableViewDefinition1 = NEW Telerik.WinControls.UI.TableViewDefinition(). THIS-OBJECT:bindingSourceTap = NEW Progress.Data.BindingSource(THIS-OBJECT:components). THIS-OBJECT:rEmpleadoGrid = NEW System.Windows.Forms.DataGridView(). THIS-OBJECT:chartTAP = NEW Telerik.WinControls.UI.RadChartView(). THIS-OBJECT:radGridView1 = NEW Telerik.WinControls.UI.RadGridView(). CAST(THIS-OBJECT:bindingSourceTap, System.ComponentModel.ISupportInitialize):BeginInit(). CAST(THIS-OBJECT:rEmpleadoGrid, System.ComponentModel.ISupportInitialize):BeginInit(). CAST(THIS-OBJECT:chartTAP, System.ComponentModel.ISupportInitialize):BeginInit(). CAST(THIS-OBJECT:radGridView1, System.ComponentModel.ISupportInitialize):BeginInit(). CAST(THIS-OBJECT:radGridView1:MasterTemplate, System.ComponentModel.ISupportInitialize):BeginInit(). THIS-OBJECT:SuspendLayout(). /* */ /* bindingSourceTap */ /* */ THIS-OBJECT:bindingSourceTap:MaxDataGuess = 0. THIS-OBJECT:bindingSourceTap:NoLOBs = FALSE. THIS-OBJECT:bindingSourceTap:TableSchema = ?. /* */ /* rEmpleadoGrid */ /* */ THIS-OBJECT:rEmpleadoGrid:ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode:AutoSize. THIS-OBJECT:rEmpleadoGrid:Location = NEW System.Drawing.Point(35, 28). THIS-OBJECT:rEmpleadoGrid:Name = "rEmpleadoGrid". THIS-OBJECT:rEmpleadoGrid:Size = NEW System.Drawing.Size(978, 169). THIS-OBJECT:rEmpleadoGrid:TabIndex = 0. /* */ /* chartTAP */ /* */ THIS-OBJECT:chartTAP:AreaDesign = cartesianArea1. categoricalAxis1:IsPrimary = TRUE. categoricalAxis1:LabelRotationAngle = Progress.Util.CastUtil:ToDouble("300"). categoricalAxis1:Title = "". linearAxis1:AxisType = Telerik.Charting.AxisType:Second. linearAxis1:IsPrimary = TRUE. linearAxis1:LabelRotationAngle = Progress.Util.CastUtil:ToDouble("300"). linearAxis1:TickOrigin = ?. linearAxis1:Title = "". @VisualDesigner.FormMember (NeedsInitialize="false", InitializeArray="true"). DEFINE VARIABLE arrayvar0 AS Telerik.WinControls.UI.Axis EXTENT 2 NO-UNDO. arrayvar0[1] = categoricalAxis1. arrayvar0[2] = linearAxis1. THIS-OBJECT:chartTAP:Axes:AddRange(arrayvar0). THIS-OBJECT:chartTAP:Location = NEW System.Drawing.Point(35, 442). THIS-OBJECT:chartTAP:Name = "chartTAP". barSeries1:HorizontalAxis = categoricalAxis1. barSeries1:LabelMode = Telerik.WinControls.UI.BarLabelModes:Top. barSeries1:VerticalAxis = linearAxis1. barSeries2:HorizontalAxis = categoricalAxis1. barSeries2:LabelMode = Telerik.WinControls.UI.BarLabelModes:Top. barSeries2:VerticalAxis = linearAxis1. @VisualDesigner.FormMember (NeedsInitialize="false", InitializeArray="true"). DEFINE VARIABLE arrayvar1 AS Telerik.WinControls.UI.ChartSeries EXTENT 2 NO-UNDO. arrayvar1[1] = barSeries1. arrayvar1[2] = barSeries2. THIS-OBJECT:chartTAP:Series:AddRange(arrayvar1). THIS-OBJECT:chartTAP:ShowGrid = FALSE. THIS-OBJECT:chartTAP:Size = NEW System.Drawing.Size(978, 244). THIS-OBJECT:chartTAP:TabIndex = 1. THIS-OBJECT:chartTAP:Text = "radChartView1". /* */ /* radGridView1 */ /* */ THIS-OBJECT:radGridView1:Location = NEW System.Drawing.Point(35, 218). /* */ /* */ /* */ THIS-OBJECT:radGridView1:MasterTemplateataSource = THIS-OBJECT:bindingSourceTap. THIS-OBJECT:radGridView1:MasterTemplate:ViewDefinition = tableViewDefinition1. THIS-OBJECT:radGridView1:Name = "radGridView1". THIS-OBJECT:radGridView1:Size = NEW System.Drawing.Size(978, 200). THIS-OBJECT:radGridView1:TabIndex = 2. THIS-OBJECT:radGridView1:Text = "radGridView1". /* */ /* laGrafica */ /* */ THIS-OBJECT:ClientSize = NEW System.Drawing.Size(1036, 710). THIS-OBJECT:Controls:Add(THIS-OBJECT:radGridView1). THIS-OBJECT:Controls:Add(THIS-OBJECT:chartTAP). THIS-OBJECT:Controls:Add(THIS-OBJECT:rEmpleadoGrid). THIS-OBJECT:Name = "laGrafica". THIS-OBJECT:Text = "laGrafica". CAST(THIS-OBJECT:bindingSourceTap, System.ComponentModel.ISupportInitialize):EndInit(). CAST(THIS-OBJECT:rEmpleadoGrid, System.ComponentModel.ISupportInitialize):EndInit(). CAST(THIS-OBJECT:chartTAP, System.ComponentModel.ISupportInitialize):EndInit(). CAST(THIS-OBJECT:radGridView1:MasterTemplate, System.ComponentModel.ISupportInitialize):EndInit(). CAST(THIS-OBJECT:radGridView1, System.ComponentModel.ISupportInitialize):EndInit(). THIS-OBJECT:ResumeLayout(FALSE). CATCH e AS Progress.Lang.Error: UNDO, THROW e. END CATCH. END METHOD. DESTRUCTOR PUBLIC laGrafica ( ): END DESTRUCTOR. END CLASS. .
Continue reading...
. I tried using other controls to see if the bug occurred only with this control. I obtained the same results. ================================================== ============== Solution 2: I implemented the configuration of the attachment of the post of Paul Radbone : https://community.progress.com/community_groups/openedge_development/f/19/p/23039/80620#80620 I obtained results for grid controls. The bar chart now displays categories, however, are only the number of records in my table. Although they are not bar charts such. ================================================== ============== My question is what can be done in both cases to work properly and what I'm doing wrong? Thank you for your attention, really I am grateful to anyone who can support me. Greetings. Deputy screenshots and source code. /*------------------------------------------------------------------------ File : laGrafica Purpose : Syntax : Description : Author(s) : Daniel Created : Mon Oct 03 15:33:38 CDT 2016 Notes : ----------------------------------------------------------------------*/ USING Progress.Lang.*. USING Progress.Windows.Form. BLOCK-LEVEL ON ERROR UNDO, THROW. CLASS pruebas.laGrafica INHERITS Form: DEFINE PRIVATE VARIABLE bindingSourceTap AS Progress.Data.BindingSource NO-UNDO. DEFINE PRIVATE VARIABLE chartTAP AS Telerik.WinControls.UI.RadChartView NO-UNDO. DEFINE PRIVATE VARIABLE components AS System.ComponentModel.IContainer NO-UNDO. DEFINE PRIVATE VARIABLE radGridView1 AS Telerik.WinControls.UI.RadGridView NO-UNDO. DEFINE PRIVATE VARIABLE rEmpleadoGrid AS System.Windows.Forms.DataGridView NO-UNDO. /*---------------------INICIO: Código generado manualmente------------------*/ DEFINE VARIABLE hTTEmpleado AS HANDLE NO-UNDO. DEFINE VARIABLE hDataSet AS HANDLE NO-UNDO. DEFINE VARIABLE hBuffTTEmpleado AS HANDLE NO-UNDO. DEFINE VARIABLE hEmpleadoQry AS HANDLE NO-UNDO. DEFINE TEMP-TABLE ttEmpleado NO-UNDO LIKE Empleado. DEFINE DATASET dsEmpleado FOR ttEmpleado. /*---------------------METODO Custom(): generado manualmente------------------*/ METHOD PRIVATE VOID Custom(): hDataSet = DATASET dsEmpleado:HANDLE. hTTEmpleado = TEMP-TABLE ttEmpleado:HANDLE. hBuffTTEmpleado = hTTEmpleadoEFAULT-BUFFER-HANDLE. /* Define la fuente de datos */ DEFINE DATA-SOURCE dEmp FOR Empleado. /* Une la fuente de datos al buffer del dataset */ hBuffTTEmpleado:ATTACH-DATA-SOURCE(DATA-SOURCE dEmp:HANDLE,?,?,?). /* Llena el dataset usando la fuente de datos */ hDataSet:FILL(). /* Consulta de navegacion para empleado */ hEmpleadoQry = hDataSet:TOP-NAV-QUERY(). hEmpleadoQry:QUERY-PREPARE("for EACH ttEmpleado where nombre <> ''"). hEmpleadoQry:QUERY-OPEN(). hEmpleadoQry:GET-NEXT(). /* Despliega todos los empleados en la rejilla */ bindingSourceTap = NEW Progress.Data.BindingSource(hEmpleadoQry, "*", ""). /* Disable editing because procedure does not include event logic to handle changes. */ bindingSourceTap:AllowEdit = FALSE. bindingSourceTap:AllowRemove = FALSE. rEmpleadoGrid:Name = "CustGrid". rEmpleadoGrid:Text = "Customer Grid". rEmpleadoGridataSource = bindingSourceTap. radGridView1ataSource = bindingSourceTap. rEmpleadoGrid:TabIndex = 1. /*_______Zona de pruebas_________*/ chartTAPataSource = bindingSourceTap. /*_______Zona de pruebas_________*/ END METHOD. /*---------------------FIN: Código generado manualmente------------------*/ CONSTRUCTOR PUBLIC laGrafica ( ): SUPER(). InitializeComponent(). Custom(). THIS-OBJECT:ComponentsCollection:ADD(THIS-OBJECT:components). CATCH e AS Progress.Lang.Error: UNDO, THROW e. END CATCH. END CONSTRUCTOR. METHOD PRIVATE VOID InitializeComponent( ): /* NOTE: The following method is automatically generated. We strongly suggest that the contents of this method only be modified using the Visual Designer to avoid any incompatible modifications. Modifying the contents of this method using a code editor will invalidate any support for this file. */ THIS-OBJECT:components = NEW System.ComponentModel.Container(). @VisualDesigner.FormMember (NeedsInitialize="true"). DEFINE VARIABLE cartesianArea1 AS Telerik.WinControls.UI.CartesianArea NO-UNDO. cartesianArea1 = NEW Telerik.WinControls.UI.CartesianArea(). @VisualDesigner.FormMember (NeedsInitialize="true"). DEFINE VARIABLE categoricalAxis1 AS Telerik.WinControls.UI.CategoricalAxis NO-UNDO. categoricalAxis1 = NEW Telerik.WinControls.UI.CategoricalAxis(). @VisualDesigner.FormMember (NeedsInitialize="true"). DEFINE VARIABLE linearAxis1 AS Telerik.WinControls.UI.LinearAxis NO-UNDO. linearAxis1 = NEW Telerik.WinControls.UI.LinearAxis(). @VisualDesigner.FormMember (NeedsInitialize="true"). DEFINE VARIABLE barSeries1 AS Telerik.WinControls.UI.BarSeries NO-UNDO. barSeries1 = NEW Telerik.WinControls.UI.BarSeries(). @VisualDesigner.FormMember (NeedsInitialize="true"). DEFINE VARIABLE barSeries2 AS Telerik.WinControls.UI.BarSeries NO-UNDO. barSeries2 = NEW Telerik.WinControls.UI.BarSeries(). @VisualDesigner.FormMember (NeedsInitialize="true"). DEFINE VARIABLE tableViewDefinition1 AS Telerik.WinControls.UI.TableViewDefinition NO-UNDO. tableViewDefinition1 = NEW Telerik.WinControls.UI.TableViewDefinition(). THIS-OBJECT:bindingSourceTap = NEW Progress.Data.BindingSource(THIS-OBJECT:components). THIS-OBJECT:rEmpleadoGrid = NEW System.Windows.Forms.DataGridView(). THIS-OBJECT:chartTAP = NEW Telerik.WinControls.UI.RadChartView(). THIS-OBJECT:radGridView1 = NEW Telerik.WinControls.UI.RadGridView(). CAST(THIS-OBJECT:bindingSourceTap, System.ComponentModel.ISupportInitialize):BeginInit(). CAST(THIS-OBJECT:rEmpleadoGrid, System.ComponentModel.ISupportInitialize):BeginInit(). CAST(THIS-OBJECT:chartTAP, System.ComponentModel.ISupportInitialize):BeginInit(). CAST(THIS-OBJECT:radGridView1, System.ComponentModel.ISupportInitialize):BeginInit(). CAST(THIS-OBJECT:radGridView1:MasterTemplate, System.ComponentModel.ISupportInitialize):BeginInit(). THIS-OBJECT:SuspendLayout(). /* */ /* bindingSourceTap */ /* */ THIS-OBJECT:bindingSourceTap:MaxDataGuess = 0. THIS-OBJECT:bindingSourceTap:NoLOBs = FALSE. THIS-OBJECT:bindingSourceTap:TableSchema = ?. /* */ /* rEmpleadoGrid */ /* */ THIS-OBJECT:rEmpleadoGrid:ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode:AutoSize. THIS-OBJECT:rEmpleadoGrid:Location = NEW System.Drawing.Point(35, 28). THIS-OBJECT:rEmpleadoGrid:Name = "rEmpleadoGrid". THIS-OBJECT:rEmpleadoGrid:Size = NEW System.Drawing.Size(978, 169). THIS-OBJECT:rEmpleadoGrid:TabIndex = 0. /* */ /* chartTAP */ /* */ THIS-OBJECT:chartTAP:AreaDesign = cartesianArea1. categoricalAxis1:IsPrimary = TRUE. categoricalAxis1:LabelRotationAngle = Progress.Util.CastUtil:ToDouble("300"). categoricalAxis1:Title = "". linearAxis1:AxisType = Telerik.Charting.AxisType:Second. linearAxis1:IsPrimary = TRUE. linearAxis1:LabelRotationAngle = Progress.Util.CastUtil:ToDouble("300"). linearAxis1:TickOrigin = ?. linearAxis1:Title = "". @VisualDesigner.FormMember (NeedsInitialize="false", InitializeArray="true"). DEFINE VARIABLE arrayvar0 AS Telerik.WinControls.UI.Axis EXTENT 2 NO-UNDO. arrayvar0[1] = categoricalAxis1. arrayvar0[2] = linearAxis1. THIS-OBJECT:chartTAP:Axes:AddRange(arrayvar0). THIS-OBJECT:chartTAP:Location = NEW System.Drawing.Point(35, 442). THIS-OBJECT:chartTAP:Name = "chartTAP". barSeries1:HorizontalAxis = categoricalAxis1. barSeries1:LabelMode = Telerik.WinControls.UI.BarLabelModes:Top. barSeries1:VerticalAxis = linearAxis1. barSeries2:HorizontalAxis = categoricalAxis1. barSeries2:LabelMode = Telerik.WinControls.UI.BarLabelModes:Top. barSeries2:VerticalAxis = linearAxis1. @VisualDesigner.FormMember (NeedsInitialize="false", InitializeArray="true"). DEFINE VARIABLE arrayvar1 AS Telerik.WinControls.UI.ChartSeries EXTENT 2 NO-UNDO. arrayvar1[1] = barSeries1. arrayvar1[2] = barSeries2. THIS-OBJECT:chartTAP:Series:AddRange(arrayvar1). THIS-OBJECT:chartTAP:ShowGrid = FALSE. THIS-OBJECT:chartTAP:Size = NEW System.Drawing.Size(978, 244). THIS-OBJECT:chartTAP:TabIndex = 1. THIS-OBJECT:chartTAP:Text = "radChartView1". /* */ /* radGridView1 */ /* */ THIS-OBJECT:radGridView1:Location = NEW System.Drawing.Point(35, 218). /* */ /* */ /* */ THIS-OBJECT:radGridView1:MasterTemplateataSource = THIS-OBJECT:bindingSourceTap. THIS-OBJECT:radGridView1:MasterTemplate:ViewDefinition = tableViewDefinition1. THIS-OBJECT:radGridView1:Name = "radGridView1". THIS-OBJECT:radGridView1:Size = NEW System.Drawing.Size(978, 200). THIS-OBJECT:radGridView1:TabIndex = 2. THIS-OBJECT:radGridView1:Text = "radGridView1". /* */ /* laGrafica */ /* */ THIS-OBJECT:ClientSize = NEW System.Drawing.Size(1036, 710). THIS-OBJECT:Controls:Add(THIS-OBJECT:radGridView1). THIS-OBJECT:Controls:Add(THIS-OBJECT:chartTAP). THIS-OBJECT:Controls:Add(THIS-OBJECT:rEmpleadoGrid). THIS-OBJECT:Name = "laGrafica". THIS-OBJECT:Text = "laGrafica". CAST(THIS-OBJECT:bindingSourceTap, System.ComponentModel.ISupportInitialize):EndInit(). CAST(THIS-OBJECT:rEmpleadoGrid, System.ComponentModel.ISupportInitialize):EndInit(). CAST(THIS-OBJECT:chartTAP, System.ComponentModel.ISupportInitialize):EndInit(). CAST(THIS-OBJECT:radGridView1:MasterTemplate, System.ComponentModel.ISupportInitialize):EndInit(). CAST(THIS-OBJECT:radGridView1, System.ComponentModel.ISupportInitialize):EndInit(). THIS-OBJECT:ResumeLayout(FALSE). CATCH e AS Progress.Lang.Error: UNDO, THROW e. END CATCH. END METHOD. DESTRUCTOR PUBLIC laGrafica ( ): END DESTRUCTOR. END CLASS. .Continue reading...