FoxPro/Visual FoxPro - barra progreso VFP

   
Vista:

barra progreso VFP

Publicado por alexander (9 intervenciones) el 25/07/2014 05:08:46
buenas amigos programadores tengo este archivo .prg el codigo es el siguiente:
Deseo hacer tengo un formulario de reportes que ago consultas y esas consultas se relfejan en mis reportes deseo.
que cuando le de al boton imprimir ese archivo prg me cuente los registro que envio ami reporte investigue
metodo es con reccount y recno pero no tengo idea como impletarlo espero puedan darme su asesoria.
como veran la barra trabaja como simulador mas no cuenta los registro que realizo en mi consulta
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
*-- Ejemplo
lo = CREATEOBJECT("ProgressBar", "Procesando...")
set procedure to locfile("pogressbar.prg") additive
lo.Show
FOR ln= 1 TO 100
 
lo.actualizar(ln)
INKEY(.02)
ENDFOR
 
lo = .NULL.
 
*--------------------------------------
* Definición de la clase barra de progreso
*--------------------------------------
 
 
DEFINE CLASS ProgressBar AS FORM
 
  DOCREATE = .T.
  HEIGHT = 72
  WIDTH = 375
  BORDERSTYLE = 2
  TITLEBAR = 0
  WINDOWTYPE = 0
  AUTOCENTER = .T.
  NAME = "ProgressBar"
  AnchoAux = 0
  *--
  PROCEDURE INIT
    LPARAMETERS tcTitulo
    SYS(2002)
    THIS.CrearObjetos(tcTitulo)
    THIS.AnchoAux = THIS.CNT.CNT.WIDTH
*!*	    THIS.Actualizar(0)
  ENDPROC
  *--
  PROCEDURE DESTROY
    SYS(2002,1)
  ENDPROC
  *--
  PROCEDURE actualizar
    LPARAMETERS tnPorc
    tnPorc = MAX(MIN(tnPorc,100),0)
    THIS.CNT.CNT.WIDTH = THIS.AnchoAux * tnPorc /100
    STORE TRANSFORM(tnPorc,"999")+"%" TO ;
      THIS.CNT.lbl.CAPTION, ;
      THIS.CNT.CNT.lbl.CAPTION
      THIS.DRAW
  ENDPROC
  *--
 
  PROCEDURE CrearObjetos
    LPARAMETERS tcTitulo
    THIS.ADDOBJECT("lblTitulo","label")
    WITH THIS.lblTitulo
      .FONTBOLD = .T.
      .ALIGNMENT = 2
      .CAPTION = IIF(EMPTY(tcTitulo),;
        "En progreso ...",tcTitulo)
      .LEFT = 0
      .TOP = 10
      .WIDTH = 375
      .VISIBLE = .T.
    ENDWITH
    THIS.ADDOBJECT("cnt","container")
    WITH THIS.CNT
      .TOP = 36
      .LEFT = 9
      .WIDTH = 360
      .HEIGHT = 26
      .SPECIALEFFECT = 1
      .BACKCOLOR = RGB(255,255,255)
      .VISIBLE = .T.
      .ADDOBJECT("lbl","label")
      WITH .lbl
        .FONTBOLD = .T.
        .ALIGNMENT = 2
        .BACKSTYLE = 0
        .CAPTION = "100%"
        .HEIGHT = 20
        .LEFT = 0
        .TOP = 6
        .WIDTH = 360
        .VISIBLE = .T.
      ENDWITH
      .ADDOBJECT("cnt","container")
      WITH .CNT
        .TOP = 2
        .LEFT = 2
        .WIDTH = 356
        .HEIGHT = 22
        .BORDERWIDTH = 0
        .BACKCOLOR = RGB(0,0,255)
        .ADDOBJECT("lbl","label")
        .VISIBLE = .T.
        WITH .lbl
          .FONTBOLD = .T.
          .ALIGNMENT = 2
          .BACKSTYLE = 0
          .CAPTION = "100%"
          .HEIGHT = 20
          .LEFT = 0
          .TOP = 4
          .WIDTH = 356
          .FORECOLOR = RGB(255,255,255)
          .VISIBLE = .T.
        ENDWITH
      ENDWITH
    ENDWITH
  ENDPROC
ENDDEFINE
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

barra progreso VFP

Publicado por Diego farra.diego@gmail.com (25 intervenciones) el 27/07/2014 06:18:40
Alexander, como estas
Yo no me preocuparia tante en hacer un progressbar ya que si usas la forma de Extensibility Report te soluciona eso y ademas puedes investigar tambien y realizar tus propias ventanas de reporte
Lo que puedes hacer es buscar en la carpeta de instalacion de VFP los siguientes archivos: reportbuilder.app, reportoutput.app y reportpreview.app
Pegarlos donde se este ejecutando el proyecto o ejecutable
Colocas en el archivo de entrada a tu aplicacion (main) lo siguiente: _REPORTBUILDER = "REPORTBUILDER.APP"
_REPORTOUTPUT = "REPORTOUTPUT.APP" y _REPORPREVIEW = "REPORTPREVIEW.APP"
tambien lo que tienes que hacer es ir al siguiente menu de tu VFP: Tools\Options y en la pestaña Report colocar en Report Engine behavior = 90(Object Assisted)

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar