FiveTech Software tech support forums

Posted: **Sat Oct 19, 2019 4:39 pm**

Amigos, tengan muy buenas tardes.

Como siempre requiero de su noble ayuda.

Debo construir un grafico y para ello, tengo una DBF con los siguientes Campos.

Peri = Periodo guarda el Mes y año, que puede ir de Enero a Diciembre en Formato " 10/2019"
Tip_Ate = Tipo de Atención en un dia cualquiera puedo tener Ingresos por "C", "A" y "P", (Consulta, Altura, Preocupacionnal)

Ejemplo:
Peri C A P
Por lo que tedria: 10/2019 10 4 2
09/2019 6 15 10
.......

Necesito poder mostrar un grafico con esta distribución.

Desde ya agradeciendo de su ayuda, les saluda.

Antonio.

Posted: **Sat Oct 19, 2019 7:56 pm**

There are several ways. You may use TGraph contro and display the chart of any type you choose.

Here are some other ways:

Code: Select all

#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   local oDlg, oFont, oBrw, oData

   // Create Test DBF
   DBCREATE( "TEST", {  {  "MONTH",    "C", 7, 0 } ;
                     ,  {  "CONSULTA", "N", 5, 0 } ;
                     ,  {  "ALTURA",   "N", 5, 0 } ;
                     ,  {  "PREOCUP",  "N", 5, 0 } ;
                     }, "DBFCDX", .T., "TST" )

   FW_ArrayToDBF( { { "10/2019",10000,4000,2000 }, { "09/2019",6000,15000,10000 }, { "08/2019",8000,10000,9000 } } )

   CLOSE TST
   // Created

   USE TEST NEW

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 550,400 PIXEL TRUEPIXEL FONT oFont ;
      TITLE "CHARTS IN XBROWSE"

   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "TEST" COLUMNS "MONTH", "CONSULTA", "ALTURA", "PREOCUP", "" ;
      HEADERS nil, nil, nil, nil, "CHART" ;
      COLSIZES nil, nil, nil, nil, 100, 100 ;
      CELL LINES NOBORDER

   WITH OBJECT oBrw
      :nStretchCol   := 5
      :aCols[ 5 ]:aChartCols := { 2, 3, 4 }
      :nRowHeight    := 100
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED

   // THIS WORKS WITH FWH1909 ONLY

   oData := TArrayData():New( "TEST" )

   DEFINE DIALOG oDlg SIZE 800,400 PIXEL TRUEPIXEL FONT oFont ;
      TITLE "CHARTS IN fwh1909"

   oDlg:bPainted  := <|hDC|
      oData:ShowTable( oDlg, { 0,0,200,500 }, oFont )
      oData:DrawChart( oDlg, { 200,0,400,400}, "BAR" )
      oData:DrawChart( oDlg, {   0,400,400,800}, "PIE" )
      return nil
      >

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

Posted: **Sat Oct 19, 2019 10:46 pm**

Hola Regards.

Realmente te pasaste, muchas gracias.

Es una gran gentileza de tu parte.

Muchos Saludos.

Antonio

Posted: **Mon Oct 21, 2019 12:58 pm**

Hola Regards.

He mostrado el grafico generado, pero lamentablemente lo solicitan ampliado en una sola Pantalla que represente por una parte los periodos y por otro los valores, es fabuloso el segundo grafico, pero no tengo la version de FWH 1909, existira otra forma de generarlo que se ajuste a los requerimientos dados.

Muchos Saludos

Antonio.

Posted: **Mon Oct 21, 2019 1:03 pm**

Use TGraph control.

Posted: **Mon Oct 21, 2019 1:23 pm**

Guiate con este enlase: https://forums.fivetechsupport.com/view ... =6&t=34384, no se ven las imágenes pero el código te puede orientar a realizar lo que deseas con versiones antiguas de FW.

Saludos

Posted: **Mon Oct 21, 2019 1:40 pm**

Hola Regards y Armando.

Muchas gracias por su ayuda.

Vere sus sugerencias.

Muchos Saludos.

Antonio

Posted: **Tue Oct 22, 2019 12:27 pm**

Amigos Buen dia.

He logrado modificar un grafico de barras para trabajar con los datos especificaco arriba, usando TGRAPH.

El problema que no lo encuentro tan especifico, ya que no muestra el valor de cada Barra, de ahi mi pregunta, ya que he visto algunos graficos que si pueden llevar un valor de cada barra Arriba, ya que el eje es solo una escala.

