Skip to content

Commit

Permalink
вывожу методы, в которых есть ошибки
Browse files Browse the repository at this point in the history 
- неверные параметры методов
- прочие ошибки
- повышение UI
  - свертывание и т.п.
  - убран вопрос о запуске стартера
  - убран бесполезный анализ файлов сразу после старта

#128
  • Loading branch information
@artbear
artbear committed Feb 2, 2021
1 parent 7c0be1f commit 2114697
Show file tree
Hide file tree
Showing 4 changed files with 211 additions and 34 deletions.
76 changes: 74 additions & 2 deletions tools/1с/src/СравнениеДамповСнегопата/СравнениеДамповСнегопата.xml
View file
Original file line number Diff line number Diff line change
Expand Up @@ -627,7 +627,7 @@
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>100</v8:Length>
<v8:Length>200</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
Expand Down Expand Up @@ -667,7 +667,7 @@
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>100</v8:Length>
<v8:Length>200</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
Expand Down Expand Up @@ -969,6 +969,78 @@
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="7837784a-3d74-49c9-ae8f-13d855924781">
<Properties>
<Name>ОшибкаКоличестваПараметров</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Ошибка количества параметров</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:boolean</v8:Type>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="7d17133b-a059-4d6d-8b3d-a55a1500d3d4">
<Properties>
<Name>ЕстьДругиеОшибки</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Есть другие ошибки</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:boolean</v8:Type>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
</ChildObjects>
</TabularSection>
<Form>Форма</Form>
Expand Down
100 changes: 86 additions & 14 deletions tools/1с/src/СравнениеДамповСнегопата/СравнениеДамповСнегопата/Forms/Форма/Ext/Form.xml
View file
Original file line number Diff line number Diff line change
Expand Up @@ -332,20 +332,39 @@
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа3РасширеннаяПодсказка" id="106"/>
<ChildItems>
<InputField name="ФайлыЗаголовок1" id="107">
<DataPath>Items.Файлы.CurrentData.ЗаголовокРабочегоДампа</DataPath>
<ReadOnly>true</ReadOnly>
<AutoMaxWidth>false</AutoMaxWidth>
<ContextMenu name="ФайлыЗаголовок1КонтекстноеМеню" id="108"/>
<ExtendedTooltip name="ФайлыЗаголовок1РасширеннаяПодсказка" id="109"/>
</InputField>
<InputField name="ФайлыЗаголовок2" id="110">
<DataPath>Items.Файлы.CurrentData.ЗаголовокАнализируемогоДампа</DataPath>
<ReadOnly>true</ReadOnly>
<AutoMaxWidth>false</AutoMaxWidth>
<ContextMenu name="ФайлыЗаголовок2КонтекстноеМеню" id="111"/>
<ExtendedTooltip name="ФайлыЗаголовок2РасширеннаяПодсказка" id="112"/>
</InputField>
<UsualGroup name="ГруппаЗаголовокРабочего" id="164">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Заголовки дампов</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа заголовок рабочего</v8:content>
</v8:item>
</ToolTip>
<Behavior>Collapsible</Behavior>
<Collapsed>true</Collapsed>
<ExtendedTooltip name="ГруппаЗаголовокРабочегоРасширеннаяПодсказка" id="165"/>
<ChildItems>
<InputField name="ФайлыЗаголовок1" id="107">
<DataPath>Items.Файлы.CurrentData.ЗаголовокРабочегоДампа</DataPath>
<ReadOnly>true</ReadOnly>
<AutoMaxWidth>false</AutoMaxWidth>
<ContextMenu name="ФайлыЗаголовок1КонтекстноеМеню" id="108"/>
<ExtendedTooltip name="ФайлыЗаголовок1РасширеннаяПодсказка" id="109"/>
</InputField>
<InputField name="ФайлыЗаголовок2" id="110">
<DataPath>Items.Файлы.CurrentData.ЗаголовокАнализируемогоДампа</DataPath>
<ReadOnly>true</ReadOnly>
<AutoMaxWidth>false</AutoMaxWidth>
<ContextMenu name="ФайлыЗаголовок2КонтекстноеМеню" id="111"/>
<ExtendedTooltip name="ФайлыЗаголовок2РасширеннаяПодсказка" id="112"/>
</InputField>
</ChildItems>
</UsualGroup>
</ChildItems>
</UsualGroup>
<UsualGroup name="ГруппаФункции" id="39">
Expand Down Expand Up @@ -416,6 +435,59 @@
<ContextMenu name="ФункцииФайлКонтекстноеМеню" id="58"/>
<ExtendedTooltip name="ФункцииФайлРасширеннаяПодсказка" id="59"/>
</InputField>
<ColumnGroup name="ФункцииГруппаОшибки" id="156">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Ошибки</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Функции группа ошибки</v8:content>
</v8:item>
</ToolTip>
<Group>Horizontal</Group>
<ShowInHeader>true</ShowInHeader>
<ExtendedTooltip name="ФункцииГруппаОшибкиРасширеннаяПодсказка" id="157"/>
<ChildItems>
<CheckBoxField name="ФункцииОшибкаКоличестваПараметров" id="158">
<DataPath>Объект.Функции.ОшибкаКоличестваПараметров</DataPath>
<ReadOnly>true</ReadOnly>
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Параметры</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Неверные параметры</v8:content>
</v8:item>
</ToolTip>
<EditMode>EnterOnInput</EditMode>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ФункцииОшибкаКоличестваПараметровКонтекстноеМеню" id="159"/>
<ExtendedTooltip name="ФункцииОшибкаКоличестваПараметровРасширеннаяПодсказка" id="160"/>
</CheckBoxField>
<CheckBoxField name="ФункцииЕстьДругиеОшибки" id="161">
<DataPath>Объект.Функции.ЕстьДругиеОшибки</DataPath>
<ReadOnly>true</ReadOnly>
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Прочие</v8:content>
</v8:item>
</Title>
<EditMode>EnterOnInput</EditMode>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ФункцииЕстьДругиеОшибкиКонтекстноеМеню" id="162"/>
<ExtendedTooltip name="ФункцииЕстьДругиеОшибкиРасширеннаяПодсказка" id="163"/>
</CheckBoxField>
</ChildItems>
</ColumnGroup>
<ColumnGroup name="ФункцииГруппаКоличество" id="141">
<EnableContentChange>true</EnableContentChange>
<Title>
Expand Down
69 changes: 51 additions & 18 deletions .../1с/src/СравнениеДамповСнегопата/СравнениеДамповСнегопата/Forms/Форма/Ext/Form/Module.bsl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -152,21 +152,21 @@

