Filtro para impresion
Publicado por Anibal (31 intervenciones) el 09/09/2015 05:22:53
Hola tengo este procedure el cual me sirve para imprimir los recibos de los clientes.
Lo que yo necesito es imprimir pero desde CuotasId que es la segunda tabla que tengo involucrada.
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
&Tope = 563 //563
&LineasSoportadas = 10 //19
//inicio
do 'Imprimir'
Sub 'Imprimir'
for each order IdClientes
where IdClientes = &IdClientes
&IdClientes = IdClientes
&nbrClientes = nbrClientes
&dirClientes = dirClientes
&telClienteCel = telClienteCel
do while &i < 2
&i += 1
do 'Detalle'
enddo
EndFor
EndSub // 'Imprimir'
Sub 'Detalle'
&ContadorLineasImpresas = 0
&sw = 0
For each order IdClientes CuotasId
//where CuotasId = &CuotasId
where IdClientes = &IdClientes
if &sw = 0
&sw = 1
do 'Cabecera'
endif
print detalle
&ContadorLineasImpresas += 1
if &ContadorLineasImpresas = &LineasSoportadas
&ContadorLineasImpresas = 0
endif
EndFor
if &ContadorLineasImpresas < &LineasSoportadas
do while &ContadorLineasImpresas < &LineasSoportadas
print LineasVacias
&ContadorLineasImpresas += 1
enddo
endif
print pie
EndSub // 'Detalle'
Sub 'Cabecera'
if &i = 2
do while &Line <= &Tope
print Lineas
enddo
endif
print Cabecera
EndSub // 'Cabecera'
La Rules
Parm(IdClientes)
Lo que yo necesito es imprimir pero desde CuotasId que es la segunda tabla que tengo involucrada.
Valora esta pregunta
0