Como puedo poner el valor que corresponde a cada barra del grafico?

Desde ya muchos Saludos.

Antonio

Dejo el codgo que tengo de prueba:

Code: Select all


Function Grafico6()

# Include "Fivewin.Ch"
# Include "TGraph.ch"

    LOCAL oDlg, oGraph

    DEFINE DIALOG oDlg SIZE 600, 500
    oDlg:lHelpIcon := .F.

    @ 3, 1 GRAPH oGraph SIZE 250, 200 TYPE 1 YVALUES 3D XGRID YGRID XVALUES LEGENDS

    oGraph:aSeries = { { "Serie 1", CLR_CYAN , 1 , },;
    { "Serie 2", CLR_HRED , 1 , .F. } }

    oGraph:nPoint:=1
    oGraph:cSubTit:= "Titulo GRAFICO"
    oGraph:cTitX := "Titulo X"
    oGraph:cTitY:="Titulo Y"
    oGraph:nPenWidth:=5
    oGraph:lBorders := .T.
    oGraph:lTitle := .T.
    oGraph:lLegends := .T.
    oGraph:lxVal := .T.
    oGraph:lyVal := .T.
    oGraph:l3D := .T.

    oGraph:lxGrid := .T.
    oGraph:lyGrid := .T.
    oGraph:lDotted := .T.


    oGraph:aYVals = { "Consulta", "Altura", "Preocu" }

    oGraph:aData = { { 1500, 800, 40 },;
    { 200, 150, 10,},;
    { 350, 400, 70} }

    oGraph:nClrX = CLR_GREEN
    oGraph:nClrY = CLR_RED


    ACTIVATE DIALOG oDlg CENTER  ON INIT SET_FONTS( oGraph )

RETURN NIL

FUNCTION SET_FONTS( oGraph )

    oGraph:aFont[1] := TFont():New("Arial",0,-24,.F.,.T.,0,0,,.F.,.F.,.F.,0,3,2,1,,34)
    oGraph:aFont[2] := TFont():New("Arial",0,-13,.F.,.T.,0,0,,.F.,.F.,.F.,0,3,2,1,,34)
    oGraph:aFont[3] := TFont():New("Arial",0,-13,.F.,.T.,0,0,,.F.,.F.,.F.,0,3,2,1,,34)
    oGraph:aFont[4] := TFont():New("Arial",0,-13,.F.,.T.,0,0,,.F.,.F.,.F.,0,3,2,1,,34)
    oGraph:aFont[5] := TFont():New("Arial",0,-15,.F.,.T.,0,0,,.F.,.F.,.F.,0,3,2,1,,34)
    oGraph:aFont[6] := TFont():New("Arial",0,-15,.F.,.T.,898,0,,.F.,.F.,.F.,0,3,2,1,,34)
    oGraph:aFont[7] := TFont():New("Arial",0,-16,.F.,.T.,0,0,,.F.,.F.,.F.,0,3,2,1,,34)
    oGraph:aFont[8] := TFont():New("Arial",0,-15,.F.,.T.,0,0,,.F.,.F.,.F.,0,3,2,1,,34)

    oGraph:Refresh()

    RETURN NIL

Posted: **Tue Oct 22, 2019 1:23 pm**

Prueba con

Code: Select all

oGraph:lViewVal := .T

Posted: **Tue Oct 22, 2019 1:54 pm**

Hola Cesar

Muy gracias por tu ayuda.

He probado tu sugerencia y me arroja un error.

oGraph:lViewVal := .T.

Muchos Saludos.

Antonio.

Detalle del Error.

Code: Select all

Application
===========
   Path and name: C:\Desa\FichasWin\MenuFicha.exe (32 bits)
   Size: 4,665,856 bytes
   Compiler version: Harbour 3.2.0dev (r1506171039)
   FiveWin  version: FWH 17.09
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 5.1, Build 2600 Service Pack 3

   Time from start: 0 hours 0 mins 5 secs 
   Error occurred at: 22/10/2019, 10:51:48
   Error description: Error BASE/1066  Error de argumento: condicional
   Args:
     [   1] = U   

Stack Calls
===========
   Called from: .\source\classes\TGRAPH.PRG => TGRAPH:PAINT( 1111 )
   Called from: .\source\classes\TGRAPH.PRG => (b)TGRAPH( 116 )
   Called from: .\source\classes\TGRAPH.PRG => TGRAPH:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TGRAPH:HANDLEEVENT( 1697 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: .\Informes.PRG => GRAFICO6( 1780 )
   Called from: .\MenuFicha.PRG => (b)MENU( 179 )
   Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 1548 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1081 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1037 )
   Called from: .\MenuFicha.PRG => MAIN( 105 )

