Yarsort shop — разработка ПО для 1С:Предприятие

Как освободить память SQL Server?

20 августа 2021 yarunya Нет комментариев

Начитался я в свое время статей в англоязычном сегменте Интернета и пришел к выводу, что реконфигурация сервера под меньший объём памяти — это единственный способ хоть как-то уменьшить аппетиты сервера SQL после тяжелого рабочего дня.

Выполняется запрос каждые сутки ночью без разъединения сеансов 1С:Предприятия или перезагрузки экземпляра SQL сервера. Я пока что не видел с этим каких-то проблем во время работы пользователей. Но тестирование на «живых людях» еще идет и пока что результат позитивный.

Можно использовать этот метод, но пока что когда они не работают. Освобождение памяти происходит один раз ночью по регламенту методом выполнения T-SQL инструкции, что как бы само по себе правильно. 🙂

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

-- yarsort.com.ua

-- Очистка памяти SQL сервера

-- Включение отображения дополнительных параметров системной хранимой процедуры sp_configure

sp_configure 'show advanced options', 1;

GO

RECONFIGURE; -- Подтверджение изменения конфигурации

GO

-- Временно уменьшаем размер максимальной памяти SQL сервера

-- Рекомендуется ставить его в 2 GB. Так избежим ошибок рестарта, если они понадобятся.

-- Максимальная память сервера: 2147483647MB Минимальная память сервера: 128MB (256MB)

sp_configure 'max server memory', 2048; -- 2GB

GO

RECONFIGURE; -- Подтверджение изменения конфигурации

GO

-- Ждем пару секунд или минут. Ставим вручную опытным путем.

WAITFOR DELAY '00:00:05';

GO

-- Возвращаем максимальный размер памяти SQL сервера.

-- Ставим размер не на полный размер памяти сервера, а за минусом 3GB от общего объема.

sp_configure 'max server memory', 8192; -- 8GB

GO

RECONFIGURE; -- Подтверджение изменения конфигурации

GO

Категории: 1С Предприятие 8.2

Программный переворот картинки в 1С

17 августа 2021 yarunya Нет комментариев

Я помню в 2014 году была ситуация. когда надо было делать переворот картинки на форме. Программа выгружала картинку иногда не в такой пропорции как надо было и в итоге запарился делать вручную этот разворот. В итоге родился мелкий скрипт для утилиты nconvert.exe

В архиве сама утилита, но можно скачать новую из официального источника и сам файл запуска на языке VBS.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

'Rotate image after printing

'Author: Stryzhakov Yaroslav

'26.05.14

Option Explicit

Dim objArgs, WshShell

Set objArgs = WScript.Arguments

If objArgs.Count = 0 Then

MsgBox "This script needs a parameter!"

WScript.Quit

End If

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Exec "C:\nconvert.exe -overwrite -rotate 90 -c 7 " & objArgs(0)

WScript.Quit

Утилита: Скачать

Категории: 1С Предприятие 8.2

Сжатие и очистка логов всех файлов баз данных

17 августа 2021 yarunya Нет комментариев

Генерация кода для сжатия файлов баз данных. Код генерирует в сообщениях текст для выполнения запроса.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

USE MASTER

print '*****************************************'

print '************ Czyścik LDF ****************'

print '*****************************************'

declare

@isql varchar(2000),

@dbname varchar(64),

@logfile varchar(128),

@recovery_model varchar(64)

declare c1 cursor for

SELECT d.name, mf.name as logfile, d.recovery_model_desc --, physical_name AS current_file_location, size

FROM sys.master_files mf

inner join sys.databases d

on mf.database_id = d.database_id

--where recovery_model_desc <> 'SIMPLE'

and d.name not in ('master','model','msdb','tempdb')

and mf.type_desc = 'LOG'

and d.state_desc = 'online'

open c1

fetch next from c1 into @dbname, @logfile, @recovery_model

While @@fetch_status <> -1

begin

print '----- OPERATIONS FOR: ' + @dbname + ' ------'

print 'CURRENT MODEL IS: ' + @recovery_model

select @isql = 'ALTER DATABASE ' + @dbname + ' SET RECOVERY SIMPLE'

print @isql

exec(@isql)

select @isql='USE ' + @dbname + ' checkpoint'

print @isql

exec(@isql)

select @isql='USE ' + @dbname + ' DBCC SHRINKFILE (' + @logfile + ', 1)'

print @isql

exec(@isql)

select @isql = 'ALTER DATABASE ' + @dbname + ' SET RECOVERY ' + @recovery_model

print @isql

exec(@isql)

fetch next from c1 into @dbname, @logfile, @recovery_model

end

close c1

deallocate c1

Категории: 1С Предприятие 8.2

Перенос файлов базы данных tempdb на сервере MSSQL

6 августа 2021 yarunya Нет комментариев

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

USE master

GO

ALTER DATABASE tempdb

MODIFY FILE (NAME = tempdev, FILENAME = 'F:\SQL_tempdb\tempdb.mdf')

