{
    S7_Author := "ABH";
    S7_BlockComment := "MLC_3hd";
    S7_BlockNumber := "2801";
    S7_BlockTitle := "MLC_3mR";
    S7_EditorMode := "SCL";
    S7_Family := "ZeusControl";
    S7_Optimized := "TRUE";
    S7_Version := "1.0"
}
FUNCTION "FC2801_ZC_EA_MUX" : Void
    VAR_INPUT
        { S7_MLC := "MLC_3Vi" }
        Arranque : Bool;
    END_VAR
    VAR_TEMP
        for_mux : Int;
        t_Index : Int;
        t_oldIndex : Int;
        t_N_MAX : Int;
        t_CambioDesdeHMI : Bool;
        t_CambioDesdeMux : Bool;
    END_VAR

    { S7_Language := "SCL" }
    NETWORK
        REGION DESCRIPCION
        (*
        ###### (C)Copyright ZeusControl 2026 - 2026
        
        ---
        ### Información del Sistema
        | Hardware Compatible | Entorno de Ingeniería |
        |---------------------|-----------------------|
        | PLC serie 1200/1500 | TIA Portal 18         |
        
        ---
        > **Restricciones:** Ninguna.
        
        - - -
        ### Descripción Funcional
        El bloque implementa la gestión de multiplexado estático para el dispositivo entrada analogica, exponiendo la matriz de equipos de la planta a los sistemas de supervisión SCADA Clásicos (WinCC Professional) sin necesidad de acceso indexado nativo.
        
        Funcionalidades principales de la arquitectura:
        - En el primer arranque del PLC (`#Arranque`), inicializa a `0` los índices (`Index` y `oldIndex`) de todos los canales de multiplexado.
        - Validación de los límites del índice de cada multiplexado frente a la constante `N_MAX_DISP_EA`.
        - Detección de cambio de índice (`Index <> oldIndex`) para cargar la estructura completa del equipo seleccionado (`DB2001_EA.EA[X]`) en la interfaz del multiplexor.
        - Transferencia continua de datos de Solo Lectura (estados, valores actuales, alarmas) desde el PLC hacia el SCADA.
        - Transferencia bidireccional segura de datos de Escritura (consignas, configuraciones y modos) evaluando máscaras de cambios (`CambioDesdeHMI` vs `CambioDesdeMux`) para evitar sobrescrituras accidentales.
        - Gestión de comandos (Resets, pulsadores) con auto-reseteo para evitar el efecto rebote.
        - Caso especial de índice `0`: carga la estructura `EA[0]` (reservada y vacía) para limpiar la pantalla del SCADA.
        
        > ** Restricciones: ** Exclusivo para SCADAs sin soporte de indexación directa.
        
        - - -
        ### Dependencias Requeridas
        | Tipo | Elementos |
        |------|-----------|
        | FC   | - |
        | FB   | - |
        | DB   | `DB2001_EA` |
        | UDT  | `ZC_DISP_EA`, `ZC_DISP_MUX_EA` | 
        ---
        ### Historial de Cambios
        | Versión  | Fecha      | Técnico | Cambios |
        |----------|------------|---------|---------|
        | 01.00.00 | 10.07.2026 | (ABH)   | Primera versión extraído a FC independiente. Refactorizacion de multiplexado para su uso solo en WinCC Professional.|
        *)
        END_REGION DESCRIPCION
        
        
        REGION COMPROBACION_N_MAX
            
            //  Si no hay Scada declarados, salimos del bloque inmediatamente
            IF "N_MAX_SCADA" <= 0 THEN
                RETURN;
            END_IF;
            
            //  Traspaso de N_MAX a variable temporal para evitar fallos de compilacion
            #t_N_MAX := "N_MAX_SCADA";
            
        END_REGION COMPROBACION_N_MAX
        
        
        REGION MULTIPLEXADO
            
            //  ===========================================================================================================
            //  Al arranque del PLC, ponemos a 0 todos los indices de los multiplexados
            IF #Arranque THEN
                FOR #for_mux := 1 TO #t_N_MAX DO
                    "DB2801_EA_MUX".Mux.Scada[#for_mux].Index :=
                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldIndex := 0;
                END_FOR;
            END_IF;
            
            //  ===========================================================================================================
            //  Gestion de multiplexado
            FOR #for_mux := 1 TO #t_N_MAX DO
                
                //  ===============================================================================================================
                //  Antes de iniciar la logica del multiplexado, revisamos los limites
                REGION LIMITES
                    
                    //  ===========================================================================================================
                    //  Limites
                    IF "DB2801_EA_MUX".Mux.Scada[#for_mux].Index < 0 THEN
                        "DB2801_EA_MUX".Mux.Scada[#for_mux].Index := 0;
                    END_IF;
                    IF "DB2801_EA_MUX".Mux.Scada[#for_mux].Index > "N_MAX_DISP_EA" THEN
                        "DB2801_EA_MUX".Mux.Scada[#for_mux].Index := "N_MAX_DISP_EA";
                    END_IF;
                    
                END_REGION LIMITES
                
                
                //  Traspaso de limites a variable temporal para evitar cambios no deseados
                REGION INDICES
                    
                    #t_Index := "DB2801_EA_MUX".Mux.Scada[#for_mux].Index;
                    #t_oldIndex := "DB2801_EA_MUX".Mux.Scada[#for_mux].oldIndex;
                    
                END_REGION INDICES
                
                
                IF "DB2801_EA_MUX".Mux.Scada[#for_mux].Habilitar THEN
                    
                    //  ===========================================================================================================
                    //  Gestionamos solo los tipos 
                    IF #t_Index > 0 THEN
                        
                        REGION CARGA_INICIAL
                            
                            //  ===========================================================================================================
                            //  Al detectar un cambio en el indice del dispositivo, cargamos los valores del dispositivo que tenga el indice.
                            IF #t_Index <> #t_oldIndex THEN
                                
                                //  Traspaso de dispositivos al multiplexado
                                "DB2801_EA_MUX".Mux.Scada[#for_mux].EA := "DB2001_EA".EA[#t_Index];
                                "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA := "DB2001_EA".EA[#t_Index];
                                
                            END_IF;
                            
                            //  ===========================================================================================================
                            //  Valor anterior del indice
                            "DB2801_EA_MUX".Mux.Scada[#for_mux].oldIndex := #t_Index;
                            
                        END_REGION CARGA_INICIAL
                        
                        
                        REGION DATOS_LECTURA
                            
                            //  ===========================================================================================================
                            //  Movimiento de datos gestionados en FC
                            "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Hmi_Estado := "DB2001_EA".EA[#t_Index].Hmi_Estado;
                            IF NOT "DB2001_EA".EA[#t_Index].Estado_AutoMan THEN
                                "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Orden_ConsignaManual := "DB2001_EA".EA[#t_Index].Orden_ConsignaManual;
                            END_IF;
                            "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Estado_ValorIngenieria := "DB2001_EA".EA[#t_Index].Estado_ValorIngenieria;
                            "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Estado_ValorTarjeta := "DB2001_EA".EA[#t_Index].Estado_ValorTarjeta;
                            "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Alarmas_General := "DB2001_EA".EA[#t_Index].Alarmas_General;
                            "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Alarmas_HiloRoto := "DB2001_EA".EA[#t_Index].Alarmas_HiloRoto;
                            "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Alarmas_Lectura := "DB2001_EA".EA[#t_Index].Alarmas_Lectura;
                            "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Alarmas_Max := "DB2001_EA".EA[#t_Index].Alarmas_Max;
                            "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Alarmas_Min := "DB2001_EA".EA[#t_Index].Alarmas_Min;
                            "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Alarmas_Parametros := "DB2001_EA".EA[#t_Index].Alarmas_Parametros;
                            "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Aux_Estado := "DB2001_EA".EA[#t_Index].Aux_Estado;
                            "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Aux_oldAlarma := "DB2001_EA".EA[#t_Index].Aux_oldAlarma;
                            "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Aux_oldAutoMan := "DB2001_EA".EA[#t_Index].Aux_oldAutoMan;
                            "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_GrupoAlarma := "DB2001_EA".EA[#t_Index].Config_GrupoAlarma;
                            
                        END_REGION DATOS_LECTURA
                        
                        
                        REGION DATOS_ESCRITURA
                            
                            REGION GESTION_CAMBIOS_DINAMICOS
                                
                                //  ===========================================================================================================
                                //  Estado Auto/Manual
                                IF "DB2001_EA".EA[#t_Index].Estado_AutoMan <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Estado_AutoMan THEN
                                    //  Cambio desde HMI
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Estado_AutoMan := "DB2001_EA".EA[#t_Index].Estado_AutoMan;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Estado_AutoMan := "DB2001_EA".EA[#t_Index].Estado_AutoMan;
                                ELSIF "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Estado_AutoMan <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Estado_AutoMan THEN
                                    //  Cambio desde Multiplexado
                                    "DB2001_EA".EA[#t_Index].Estado_AutoMan := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Estado_AutoMan;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Estado_AutoMan := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Estado_AutoMan;
                                END_IF;
                                
                                //  ===========================================================================================================
                                //  Orden Activar Manual
                                IF "DB2001_EA".EA[#t_Index].Orden_ConsignaManual <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Orden_ConsignaManual THEN
                                    //  Cambio desde HMI
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Orden_ConsignaManual := "DB2001_EA".EA[#t_Index].Orden_ConsignaManual;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Orden_ConsignaManual := "DB2001_EA".EA[#t_Index].Orden_ConsignaManual;
                                ELSIF "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Orden_ConsignaManual <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Orden_ConsignaManual THEN
                                    //  Cambio desde Multiplexado
                                    "DB2001_EA".EA[#t_Index].Orden_ConsignaManual := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Orden_ConsignaManual;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Orden_ConsignaManual := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Orden_ConsignaManual;
                                END_IF;
                                
                            END_REGION GESTION_CAMBIOS_DINAMICOS
                            
                            
                            REGION GESTION_CAMBIOS_CONFIG
                                
                                //  Marca auxiliar para indicar que el cambio es desde HMI
                                //  Comparamos el dispositivo original con el dispositivo real, para detectar cambios desde PLC o desde HMI
                                #t_CambioDesdeHMI :=
                                ("DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_DireccionEntradaByte <> "DB2001_EA".EA[#t_Index].Config_DireccionEntradaByte)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_ErrorMaxHisteresis <> "DB2001_EA".EA[#t_Index].Config_ErrorMaxHisteresis)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_ErrorMaxIngenieria <> "DB2001_EA".EA[#t_Index].Config_ErrorMaxIngenieria)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_ErrorMinHisteresis <> "DB2001_EA".EA[#t_Index].Config_ErrorMinHisteresis)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_ErrorMinIngenieria <> "DB2001_EA".EA[#t_Index].Config_ErrorMinIngenieria)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoMaxIngenieria <> "DB2001_EA".EA[#t_Index].Config_EscaladoMaxIngenieria)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoMaxTarjeta <> "DB2001_EA".EA[#t_Index].Config_EscaladoMaxTarjeta)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoMinIngenieria <> "DB2001_EA".EA[#t_Index].Config_EscaladoMinIngenieria)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoMinTarjeta <> "DB2001_EA".EA[#t_Index].Config_EscaladoMinTarjeta)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoOffset <> "DB2001_EA".EA[#t_Index].Config_EscaladoOffset)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_Habilitar <> "DB2001_EA".EA[#t_Index].Config_Habilitar)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_HabilitarAlarmaMax <> "DB2001_EA".EA[#t_Index].Config_HabilitarAlarmaMax)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_HabilitarAlarmaMin <> "DB2001_EA".EA[#t_Index].Config_HabilitarAlarmaMin)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_TipoAcceso <> "DB2001_EA".EA[#t_Index].Config_TipoAcceso)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_HisteresisTipo <> "DB2001_EA".EA[#t_Index].Config_HisteresisTipo);
                                
                                //  Marca auxiliar para indicar que el cambio es desde MUX SCADA
                                //  Comparamos el dispositivo original con el multiplexado, para detectar cambios desde multiplexado
                                #t_CambioDesdeMux :=
                                ("DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_DireccionEntradaByte <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_DireccionEntradaByte)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_ErrorMaxHisteresis <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_ErrorMaxHisteresis)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_ErrorMaxIngenieria <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_ErrorMaxIngenieria)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_ErrorMinHisteresis <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_ErrorMinHisteresis)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_ErrorMinIngenieria <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_ErrorMinIngenieria)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoMaxIngenieria <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoMaxIngenieria)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoMaxTarjeta <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoMaxTarjeta)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoMinIngenieria <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoMinIngenieria)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoMinTarjeta <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoMinTarjeta)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoOffset <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoOffset)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_Habilitar <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_Habilitar)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_HabilitarAlarmaMax <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_HabilitarAlarmaMax)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_HabilitarAlarmaMin <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_HabilitarAlarmaMin)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_TipoAcceso <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_TipoAcceso)
                                OR ("DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_HisteresisTipo <> "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_HisteresisTipo);
                                
                            END_REGION GESTION_CAMBIOS_CONFIG
                            
                            
                            REGION TRASPASO_DATOS
                                
                                IF #t_CambioDesdeHMI THEN
                                    
                                    //  Al detectar un cambio desde el HMI, cargamos sus valores de nuevo al multiplexado
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Estado_AutoMan := "DB2001_EA".EA[#t_Index].Estado_AutoMan;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Orden_ConsignaManual := "DB2001_EA".EA[#t_Index].Orden_ConsignaManual;
                                    
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_DireccionEntradaByte := "DB2001_EA".EA[#t_Index].Config_DireccionEntradaByte;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_ErrorMaxHisteresis := "DB2001_EA".EA[#t_Index].Config_ErrorMaxHisteresis;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_ErrorMaxIngenieria := "DB2001_EA".EA[#t_Index].Config_ErrorMaxIngenieria;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_ErrorMinHisteresis := "DB2001_EA".EA[#t_Index].Config_ErrorMinHisteresis;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_ErrorMinIngenieria := "DB2001_EA".EA[#t_Index].Config_ErrorMinIngenieria;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoMaxIngenieria := "DB2001_EA".EA[#t_Index].Config_EscaladoMaxIngenieria;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoMaxTarjeta := "DB2001_EA".EA[#t_Index].Config_EscaladoMaxTarjeta;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoMinIngenieria := "DB2001_EA".EA[#t_Index].Config_EscaladoMinIngenieria;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoMinTarjeta := "DB2001_EA".EA[#t_Index].Config_EscaladoMinTarjeta;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoOffset := "DB2001_EA".EA[#t_Index].Config_EscaladoOffset;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_Habilitar := "DB2001_EA".EA[#t_Index].Config_Habilitar;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_HabilitarAlarmaMax := "DB2001_EA".EA[#t_Index].Config_HabilitarAlarmaMax;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_HabilitarAlarmaMin := "DB2001_EA".EA[#t_Index].Config_HabilitarAlarmaMin;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_TipoAcceso := "DB2001_EA".EA[#t_Index].Config_TipoAcceso;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_HisteresisTipo := "DB2001_EA".EA[#t_Index].Config_HisteresisTipo;
                                    
                                    //  Actualizamos el estado original para configuraciones
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_DireccionEntradaByte := "DB2001_EA".EA[#t_Index].Config_DireccionEntradaByte;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_ErrorMaxHisteresis := "DB2001_EA".EA[#t_Index].Config_ErrorMaxHisteresis;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_ErrorMaxIngenieria := "DB2001_EA".EA[#t_Index].Config_ErrorMaxIngenieria;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_ErrorMinHisteresis := "DB2001_EA".EA[#t_Index].Config_ErrorMinHisteresis;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_ErrorMinIngenieria := "DB2001_EA".EA[#t_Index].Config_ErrorMinIngenieria;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoMaxIngenieria := "DB2001_EA".EA[#t_Index].Config_EscaladoMaxIngenieria;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoMaxTarjeta := "DB2001_EA".EA[#t_Index].Config_EscaladoMaxTarjeta;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoMinIngenieria := "DB2001_EA".EA[#t_Index].Config_EscaladoMinIngenieria;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoMinTarjeta := "DB2001_EA".EA[#t_Index].Config_EscaladoMinTarjeta;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoOffset := "DB2001_EA".EA[#t_Index].Config_EscaladoOffset;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_Habilitar := "DB2001_EA".EA[#t_Index].Config_Habilitar;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_HabilitarAlarmaMax := "DB2001_EA".EA[#t_Index].Config_HabilitarAlarmaMax;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_HabilitarAlarmaMin := "DB2001_EA".EA[#t_Index].Config_HabilitarAlarmaMin;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_TipoAcceso := "DB2001_EA".EA[#t_Index].Config_TipoAcceso;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_HisteresisTipo := "DB2001_EA".EA[#t_Index].Config_HisteresisTipo;
                                    
                                ELSIF #t_CambioDesdeMux THEN
                                    
                                    //  Al detectar un cambio desde el MUX, cargamos sus valores al dispositivo
                                    "DB2001_EA".EA[#t_Index].Estado_AutoMan := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Estado_AutoMan;
                                    "DB2001_EA".EA[#t_Index].Orden_ConsignaManual := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Orden_ConsignaManual;
                                    
                                    "DB2001_EA".EA[#t_Index].Config_DireccionEntradaByte := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_DireccionEntradaByte;
                                    "DB2001_EA".EA[#t_Index].Config_ErrorMaxHisteresis := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_ErrorMaxHisteresis;
                                    "DB2001_EA".EA[#t_Index].Config_ErrorMaxIngenieria := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_ErrorMaxIngenieria;
                                    "DB2001_EA".EA[#t_Index].Config_ErrorMinHisteresis := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_ErrorMinHisteresis;
                                    "DB2001_EA".EA[#t_Index].Config_ErrorMinIngenieria := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_ErrorMinIngenieria;
                                    "DB2001_EA".EA[#t_Index].Config_EscaladoMaxIngenieria := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoMaxIngenieria;
                                    "DB2001_EA".EA[#t_Index].Config_EscaladoMaxTarjeta := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoMaxTarjeta;
                                    "DB2001_EA".EA[#t_Index].Config_EscaladoMinIngenieria := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoMinIngenieria;
                                    "DB2001_EA".EA[#t_Index].Config_EscaladoMinTarjeta := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoMinTarjeta;
                                    "DB2001_EA".EA[#t_Index].Config_EscaladoOffset := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoOffset;
                                    "DB2001_EA".EA[#t_Index].Config_Habilitar := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_Habilitar;
                                    "DB2001_EA".EA[#t_Index].Config_HabilitarAlarmaMax := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_HabilitarAlarmaMax;
                                    "DB2001_EA".EA[#t_Index].Config_HabilitarAlarmaMin := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_HabilitarAlarmaMin;
                                    "DB2001_EA".EA[#t_Index].Config_TipoAcceso := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_TipoAcceso;
                                    "DB2001_EA".EA[#t_Index].Config_HisteresisTipo := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_HisteresisTipo;
                                    
                                    //  Actualizamos el estado original para configuraciones
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_DireccionEntradaByte := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_DireccionEntradaByte;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_ErrorMaxHisteresis := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_ErrorMaxHisteresis;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_ErrorMaxIngenieria := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_ErrorMaxIngenieria;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_ErrorMinHisteresis := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_ErrorMinHisteresis;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_ErrorMinIngenieria := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_ErrorMinIngenieria;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoMaxIngenieria := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoMaxIngenieria;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoMaxTarjeta := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoMaxTarjeta;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoMinIngenieria := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoMinIngenieria;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoMinTarjeta := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoMinTarjeta;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_EscaladoOffset := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_EscaladoOffset;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_Habilitar := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_Habilitar;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_HabilitarAlarmaMax := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_HabilitarAlarmaMax;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_HabilitarAlarmaMin := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_HabilitarAlarmaMin;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_TipoAcceso := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_TipoAcceso;
                                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA.Config_HisteresisTipo := "DB2801_EA_MUX".Mux.Scada[#for_mux].EA.Config_HisteresisTipo;
                                    
                                END_IF;
                                
                            END_REGION TRASPASO_DATOS
                            
                        END_REGION DATOS_ESCRITURA
                        
                    ELSE
                        
                        //  ===========================================================================================================
                        //  En caso de que el indice sea 0, movemos el valor de la EA[0] que no se usa para escribir el index.
                        "DB2801_EA_MUX".Mux.Scada[#for_mux].EA := "DB2001_EA".EA[0];
                        "DB2801_EA_MUX".Mux.Scada[#for_mux].oldEA := "DB2001_EA".EA[0];
                        
                        //  Actualizacion de estado anterior
                        "DB2801_EA_MUX".Mux.Scada[#for_mux].oldIndex := 0;
                        
                    END_IF;
                    
                ELSE
                    
                    //  Multiplexado no habilitado
                    "DB2801_EA_MUX".Mux.Scada[#for_mux].Index :=
                    "DB2801_EA_MUX".Mux.Scada[#for_mux].oldIndex := 0;
                    
                END_IF;
                
            END_FOR;
            
        END_REGION MULTIPLEXADO
        
    END_NETWORK
END_FUNCTION