System
======
   CPU type: Intel(R) Core(TM)2 Duo CPU     E7400  @ 2.80GHz 2793 Mhz
   Hardware memory: 1980 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 9
      1 ,                                                                                                     
      2 , C:\Desa\FichasWin\MenuFicha.exe                                                                     
      3 , C:\WINDOWS\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.6028_x-ww_61e65202
      4 , C:\WINDOWS\system32\COMCTL32.DLL                                                                    
      5 , C:\WINDOWS\system32\SHLWAPI.dll                                                                     
      6 DDE Server Window, C:\WINDOWS\system32\OLE32.DLL                                                                       
      7 GDI+ Window, C:\WINDOWS\WinSxS\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.6002.23846_x-ww_f7dfd05e\GDIPLU
      8 M, C:\WINDOWS\system32\msctfime.ime                                                                    
      9 SysFader, C:\WINDOWS\system32\SHELL32.dll                                                                     

Variables in use
================
   Procedure     Type   Value
   ==========================
   TGRAPH:PAINT
     Param   1:    O    Class: ERROR
   (b)TGRAPH
     Local   1:    N    36
     Local   2:    N    110
     Local   3:    N    354
     Local   4:    N    413
     Local   5:    O    Class: TGRAPH
     Local   6:    N    1
     Local   7:    N    156.60
     Local   8:    N    1500.0000
     Local   9:    N    4.95
     Local  10:    N    303.000000
     Local  11:    N    15
     Local  12:    N    1
     Local  13:    A    Len:    2
     Local  14:    N    5
     Local  15:    L    .T.
     Local  16:    N    28.80
     Local  17:    N    57
     Local  18:    L    .T.
     Local  19:    U    
     Local  20:    N    375.00
     Local  21:    A    Len:    5
     Local  22:    N    1
     Local  23:    N    1
     Local  24:    N    60.60
     Local  25:    N    1500.0000
     Local  26:    N    0
     Local  27:    N    1500.0000
     Local  28:    N    0.20
     Local  29:    N    64
     Local  30:    N    80
     Local  31:    N    354.00
     Local  32:    N    -39.75
     Local  33:    N    717.75
     Local  34:    L    .T.
     Local  35:    L    .T.
     Local  36:    A    Len:    4
     Local  37:    N    0
     Local  38:    N    15
     Local  39:    N    15
     Local  40:    N    16
     Local  41:    N    13
     Local  42:    U    
     Local  43:    U    
     Local  44:    N    0
     Local  45:    L    .F.
     Local  46:    L    .T.
     Local  47:    U    
     Local  48:    U    
     Local  49:    U    
   TGRAPH:DISPLAY
     Param   1:    O    Class: TGRAPH
   TGRAPH:HANDLEEVENT
   _FWH
     Param   1:    N    15
     Param   2:    N    0
     Param   3:    N    0
     Local   1:    U    
   DIALOGBOXINDIRECT
     Param   1:    N    0
     Param   2:    N    15
     Param   3:    N    0
     Param   4:    N    0
     Param   5:    N    7
     Local   1:    O    Class: TGRAPH
   TDIALOG:ACTIVATE
     Param   1:    N    4194304
     Param   2:    C    "€ È€       -û          P     * ú È i T G R A P H       "
     Param   3:    N    1246008
     Param   4:    O    Class: TDIALOG
   GRAFICO6
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    L    .T.
     Param   5:    U    
     Param   6:    L    .T.
     Param   7:    B    {|| ... }
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Local   1:    N    1246008
     Local   2:    S    
     Local   3:    O    Class: TDIALOG
   (b)MENU
     Local   1:    O    Class: TDIALOG
     Local   2:    O    Class: TGRAPH
   TMENU:COMMAND
     Param   1:    O    Class: TMENUITEM
   TWINDOW:COMMAND
     Param   1:    N    20024
     Local   1:    O    Class: TMENUITEM
   TWINDOW:HANDLEEVENT
     Param   1:    N    20024
     Param   2:    N    0
     Local   1:    N    0
     Local   2:    N    20024
     Local   3:    N    0
     Local   4:    U    
   _FWH
     Param   1:    N    273
     Param   2:    N    20024
     Param   3:    N    0
   WINRUN
     Param   1:    N    0
     Param   2:    N    273
     Param   3:    N    20024
     Param   4:    N    0
     Param   5:    N    1
     Local   1:    O    Class: TWINDOW
   TWINDOW:ACTIVATE
     Param   1:    N    1246008
   MAIN
     Param   1:    C    "MAXIMIZED"
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    U    
     Param   6:    U    
     Param   7:    U    
     Param   8:    B    {|| ... }
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    U    
     Param  13:    U    
     Param  14:    U    
     Param  15:    U    
     Param  16:    U    
     Param  17:    B    {|| ... }
     Param  18:    U    
     Param  19:    U    
     Param  20:    L    .F.
     Local   1:    O    Class: TWINDOW
     Local   2:    U    
     Local   3:    U    