GO

ALTER DATABASE tempdb

MODIFY FILE (NAME = templog, FILENAME = 'F:\SQL_tempdb\templog.ldf')

GO

ALTER DATABASE tempdb

MODIFY FILE (NAME = temp2, FILENAME = 'F:\SQL_tempdb\tempdb_mssql_2.ndf')

GO

ALTER DATABASE tempdb

MODIFY FILE (NAME = temp3, FILENAME = 'F:\SQL_tempdb\tempdb_mssql_3.ndf')

GO

ALTER DATABASE tempdb

MODIFY FILE (NAME = temp4, FILENAME = 'F:\SQL_tempdb\tempdb_mssql_4.ndf')

GO

ALTER DATABASE tempdb

MODIFY FILE (NAME = temp5, FILENAME = 'F:\SQL_tempdb\tempdb_mssql_5.ndf')

GO

ALTER DATABASE tempdb

MODIFY FILE (NAME = temp6, FILENAME = 'F:\SQL_tempdb\tempdb_mssql_6.ndf')

GO

Категории: 1С Предприятие 8.2

Удаление таблиц NG после реструктуризации

23 июля 2021 yarunya Нет комментариев

Этот код в виде запроса не удаляет данные, а только лишь генерирует текстовый вид запроса, который и надо выполнить для удаления данных. то есть этим кодом создаем текст запроса для удаления. По факту он безопасен, но в чужих руках может нанести вред. Следите за безопасностью.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

use base_ut

DECLARE @sql VARCHAR(MAX) ,

@tablename VARCHAR(MAX)

DECLARE droptable CURSOR FOR

SELECT name

FROM

sys.objects

WHERE

name LIKE '%NG'

AND type in (N'U')

OPEN droptable

FETCH NEXT FROM droptable

INTO @tablename

WHILE @@FETCH_STATUS = 0

BEGIN

SET @sql = 'drop table [' + @tablename + ']'

PRINT @sql

EXEC (@sql)

FETCH NEXT

FROM droptable

INTO @tablename

END

CLOSE droptable

DEALLOCATE droptable

Категории: 1С Предприятие 8.2

РМ по работе с задолженностью (платежный календарь)

11 мая 2021 yarunya Нет комментариев

Платежный календарь

Эта обработка позволит быстро просмотреть информацию о долгах: кто, когда и сколько Вам должен заплатить по сделкам, ну и наоборот — кому Вы должны.

Открыли РМ (рабочее место)
Указали период или отбор по контрагенту.
Указали вид договора. Это надо для анализа долгов перед поставщиками или клиентов перед нами. Это надо что бы сократить список не нужных заказов.
Указали интервал. Это надо для того, что бы программа построила график оплат. В принципе можно указать самому как нужно по учету. Например, укажите интервалы долгов: 7, 14, 21, 30, 60, 100 дней.
Нажали «Заполнить».

В итоге программа выведет Вам список заказов по которым есть наши (если мы должны) и чужие долги (если нам должны по сделке). График построиться таким образом, что будет видно просроченные заказы. текущий просроченный долг, и будущие долги, которые еще не надо платить по условиям отсрочки.

Категории: 1С Предприятие 8.2

Качественный хостинг для проектов только Ukraine

12 февраля 2021 yarunya Нет комментариев

В общем, за столько лет работы на этом хостинге я видал многое: покупки доменов, продажа доменов, покупки сайтов, обновление, переносы и переделегирование своих и чужих сайтов. За все это время обратился буквально пару раз в поддержку: это просто офигенный показатель работы самого хостинга. Я всегда был уверен, что смогу сделать ту или иную вещь на хостинге. Ведь это полностью автоматический сервис, который дает сложные вещи простыми инструкциями, кнопками и кучей литературы в виде FAQ.

Ukraine.com.ua

Если Вы планируете сделать свою работу качественной и без проблемной — выбирайте этот хостинг. Еще момент: некоторые скажут, что мол дороговато и все такое. Но тут есть хитрость — эти цены фиксируются для Вас как для покупателя и чем больше Вы с сервисом тем дешевле они становятся. И плюс не повышаются, что тоже даёт прирост в экономии на проекте.

Я работаю с хостингом уже более 7 лет и ни разу не был разочарован. Спасибо хостингу Ukraine.com.ua, за это! 🙂

Категории: 1С Предприятие 8.2

Генерирование картинки штрихкода

12 января 2021 yarunya Нет комментариев

Задача сама по себе простая, но иногда поиск информации про эту вещь заставляет тратить кучу времени. Я сам по себе не любитель долго искать, поэтому запишу этот кусок кода здесь для будущих разработчиков.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

Попытка

WinHttp = Новый COMОбъект("WinHttp.WinHttpRequest.5.1"); //WinHttpRequest

Stream = Новый COMОбъект("ADODB.Stream"); //Stream (ADO)

