seleccion grid imprimir

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! )