Linked RDDs
===========
   DBF
   DBFFPT
   DBFBLOB
   DBFCDX
   DBFNTX

DataBases in use
================

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBOBJECT
     4 TCURSOR
     5 TFONT
     6 TWINDOW
     7 TDIALOG
     8 TBRUSH
     9 TCONTROL
    10 TBITMAP
    11 TSAY
    12 TGET
    13 GET
    14 TCLIPGET
    15 TBUTTON
    16 TRECT
    17 TREG32
    18 TMENU
    19 TMENUITEM
    20 TBAR
    21 TBTNBMP
    22 TMSGBAR
    23 TMSGITEM
    24 TTIMER
    25 TGRAPH
    26 TSTRUCT

Memory Analysis
===============
      404 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes

Posted: **Tue Oct 22, 2019 11:40 pm**

Hola Amigos

Alguna idea ?

Saludos

Antonio.

Posted: **Wed Oct 23, 2019 3:51 am**

You should not get runtime error due to using oGraph:lViewVal := .t..
http://forums.fivetechsupport.com/viewt ... 16#p226716

Posted: **Wed Oct 23, 2019 12:29 pm**

Hola Regards

Muchas gracias por tu ayuda.

Extrañamente mi codigo se cae en ejecucion al usar oGraph:lViewVal := .t.., en cambio en compilado y ejecutado el codigo que tiene como ejemplo en el Link y funciona perfecto, me quedo con la duda del porque el mio no funciona.

Muchas gracias y muchos saludos

Antonio

Posted: **Wed Oct 23, 2019 12:36 pm**

can you post your code?

Posted: **Wed Oct 23, 2019 1:36 pm**

Hola Regards

Muchas gracias por tu tiempo, ayuda y preocupacion.

Publico el codigo y el detalle del error.

Muchos Saludos

Antonio

Codigo:

Code: Select all

Function Grafico12()

# Include "Fivewin.Ch"
# Include "TGraph.ch"

    LOCAL oDlg, oGraph

    DEFINE DIALOG oDlg SIZE 600, 500
    oDlg:lHelpIcon := .F.

    @ 3, 1 GRAPH oGraph SIZE 250, 200 TYPE 1 YVALUES 3D XGRID YGRID XVALUES LEGENDS

    oGraph:aSeries = { { "Serie 1", CLR_CYAN , 1 , },;
    { "Serie 2", CLR_HRED , 1 , .F. } }

    oGraph:nPoint:=1
    oGraph:cSubTit:= "Titulo GRAFICO"
    oGraph:cTitX := "Titulo X"
    oGraph:cTitY:="Titulo Y"
    oGraph:nPenWidth:=5
    oGraph:lBorders := .T.
    oGraph:lTitle := .T.
    oGraph:lLegends := .T.
    oGraph:lxVal := .T.
    oGraph:lyVal := .T.
    oGraph:l3D := .T.

    oGraph:lxGrid := .T.
    oGraph:lyGrid := .T.
    oGraph:lDotted := .T.

        oGraph:lViewVal := .t.     // <----  Esta Linea produce la caida.

    oGraph:aYVals = { "Consulta", "Altura", "Preocu" }

    oGraph:aData = { { 1500, 800, 40 },;
    { 200, 150, 10,},;
    { 350, 400, 70} }

    oGraph:nClrX = CLR_GREEN
    oGraph:nClrY = CLR_RED


    ACTIVATE DIALOG oDlg CENTER  ON INIT SET_FONTS( oGraph )

RETURN NIL


