private void Form1_Load(object sender, EventArgs e)
        {
            setNow();
            lblDate.Visible = true;
            RegistryRead();
            WhatIsMyIP = ReadIPAddress();
            if (WhatIsMyIP.Length == 0)
            {
                this.Close();
                return;
            }
            //WhatIsMyPublicIP = ReadPublicIPAddress(1);
            // DB Connection
            ODBCStringConn[(int)zConnID.RS_DB] = RSLib_ODBC.StrConnect;
            RSGbl_Variable.CheckedDB           = true;
            if (!RSLib_ODBC.RunLOG("Msg-000", "Start Application -> " + RSGbl_Variable.APPName + " Ver:" + RSGbl_Variable.APPVersion))
            {
                if (RSLib_ODBC.LastODBCError.IndexOf("No se encuentra el nombre del origen de datos y no se especificó ningún controlador predeterminado") != -1)
                {
                    // There is No ODBC Connector, lets create it.
                    if (RSLib_Registry.SetODBCForMSSQL(
                            RSLib_String.MyStringProvider(RSLib_ODBC.StrConnect, "DSN=", ";"),
                            RSServer,
                            RSLib_String.MyStringProvider(RSLib_ODBC.StrConnect, "UID=", ";")))
                    {
                        // Chack again if it worked
                        if (!RSLib_ODBC.RunLOG("Msg-000", "Start Application -> " + RSGbl_Variable.APPName + " Ver:" + RSGbl_Variable.APPVersion))
                        {
                            if (RSLib_ODBC.LastODBCError.IndexOf("No existe el servidor SQL Server o se ha denegado el acceso al mismo.") != -1)
                            {
                                DBDisconnected();
                                // UPS NO CONNECTION
                                MessageBox.Show("La Conexión con el Servidor SIMBANK no se pudo establecer!\n\nAsegure Conexión VPN y vuelva a intentar esta aplicación\n\n\nNo se puede continuar.",
                                                "Error de Conexión VPN", MessageBoxButtons.OK, MessageBoxIcon.Error);
                                this.Close();
                                return;
                            }

                            DBDisconnected();
                            //ForceODBCConfig();
                            return;
                        }
                        // Continue... it is connected
                        MessageBox.Show("Conector ODBC creado con exito y conectado a la base de datos.\n\nLa aplicación se continuara ejecutando normalmente.", "Información");
                    }
                    else
                    {
                        DBDisconnected();
                        //ForceODBCConfig();
                        return;
                    }
                }
                if (RSLib_ODBC.LastODBCError.IndexOf("No existe el servidor SQL Server o se ha denegado el acceso al mismo.") != -1)
                {
                    DBDisconnected();
                    // UPS NO CONNECTION
                    MessageBox.Show("Conexión con el Servidor SIMBANK no se pudo establecer!\n\nAsegure Conexión VPN y vuelva a intentar esta aplicación\n\n\nNo se puede continuar.",
                                    "Error de Conexión VPN", MessageBoxButtons.OK, MessageBoxIcon.Error);
                    this.Close();
                    return;
                }
            }
            this.Text = RSGbl_Variable.APPName + " Ver: " + RSGbl_Variable.APPVersion;
            if (!ReadGlobalParameters())
            {
                RSLib_CriticalError.CriticalErrorHandler(
                    "RSFaMFReport_Load", "Err-xxx",
                    "Fatal error, failure to read RSFaMFGlobalParameters",
                    "Thereie is an error reading Global Parameters",
                    "Error", "");
                ShutDown("No Global Parameters");
                return;
            }

            RSGbl_Variable.RootDirectory = RSGbl_Variable.DataPath + @"\Temp";

            ShowLastUpdateValue();

            timer1.Start();
        }
        private void UpdateFromDOF()
        {
            string      xProvider = "http://dof.gob.mx/indicadores.xml";
            WebRequest  SendReq   = HttpWebRequest.Create(xProvider);
            WebResponse GetRes    = SendReq.GetResponse();

            System.IO.Stream StreamRes  = GetRes.GetResponseStream();
            StreamReader     ResStrmRdr = new StreamReader(StreamRes, Encoding.UTF8);

            string xDOFOriginal = ResStrmRdr.ReadToEnd();

            StreamRes.Close();
            GetRes.Close();

            string xDOF = RSLib_String.MyStringProvider(xDOFOriginal, "<title>DOLAR</title>", "</item>");

            xDOF = xDOF.Replace("\n", "");
            xDOF = xDOF.Replace("\t", "");
            xDOF = xDOF.Replace(" ", "");
            string   xValue      = RSLib_String.MyStringProvider(xDOF, "<description>", "</description>");
            string   xDate       = RSLib_String.MyStringProvider(xDOF, "<valueDate>", "</valueDate>");
            double   fValue      = RSLib_String.AToF(xValue);
            DateTime xLocalClock = DateTime.Now;
            string   xSQL        = "";

            if (!DateTime.TryParse(xDate, out xLocalClock) || fValue == 0)
            {
                xLocalClock = DateTime.Now;
                xSQL        = "select distinct CONVERT(date,FECHA_FESTIVO) Festivo \n" +
                              "from FORTALEZA_PRD.dbo.CF_DIAS_FESTIVOS \n" +
                              "where FECHA_FESTIVO='" + xLocalClock.ToString(WhatIsDateFormat) + "' \n" +
                              "; \n";
                if (!RSLib_ODBC.ReadSQL(xSQL, false))
                {
                    if (xLocalClock.DayOfWeek == DayOfWeek.Saturday || xLocalClock.DayOfWeek == DayOfWeek.Sunday)
                    {
                        // IT is Saturday or Sunday - Nothing 2 save, then use the latest
                        fValue      = dLastUSDValue;
                        xLocalClock = DateTime.Now;
                    }
                    else
                    {
                        // No Es feriado: Ignore
                        RSLib_CriticalError.CriticalErrorHandler("Form UpdateFromDOF on RS DOF ExchangeRate",
                                                                 "Err-xxx", "Failure Getting Update Rate from DOF",
                                                                 "Falla leyendo el WebService", "RS DOF ExhangeRate", xDOFOriginal);
                        return;
                    }
                }
                else
                {
                    // IT is feriado - Nothing 2 save, then use the latest
                    fValue      = dLastUSDValue;
                    xLocalClock = DateTime.Now;
                }
            }
            xSQL = "insert into FORTALEZA_PRD.dbo.CF_VALOR_DOLAR (COD_EMPRESA,FECHA,VALOR) VALUES('00030','" + xLocalClock.ToString(WhatIsDateFormat) +
                   "','" + fValue.ToString() + "'); \n";
            if (!RSLib_ODBC.RunSQL(xSQL))
            {
                RSLib_CriticalError.CriticalErrorHandler("Form UpdateFromDOF on RS DOF ExchangeRate",
                                                         "Err-xxx", "Failure Updating Table",
                                                         "Falla actualizando tabla", "RS DOF ExhangeRate", xSQL);
            }
            else
            {
                // Show
                ShowLastUpdateValue();
                // Send eMail Notificaciones
                string xMessage =
                    "Fecha: \t" + xLocalClock.ToString(WhatIsDateFormat) + "\n" +
                    "Valor Tipo de Cambio: \t" + fValue.ToString("#,##0.0000") + "\n";

                RSLib_ODBC.RunLOG("PLD-001", "Exchange Rate Updated -> " + xMessage.Replace("\n", " ").Replace("\t", "-"));

                string xBody = RSFormaTable(xMessage, "Tipo de Cambio - Sistema PLD", true, true, false, true, true);

                if (!RSLib_SendMail.SendMailMessage(RSLib_SendMail.SMTP_From, "Oficial.Cumplimiento" + WhatIsDomain, "", "Help.Desk" + WhatIsDomain, "[Tipo de Cambio] " + xLocalClock.ToString(WhatIsDateFormat), xBody, true))
                {
                    RSLib_CriticalError.CriticalErrorHandler("Form UpdateFromDOF on RS DOF ExchangeRate",
                                                             "Err-xxx", "Failure sending email Notificacion",
                                                             "Falla enviando correo de notificacion", "RS DOF ExhangeRate", "");
                }
            }
        }