64 публикаций создано galogenIt (учитываются публикации только с 06 июня 2023)
тогда уж копипейстом :)2 galogenIt - отличное владение копипастом
Спасибо, Алексей. Вы не правильно меня поняли :). Я, конечно, не жду благодарности. Ну право слово, все мы бываем воспрошающими и бываем отвечающими. Я интересовался, решена ли проблема? Предложенные варианты удовлетворили топикстартера.Просто на форумах не всегда полезный пост сопровождается положенными благодарностями.
Так что я за всех скажу -- 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;
Не, никакой не RUP. Водопад скорее, но такой неклассический, что-то от agile, что-то от других.RUP?Маловато данных для анализа ситуации. Как организован процесс разработки и конкретно тестирования? Есть ли требования и специальные люди которые ими занимаются? Какие ресурсы имеются у тестирования: люди, навыки? Какая цель ставится перед командой?Вопрос: существуют ли какие-то особенности, правила, методики и способы, ориентированные на такие долгоиграющие тяжелые системы? С длинными цепочками бизнес-процессов, со сложной зависимостью между операциями, со значительной долей автоматизации их?
Постоянно проверяем это. Регресс крутится в автоматическом режиме без нашего участия по ночам.Из опыта работы с большими (но не бааальшими) системами. А вы потом проверяете общую работоспособность системы? Регресс полностью пускаете по системе?К примеру, у нас модули связаны так, что даже когда разработчики уверяют, что вот это не трогали, то с вероятностью раз в год там что-то громко сломается :( И самое обидное, что может уже и у заказчика((Мы берем кусочек, выделенный и отработанный, тестируем на предмет наличия ошибок. Помечаем как годный и идем дальше не вспоминаня о этом моуле пока его кто-то не захочет дернуть. Так вот у нас сделать это крайне сложно. Такова архитектура.
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;
Спасибо за совет.Лучше это перенести в форум по Автоматизации тестирования, а не с привязкой к конкретному инструменту.
Только сегодня наткнулся на отличное видео про юнит тесты. Рекомендую к просмотру вместе с программистом. Там как раз подробно объясняется, как изолироваться от внешних зависимостей.
Большое спасибопереместил
Community Forum Software by IP.Board Русификация от IBResource
Лицензия зарегистрирована на: Software-Testing.Ru