СтрокаЗапуска = СтрокаЗапуска + " -sntrace";

ПоказатьВопрос(Новый ОписаниеОповещения("ПослеСогласияЗапускТрейса"
, ЭтаФорма
, СтрокаЗапуска)
, "Хотите запустить стартер с трейсом ?"
, РежимДиалогаВопрос.ДаНет
);

КонецПроцедуры
// ПоказатьВопрос(Новый ОписаниеОповещения("ПослеСогласияЗапускТрейса"
// , ЭтаФорма
// , СтрокаЗапуска)
// , "Хотите запустить стартер с трейсом ?"
// , РежимДиалогаВопрос.ДаНет
// );
//
//КонецПроцедуры

&НаКлиенте
Процедура ПослеСогласияЗапускТрейса(РезультатВопроса, СтрокаЗапуска) Экспорт

Если Не РезультатВопроса = КодВозвратаДиалога.Да Тогда
Возврат;
КонецЕсли;
//&НаКлиенте
//Процедура ПослеСогласияЗапускТрейса(РезультатВопроса, СтрокаЗапуска) Экспорт
//
// Если Не РезультатВопроса = КодВозвратаДиалога.Да Тогда
// Возврат;
// КонецЕсли;

НачатьЗапускПриложения(Новый ОписаниеОповещения("ПослеЗавершенияТрейса"
, ЭтаФорма)
Expand All @@ -180,7 +180,7 @@
&НаКлиенте
Процедура ПослеЗавершенияТрейса(КодВозврата, ДополнительныеПараметры) Экспорт

СравнитьДампы(Неопределено);
//СравнитьДампы(Неопределено);

КонецПроцедуры

Expand Down Expand Up @@ -293,6 +293,8 @@
НоваяСтрока.ТекстФункцииРаб = СтрокаФункции.Текст;
НоваяСтрока.ЕстьОписание = Не ПустаяСтрока(СтрокаФункции.Описание);
НоваяСтрока.КоличествоСтрокРаб = СтрокаФункции.КоличествоСтрок;
НоваяСтрока.ОшибкаКоличестваПараметров = СтрокаФункции.ОшибкаКоличестваПараметров;
НоваяСтрока.ЕстьДругиеОшибки = СтрокаФункции.ЕстьДругиеОшибки;
КонецЦикла;

Для Каждого СтрокаФункции Из ДанныеДампаКАнализу.Функции Цикл
Expand All @@ -310,6 +312,8 @@
НоваяСтрока.ТекстФункцииАнализ = СтрокаФункции.Текст;
НоваяСтрока.ЕстьОписание = НоваяСтрока.ЕстьОписание ИЛИ Не ПустаяСтрока(СтрокаФункции.Описание);
НоваяСтрока.КоличествоСтрокАнализ = СтрокаФункции.КоличествоСтрок;
НоваяСтрока.ОшибкаКоличестваПараметров = СтрокаФункции.ОшибкаКоличестваПараметров;
НоваяСтрока.ЕстьДругиеОшибки = СтрокаФункции.ЕстьДругиеОшибки;
КонецЦикла;

КонецЦикла;
Expand Down Expand Up @@ -355,6 +359,8 @@
ОписаниеФункции = "";
ТекстФункции = "";
КоличествоСтрок = 0;
ОшибкаКоличестваПараметров = Ложь;
ЕстьДругиеОшибки = Ложь;

Для кк = нн+1 По СтрокиФайла.ВГраница() Цикл

Expand All @@ -373,34 +379,56 @@
Продолжить;
КонецЕсли;

//bad instruction
//!!! BAD PARAMS COUNT !!!

Если СтрНачинаетсяС(ТекущаяСтрокаФайла, "!!! BAD PARAMS COUNT !!!")
Или Найти(ТекущаяСтрокаФайла, "bad instruction") > 0 Тогда

ТекстФункции = ?(ПустаяСтрока(ТекстФункции), ТекущаяСтрокаФайла, ТекущаяСтрокаФайла + Символы.ПС + ТекстФункции);
КоличествоСтрок = КоличествоСтрок + 1;

ОшибкаКоличестваПараметров = СтрНачинаетсяС(ТекущаяСтрокаФайла, "!!! BAD PARAMS COUNT !!!");
ЕстьДругиеОшибки = Найти(ТекущаяСтрокаФайла, "bad instruction") > 0;

//НЕХ убрать
Если СтрНачинаетсяС(ТекущаяСтрокаФайла, " ") Тогда
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрокаФайла, " ") Тогда