FUNCTION SET_FONTS( oGraph )

    oGraph:aFont[1] := TFont():New("Arial",0,-24,.F.,.T.,0,0,,.F.,.F.,.F.,0,3,2,1,,34)
    oGraph:aFont[2] := TFont():New("Arial",0,-13,.F.,.T.,0,0,,.F.,.F.,.F.,0,3,2,1,,34)
    oGraph:aFont[3] := TFont():New("Arial",0,-13,.F.,.T.,0,0,,.F.,.F.,.F.,0,3,2,1,,34)
    oGraph:aFont[4] := TFont():New("Arial",0,-13,.F.,.T.,0,0,,.F.,.F.,.F.,0,3,2,1,,34)
    oGraph:aFont[5] := TFont():New("Arial",0,-15,.F.,.T.,0,0,,.F.,.F.,.F.,0,3,2,1,,34)
    oGraph:aFont[6] := TFont():New("Arial",0,-15,.F.,.T.,898,0,,.F.,.F.,.F.,0,3,2,1,,34)
    oGraph:aFont[7] := TFont():New("Arial",0,-16,.F.,.T.,0,0,,.F.,.F.,.F.,0,3,2,1,,34)
    oGraph:aFont[8] := TFont():New("Arial",0,-15,.F.,.T.,0,0,,.F.,.F.,.F.,0,3,2,1,,34)

    oGraph:Refresh()

    RETURN NIL

Error:

Code: Select all

Application
===========
   Path and name: C:\Desa\FichasWin\MenuFicha.exe (32 bits)
   Size: 4,669,952 bytes
   Compiler version: Harbour 3.2.0dev (r1506171039)
   FiveWin  version: FWH 17.09
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 5.1, Build 2600 Service Pack 3

   Time from start: 0 hours 2 mins 34 secs 
   Error occurred at: 23/10/2019, 10:35:20
   Error description: Error BASE/1066  Error de argumento: condicional
   Args:
     [   1] = U   

