Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 9th, 2012  |  syntax: None  |  size: 3.16 KB  |  hits: 18  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. string    ls_new_codigo, ls_co_est_aviso, ls_mensaje
  2. datetime  ldt_fe_cam
  3. string    ls_ti_aviso
  4.  
  5. ldt_fe_cam      = f_retorna_current('S')  
  6. ls_co_est_aviso = trim(em_co_estado.text)
  7.  
  8. //STS2368 Begin 07-04-2009 JOlmedo
  9. IF is_opcion = 'AVISOS' THEN
  10.         //Obtengo el tipo de aviso
  11.         SELECT TRIM(a.ti_aviso)
  12.         INTO   :ls_ti_aviso
  13.         FROM   aviso a
  14.         WHERE  a.co_aviso = :is_codigo;
  15.        
  16.         IF ls_ti_aviso = "D" THEN
  17.                 //Si es un desplegado
  18.                 IF NOT(is_ti_trabajo = "AVI" OR is_ti_trabajo = "MOD" OR is_ti_trabajo = "BAN") THEN
  19.                         //Si no es ninguno de los tipos de trabajo: aviso, modulo completo o banner
  20.                         MessageBox("Atención","El aviso no cumple las condiciones para ingresar en la bolsa de trabajo.")
  21.                         RETURN
  22.                 END IF         
  23.         ELSE
  24.                 //No es un desplegado
  25.                 MessageBox("Atención","El aviso tiene que ser de tipo DESPLEGADO para pasar a la bolsa de trabajo.")
  26.                 RETURN         
  27.         END IF 
  28. END IF
  29. //STS2358 End
  30.  
  31. ls_mensaje = '¿ Esta seguro de enviar a Bolsa de Trabajo de ' + is_opcion +' ?'
  32.  
  33. if messagebox('Aviso del Sistema','¿ Esta seguro de Grabar ?',exclamation!,yesno!,2)=2 then    return
  34. Setpointer(Hourglass!)
  35.  
  36. f_modo_opera_bd('LOCK-10')
  37. f_modo_opera_bd('UPDATE')
  38. f_modo_opera_bd('BEGIN')
  39.                
  40. IF is_opcion = 'AVISOS' THEN
  41.         /*Grabación de todos los Estados*/
  42.         UPDATE aviso
  43.         SET co_est_aviso    =  "ABT",
  44.                  co_usuario       = :s_datos_usuario.co_usuario,
  45.                  fe_cambio                = :ldt_fe_cam,
  46.                  co_est_anterior = :ls_co_est_aviso
  47.         WHERE co_aviso    = :is_codigo;
  48.        
  49.         if sqlca.sqlcode < 0 then
  50.                 f_mensaje(sqlca,true)
  51.                 return
  52.         end if
  53.                
  54.         /*Inserta en los Datos en la bolsa de Trabajo*/
  55.         insert into bolsa_trabajo
  56.                 (co_diagramador, co_logo, co_aviso, co_boceto, ti_trabajo, fe_ingreso,
  57.                 fl_desasignacion, fl_envio, fl_bloqueo, fl_asignacion)
  58.         values
  59.                 //STS2368 Begin 07-04-2009
  60.                 //(null, null, :is_codigo, null, 'AVI', :ldt_fe_cam,
  61.                 //               '0', '1', '0','0');
  62.                 (null, null, :is_codigo, null, :is_ti_trabajo, :ldt_fe_cam,  '0', '1', '0','0');
  63.                 //STS2368 End
  64.  
  65.                                
  66.         if sqlca.sqlcode < 0 then
  67.                 f_mensaje(sqlca, false)
  68.                 return
  69.         end if
  70.  
  71. ELSEIF is_opcion = 'BOCETOS' THEN
  72.        
  73.         /*Grabación de todos los Estados*/
  74.         UPDATE boceto
  75.         SET co_est_aviso    =  "BBT",
  76.                  co_usuario       = :s_datos_usuario.co_usuario,
  77.                  fe_cambio                = :ldt_fe_cam,
  78.                  co_est_anterior = :ls_co_est_aviso
  79.         WHERE co_boceto           = :is_codigo;
  80.        
  81.         if sqlca.sqlcode < 0 then
  82.                 f_mensaje(sqlca,true)
  83.                 return
  84.         end if
  85.                
  86.         /*Inserta en los Datos en la bolsa de Trabajo*/
  87.         insert into bolsa_trabajo
  88.                 (co_diagramador, co_logo, co_aviso, co_boceto, ti_trabajo, fe_ingreso,
  89.                 fl_desasignacion, fl_envio, fl_bloqueo, fl_asignacion)
  90.         values
  91.                 //STS2368 Begin 07-04-2009     
  92.                 //(null, null, null, :is_codigo, 'BOC', :ldt_fe_cam,
  93.                 // '0', '1', '0','0'); 
  94.                 (null, null, null, :is_codigo, :is_ti_trabajo, :ldt_fe_cam,  '0', '1', '0','0');                         
  95.                 //STS2368 End
  96.                
  97.         if sqlca.sqlcode < 0 then
  98.                 f_mensaje(sqlca, false)
  99.                 return
  100.         end if 
  101. ELSE
  102.         f_modo_opera_bd('ROLLBACK')
  103.         Messagebox("Mensaje del Sistema","Opción no disponible")
  104.         Return 
  105. END IF
  106.  
  107. f_modo_opera_bd('COMMIT')
  108. Setpointer(Arrow!)
  109. messagebox('Mensaje del Sistema','Grabado Concluido',information!)
  110. wf_setea_botones("LIMPIA")
create a new version of this paste RAW Paste Data