$lb_existe = $io_estpro4->uf_spg_select_estprog4($ls_codemp, $ls_codestp1, $ls_codestp2, $ls_codestp3, $ls_codestp4, $ls_clasificacion);
     if (!$lb_existe) {
         $lb_valido = $io_estpro4->uf_spg_insert_estprog4($ls_codemp, $ls_codestp1, $ls_codestp2, $ls_codestp3, $ls_codestp4, $ls_denestpro4, $li_estmodest, $ls_clasificacion, $la_seguridad);
         if ($lb_valido) {
             $io_sql->commit();
             $io_msg->message("Registro Incluido !!!");
             $ls_codestpro4 = "";
             $ls_denestpro4 = "";
             $ls_status = "NUEVO";
             $readonly = "";
         } else {
             $io_sql->rollback();
             $io_msg->message($io_estpro4->is_msg_error);
         }
     } else {
         $lb_valido = $io_estpro4->uf_spg_update_estprog4($ls_codemp, $ls_codestp1, $ls_codestp2, $ls_codestp3, $ls_codestp4, $ls_denestpro4, $ls_clasificacion, $la_seguridad);
         if ($lb_valido) {
             $io_sql->commit();
             $io_msg->message("Registro Actualizado !!!");
             $ls_codestpro4 = "";
             $ls_denestpro4 = "";
             $ls_status = "NUEVO";
             $readonly = "";
         } else {
             $io_sql->rollback();
             $io_msg->message($io_estpro4->is_msg_error);
         }
     }
 } else {
     $io_msg->message("Debe registrar la Estructura de Nivel 3 previamente !!!");
 }