// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - // Запуск списка регламентных процедур на Sql-сервере static bool StartSqlRoutine(string CmdText) { CConnection Connection2; bool Result = true; if (CmdText == null) { return(false); } if (CmdText.Trim() == "") { return(false); } CArray CommandList = new CArray(); CArray NamesList = new CArray(); CConsole.ShowBox("", "Выполнение команды на сервере", ""); Connection = new CConnection(ConnectionString); RecordSet = new CRecordSet(Connection); if (RecordSet.Open(CmdText)) { while (RecordSet.Read()) { NamesList.Add(RecordSet["Name"]); CommandList.Add(RecordSet["Command"]); } } else { Result = false; } CConsole.Clear(); RecordSet.Close(); string Cmd = CAbc.EMPTY , Msg = CAbc.EMPTY , Results = CAbc.EMPTY; CCommand Command = new CCommand(Connection); for (int I = 0; I < NamesList.Count; I++) { CCommon.Print(NamesList[I] + " - выполняется."); CConsole.ShowBox("", "Выполнение команды на сервере", ""); Cmd = DateSubstitution((string)CommandList[I]); CmdText = " exec dbo.Mega_Common_WriteToLoginfo " + " @TaskCode='Mega_Day_Routine-" + Mode.ToString().Trim() + "'" + ",@Info='start : " + Cmd + "'"; Command.Execute(CmdText); Connection2 = new CConnection(ConnectionString); RecordSet = new CRecordSet(Connection2); RecordSet.Timeout = 599; if (RecordSet.Open(Cmd)) { Msg = (string)NamesList[I]; int Count = 0; if (RecordSet.Read()) { do { Count++; }while (RecordSet.Read()); } Msg = NamesList[I] + " - OK." + ((Count > 0) ? " ( " + Count.ToString() + " row(s) affected )" : ""); } else { Result = false; Msg = NamesList[I] + " - Ошибка !"; } RecordSet.Close(); Connection2.Close(); CmdText = " exec dbo.Mega_Common_WriteToLoginfo " + " @TaskCode='Mega_Day_Routine-" + Mode.ToString().Trim() + "'" + ",@Info='stop : " + Cmd + "'"; Command.Execute(CmdText); CmdText = " exec dbo.Mega_Common_WriteToLoginfo " + " @TaskCode='Mega_Day_Routine-" + Mode.ToString().Trim() + "'" + ",@Info='" + Msg.Replace("'", "`") + "'"; Command.Execute(CmdText); Err.Print(CAbc.TAB + CAbc.TAB + Msg + CAbc.CRLF); CConsole.Clear(); Results += Msg + CAbc.CRLF; CCommon.Write(Results); } Connection.Close(); CCommon.Print(CAbc.EMPTY, CAbc.EMPTY, "Готово. Для продолжения нажмите Enter."); CConsole.ClearKeyboard(); CConsole.Flash(); CConsole.ReadChar(); return(Result); }
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - public static void Main() { const bool DEBUG = false; CParam Param = new CParam(); int Choice = 0; bool Result = false; byte SavedColor = 7; string OutputDir = CAbc.EMPTY; string ScroogeDir = CAbc.EMPTY; string ServerName = CAbc.EMPTY; string DataBase = CAbc.EMPTY; string LogFileName = CAbc.EMPTY; string UnsolverBillsCmdText = CAbc.EMPTY; int UnsolvedBillsExists = 0; string[] Titles = { "ОТКРЫТИЕ ДНЯ", "ЗАКРЫТИЕ ДНЯ" }; string[] LogFileNames = { "dayopen.log", "dayclose.log" }; string NOW_STR = CCommon.StrD(CCommon.Today(), 10, 10).Substring(6) + CCommon.StrD(CCommon.Today(), 10, 10).Substring(2, 4) + CCommon.StrD(CCommon.Today(), 10, 10).Substring(0, 2); Err.LogToConsole(); CConsole.Clear(); CCommon.Print(" Оболочка открытия и закрытия дня в `Скрудже`. Версия 3.13 от 02.10.2018г.", ""); if (DEBUG) { Mode = 1; } else if (CCommon.IsEmpty(Param["Mode"])) { CCommon.Print("Не указан режим работы программы !"); } else { switch (Param["Mode"].ToUpper()) { case "OPEN": { Mode = 1; break; } case "CLOSE": { Mode = 2; break; } default: { CCommon.Print("Неверно указан режим работы программы !"); break; } } } if ((Mode != 1) && (Mode != 2)) { return; } if ((Mode == 2) && (!CCommon.DirExists("Z:\\"))) { SavedColor = CConsole.BoxColor; CConsole.BoxColor = CConsole.RED * 16 + CConsole.WHITE; CConsole.ShowBox("", "Не подключен Z:\\", ""); CConsole.ClearKeyboard(); CConsole.ReadChar(); CConsole.BoxColor = SavedColor; CConsole.Clear(); CConsole.ShowCursor(); } // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - // Запрос пользователю на ввод даты дня, который открывается или закрывается while (DayDate == 0) { switch (Mode) { case 1: { CCommon.Write("Какую дату открываем ? ( " + NOW_STR.Replace("/", ".") + " ) "); break; } default: { CCommon.Write("Какую дату закрываем ? ( " + NOW_STR.Replace("/", ".") + " ) "); break; } } Answer = CCommon.Input().Trim(); if (Answer == "") { DayDate = CCommon.Today(); } else { DayDate = CCommon.GetDate(Answer); } } // - - - - - - - - - - - - - - - - - - - - - - - - - - - - Scrooge2Config = new CScrooge2Config(); if (!Scrooge2Config.IsValid) { CCommon.Print(Scrooge2Config.ErrInfo); return; } ScroogeDir = (string)Scrooge2Config["Root"]; OutputDir = (string)Scrooge2Config["Output"]; ServerName = (string)Scrooge2Config["Server"]; DataBase = (string)Scrooge2Config["DataBase"]; if (ScroogeDir == null) { CCommon.Print(" Не найдена переменная `Root` в настройках `Скрудж-2` "); return; } if (ServerName == null) { CCommon.Print(" Не найдена переменная `Server` в настройках `Скрудж-2` "); return; } if (DataBase == null) { CCommon.Print(" Не найдена переменная `Database` в настройках `Скрудж-2` "); return; } CCommon.Print(" Беру настройки `Скрудж-2` здесь : " + ScroogeDir); // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ConnectionString = "Server=" + ServerName + ";Database=" + DataBase + ";Integrated Security=TRUE;"; Connection = new CConnection(ConnectionString); if (Connection.IsOpen()) { CCommon.Print(" Сервер " + ServerName); CCommon.Print(" База " + DataBase + CAbc.CRLF); } else { CCommon.Print(CAbc.CRLF + " Ошибка подключения к серверу !"); return; } System.Console.Title = " " + Titles[Mode - 1] + " | " + ServerName + "." + DataBase; Command = new CCommand(Connection); int IsFullAccess = ( int )CCommon.IsNull(Command.GetScalar(" select dbo.Fn_IsFullAccess( DEFAULT ) "), (int)0); string InfNBU_OutPath = ( string )CCommon.IsNull(Command.GetScalar(" exec dbo.Mega_Day_Open;5 @Mode=2 ; "), (string)CAbc.EMPTY); if (Mode == 2) { // Записываю в историю логин пользователя, который закрывает день Command.Execute(" exec dbo.Mega_Day_Close;12 @DayDate = " + DayDate.ToString() + " , @UserCode = '" + UserCode + "' "); // Проверка : имеются ли непроведенные документы ? UnsolverBillsCmdText = " If Exists ( select 1 from dbo.Mega_SV_WaitingBills with (NoLock) where (DayDate=" + DayDate.ToString() + " ) and ((PermitFlag & 255 )!=255) and ((ProcessFlag & 3)!=3) ) select Convert(Integer,1) else select Convert(Integer,0) "; UnsolvedBillsExists = ( int )CCommon.IsNull(Command.GetScalar(UnsolverBillsCmdText), (int)0); } Command.Close(); Connection.Close(); if (IsFullAccess < 1) { CCommon.Print(CAbc.CRLF + " Для работы программы пользователю необходим полный доступ в Скрудже !"); return; } InfNBU_OutPath = InfNBU_OutPath.Trim(); if (InfNBU_OutPath.Length == 0) { Err.Print(CCommon.Now().ToString() + "Ошибка определения выходного каталога для ОДБ." + CAbc.CRLF + CAbc.CRLF); } if (UnsolvedBillsExists == 1) { SavedColor = CConsole.BoxColor; CConsole.BoxColor = CConsole.RED * 16 + CConsole.WHITE; CConsole.ShowBox("", "Имеются непpоведенные документы", "", " Пpоведите их или удалите !", ""); CConsole.ClearKeyboard(); CConsole.ReadChar(); CConsole.BoxColor = SavedColor; CConsole.Clear(); CConsole.ShowCursor(); } // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - if (OutputDir != null) { OutputDir = ScroogeDir + "\\" + OutputDir.Trim(); if (!CCommon.DirExists(OutputDir)) { CCommon.MkDir(OutputDir); } if (CCommon.DirExists(OutputDir)) { OutputDir += "\\" + CCommon.StrD(DayDate, 8, 8).Replace("/", "").Replace(".", ""); if (!CCommon.DirExists(OutputDir)) { CCommon.MkDir(OutputDir); } if (!CCommon.DirExists(OutputDir)) { OutputDir = ScroogeDir + "\\"; } } LogFileName = OutputDir + "\\" + LogFileNames[Mode - 1]; } else { LogFileName = ScroogeDir + "\\" + LogFileNames[Mode - 1]; } Err.LogTo(LogFileName); // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - // Основной цикл программы do { System.Console.Title = " " + Titles[Mode - 1] + " " + CCommon.StrD(DayDate, 8, 8) + " | " + ServerName + "." + DataBase; string[] FilesForMEDOC = CCommon.GetFileList(InfNBU_OutPath + "\\@*.*"); if (FilesForMEDOC != null) { if (FilesForMEDOC.Length > 0) { CConsole.GetBoxChoice( "" , "В каталоге " + InfNBU_OutPath , "Найдены файлы для налоговой @*.*" , "Не забудьте их отправить!" , "" ); } } if (!LoadHistory(Mode)) { Err.Print(CCommon.Now().ToString() + "Ошибка получения с сервера истории работы программы !"); } Choice = CConsole.GetMenuChoice(MenuNames); if (Choice > 0) { Err.Print(CCommon.Now().ToString() + "\t< " + MenuNames[Choice - 1] + " ( " + UserCode + " ) " + CAbc.CRLF); if (!SaveHistory(Mode, Choice)) { Err.Print("Ошибка сохранения на сервере истории работы программы !"); } switch (MenuKinds[Choice - 1].Trim().ToUpper()) { case "EXE.COPY": { Result = StartExeCopy( MacroSubstitution(MenuCommands[Choice - 1]) , MacroSubstitution( DateSubstitution( MenuParams[Choice - 1] ) ) ); break; } case "SQL.CMD": { Result = StartSqlCmd( DateSubstitution( MenuCommands[Choice - 1] ) ); break; } case "SQL.RS": { Result = StartSqlRS( DateSubstitution( MenuCommands[Choice - 1] ) ); break; } case "SQL.ROUTINE": { Result = StartSqlRoutine( DateSubstitution( MenuCommands[Choice - 1] ) ); break; } case "EXC": { Result = StartExc(ScroogeDir , MacroSubstitution( DateSubstitution( MenuCommands[Choice - 1] ) ) ); break; } case "URL.IE": { Result = StartUrl( DateSubstitution( MenuCommands[Choice - 1] ) ); break; } default: { break; } } Err.Print(CCommon.Now().ToString() + "\t " + MenuNames[Choice - 1] + " ( " + Result.ToString() + " ) > " + CAbc.CRLF); } } while (Choice != 0); }