-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathNavegacion.iri
41 lines (41 loc) · 1.31 KB
/
Navegacion.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
elsif EventWidget=lbl21 or EventWidget=lbl23 or
EventWidget=lbl65 or EventWidget=lbl66 then
pMuestraPntMenuPrincipal;
elsif EventWidget=lbl22 then
g_NombreMenuMantto:=CONST_RECETA_LABEL;
pMuestraPntMantenimientoReceta;
pMuestraReceta;
--pMuestraItemRecetaVacio;
pMuestraItemsReceta;
elsif EventWidget=lbl24 then
g_NombreMenuMantto:=CONST_INSUMO_LABEL;
pMuestraPntMantenimientoInsumo;
pMuestraInsumo;
elsif EventWidget=lbl97 then
g_NombreMenuMantto:=CONST_BALANZA_LABEL;
pMuestraPntMantenimientoBalanza;
pMuestraBalanza;
elsif EventWidget=lbl30 or EventWidget=lbl31 or
EventWidget=lbl59 or EventWidget=lbl98 then
pMuestraPntMenuMantenimiento;
elsif EventWidget=lbl60 then
pMuestraPntProcesoDePesaje;
elsif EventWidget=lbl109 then
if g_PantallaPresedente=1 then
pMuestraPntProcesoDePesaje;
elsif g_PantallaPresedente=2 then
pMuestraPntMenuMantenimiento;
end if;
elsif EventWidget=lbl61 then
pMuestraPntMenuReportes;
elsif EventWidget=lbl63 then
pMuestraPntConfiguracion;
--Boton para dirigirse a la pantalla de Lista de Ordenes
elsif EventWidget=lbl111 then
g_PantallaPresedente:=2;
pMuestraPntListaOrdenes;
pMuestraOrdenes;
elsif EventWidget=lbl116 then
g_PantallaPresedente:=1;
pMuestraPntListaOrdenes;
pMuestraOrdenes;