barra progreso VFP
Publicado por alexander (10 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
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.ShowFOR ln= 1 TO 100lo.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 = 0AUTOCENTER = .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.DRAWENDPROC
*--
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
0