64 публикаций создано galogenIt (учитываются публикации только с 07 июня 2023)
Спасибо, Алексей. Вы не правильно меня поняли :). Я, конечно, не жду благодарности. Ну право слово, все мы бываем воспрошающими и бываем отвечающими. Я интересовался, решена ли проблема? Предложенные варианты удовлетворили топикстартера.Просто на форумах не всегда полезный пост сопровождается положенными благодарностями.
Так что я за всех скажу -- muchas gracias!
Побольше бы таких "банальных" ответов, подробно и по существу.
tab15, совершенно прав. Проще сохранить в csv. Хотя нет никакого труда сохранить в ЛЮБОМ нужном Вам формате. Для этого нужно обратится к Excel как COM_объектуМожет просто сохранить в csv формате?
// Excel - сохранить как----------------------------------------------------------------------------
// тип файла, если 1 - в формате "xls"
// 6 - в формате "csv"
function SaveAs(aFileName : String; aFileType : Integer = 1) : boolean;
var
vMsExcel : OleVariant;
begin
_FileDelete(aFileName);
vMsExcel := _OleObjectCreate();
// сохраянем книгу
vMsExcel.Workbooks.Item[1].SaveAs(aFileName, aFileType);
vMsExcel.Quit();
vMsExcel := nil;
// убиваем процесс
while Sys.WaitProcess('EXCEL').Exists do
Sys.Process('EXCEL').Terminate();
// проверяем, существует ли сохраняемый файл; это и будет проверкой, что данная функция отработала нормально
result := _FileExists(aFileName);
end;// Excel - сохранить как...
// тип файла, если 1 - в формате xls, 6 - в csv
function ExcelSaveAs(aFileName : String; aFileType : Integer = 1) : boolean;
var
vMsExcel : OleVAriant;
p1 : OleVAriant;
begin
if aqFile.Exists(aFileName) then
aqFile.Delete(aFileName);
Delay(2000);
// ожидание открытия окна MSExcel
p1 := Sys.WaitProcess('EXCEL', 120000, -1);
Delay(2000); // тут уж ничего неподелаешь ... непонятные тормоза независящие от процесса
if not (p1.Window('XLMAIN', '*').Window('XLDESK').WaitWindow('EXCEL7', '*', 1, 120000).Exists) then
begin
Log.Error('Окно Excel не открылось. Тест продолжен не будет');
if Sys.WaitProcess('EXCEL').Exists then
p1.Terminate();
CloseProcess;
Runner.Stop(true);
end;
p1.Window('XLMAIN', '*').Minimize();
Delay(5000);
vMsExcel := Sys.OleObject('Excel.Application');
vMsExcel.DisplayAlerts := False;
vMsExcel.Workbooks.Item[1].SaveAs(aFileName, aFileType);
vMsExcel.Displayalerts := 0; // типа отключить встроенные предупреждения Excel'я
vMsExcel.Quit();
vMsExcel := nil;
while Sys.WaitProcess('EXCEL').Exists do
Sys.Process('EXCEL').Terminate();
if aqFile.Exists(aFileName) then
begin
Log.Message('Файл: ' + aFileName + ' - успешно сохранен.');
result := true
end else
begin
Log.Error('Файл: ' + aFileName + ' - не сохранен.');
result := false;
end;
end;
Спасибо за совет.Лучше это перенести в форум по Автоматизации тестирования, а не с привязкой к конкретному инструменту.
Только сегодня наткнулся на отличное видео про юнит тесты. Рекомендую к просмотру вместе с программистом. Там как раз подробно объясняется, как изолироваться от внешних зависимостей.
if vDoc.ClassID.InheritsFromClass(КПДокументНаПериод) and (позФИКСЦЕНА >= 0 or позНДСФИКСЦЕНА >= 0 or позСУММАФЦЗАПЕРИОД >= 0) then
begin
netStrok := false;
var ДопСостоянияДистр := ArrayToComma([СостояниеДистрибутива.Подключен, СостояниеДистрибутива.НаСкладе]);
var ДатаНачала := EndOfDay(ToDate(vDoc.GetAttrValuesByName('ДатаНачала')));
if fSN.AsString <> '' then
ТекДистрибутив := Номенклатура.ВернутьДистрибутив(vDoc.Клиент, CommaGet(fSN.AsString, 0),
Номенклатура(fArticle.AsInteger), ДопСостоянияДистр, ДатаНачала);
if assigned(ТекДистрибутив) then
var ФиксЦена := Rat.EvalQuery(
SQLText
!Select Reg.DistrFixedPrice
From RegChangeDistributiv Reg
Where Reg.Distributiv = &ToInt(ТекДистрибутив)&
and Reg.BeginDate <= &ToStr(ДатаНачала)&
and Reg.EndDate > &ToStr(ДатаНачала)&
and IsWorked = -1
Order by Reg.BeginDate desc!
end);
ФиксЦена := ToFloat(ФиксЦена);
if позФИКСЦЕНА >= 0 then
vMas[i, позФИКСЦЕНА] := ФиксЦена;
if позНДСФИКСЦЕНА >= 0 then
vMas[i, позНДСФИКСЦЕНА] := Round(ToFloat(ФиксЦена) * fNDSRate.AsFloat / 100, 2, 1);
if позСУММАФЦЗАПЕРИОД >= 0 then
begin
var ДатаОкончания := EndOfDay(ToDate(vDoc.GetAttrValuesByName('ДатаОкончания')));
var КолМес := Функции_мат.КолМесяцев(ДатаНачала, ДатаОкончания);
vMas[i, позСУММАФЦЗАПЕРИОД] := ФиксЦена * КолМес;
end;
Большое спасибопереместил
Не, никакой не RUP. Водопад скорее, но такой неклассический, что-то от agile, что-то от других.RUP?Маловато данных для анализа ситуации. Как организован процесс разработки и конкретно тестирования? Есть ли требования и специальные люди которые ими занимаются? Какие ресурсы имеются у тестирования: люди, навыки? Какая цель ставится перед командой?Вопрос: существуют ли какие-то особенности, правила, методики и способы, ориентированные на такие долгоиграющие тяжелые системы? С длинными цепочками бизнес-процессов, со сложной зависимостью между операциями, со значительной долей автоматизации их?
Постоянно проверяем это. Регресс крутится в автоматическом режиме без нашего участия по ночам.Из опыта работы с большими (но не бааальшими) системами. А вы потом проверяете общую работоспособность системы? Регресс полностью пускаете по системе?К примеру, у нас модули связаны так, что даже когда разработчики уверяют, что вот это не трогали, то с вероятностью раз в год там что-то громко сломается :( И самое обидное, что может уже и у заказчика((Мы берем кусочек, выделенный и отработанный, тестируем на предмет наличия ошибок. Помечаем как годный и идем дальше не вспоминаня о этом моуле пока его кто-то не захочет дернуть. Так вот у нас сделать это крайне сложно. Такова архитектура.
тогда уж копипейстом :)2 galogenIt - отличное владение копипастом
Ошибка проявляется в том, что произвольным образом от прогона к прогону в невыявленной закономерности происходит то округление, то усекание.
В исходных данных стоит 0,325 или 0.375
в отчете может отображаться
- 0.32 0.38
- 0.32 0.37
- 0.33 0.38
- 0.33 0.37
Простите за дурацкий вопрос, а у вас это происходит именно при одинаковых входных данных, как описано в примере? Потому что если 3.75 округляется до 3.8, и 3.85 округляется до 3.8, то это правильно для финансового отчета - пятерка округляется к четному числу.
Спрашиваю просто на всякий случай, а то мало ли.
SALar, в чем фича-то? Почему не баг.Логично. Это ограничений (фича) системы. Не баг.
Если у вас есть такая возможность, то вы можете ею воспользоваться. Всё в ваших руках. Предсказать какую роль может сыграть найденный вами баг, в вашем проекте, никто не сможет на данном форуме. Если вы считаете его критичным, то действуйте.
Я бы сюда не писал, а просто блокировал бы выпуск релиза :)
Поясню. Эти данные ранее были вполне жизненные. Дело в том, что мы используем данные некоторой эталонной базы. Т.е. большинство данных введенных в нашу эталонную базу - это данные реальных пользователей, введенные в реальных ситуациях.В данном случае интересно вот что - вы сами знаете, что данные "нежизненные"?
думаю, я ответил ранее. Да , конечно.И у вас есть возможность получить и проверить правильные боевые данные?
Нет, непосредственно с пользователем мы не общаемся. Наш интерфейс общения с ними - аналитики.Можно ли спросить у пользователей - насколько эти данные далеки от действительности?
В данный момент пока говорят. И ранее часто говорили, причем это исходит из уст руководителя. Может он прав? В багобазе как раз и написано, что с ошибкой следует разобраться, хотя проблема и не приоритетнаПро тестирование космоса вам именно говорят или это вписано в багобазу в качестве ответа на данную ошибку?
Это аналитический отчет. Если бы это было в финансовом документ. Я бы сюда не писал, а просто блокировал бы выпуск релиза :)А что именно вы тестируете? Я надеюсь, что не финансовые документы с таким округлением?:)
1. Ошибку надо записывать всегда
2. Приоритет её определяет менеджер, как и дальнейшую работу по ней
3. Разработчик должен просыпаться в холодном поту с мыслью, что в его коде есть ошибка (в каждой шутке есть доля шутки).
Я тоже не совсем понял этого термина, полагаю, что значение коэффициента может иметь точность только до 2 знаков. Данные с точностью 3 знака признаются ошибочными (видимо)
Выяснилось, что сейчас хранимая точность значения не может быть лучше 2 знаков после запятой, т.е. значение 0.325 или 0.375 является некорректным.
"хранимая точность значения" - это что?
И о каких данных идет речь?
Я думаю, если все области/случаи с более высоким приоритетом протестированы, а время свободное осталось :), то надо проверять и такие случаи. ВНЕЗАПНО может оказаться, что для заказчика это высокоприоритетный баг.
Тема вопроса, прав ли руководитель, советующий (приказывающий) мне не тестировать космос (т.е. заведомо некорректные данные) или я, как истинный тестировщик, который тестирует разные ситуация, возможные и невозможные, но которые явно приводят к ошибке?
Community Forum Software by IP.Board Русификация от IBResource
Лицензия зарегистрирована на: Software-Testing.Ru
