1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
#!/usr/bin/env ruby
require 'funciones'
require 'datos'
def listado
pag = Pagina.new('Prestamo de material a empleados', 5)
# extra_id=1 es PRESTAMO DE MATERIAL
cta_empleados = Cta_empleado.find(:all, :conditions=>{:extra_id=>1})
i = 0
boton('Nuevo', 'presmat.rb?accion=nuevo')
boton('Volver', 'geined.py?accion=comprobantes')
encabezado_tabla(['Nº', 'Empleado', 'Fecha', 'Detalle', 'Debe', 'Haber', 'Saldo', 'Acciones'])
cta_empleados.each do |fila|
id = cta_empleados.id
fila_alterna(i)
empleado_id = cta_empleados.empleado_id
celda(id)
empleado = Empleado.find(empleado_id)
$fil_emp = buscar_registro("empleados","id",$empleado_id);
celda($fil_emp['nombre']);
celda(mysql_a_fecha(fila.fecha))
celda($fil_pre['detalle']);
linea_moneda($fil_pre['debe']);
linea_moneda($fil_pre['haber']);
$saldo = $saldo - $fil_pre['debe'] + $fil_pre['haber'];
linea_moneda($saldo);
echo '<td>';
boton("Ver cuenta","ctaempleados.py?accion=listado&id=$empleado_id");
boton("Devolución","presmat.php?accion=devolver&id=$id");
echo '</td></tr>';
i = i + 1
end
fin_tabla
boton("Volver","geined.py?accion=comprobantes")
pag.fin
end
def nuevo
$sql_emp = "SELECT * FROM empleados ORDER BY nombre";
$res_emp = mysql_query($sql_emp);
$sql_bie = "SELECT * FROM bie_cam ORDER BY descripcion";
$res_bie = mysql_query($sql_bie);
encabezado_fecha("Prestamo de material a empleados");
formulario("presmat.php?accion=agregar");
# empleado_id
input_combo("Empleado:","empleado_id",$res_emp,"");
# Problema: es complicado armar un formulario de prestamo de material que
# se traduzca en movimientos en la cuenta del empleado,
# que se traduzca en cambios en el inventario
# que se traduzca en cambios en la contabilidad
# Requiere de mas pienso */
encabezado_tabla(["Campo","Valor"])
# fecha
input_fecha("Fecha","fecha",fecha_a_mysql(date('d/m/y')));
# biecam_id
input_combo("Material:","biecam_id",$res_bie,"");
# cantidad
input_numero("Cantidad:","cantidad","1");
fin_tabla();
botones();
fin_formulario();
script_fecha();
fin();
end
def agregar(frm)
fecha = Fecha.new(frm['fecha'], 'eu')
$biecam_id = $_POST['biecam_id'];
$empleado_id = $_POST['empleado_id'];
$fecha2 = fecha_a_mysql($_POST['fecha']);
$fil_bie = buscar_registro("bie_cam","id",$biecam_id);
$material = $fil_bie['descripcion'];
# monto ---- dato secundario
$precio = $fil_bie['precio'];
# deposito_id POR DEFECTO ES LA SUCURSAL EN LA QUE ESTA, OJO SI ES CENTRAL
$deposito_id = $_SESSION['deposito_id'];
$fil_suc = buscar_registro("depositos","id",$deposito_id);
$sucursal = $fil_suc['deposito'];
# extra_id valor arbitrario: 1 es material
$extra_id = 1;
$detalle = "Prestamo de $material en sucursal $sucursal";
$sql = "INSERT INTO cta_empleados SET empleado_id = $empleado_id,
fecha = '$fecha2', detalle ='$detalle', debe = $precio, haber = 0, extra_id = $extra_id";
$res = mysql_query($sql);
redirigir("presmat.php?accion=listado");
# operacion sobre cta_empleados */
# No altera stock porque no son libros a la venta sino material docente */
# NO altera contabilidad porque son dentro del mismo rubro */
end
def devolver
$id = $_GET['id'];
$fil_cta = buscar_registro("cta_empleados","id",$id);
$empleado_id = $fil_cta['empleado_id'];
$fecha2 = fecha_a_mysql(date('d/m/y'));
$detalle = $fil_cta['detalle'];
$precio = $fil_cta['debe'];
$extra_id = $fil_cta['extra_id'];
$sql = "INSERT INTO cta_empleados SET empleado_id = $empleado_id,
fecha = '$fecha2', detalle ='$detalle', debe = 0, haber = $precio, extra_id = $extra_id";
if precio != 0
$res = mysql_query($sql);
end
redirigir("presmat.php?accion=listado");
end
form = CGI.new('html3')
accion = 'listado'
if form.has_key?('accion')
accion = form['accion']
end
case accion
when 'listado'
listado
when 'nuevo'
nuevo
when 'agregar'
agregar
when 'editar'
editar
when 'actualizar'
actualizar
when 'devolver'
devolver
end
|