GeneXus - Filtro para impresion

   
Vista:

Filtro para impresion

Publicado por Anibal xianinformatica@gmail.com (27 intervenciones) el 09/09/2015 05:22:53
Hola tengo este procedure el cual me sirve para imprimir los recibos de los clientes.
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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de GeneXus
- Cursos de GeneXus
- Temas de GeneXus
- Chat de GeneXus
información
Cursos y Temas de GeneXus
- GeneXus 9.0 Help System
- Curso de GeneXus
- GeneXus, Curso generador .NET (2 Capas)