//Адрес = "http://www.calc.ru/generator-shtrikh-kodov/download.php?code="+КодОбъекта+"&type=EAN13";

//Адрес = "http://barcode.tec-it.com/barcode.ashx?translate-esc=off&data="+КодОбъекта+"&code=EAN13&unit=Fit&dpi=96&imagetype=Gif&rotation=0&color=000000&bgcolor=FFFFFF&qunit=Mm&quiet=0";

//Адрес = "https://www.barcodesinc.com/generator_files/image.php?code="+КодОбъекта+"&style=196&type=C39&width=200&height=60&xres=2&font=3";

Адрес = "http://generator.barcodetools.com/barcode.png?gen=0&data="+КодОбъекта+"&bcolor=FFFFFF&fcolor=000000&tcolor=000000&fh=15&bred=0&w2n=2.5&xdim=2&w=0&h=120&debug=1&btype=11&angle=0&quiet=1&balign=2&talign=6&guarg=1&text=1&tdown=1&stst=1&schk=0&cchk=0&ntxt=1&c128=0";

FileName = КаталогВременныхФайлов()+КодОбъекта+".png";

WinHttp.Open("GET", Адрес, Ложь);

WinHttp.Send();

Если WinHttp.Status = 200 Тогда

Stream = Новый COMОбъект("ADODB.Stream");

Stream.Type = 1;

Stream.Mode = 3;

Stream.Open();

Stream.Write(WinHttp.ResponseBody);

Stream.SaveToFile(FileName, 2);

Stream.Close();

Stream = Неопределено;

Возврат FileName;

Иначе

Сообщить("HTTP " + WinHttp.Status + " " + WinHttp.StatusText);

Возврат "";

КонецЕсли;

Исключение

Сообщить("Картинка штрихкода накладной не сгенерирована! Ошибка подключения к серверу! Проверьте интернет-соединение!

|"+ОписаниеОшибки());

Возврат "";

КонецПопытки;

Категории: 1С Предприятие 8.2

Как восстановить базу после динамического обновления

15 сентября 2020 yarunya Нет комментариев

В общем, иногда при динамическом обновлении когда пользователи работают на всю катушку. а программист обновляет базу данных, случается ситуация сбоя обновления и база в итоге падает в ошибку. Перезапуск обновления отображает критическую ошибку обновления и зайти в программу уже не представляется возможным. Этот печальный вариант событий ведет к тому, что надо делать полное обновление с отключением пользователей от базы данных.

Сделать изменения для лечения ошибки в базе можно запросом в SQL. В теории даже тогда, когда пользователи работают в базе…

1

2

3

delete from baza.dbo.config where FileName = 'commit'

delete from baza.dbo.config where FileName = 'dynamicCommit'

delete from baza.dbo.config where FileName = 'dbStruFinal'

В запросе слово baza — это имя вашей базы данных в кластере SQL.

Категории: 1С Предприятие 8.2

Как в 1С объединять колонки или столбцы

13 апреля 2020 yarunya Нет комментариев

Изначально после формирования таблицы можно просто прочитать значения и где надо выполнить в ячейках объединение.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

ВысотаТаблицы = 1;

ТекШиринаТаблицы = 1;

Пока ВысотаТаблицы <= Таб.ВысотаТаблицы Цикл

ШиринаТаблицы = 1;

НомерКолонкиНачалаОбласти = 1;

ПредыдущееЗначение = "";

Пока ШиринаТаблицы <= Таб.ШиринаТаблицы Цикл

ОбластьМакета = Таб.Область(ВысотаТаблицы,ШиринаТаблицы,ВысотаТаблицы,ШиринаТаблицы);

ТекущееЗначение = ОбластьМакета.Текст;

Если ПредыдущееЗначение = ТекущееЗначение Тогда

ОбластьМакета = Таб.Область(ВысотаТаблицы,НомерКолонкиНачалаОбласти,ВысотаТаблицы,ШиринаТаблицы);

ОбластьМакета.Объединить();

Иначе

ПредыдущееЗначение = ТекущееЗначение;

НомерКолонкиНачалаОбласти = ШиринаТаблицы;

ШиринаТаблицы = ШиринаТаблицы + 1;

КонецЕсли;

КонецЦикла;

ВысотаТаблицы = ВысотаТаблицы + 1;

КонецЦикла;

Категории: 1С Предприятие 8.2

Как освободить память SQL Server?

Программный переворот картинки в 1С

Сжатие и очистка логов всех файлов баз данных

Перенос файлов базы данных tempdb на сервере MSSQL

Удаление таблиц NG после реструктуризации

РМ по работе с задолженностью (платежный календарь)

Качественный хостинг для проектов только Ukraine

Генерирование картинки штрихкода

Как восстановить базу после динамического обновления

Как в 1С объединять колонки или столбцы

Оплата обробок 1С через Monobank

Покупка обробок 1С із Інфостарту

Свежие записи

Архивы

Рубрики

Мета

Качественный хостинг