Advertisement
jotaced

seleccion grid imprimir

Aug 2nd, 2013
1,049
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Long ll_row
  2. String ls_codigos
  3. uo_bag  luo_bolsa
  4.  
  5.  
  6. w_preview_informe   lw_preview_informe
  7.  
  8. For  ll_row=1 to tab_1.t_paq.dw_paquete.rowcount( )
  9.                    
  10.     If  tab_1.t_paq.dw_paquete.getitemstring( ll_row,'sel') = 'S'   then   
  11.                            
  12.         If trim(ls_codigos) <> ''  Then
  13.             ls_codigos = ls_codigos + ','+String(tab_1.t_paq.dw_paquete.getitemstring(ll_row,'paq_codigo'))    
  14.         Else
  15.             ls_codigos = String(tab_1.t_paq.dw_paquete.getitemstring(ll_row,'paq_codigo'))     
  16.         End if
  17.     End if
  18. Next   
  19.  
  20.  
  21.    
  22. //se envian la infromacion para la impresion
  23. luo_bolsa = Create uo_bag
  24. luo_bolsa.of_put_variable("dataobject","dwjc_conveniopaquete_detalle")
  25. luo_bolsa.of_put_variable("titulo",'Detalle Paquetes de Prestaciones y Productos')
  26. luo_bolsa.of_put_variable("parm1",ls_codigos)
  27.  
  28. OpenSheetWithParm( lw_preview_informe, luo_bolsa, mod_w_frame, 2, Original! )
Advertisement
RAW Paste Data Copied
Advertisement