Ayuda para Construir un Grafico "CONSULTA"

[remtec]

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.

[nageswaragunupudi]

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  Expand view

#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
 

[remtec]

Hola Regards.

Realmente te pasaste, muchas gracias.

Es una gran gentileza de tu parte.

Muchos Saludos.

Antonio

[remtec]

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.

[nageswaragunupudi]

Use TGraph control.

[armando.lagunas]

Guiate con este enlase: https://forums.fivetechsupport.com/viewtopic.php?f=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

[remtec]

Hola Regards y Armando.

Muchas gracias por su ayuda.

Vere sus sugerencias.

Muchos Saludos.

Antonio

[remtec]

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  Expand view

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

 

[cmsoft]

Prueba con

Code: Select all  Expand view

oGraph:lViewVal := .T
 

[remtec]

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  Expand view

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

 

[remtec]

Hola Amigos

Alguna idea ?

Saludos

Antonio.

[nageswaragunupudi]

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

[remtec]

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

[nageswaragunupudi]

can you post your code?

[remtec]

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  Expand view

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  Expand view

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[/code]  (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