Ejemplo n.º 1
0
 public function generarExcelGraficos($id)
 {
     //generamos variable global para usarla en la función excel
     /*id identifica el tipo de control gráfico que es
       1 = Controles ejecutados
       2 = Controles pendientes
       3 = Controles efectivos
       4 = Controles inefectivos
       5 = Planes de auditoría abiertos
       6 = Planes de auditoría en ejecución
       7 = Planes de auditoría cerrados
       8 = Planes de acción por evaluación de controles
       9 = Planes de acción por ejecución de auditoría
       10 = Planes - op. de mejora
       11 = Planes - Deficiencia
       12 = Planes - Deb. significativa
       13 = Planes estado - Abierto
       14 = Planes estado - próximos a cerrar
       15 = Planes estado - Fecha final terminada y aun abierto
       16 = Planes estado - Cerrado
       17 = Pruebas de auditoría abiertas
       18 = Pruebas de auditoría en ejecución
       19 = Pruebas de auditoría cerradas
       */
     global $id2;
     $id2 = $id;
     if ($GLOBALS['id2'] == 1) {
         Excel::create('Reporte Controles ejecutados ' . date("d-m-Y"), function ($excel) {
             // título excel
             $excel->setTitle('Controles ejecutados');
             //creador y compañia
             $excel->setCreator('Administrador B-GRC')->setCompany('B-GRC - IXUS Consulting');
             //descripción
             $excel->setDescription('Reporte de controles ejecutados');
             $excel->sheet('Controles', function ($sheet) {
                 $control = new Controles();
                 $datos = $control->indexGraficos($GLOBALS['id2']);
                 //$datos2 = json_decode($datos);
                 $sheet->fromArray($datos);
                 //editamos formato de salida de celdas
                 $sheet->cells('A1:C1', function ($cells) {
                     $cells->setBackground('#013ADF');
                     $cells->setFontColor('#ffffff');
                     $cells->setFontFamily('Calibri');
                     $cells->setFontWeight('bold');
                     $cells->setFontSize(16);
                 });
                 $sheet->freezeFirstRow();
             });
         })->export('xls');
     } else {
         if ($GLOBALS['id2'] == 2) {
             Excel::create('Reporte Controles pendientes ' . date("d-m-Y"), function ($excel) {
                 $excel->setTitle('Controles pendientes');
                 $excel->setCreator('Administrador B-GRC')->setCompany('B-GRC - IXUS Consulting');
                 $excel->setDescription('Reporte de controles pendientes');
                 $excel->sheet('Controles', function ($sheet) {
                     $control = new Controles();
                     $datos = $control->indexGraficos($GLOBALS['id2']);
                     $sheet->fromArray($datos);
                     $sheet->cells('A1:C1', function ($cells) {
                         $cells->setBackground('#013ADF');
                         $cells->setFontColor('#ffffff');
                         $cells->setFontFamily('Calibri');
                         $cells->setFontWeight('bold');
                         $cells->setFontSize(16);
                     });
                     $sheet->freezeFirstRow();
                 });
             })->export('xls');
         } else {
             if ($GLOBALS['id2'] == 3) {
                 Excel::create('Reporte Controles efectivos ' . date("d-m-Y"), function ($excel) {
                     $excel->setTitle('Controles efectivos');
                     $excel->setCreator('Administrador B-GRC')->setCompany('B-GRC - IXUS Consulting');
                     $excel->setDescription('Reporte de controles efectivos');
                     $excel->sheet('Controles', function ($sheet) {
                         $control = new Controles();
                         $datos = $control->indexGraficos($GLOBALS['id2']);
                         $sheet->fromArray($datos);
                         $sheet->cells('A1:C1', function ($cells) {
                             $cells->setBackground('#013ADF');
                             $cells->setFontColor('#ffffff');
                             $cells->setFontFamily('Calibri');
                             $cells->setFontWeight('bold');
                             $cells->setFontSize(16);
                         });
                         $sheet->freezeFirstRow();
                     });
                 })->export('xls');
             } else {
                 if ($GLOBALS['id2'] == 4) {
                     Excel::create('Reporte Controles inefectivos ' . date("d-m-Y"), function ($excel) {
                         $excel->setTitle('Controles inefectivos');
                         $excel->setCreator('Administrador B-GRC')->setCompany('B-GRC - IXUS Consulting');
                         $excel->setDescription('Reporte de controles inefectivos');
                         $excel->sheet('Controles', function ($sheet) {
                             $control = new Controles();
                             $datos = $control->indexGraficos($GLOBALS['id2']);
                             $sheet->fromArray($datos);
                             $sheet->cells('A1:C1', function ($cells) {
                                 $cells->setBackground('#013ADF');
                                 $cells->setFontColor('#ffffff');
                                 $cells->setFontFamily('Calibri');
                                 $cells->setFontWeight('bold');
                                 $cells->setFontSize(16);
                             });
                             $sheet->freezeFirstRow();
                         });
                     })->export('xls');
                 } else {
                     if ($GLOBALS['id2'] == 5) {
                         Excel::create('Reporte Planes de auditoría abiertos ' . date("d-m-Y"), function ($excel) {
                             $excel->setTitle('Planes de auditoría abiertos');
                             $excel->setCreator('Administrador B-GRC')->setCompany('B-GRC - IXUS Consulting');
                             $excel->setDescription('Reporte de planes de auditoría abiertos');
                             $excel->sheet('Planes de auditoría', function ($sheet) {
                                 $plan = new Audits();
                                 $datos = $plan->indexGraficos($GLOBALS['id2']);
                                 $sheet->fromArray($datos);
                                 $sheet->cells('A1:E1', function ($cells) {
                                     $cells->setBackground('#013ADF');
                                     $cells->setFontColor('#ffffff');
                                     $cells->setFontFamily('Calibri');
                                     $cells->setFontWeight('bold');
                                     $cells->setFontSize(16);
                                 });
                                 $sheet->freezeFirstRow();
                             });
                         })->export('xls');
                     } else {
                         if ($GLOBALS['id2'] == 6) {
                             Excel::create('Reporte Planes de auditoría en ejecución ' . date("d-m-Y"), function ($excel) {
                                 $excel->setTitle('Planes de auditoría en ejecución');
                                 $excel->setCreator('Administrador B-GRC')->setCompany('B-GRC - IXUS Consulting');
                                 $excel->setDescription('Reporte de planes de auditoría en ejecución');
                                 $excel->sheet('Planes de auditoría', function ($sheet) {
                                     $plan = new Audits();
                                     $datos = $plan->indexGraficos($GLOBALS['id2']);
                                     $sheet->fromArray($datos);
                                     $sheet->cells('A1:E1', function ($cells) {
                                         $cells->setBackground('#013ADF');
                                         $cells->setFontColor('#ffffff');
                                         $cells->setFontFamily('Calibri');
                                         $cells->setFontWeight('bold');
                                         $cells->setFontSize(16);
                                     });
                                     $sheet->freezeFirstRow();
                                 });
                             })->export('xls');
                         } else {
                             if ($GLOBALS['id2'] == 7) {
                                 Excel::create('Reporte Planes de auditoría cerrados ' . date("d-m-Y"), function ($excel) {
                                     $excel->setTitle('Planes de auditoría cerrados');
                                     $excel->setCreator('Administrador B-GRC')->setCompany('B-GRC - IXUS Consulting');
                                     $excel->setDescription('Reporte de planes de auditoría cerrados');
                                     $excel->sheet('Planes de auditoría', function ($sheet) {
                                         $plan = new Audits();
                                         $datos = $plan->indexGraficos($GLOBALS['id2']);
                                         $sheet->fromArray($datos);
                                         $sheet->cells('A1:E1', function ($cells) {
                                             $cells->setBackground('#013ADF');
                                             $cells->setFontColor('#ffffff');
                                             $cells->setFontFamily('Calibri');
                                             $cells->setFontWeight('bold');
                                             $cells->setFontSize(16);
                                         });
                                         $sheet->freezeFirstRow();
                                     });
                                 })->export('xls');
                             } else {
                                 if ($GLOBALS['id2'] == 8) {
                                     Excel::create('Planes de acción en evaluación de controles ' . date("d-m-Y"), function ($excel) {
                                         $excel->setTitle('Planes de acción');
                                         $excel->setCreator('Administrador B-GRC')->setCompany('B-GRC - IXUS Consulting');
                                         $excel->setDescription('Reporte de planes de acción creados a través de la evaluación de controles');
                                         $excel->sheet('Planes de acción', function ($sheet) {
                                             $plan = new PlanesAccion();
                                             $datos = $plan->indexGraficos($GLOBALS['id2']);
                                             $sheet->fromArray($datos);
                                             $sheet->cells('A1:G1', function ($cells) {
                                                 $cells->setBackground('#013ADF');
                                                 $cells->setFontColor('#ffffff');
                                                 $cells->setFontFamily('Calibri');
                                                 $cells->setFontWeight('bold');
                                                 $cells->setFontSize(16);
                                             });
                                             $sheet->freezeFirstRow();
                                         });
                                     })->export('xls');
                                 } else {
                                     if ($GLOBALS['id2'] == 9) {
                                         Excel::create('Planes de acción en auditorías ' . date("d-m-Y"), function ($excel) {
                                             $excel->setTitle('Planes de acción');
                                             $excel->setCreator('Administrador B-GRC')->setCompany('B-GRC - IXUS Consulting');
                                             $excel->setDescription('Reporte de planes de acción creados a través de auditorías');
                                             $excel->sheet('Planes de acción', function ($sheet) {
                                                 $plan = new PlanesAccion();
                                                 $datos = $plan->indexGraficos($GLOBALS['id2']);
                                                 $sheet->fromArray($datos);
                                                 $sheet->cells('A1:J1', function ($cells) {
                                                     $cells->setBackground('#013ADF');
                                                     $cells->setFontColor('#ffffff');
                                                     $cells->setFontFamily('Calibri');
                                                     $cells->setFontWeight('bold');
                                                     $cells->setFontSize(16);
                                                 });
                                                 $sheet->freezeFirstRow();
                                             });
                                         })->export('xls');
                                     } else {
                                         if ($GLOBALS['id2'] == 10) {
                                             Excel::create('Planes de acción para oportunidades de mejora ' . date("d-m-Y"), function ($excel) {
                                                 $excel->setTitle('Planes de acción');
                                                 $excel->setCreator('Administrador B-GRC')->setCompany('B-GRC - IXUS Consulting');
                                                 $excel->setDescription('Reporte de planes de acción creados a través de hallazgos clasificados como oportunidad de mejora');
                                                 $excel->sheet('Planes de acción', function ($sheet) {
                                                     $plan = new PlanesAccion();
                                                     $datos = $plan->indexGraficos($GLOBALS['id2']);
                                                     $sheet->fromArray($datos);
                                                     $sheet->cells('A1:I1', function ($cells) {
                                                         $cells->setBackground('#013ADF');
                                                         $cells->setFontColor('#ffffff');
                                                         $cells->setFontFamily('Calibri');
                                                         $cells->setFontWeight('bold');
                                                         $cells->setFontSize(16);
                                                     });
                                                     $sheet->freezeFirstRow();
                                                 });
                                             })->export('xls');
                                         } else {
                                             if ($GLOBALS['id2'] == 11) {
                                                 Excel::create('Planes de acción para deficiencias ' . date("d-m-Y"), function ($excel) {
                                                     $excel->setTitle('Planes de acción');
                                                     $excel->setCreator('Administrador B-GRC')->setCompany('B-GRC - IXUS Consulting');
                                                     $excel->setDescription('Reporte de planes de acción creados a través de hallazgos clasificados como deficiencias');
                                                     $excel->sheet('Planes de acción', function ($sheet) {
                                                         $plan = new PlanesAccion();
                                                         $datos = $plan->indexGraficos($GLOBALS['id2']);
                                                         $sheet->fromArray($datos);
                                                         $sheet->cells('A1:I1', function ($cells) {
                                                             $cells->setBackground('#013ADF');
                                                             $cells->setFontColor('#ffffff');
                                                             $cells->setFontFamily('Calibri');
                                                             $cells->setFontWeight('bold');
                                                             $cells->setFontSize(16);
                                                         });
                                                         $sheet->freezeFirstRow();
                                                     });
                                                 })->export('xls');
                                             } else {
                                                 if ($GLOBALS['id2'] == 12) {
                                                     Excel::create('Planes de acción para debilidades significativas ' . date("d-m-Y"), function ($excel) {
                                                         $excel->setTitle('Planes de acción');
                                                         $excel->setCreator('Administrador B-GRC')->setCompany('B-GRC - IXUS Consulting');
                                                         $excel->setDescription('Reporte de planes de acción creados a través de hallazgos clasificados como debilidades significativas');
                                                         $excel->sheet('Planes de acción', function ($sheet) {
                                                             $plan = new PlanesAccion();
                                                             $datos = $plan->indexGraficos($GLOBALS['id2']);
                                                             $sheet->fromArray($datos);
                                                             $sheet->cells('A1:I1', function ($cells) {
                                                                 $cells->setBackground('#013ADF');
                                                                 $cells->setFontColor('#ffffff');
                                                                 $cells->setFontFamily('Calibri');
                                                                 $cells->setFontWeight('bold');
                                                                 $cells->setFontSize(16);
                                                             });
                                                             $sheet->freezeFirstRow();
                                                         });
                                                     })->export('xls');
                                                 } else {
                                                     if ($GLOBALS['id2'] == 13) {
                                                         Excel::create('Planes de acción abiertos ' . date("d-m-Y"), function ($excel) {
                                                             $excel->setTitle('Planes de acción abiertos');
                                                             $excel->setCreator('Administrador B-GRC')->setCompany('B-GRC - IXUS Consulting');
                                                             $excel->setDescription('Reporte de planes de acción que se encuentran abiertos');
                                                             $excel->sheet('Planes de acción', function ($sheet) {
                                                                 $plan = new PlanesAccion();
                                                                 $datos = $plan->indexGraficos($GLOBALS['id2']);
                                                                 $sheet->fromArray($datos);
                                                                 $sheet->cells('A1:G1', function ($cells) {
                                                                     $cells->setBackground('#013ADF');
                                                                     $cells->setFontColor('#ffffff');
                                                                     $cells->setFontFamily('Calibri');
                                                                     $cells->setFontWeight('bold');
                                                                     $cells->setFontSize(16);
                                                                 });
                                                                 $sheet->freezeFirstRow();
                                                             });
                                                         })->export('xls');
                                                     } else {
                                                         if ($GLOBALS['id2'] == 14) {
                                                             Excel::create('Planes de acción próximos a cerrar ' . date("d-m-Y"), function ($excel) {
                                                                 $excel->setTitle('Planes de acción próximos a cerrar');
                                                                 $excel->setCreator('Administrador B-GRC')->setCompany('B-GRC - IXUS Consulting');
                                                                 $excel->setDescription('Reporte de planes de acción en que su fecha límite se encuentra próxima a cumplirse');
                                                                 $excel->sheet('Planes de acción', function ($sheet) {
                                                                     $plan = new PlanesAccion();
                                                                     $datos = $plan->indexGraficos($GLOBALS['id2']);
                                                                     $sheet->fromArray($datos);
                                                                     $sheet->cells('A1:G1', function ($cells) {
                                                                         $cells->setBackground('#013ADF');
                                                                         $cells->setFontColor('#ffffff');
                                                                         $cells->setFontFamily('Calibri');
                                                                         $cells->setFontWeight('bold');
                                                                         $cells->setFontSize(16);
                                                                     });
                                                                     $sheet->freezeFirstRow();
                                                                 });
                                                             })->export('xls');
                                                         } else {
                                                             if ($GLOBALS['id2'] == 15) {
                                                                 Excel::create('Planes de acción abiertos con fecha pasada ' . date("d-m-Y"), function ($excel) {
                                                                     $excel->setTitle('Planes de acción abiertos fecha límite terminada');
                                                                     $excel->setCreator('Administrador B-GRC')->setCompany('B-GRC - IXUS Consulting');
                                                                     $excel->setDescription('Reporte de planes de acción que se encuentran abiertos siendo que la fecha final del mismo se encuentra pasada');
                                                                     $excel->sheet('Planes de acción', function ($sheet) {
                                                                         $plan = new PlanesAccion();
                                                                         $datos = $plan->indexGraficos($GLOBALS['id2']);
                                                                         $sheet->fromArray($datos);
                                                                         $sheet->cells('A1:G1', function ($cells) {
                                                                             $cells->setBackground('#013ADF');
                                                                             $cells->setFontColor('#ffffff');
                                                                             $cells->setFontFamily('Calibri');
                                                                             $cells->setFontWeight('bold');
                                                                             $cells->setFontSize(16);
                                                                         });
                                                                         $sheet->freezeFirstRow();
                                                                     });
                                                                 })->export('xls');
                                                             } else {
                                                                 if ($GLOBALS['id2'] == 16) {
                                                                     Excel::create('Planes de acción cerrados ' . date("d-m-Y"), function ($excel) {
                                                                         $excel->setTitle('Planes de acción cerrados');
                                                                         $excel->setCreator('Administrador B-GRC')->setCompany('B-GRC - IXUS Consulting');
                                                                         $excel->setDescription('Reporte de planes de acción cerrados');
                                                                         $excel->sheet('Planes de acción', function ($sheet) {
                                                                             $plan = new PlanesAccion();
                                                                             $datos = $plan->indexGraficos($GLOBALS['id2']);
                                                                             $sheet->fromArray($datos);
                                                                             $sheet->cells('A1:G1', function ($cells) {
                                                                                 $cells->setBackground('#013ADF');
                                                                                 $cells->setFontColor('#ffffff');
                                                                                 $cells->setFontFamily('Calibri');
                                                                                 $cells->setFontWeight('bold');
                                                                                 $cells->setFontSize(16);
                                                                             });
                                                                             $sheet->freezeFirstRow();
                                                                         });
                                                                     })->export('xls');
                                                                 }
                                                             }
                                                         }
                                                     }
                                                 }
                                             }
                                         }
                                     }
                                 }
                             }
                         }
                     }
                 }
             }
         }
     }
 }
