Long ll_row 
String ls_codigos
uo_bag	luo_bolsa


w_preview_informe 	lw_preview_informe

For  ll_row=1 to tab_1.t_paq.dw_paquete.rowcount( )	
					
	If  tab_1.t_paq.dw_paquete.getitemstring( ll_row,'sel') = 'S'   then	
							
		If trim(ls_codigos) <> ''  Then
			ls_codigos = ls_codigos + ','+String(tab_1.t_paq.dw_paquete.getitemstring(ll_row,'paq_codigo'))		
		Else
			ls_codigos = String(tab_1.t_paq.dw_paquete.getitemstring(ll_row,'paq_codigo'))		
		End if
	End if
Next	


	
//se envian la infromacion para la impresion
luo_bolsa = Create uo_bag
luo_bolsa.of_put_variable("dataobject","dwjc_conveniopaquete_detalle")
luo_bolsa.of_put_variable("titulo",'Detalle Paquetes de Prestaciones y Productos')
luo_bolsa.of_put_variable("parm1",ls_codigos)

OpenSheetWithParm( lw_preview_informe, luo_bolsa, mod_w_frame, 2, Original! )