Listado de Cargos con STOP de Liquidación

FORMULARIO

NO POSEE

INFORME

CÓDIGO

Programa "stop.prg"

  *--cartel de espera
  formulario = vm_formularios + "frmprocesando.scx"
  do form &formulario
  *--
  
  SET DATE TO french
  
  
  cadenasql=   "select *";
             + " from dh03"
  nom5=sys(3)
  create sql view &nom5;
  connection con_pampasql;
  as &cadenasql
  
  *connection con_pampasql;
  
  if !used('v_03')
   sele sele(1)  
   use &nom5 alias v_03
  endif
  
  tabla= vm_bases_informes + "dh03"
  select *;
  from v_03;
  into table &tabla
  *-----
  if used ('dh03')
   sele dh03
   use
  endif
  sele sele(1)  
  use &tabla excl
  index on nro_legaj TAG legajo
  
  ****levanto las novedades
  tabla= vm_bases_informes + "stop"
  SELECT nro_legaj,nro_cargo,codc_uacad,fec_alta,fec_baja,codc_categ,codc_carac,chkstopliq ;
  FROM dh03 ;
  WHERE chkstopliq = 1;
  into TABLE &tabla 
  INDEX on codc_uacad+STR(nro_legaj) TAG idx_dep
  
  *--fin crtel de espera
  frmprocesando.release
  
  
  MESSAGEBOX("Proceso terminado") 
   
   informes = vm_informes + "stop.frx"
    report format &informes preview  
    
    *--fin cartel de espera

MANUAL DEL USUARIO

NO SE ENCUENTRA DISPONIBLE