Stack Calls
===========
   Called from: .\source\classes\TGRAPH.PRG => TGRAPH:PAINT( 1111 )
   Called from: .\source\classes\TGRAPH.PRG => (b)TGRAPH( 116 )
   Called from: .\source\classes\TGRAPH.PRG => TGRAPH:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TGRAPH:HANDLEEVENT( 1697 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from: .\source\classes\TGRAPH.PRG => TGRAPH:PAINT( 1111 )
   Called from: .\source\classes\TGRAPH.PRG => (b)TGRAPH( 116 )
   Called from: .\source\classes\TGRAPH.PRG => TGRAPH:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TGRAPH:HANDLEEVENT( 1697 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: .\Informes.PRG => GRAFICO12( 2303 )
   Called from: .\MenuFicha.PRG => (b)MENU( 192 )
   Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 1548 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1081 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1037 )
   Called from: .\MenuFicha.PRG => MAIN( 105 )

System
======
   CPU type: Intel(R) Core(TM)2 Duo CPU     E7400  @ 2.80GHz 2792 Mhz
   Hardware memory: 1980 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 10
      1 , C:\Desa\FichasWin\MenuFicha.exe                                                                     
      2 , C:\WINDOWS\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.6028_x-ww_61e65202
      3 , C:\WINDOWS\system32\COMCTL32.DLL                                                                    
      4 , C:\WINDOWS\system32\SHLWAPI.dll                                                                     
      5 DDE Server Window, C:\WINDOWS\system32\OLE32.DLL                                                                       
      6 Default IME, C:\WINDOWS\system32\MSCTF.dll                                                                       
      7 GDI+ Window, C:\WINDOWS\WinSxS\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.6002.23846_x-ww_f7dfd05e\GDIPLU
      8 M, C:\WINDOWS\system32\msctfime.ime                                                                    
      9 Mostrar código: [code]código

(alt+c),
10 SysFader, C:\WINDOWS\system32\SHELL32.dll

Variables in use
================
Procedure Type Value
==========================
TGRAPH:PAINT
Param 1: O Class: ERROR
(b)TGRAPH
Local 1: N 36
Local 2: N 110
Local 3: N 354
Local 4: N 413
Local 5: O Class: TGRAPH
Local 6: N 1
Local 7: N 156.60
Local 8: N 1500.0000
Local 9: N 4.95
Local 10: N 303.000000
Local 11: N 15
Local 12: N 1
Local 13: A Len: 2
Local 14: N 1
Local 15: L .T.
Local 16: N 28.80
Local 17: N 57
Local 18: L .T.
Local 19: U
Local 20: N 375.00
Local 21: A Len: 5
Local 22: N 1
Local 23: N 1
Local 24: N 60.60
Local 25: N 1500.0000
Local 26: N 0
Local 27: N 1500.0000
Local 28: N 0.20
Local 29: N 64
Local 30: N 80
Local 31: N 354.00
Local 32: N -39.75
Local 33: N 717.75
Local 34: L .T.
Local 35: L .T.
Local 36: A Len: 4
Local 37: N 0
Local 38: N 15
Local 39: N 15
Local 40: N 16
Local 41: N 13
Local 42: U
Local 43: U
Local 44: N 0
Local 45: L .F.
Local 46: L .T.
Local 47: U
Local 48: U
Local 49: U
TGRAPH:DISPLAY
Param 1: O Class: TGRAPH
TGRAPH:HANDLEEVENT
_FWH
Param 1: N 15
Param 2: N 0
Param 3: N 0
Local 1: U
DIALOGBOXINDIRECT
Param 1: N 0
Param 2: N 15
Param 3: N 0
Param 4: N 0
Param 5: N 7
Local 1: O Class: TGRAPH
TDIALOG:ACTIVATE
Param 1: N 4194304
Param 2: C "€ È€ ˜ÿÄÿâ ¯ F i v e W i n f o r H a r b o u r P 4 u j S T A T I C E r r o r d e s c r i p t i o n : E r r o r B A S E / 1 0 6 6 E r r o r d e a r g u m e n t o : c o n d i c i o n a l

P H k S T A T I C & S t a c k L i s t ¡P ! Ü { l L I S T B O X P a ž m B U T T O N & Q u i t P ¯ / n B U T T O N S e e e r r o r . l o g f i l e "
Param 3: N 1704576
Param 4: O Class: TDIALOG
ERRORDIALOG
Param 1: U
Param 2: U
Param 3: B {|| ... }
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: U
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Local 1: N 1704576
Local 2: S
Local 3: O Class: TDIALOG
(b)ERRORSYS
Param 1: O Class: ERROR
Local 1: O Class: TDIALOG
Local 2: O Class: TLISTBOX
Local 3: U
Local 4: U
Local 5: C " Called from: .\source\classes\TGRAPH.PRG => TGRAPH:PAINT( 1111 )"
Local 6: N 4
Local 7: C " Error description: Error BASE/1066 Error de argumento: condicional
"
Local 8: A Len: 16
Local 9: O Class: TSAY
Local 10: N -335213028
Local 11: N 1
Local 12: C "Application
===========
Path and name: C:\Desa\FichasWin\MenuFicha.exe (32 bits)
Size: 4,669,952 bytes
Compiler version: Harbour 3.2.0dev (r1506171039)
FiveWin version: FWH 17.09
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 5.1, Build 2600 Service Pack 3

Time from start: 0 hours 0 mins 6 secs
Error occurred at: 23/10/2019, 10:32:52
Error description: Error BASE/1066 Error de argumento: condicional
Args:
[ 1] = U

Stack Calls
===========
Called from: .\source\classes\TGRAPH.PRG => TGRAPH:PAINT( 1111 )
Called from: .\source\classes\TGRAPH.PRG => (b)TGRAPH( 116 )
Called from: .\source\classes\TGRAPH.PRG => TGRAPH:DISPLAY( 0 )
Called from: .\source\classes\CONTROL.PRG => TGRAPH:HANDLEEVENT( 1697 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
Called from: .\Informes.PRG => GRAFICO12( 2303 )
Called from: .\MenuFicha.PRG => (b)MENU( 192 )
Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 1548 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1081 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1037 )
Called from: .\MenuFicha.PRG => MAIN( 105 )

System
======
CPU type: Intel(R) Core(TM)2 Duo CPU E7400 @ 2.80GHz 2792 Mhz
Hardware memory: 1980 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Windows total applications running: 10
1 ,
2 , C:\Desa\FichasWin\MenuFicha.exe
3 , C:\WINDOWS\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.6028_x-ww_61e65202
4 , C:\WINDOWS\system32\COMCTL32.DLL
5 , C:\WINDOWS\system32\SHLWAPI.dll
6 DDE Server Window, C:\WINDOWS\system32\OLE32.DLL
7 Default IME, C:\WINDOWS\system32\MSCTF.dll
8 GDI+ Window, C:\WINDOWS\WinSxS\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.6002.23846_x-ww_f7dfd05e\GDIPLU
9 M, C:\WINDOWS\system32\msctfime.ime
10 SysFader, C:\WINDOWS\system32\SHELL32.dll

Variables in use
================
Procedure Type Value
==========================
TGRAPH:PAINT
Param 1: O Class: ERROR
(b)TGRAPH
Local 1: N 36
Local 2: N 110
Local 3: N 354
Local 4: N 413
Local 5: O Class: TGRAPH
Local 6: N 1
Local 7: N 156.60
Local 8: N 1500.0000
Local 9: N 4.95
Local 10: N 303.000000
Local 11: N 15
Local 12: N 1
Local 13: A Len: 2
Local 14: N 5
Local 15: L .T.
Local 16: N 28.80
Local 17: N 57
Local 18: L .T.
Local 19: U
Local 20: N 375.00
Local 21: A Len: 5
Local 22: N 1
Local 23: N 1
Local 24: N 60.60
Local 25: N 1500.0000
Local 26: N 0
Local 27: N 1500.0000
Local 28: N 0.20
Local 29: N 64
Local 30: N 80
Local 31: N 354.00
Local 32: N -39.75
Local 33: N 717.75
Local 34: L .T.
Local 35: L .T.
Local 36: A Len: 4
Local 37: N 0
Local 38: N 15
Local 39: N 15
Local 40: N 16
Local 41: N 13
Local 42: U
Local 43: U
Local 44: N 0
Local 45: L .F.
Local 46: L .T.
Local 47: U
Local 48: U
Local 49: U
TGRAPH:DISPLAY
Param 1: O Class: TGRAPH
TGRAPH:HANDLEEVENT
_FWH
Param 1: N 15
Param 2: N 0
Param 3: N 0
Local 1: U
DIALOGBOXINDIRECT
Param 1: N 0
Param 2: N 15
Param 3: N 0
Param 4: N 0
Param 5: N 7
Local 1: O Class: TGRAPH
TDIALOG:ACTIVATE
Param 1: N 4194304
Param 2: C "€ È€ -û P * ú È i T G R A P H "
Param 3: N 1966624
Param 4: O Class: TDIALOG
GRAFICO12
Param 1: U
Param 2: U
Param 3: U
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: B {|| ... }
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Local 1: N 1966624
Local 2: S
Local 3: O Class: TDIALOG
(b)MENU
Local 1: O Class: TDIALOG
Local 2: O Class: TGRAPH
TMENU:COMMAND
Param 1: O Class: TMENUITEM
TWINDOW:COMMAND
Param 1: N 20030
Local 1: O Class: TMENUITEM
TWINDOW:HANDLEEVENT
Param 1: N 20030
Param 2: N 0
Local 1: N 0
Local 2: N 20030
Local 3: N 0
Local 4: U
_FWH
Param 1: N 273
Param 2: N 20030
Param 3: N 0
WINRUN
Param 1: N 0
Param 2: N 273
Param 3: N 20030
Param 4: N 0
Param 5: N 1
Local 1: O Class: TWINDOW
TWINDOW:ACTIVATE
Param 1: N 1966624
MAIN
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: U
Param 7: U
Param 8: B {|| ... }
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: B {|| ... }
Param 18: U
Param 19: U
Param 20: L .F.
Local 1: O Class: TWINDOW
Local 2: U
Local 3: U

Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFCDX
DBFNTX

DataBases in use
================

Classes in use:
===============
1 ERROR
2 HBCLASS
3 HBOBJECT
4 TCURSOR
5 TFONT
6 TWINDOW
7 TDIALOG
8 TBRUSH
9 TCONTROL
10 TBITMAP
11 TSAY
12 TGET
13 GET
14 TCLIPGET
15 TBUTTON
16 TRECT
17 TREG32
18 TMENU
19 TMENUITEM
20 TBAR
21 TBTNBMP
22 TMSGBAR
23 TMSGITEM
24 TTIMER
25 TGRAPH
26 TSTRUCT

Memory Analysis
===============
404 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes
"
Local 13: A Len: 5
Local 14: A Len: 10
Local 15: A Len: 5
Local 16: U
Local 17: B {|| ... }
Local 18: L .T.
Local 19: N 97.50
Local 20: N 0
Local 21: U
Local 22: N 158
Local 23: N 30
Local 24: N 11
Local 25: N 450
Local 26: N 350
Local 27: N 33
Local 28: N 220
Local 29: N 123
TGRAPH:PAINT
Param 1: O Class: ERROR
(b)TGRAPH
Local 1: N 36
Local 2: N 110
Local 3: N 354
Local 4: N 413
Local 5: O Class: TGRAPH
Local 6: N 1
Local 7: N 156.60
Local 8: N 1500.0000
Local 9: N 4.95
Local 10: N 303.000000
Local 11: N 15
Local 12: N 1
Local 13: A Len: 2
Local 14: N 5
Local 15: L .T.
Local 16: N 28.80
Local 17: N 57
Local 18: L .T.
Local 19: U
Local 20: N 375.00
Local 21: A Len: 5
Local 22: N 1
Local 23: N 1
Local 24: N 60.60
Local 25: N 1500.0000
Local 26: N 0
Local 27: N 1500.0000
Local 28: N 0.20
Local 29: N 64
Local 30: N 80
Local 31: N 354.00
Local 32: N -39.75
Local 33: N 717.75
Local 34: L .T.
Local 35: L .T.
Local 36: A Len: 4
Local 37: N 0
Local 38: N 15
Local 39: N 15
Local 40: N 16
Local 41: N 13
Local 42: U
Local 43: U
Local 44: N 0
Local 45: L .F.
Local 46: L .T.
Local 47: U
Local 48: U
Local 49: U
TGRAPH:DISPLAY
Param 1: O Class: TGRAPH
TGRAPH:HANDLEEVENT
_FWH
Param 1: N 15
Param 2: N 0
Param 3: N 0
Local 1: U
DIALOGBOXINDIRECT
Param 1: N 0
Param 2: N 15
Param 3: N 0
Param 4: N 0
Param 5: N 7
Local 1: O Class: TGRAPH
TDIALOG:ACTIVATE
Param 1: N 4194304
Param 2: C "€ È€ -û P * ú È i T G R A P H "
Param 3: N 1966624
Param 4: O Class: TDIALOG
GRAFICO12
Param 1: U
Param 2: U
Param 3: U
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: B {|| ... }
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Local 1: N 1966624
Local 2: S
Local 3: O Class: TDIALOG
(b)MENU
Local 1: O Class: TDIALOG
Local 2: O Class: TGRAPH
TMENU:COMMAND
Param 1: O Class: TMENUITEM
TWINDOW:COMMAND
Param 1: N 20030
Local 1: O Class: TMENUITEM
TWINDOW:HANDLEEVENT
Param 1: N 20030
Param 2: N 0
Local 1: N 0
Local 2: N 20030
Local 3: N 0
Local 4: U
_FWH
Param 1: N 273
Param 2: N 20030
Param 3: N 0
WINRUN
Param 1: N 0
Param 2: N 273
Param 3: N 20030
Param 4: N 0
Param 5: N 1
Local 1: O Class: TWINDOW
TWINDOW:ACTIVATE
Param 1: N 1966624
MAIN
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: U
Param 7: U
Param 8: B {|| ... }
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: B {|| ... }
Param 18: U
Param 19: U
Param 20: L .F.
Local 1: O Class: TWINDOW
Local 2: U
Local 3: U

Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFCDX
DBFNTX

DataBases in use
================

Classes in use:
===============
1 ERROR
2 HBCLASS
3 HBOBJECT
4 TCURSOR
5 TFONT
6 TWINDOW
7 TDIALOG
8 TBRUSH
9 TCONTROL
10 TBITMAP
11 TSAY
12 TGET
13 GET
14 TCLIPGET
15 TBUTTON
16 TRECT
17 TREG32
18 TMENU
19 TMENUITEM
20 TBAR
21 TBTNBMP
22 TMSGBAR
23 TMSGITEM
24 TTIMER
25 TGRAPH
26 TSTRUCT
27 TLISTBOX

Memory Analysis
===============
404 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes

[/code]

FiveTech Software tech support forums

Ayuda para Construir un Grafico "CONSULTA"

Ayuda para Construir un Grafico "CONSULTA"

Re: Ayuda para Construir un Grafico

Re: Ayuda para Construir un Grafico

Re: Ayuda para Construir un Grafico

Re: Ayuda para Construir un Grafico

Re: Ayuda para Construir un Grafico

Re: Ayuda para Construir un Grafico

Re: Ayuda para Construir un Grafico

Re: Ayuda para Construir un Grafico "CONSULTA"

Re: Ayuda para Construir un Grafico "CONSULTA"

Re: Ayuda para Construir un Grafico "CONSULTA"

Re: Ayuda para Construir un Grafico "CONSULTA"

Re: Ayuda para Construir un Grafico "CONSULTA"

Re: Ayuda para Construir un Grafico "CONSULTA"

Re: Ayuda para Construir un Grafico "CONSULTA"