-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathOperaciones.iri
139 lines (113 loc) · 4.63 KB
/
Operaciones.iri
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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
--Programacion del Boton Agregar en Pantalla Mantenimientos Datos
elsif EventWidget=lbl38 OR EventWidget=lbl41 then
g_TipoMant := tipoMantAgregar;
g_PasoMant := tMantInicio;
g_PasoNivelMantDeReceta:=tNMDR_Cabecera;
pMantenimientoDatos("");
--Programacion del Boton Agregar en Pantalla Mantenimientos Datos de Balanza
elsif EventWidget=lbl104 then
g_TipoMant := tipoMantAgregar;
g_PasoMant := tMantInicio;
pMantenimientoDatos("");
--Programacion del Boton Editar en Pantalla Mantenimientos Balanza, Insumo y Receta
elsif EventWidget=lbl42 or EventWidget=lbl39
or EventWidget=lbl105 then
g_TipoMant := tipoMantEditar;
g_PasoMant := tMantInicio;
pMantenimientoDatos("");
--Programacion del Boton Eliminar en Pantalla Mantenimientos Datos
elsif EventWidget=lbl40 or EventWidget=lbl43
or EventWidget=lbl106 then
g_TipoMant := tipoMantEliminar;
--Se pasa como parametro el Id que está en pantalla en ese momento
pMuestraPromptEliminar;
--pEliminarRegistroDB(g_IdItemActual);
--Programacion del Boton Agregar Insumo en la Pantalla Mantenimientos Receta
elsif EventWidget=lbl90 then
g_TipoMant := tipoMantAgregar;
g_PasoItemReceta := tMIR_Inicio;
g_PasoNivelMantDeReceta:=tNMDR_Detalle;
pMantenimientoItemReceta("");
--Programacion del Boton Eliminar Item de Insumo en la Pantalla Mantenimientos Receta
elsif EventWidget=lbl86 then
g_TipoMant := tipoMantEliminarItemReceta;
g_IdItemRecetaAEliminar:=g_ItemDetReceta01;
pMuestraPromptEditarEliminarItemReceta;
elsif EventWidget=lbl85 then
g_TipoMant := tipoMantEliminarItemReceta;
g_IdItemRecetaAEliminar:=g_ItemDetReceta02;
pMuestraPromptEditarEliminarItemReceta;
elsif EventWidget=lbl89 then
g_TipoMant := tipoMantEliminarItemReceta;
g_IdItemRecetaAEliminar:=g_ItemDetReceta03;
pMuestraPromptEditarEliminarItemReceta;
elsif EventWidget=lbl88 then
g_TipoMant := tipoMantEliminarItemReceta;
g_IdItemRecetaAEliminar:=g_ItemDetReceta04;
pMuestraPromptEditarEliminarItemReceta;
elsif EventWidget=lbl87 then
g_TipoMant := tipoMantEliminarItemReceta;
g_IdItemRecetaAEliminar:=g_ItemDetReceta05;
pMuestraPromptEditarEliminarItemReceta;
--Programacion del Boton Eliminar Item de Insumo en la Pantalla Mantenimientos Receta
elsif EventWidget=lbl80 then
g_TipoMant := tipoMantEditarItemReceta;
g_IdItemRecetaAEditar:=g_ItemDetReceta01;
pMuestraPromptEditarEliminarItemReceta;
elsif EventWidget=lbl81 then
g_TipoMant := tipoMantEditarItemReceta;
g_IdItemRecetaAEditar:=g_ItemDetReceta02;
pMuestraPromptEditarEliminarItemReceta;
elsif EventWidget=lbl82 then
g_TipoMant := tipoMantEditarItemReceta;
g_IdItemRecetaAEditar:=g_ItemDetReceta03;
pMuestraPromptEditarEliminarItemReceta;
elsif EventWidget=lbl83 then
g_TipoMant := tipoMantEditarItemReceta;
g_IdItemRecetaAEditar:=g_ItemDetReceta04;
pMuestraPromptEditarEliminarItemReceta;
elsif EventWidget=lbl84 then
g_TipoMant := tipoMantEditarItemReceta;
g_IdItemRecetaAEditar:=g_ItemDetReceta05;
pMuestraPromptEditarEliminarItemReceta;
--Botones de selecion de Ordenes;
elsif EventWidget=lbl112 then
if g_PaginaActualDeOrdenes=1 then
g_IdOrdenElegida:=g_ListaOrdenes[1].Id;
elsif g_PaginaActualDeOrdenes=2 then
g_IdOrdenElegida:=g_ListaOrdenes[5].Id;
elsif g_PaginaActualDeOrdenes=3 then
g_IdOrdenElegida:=g_ListaOrdenes[9].Id;
end if;
pMostrarYLimpiar("Se eligio la Orden numero : "+IntegerToString(g_IdOrdenElegida,0));
pMuestraPntProcesoDePesaje;
elsif EventWidget=lbl113 then
if g_PaginaActualDeOrdenes=1 then
g_IdOrdenElegida:=g_ListaOrdenes[2].Id;
elsif g_PaginaActualDeOrdenes=2 then
g_IdOrdenElegida:=g_ListaOrdenes[6].Id;
elsif g_PaginaActualDeOrdenes=3 then
g_IdOrdenElegida:=g_ListaOrdenes[10].Id;
end if;
pMostrarYLimpiar("Se eligio la Orden numero : "+IntegerToString(g_IdOrdenElegida,0));
pMuestraPntProcesoDePesaje;
elsif EventWidget=lbl114 then
if g_PaginaActualDeOrdenes=1 then
g_IdOrdenElegida:=g_ListaOrdenes[3].Id;
elsif g_PaginaActualDeOrdenes=2 then
g_IdOrdenElegida:=g_ListaOrdenes[7].Id;
elsif g_PaginaActualDeOrdenes=3 then
g_IdOrdenElegida:=g_ListaOrdenes[11].Id;
end if;
pMostrarYLimpiar("Se eligio la Orden numero : "+IntegerToString(g_IdOrdenElegida,0));
pMuestraPntProcesoDePesaje;
elsif EventWidget=lbl115 then
if g_PaginaActualDeOrdenes=1 then
g_IdOrdenElegida:=g_ListaOrdenes[4].Id;
elsif g_PaginaActualDeOrdenes=2 then
g_IdOrdenElegida:=g_ListaOrdenes[8].Id;
elsif g_PaginaActualDeOrdenes=3 then
g_IdOrdenElegida:=g_ListaOrdenes[12].Id;
end if;
pMostrarYLimpiar("Se eligio la Orden numero : "+IntegerToString(g_IdOrdenElegida,0));
pMuestraPntProcesoDePesaje;