{
    S7_Author := "ABH";
    S7_BlockComment := "MLC_RZ";
    S7_BlockNumber := "15005";
    S7_BlockTitle := "MLC_4Cg";
    S7_EditorMode := "SCL";
    S7_Family := "ZeusControl";
    S7_Optimized := "TRUE";
    S7_Version := "1.0"
}
FUNCTION "FC15005_ZC_DTL_TO_ZC_FECHA" : "UDT_ZC_FECHA"
    VAR_INPUT
        { S7_MLC := "MLC_3vx" }
        FechaDTL : DTL;
    END_VAR

    { S7_Language := "SCL" }
    NETWORK
        REGION DESCRIPCION
        (*
        ###### (C)Copyright ZeusControl 2023 - 2023
        
        ---
        ### Información del Sistema
        | Hardware Compatible | Entorno de Ingeniería |
        |---------------------|-----------------------|
        | PLC serie 1200/1500 | TIA Portal 18         |
        
        ---
        > **Restricciones:** Ninguna.
        
        ---
        ### Descripción Funcional
        
        Función para traspaso de datos en DTL a tipo de dato ZC_FECHA
        
        ---
        ### Dependencias Requeridas
        | Tipo | Elementos |
        |------|-----------|
        | FC   | - |
        | FB   | - |
        | DB   | - |
        | UDT  | - |
            
        ---
        ### Historial de Cambios
        | Versión  | Fecha      | Técnico | Cambios |
        |----------|------------|---------|---------|
        | 01.00.00 | 03.11.2022 | (ABH)   | Primera version. |
        *)
        END_REGION DESCRIPCION
        
        
        //  ==========================================================================================================
        REGION CALCULO
            
            #FC15005_ZC_DTL_TO_ZC_FECHA.Ano := #FechaDTL.YEAR;
            #FC15005_ZC_DTL_TO_ZC_FECHA.Mes := #FechaDTL.MONTH;
            #FC15005_ZC_DTL_TO_ZC_FECHA.Dia := #FechaDTL.DAY;
            #FC15005_ZC_DTL_TO_ZC_FECHA.Hora := #FechaDTL.HOUR;
            #FC15005_ZC_DTL_TO_ZC_FECHA.Minuto := #FechaDTL.MINUTE;
            #FC15005_ZC_DTL_TO_ZC_FECHA.Segundo := #FechaDTL.SECOND;
            #FC15005_ZC_DTL_TO_ZC_FECHA.NanoSegundo := #FechaDTL.NANOSECOND;
            #FC15005_ZC_DTL_TO_ZC_FECHA.DiaSemana := #FechaDTL.WEEKDAY;
            
        END_REGION CALCULO
        
        
    END_NETWORK
END_FUNCTION