ТекущаяСтрокаФайла = Сред(ТекущаяСтрокаФайла, 29);
ТекстФункции = ?(ПустаяСтрока(ТекстФункции), ТекущаяСтрокаФайла, ТекстФункции + Символы.ПС + ТекущаяСтрокаФайла);
КоличествоСтрок = КоличествоСтрок + 1;

КонецЕсли;

Если Лев(ТекущаяСтрокаФайла, 5) = "-----" Тогда
МассивФункций.Добавить(Новый Структура("Номер, Описание, Текст, КоличествоСтрок"
МассивФункций.Добавить(Новый Структура("Номер, Описание, Текст, КоличествоСтрок, ОшибкаКоличестваПараметров,
|ЕстьДругиеОшибки"
, НомерФункции
, ОписаниеФункции
, ТекстФункции
, КоличествоСтрок
, ОшибкаКоличестваПараметров
, ЕстьДругиеОшибки
)
);
ОписаниеФункции = "";
ТекстФункции = "";
КоличествоСтрок = 0;
ОшибкаКоличестваПараметров = Ложь;
ЕстьДругиеОшибки = Ложь;
КонецЕсли;

КонецЦикла;

Если Не КоличествоСтрок = 0 Тогда
МассивФункций.Добавить(Новый Структура("Номер, Описание, Текст, КоличествоСтрок"
МассивФункций.Добавить(Новый Структура("Номер, Описание, Текст, КоличествоСтрок, ОшибкаКоличестваПараметров,
|ЕстьДругиеОшибки"
, НомерФункции
, ОписаниеФункции
, ТекстФункции
, КоличествоСтрок
, ОшибкаКоличестваПараметров
, ЕстьДругиеОшибки
)
);
КонецЕсли;
Expand Down Expand Up @@ -453,6 +481,11 @@
//СтрокаФункций.Процент = СтрокаФункций.Процент + 0.01;
//СтрокаФайла.Дельта = СтрокаФайла.Дельта + 1;
КонецЕсли;
Если СтрокаФункций.ОшибкаКоличестваПараметров Или СтрокаФункций.ЕстьДругиеОшибки Тогда
СтрокаФункций.Разные = Истина;
СтрокаФункций.Процент = СтрокаФункций.Процент + 0.1;
СтрокаФайла.Дельта = СтрокаФайла.Дельта + 1;
КонецЕсли;
КонецЦикла;

СтрокаФайла.Разные = Не (СтрокаФайла.Дельта = 0);
Expand Down
Binary file modified tools/1с/СравнениеДамповСнегопата.epf
View file
Binary file not shown.

0 comments on commit 2114697

Please sign in to comment.