Autor Tema: Chart - Gigasoft  (Leído 120 veces)

0 Usuarios y 1 Visitante están viendo este tema.

liza

  • Bit
  • Mensajes: 1
  • Reputación: +0/-0
    • Ver Perfil
Chart - Gigasoft
« en: Abril 03, 2020, 01:48:49 pm »

Buenas tardes por favor si alguien podría apoyarme con esto:
lo que que deseo es cargar mediante conexión Ado, un conjunto de registros a una imagen Chart de Gigasoft. a la vez que me agrupe, los tipos de cobros por la venta(tarjeta, efectivo, etc), también por mes y año según el rango ingresado en DatePicker1 hasta DatePiker2.

la conexion que uso actualmente es:

'{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{
Public Sub CreateSimpleGraph2()

   '//! Right button click to show popup menu. //
   '//! Double Click to show customization dialog. //
   '//! Left-Click and drag to draw zoom box. Use popup memu or 'z' to undo zoom. //

   '// Simple example show the basics of a graph object. //
   '// Graph's generally only contain YData because we assume
   '// data is plotted equally spaced left to right.
Dim Meses As Integer
   
    Dim S As Long
    Dim p As Long
Dim sql3 As String
Dim Rs3 As ADODB.Recordset

Dim strDesde As String
Dim strHasta As String
strDesde = "#" & Format(DTPInicio, "mm/dd/yyyy") & "#"
strHasta = "#" & Format(DTPFinal, "mm/dd/yyyy") & "#"

'If Rs.State = 1 Then Rs.Close
 Meses = DateDiff("m", DTPInicio, DTPFinal)

'Dim db As Database
'Dim MyRS As DAO.Recordset
'Dim MySQL As String
'MySQL = "select Field1, Field2, Field3 from Table1"
'Set db = CurrentDb()
'Set MyRS = db.OpenRecordset(MySQL)
''''''''''''
sql3 = "SELECT FORMADEPAGOVenta, year(FECHAVENTA) as Año , SUM(MONTOTOTALVENTA)as ventas , format(FechaVenta,'mmmm') as MES FROM DATOSVENTAFACTURA WHERE FECHAVENTA BETWEEN" & strDesde & " AND " & strHasta & _
         " GROUP BY FORMADEPAGOVenta,year(FECHAVENTA),format(FechaVenta,'mmmm');"
'sql = "SELECT * FROM PBG WHERE (Date < CDbl(CDate('6/6/1999'))) ; "

    Set Rs3 = CreateObject("ADODB.Recordset")
    Rs3.Open sql3, ConexionVenta, 1, 1


    '// Enable Bar Glass Effect //
Pego2.SubsetByPoint = True

Rs3.MoveLast
Rs3.MoveFirst

Pego2.Subsets = Rs3.RecordCount '2
Pego2.Points = Meses + 1 '10000#




Dim SS As Integer

Pego2.MainTitle = "Hello World"
Pego2.SubTitle = ""

'''''''''
Dim nCount As Integer
Dim NCount1 As Integer
Do While (Rs3.EOF = False)
For SS = 0 To Rs3.RecordCount '2

Pego2.YData(0, nCount) = Rs3("VENTAS")

'Pego2.YData(nCount, SS) = Rs3("VENTAS")

Pego2.PointLabels(nCount) = Rs3("MES") & " - " & Rs3("Año")

Pego2.SubsetLabels(NCount1) = Rs3("FORMADEPAGOVenta") '"For .Net Framework"



Next SS 'NCount1

nCount = nCount + 1
NCount1 = NCount1 + 1

Rs3.MoveNext


Loop


Pego2.Points = Meses + 1
'Pego2.Points = nCount
'Dim nCont As Integer

'nCont = nCont + 1


Pego2.PEactions = 0


Pego2.YAxisLabel = "Simple Quality Rendering"
'Pego2.SubsetColors(0) = Pego2.PEargb(60, 0, 180, 0)
'Pego2.SubsetColors(1) = Pego2.PEargb(180, 0, 0, 130)
Pego2.BitmapGradientMode = True
Pego2.QuickStyle = PEQS_LIGHT_SHADOW
Pego2.DeskColor = Pego2.PEargb(255, 255, 255, 255)
Pego2.GraphPlusTable = PEGPT_BOTH
Pego2.DataPrecision = PEDP_TWODECIMALS
Pego2.LabelBold = True
Pego2.PlottingMethod = GPM_BAR
Pego2.GradientBars = 8
Pego2.BarGlassEffect = True
Pego2.LegendLocation = PELL_RIGHT ' PELL_LEFT
Pego2.DataShadows = PEDS_3D
Pego2.FontSize = PEFS_LARGE
Pego2.PrepareImages = True
Pego2.CacheBmp = True
Pego2.RenderEngine = PERE_DIRECT2D
Pego2.AntiAliasGraphics = True
Pego2.AntiAliasText = True
Pego2.AllowDataHotSpots = True
Pego2.PEactions = REINITIALIZE_RESETIMAGE


Rs3.Close
Set Rs3 = Nothing

End Sub

Similar a la imagen
Muchas Gracias

gigasoft:
https://downloadly.ir/software/programming/proessentials/
« última modificación: Abril 03, 2020, 01:59:30 pm por liza »