]> git.llucax.com Git - mecon/yatta.git/blob - sistema/www/admin_cuotas-abm.php
Preparo el directorio test para realizar las pruebas reales de ejecución de los scripts.
[mecon/yatta.git] / sistema / www / admin_cuotas-abm.php
1 <?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80 foldmethod=marker:
2 -------------------------------------------------------------------------------
3                              Ministerio de Economía
4                                     YATTA!
5 -------------------------------------------------------------------------------
6 This file is part of YATTA!.
7
8 YATTA! is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 2 of the License, or (at your option)
11 any later version.
12
13 YATTA! is distributed in the hope that it will be useful, but WITHOUT
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
15 FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16  
17 You should have received a copy of the GNU General Public License; if not,
18 write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
19 Boston, MA  02111-1307  USA
20 -------------------------------------------------------------------------------
21 Creado: jue mar  4 19:33:38 ART 2004
22 Autor:  Martin Marrese <mmarre@mecon.gov.ar>
23 -------------------------------------------------------------------------------
24 $Id$
25 -----------------------------------------------------------------------------*/
26 //Require Once {{{
27 //HTML {{{
28 require_once 'MECON/HTML/QuickForm.php';
29 require_once 'MECON/HTML/Tabla.php';
30 require_once 'MECON/HTML/Error.php';
31 require_once 'MECON/HTML/Link.php';
32 require_once 'MECON/HTML/Image.php';
33 require_once 'MECON/HTML/Link.php';
34 //}}}
35 //YATTA {{{
36 require_once 'YATTA/CuotaDB.php';
37 //}}}
38 //}}}
39
40 //Obtengo los datos del get y del post {{{
41 $accion = (@$_REQUEST['accion']) ? $_REQUEST['accion'] : 'nuevo';
42
43 if (@$_REQUEST['_login']) {
44     $login = $_REQUEST['_login'];
45 }
46 elseif (@$_REQUEST['login']) {
47     $login = $_REQUEST['login'];
48 }
49 else {
50     $login = null;
51 }
52 //}}}
53
54 //Obtengo los datos del servidor {{{
55 $CUOTA =& new YATTA_CuotaDB();
56 if ($login) {
57     $CUOTA->login = $login;
58     $res = $CUOTA->buscar($DB, MECON_DBO_OR, 'login');
59     if (PEAR::isError($res)) {
60          trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
61     }
62     $CUOTA->cargar($res);
63 }
64 //}}}
65
66 //Creo los objetos necesarios {{{
67 $FORM =& new MECON_HTML_QuickForm('admin_cuotas_abm', 'post', 
68         'admin_cuotas-abm');
69 $FORM->renderer->updateAttributes('width="400"');
70 //}}}
71
72 //Armo el formulario {{{
73 if (@$id) {
74     $FORM->addElement('hidden', 'login', $login);
75 }
76 $FORM->addElement('hidden', 'accion', $accion.'2');
77 $FORM->addElement('header', 'cabecera', 'Datos de la cuota');
78 $login =& $FORM->addElement('text', 'login', 'Login', array('size'=>'30'));
79 $tamanio =& $FORM->addElement('text', 'tamanio', 'Tamaño', array('size'=>'3'));
80 $group[] =& HTML_QuickForm::createElement('submit', 'aceptar' , 'Aceptar');
81 $group[] =& HTML_QuickForm::createElement('submit', 'cancelar', 'Cancelar');
82 $FORM->addGroup($group,'botones');
83
84 if (@$accion == 'modificar') {
85     $login->setValue($CUOTA->login);
86     $tamanio->setValue($CUOTA->cuota);
87     $group[0]->setValue('Modificar');
88     $group[0]->setName('modificar');
89     $FORM->addRule ('login', 'El login del usuario es obligatorio.', 'required');
90     $FORM->addRule ('tamanio', 'El tamaño es obligatorio.', 'required');
91 }
92 elseif (@$accion == 'eliminar') {
93     $login->setValue($CUOTA->login);
94     $tamanio->setValue($CUOTA->cuota);
95     $group[0]->setValue('Eliminar');
96     $group[0]->setName('eliminar');
97     $FORM->freeze();
98 }
99 else {
100     $FORM->addRule ('login', 'El login del usuario es obligatorio.', 'required');
101     $FORM->addRule ('tamanio', 'El tamaño es obligatorio.', 'required');
102 }
103 //}}}
104
105 //Valido el formulario {{{
106 if ($FORM->validate()) {
107     $f_botones = $FORM->getSubmitValue('botones');
108     //Cancelar {{{
109     if (@$f_botones['cancelar']) {
110         header ('location: admin_cuotas');
111         exit;
112     }
113     //}}}
114     //Aceptar {{{
115     elseif (@$f_botones['aceptar']) {
116         $CUOTA->login = $login->getValue();
117         $CUOTA->cuota = $tamanio->getValue();
118         $res = $CUOTA->guardar($DB, true);
119     }
120     //}}}
121     //Modificar {{{
122     elseif (@$f_botones['modificar']) {
123         $CUOTA->login = $login->getValue();
124         $CUOTA->cuota = $tamanio->getValue();
125         $res = $CUOTA->guardar($DB, false);
126     }
127     //}}}
128     //Eliminar {{{
129     elseif (@$f_botones['eliminar']) {
130         $res = $CUOTA->borrar($DB);
131     }
132     //}}}
133     if (PEAR::isError($res)) {
134          trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
135     }
136     else {
137         header ('location: admin_cuotas');
138     }
139     exit;
140 }
141 //}}}
142
143 //Agrego la info al marco y la muestro {{{
144 $MARCO->addStyleSheet('css/yatta.css');
145 $MARCO->addBody($FORM);
146 $MARCO->display();
147 //}}}
148 ?>