Ejemplo n.º 2
0
 public function storeEjecution(Request $request)
 {
     if (Auth::guest()) {
         return view('login');
     } else {
         //haremos global de request
         global $req;
         $req = $request;
         //print_r($_POST);
         DB::transaction(function () {
             $c = new ControlesController();
             //primero que todo, actualizamos las pruebas
             //para esto, separamos primer string del array id_pruebas por sus comas
             $id_pruebas = explode(',', $_POST['id_pruebas'][0]);
             foreach ($id_pruebas as $id) {
                 //actualizamos resultados (ACTUALIZACIÓN 28-10-2016) Solo actualizamos resultados ya que el issue no se tocará en esta sección) (si es que el estado de la prueba es cerrado (igual a 2))
                 if ($_POST['status_' . $id] == 2) {
                     //actualizamos resultado de prueba de identificador $id (status y results)
                     DB::table('audit_tests')->where('id', '=', $id)->update(['status' => $_POST['status_' . $id], 'results' => $_POST['test_result_' . $id], 'updated_at' => date('Y-m-d H:i:s'), 'hh_real' => $_POST['hh_real_' . $id]]);
                     //obtenemos id de control para la evaluación de riesgo controlado
                     $control = DB::table('audit_tests')->where('id', '=', $id)->select('control_id')->first();
                     if (isset($_POST['test_result_' . $id]) && isset($control) && $control != NULL) {
                         if ($control->control_id != NULL) {
                             $result = $c->calcControlValue($control->control_id);
                             $eval = $c->calcControlledRisk($control->control_id);
                             $result = 0;
                         } else {
                             $result = 2;
                         }
                     } else {
                         $result = 2;
                     }
                     if (Session::get('languaje') == 'en') {
                         if ($result == 0) {
                             echo "Controlled risk successfully updated";
                         } else {
                             if ($result == 1) {
                                 echo "Error updating value of controlled risk";
                             }
                         }
                     } else {
                         if ($result == 0) {
                             echo "Riesgo controlado actualizado correctamente";
                         } else {
                             if ($result == 1) {
                                 echo "Error al actualizar valor de riesgo controlado";
                             }
                         }
                     }
                 } else {
                     //sólo actualizamos resultado de prueba
                     DB::table('audit_tests')->where('id', '=', $id)->update(['status' => $_POST['status_' . $id], 'updated_at' => date('Y-m-d H:i:s')]);
                 }
             }
             if (Session::get('languaje') == 'en') {
                 Session::flash('message', 'Audit successfully executed');
             } else {
                 Session::flash('message', 'Auditoría ejecutada correctamente');
             }
         });
         return Redirect::to('/ejecutar_pruebas');
     }
 }