NombrePantallas.iri

--Asignacion de Nombres a las Pantallas
procedure pMuestraPntProcesoDePesaje;
begin
	SelectScreen(1);
	g_PantallaActiva:=tPntProcesoDePesaje;
	pLimpiarEtiquetasProcesoDePesaje;
	pMuestraPantallaProceso(g_IdOrdenElegida);
end;

procedure pMuestraPntMenuMantenimiento;
begin
	SelectScreen(2);
	g_PantallaActiva:=tPntMenuMant;
end;

procedure pMuestraPntMantenimientoReceta;
begin
	SelectScreen(3);
	g_PantallaActiva:=tPntMantReceta;
end;

procedure pMuestraPntMantenimientoInsumo;
begin
	SelectScreen(4);
	g_PantallaActiva:=tPntMantInsumo;
end;

procedure pMuestraPntMenuPrincipal;
begin
	SelectScreen(5);
	g_PantallaActiva:=tPntMenuPrincipal;
end;

procedure pMuestraPntMenuReportes;
begin
	SelectScreen(6);
	g_PantallaActiva:=tPntMenuReportes;
end;

procedure pMuestraPntConfiguracion;
begin
	SelectScreen(7);
	g_PantallaActiva:=tPntConfiguracion;
end;

procedure pMuestraPntMantenimientoBalanza;
begin
	SelectScreen(8);
	g_PantallaActiva:=tPntMantBalanza;
end;

procedure pMuestraPntListaOrdenes;
begin
	SelectScreen(9);
	g_PantallaActiva:=tPntListaOrdenes;
	pMuestraOrdenes;
end;