Здарова, коллеги!
в операторе IF проверяются значения двух переменных типа Integer. При этом при сравнении i3=71 и i1=39 почему-то уходит в ветку i3<i1. Причем при проверке функцией IsNumeric обе возвращают "true". Прилагаю саму базу. Там на форме "Форма1" есть кнопка "Step1". В ее коде внутри цикла do while всё и происходит. Уже всё урезано до проблемных данных. Сейчас сделаю по-другому: возьму i3-i1 и буду сравнивать с нулем. Но хотелось бы разобраться, что за бл?*:!во-то твориться...

до 150 кб не жмется, так что вот вторая часть...

нечаяно ctrl+Enterнажал (чтоб перейти на новую строку)

Объявлены как интегер лично моими руками

авторСейчас сделаю по-другому: возьму i3-i1 и буду сравнивать с нулем.
Вот так работает. Но что не так с прямым сравнением???

ROI,
вот в первый раз слышу, что при такой записи только последняя объявляется как положено а ведь уже туеву хучу проектов сдал в производство за 11 лет))) слов нет

ROI,
Спасибо огромное!

но это отвратительно. В одном модуле бывает нужно объявить до 40-50 переменных разного типа. И каждой персонально прописывать тип???

Ну это меняет дело! Еще раз спасибо!

чуток не допонял. Допустим нужно объявить i1,i2,i3,i4,i5 как Integer. Как правильно,
так: Dim i1%, i2%, i3%, i4%, i5 as Integer
или так: Dim i%, i5 as Integer

ROI, теперь понял. Перелопачу хотя бы в этой бд., пока немного)) И как это за столько лет ни разу не выстрелило?! Ладн, спасибо. Тема закрыта))

на VB6 из вижуал-студио я писал еще в универе. Там-то и объявлялись переменные через запятую. Хотя может, память подводит, но откуда-то же такая форма записи в памяти торчит.

Это лишь фрагмент базы, я лишнее удалил, перед тем, как сжать и прикрепить к теме. Да и половина объектов временные. После окончания разработки удалю. Не знаю, зачем Вам подробности, но раз уж интересено: это прога по составлению ротационного отчета по продукции на складе. Из 1с выгружается в excel отчет по движению товара (ну в виде Нач.Ост.; Приход; Расход; Кон.Ост.). Импортируется сюда. Руками вбивается два прихода (для каждого наименования связанные записи в виде Кол-во;ДатаПроизводства;НомерПрихода). А дальше... юзер жмет всего одну кнопку и веселый VBA списывает расход начиная со старых дат, сначала из начальных остатков, затем из первого прихода, потом из второго и сохраняет, что осталось, ввиде нового отчета. Толку высматривать "силуэт коня" в нескольких косточках с одним копытом.

Да по сути-то все уже разработано. Осталось собрать, затянуть гайки, запилить юзерский интерфейс и нарисовать репорты. Но я непрочь посмотреть, как решит задачу настоящий опытный программер. Из этого можно извлечь что-нибудь поучительное.
Снова приложу мдбшку, убрав всё кроме необходимых исходных данных. А данные таковы:
t_products - таблица-каталог по продукции.
t_reports - хранилище р.отчетов по каждому дню. В ней уже забит р.отчет за 08.12.2020. Р.отчет - не объект бд, а условное название данных для документа (ротационного отчета) - цели проекта. Поля: cdate - текущая дата (дата отчета); p_name - наименование продукции; pr_date - дата производства; p_count - количество. Остальные поля несут инфу о сроке хранения и степень его истечения. С этим незачем возиться, добавлю сам к финальным данным отчета.
t_InPut - данные про приходам. Их всего 2 в каждом дне. Внесены приходы за 09.12.2020. Поля: cdate - текущая дата; p_name - наименование продукции; p_count - количество; pr_date - дата производства; in_part - номер прихода (соответственно 1 или 2).
t_Moves - данные по движению продукции за день. Уже внесено за 09.12.2020. Поля: cdate - текущая дата; p_name - наименование продукции; InBal - остаток на начало дня, InPut - приход; OutPut - расход; FinBal - остаток на конец дня. Задача в след.посте

Задача: Работаем с 09.12.2020. Необходимо к вчерашнему отчету добавить оба прихода. Затем произвести списание по таким требованиям:
1) по возрастанию дат, т.е. старые даты производства вперед
2) продукция расходуется весь день, а приходуется всего 2 раза в день. Поэтому начинаем списывать сначала с начальных остатков (т.е. берутся конечные остатки предыдущего дня), сколько не хватило списываем с первого прихода, сколько еще не хватило со второго.
Остатки с их датами производства вставляем в t_reports с текущей датой в качестве cdate.

Данные по приходам, движению и р.отчету остаются храниться в своих таблицах. Процесс списания необходимо разделить на 3 шага, сохранять в отдельную таблицу, что бы иметь возможность ручного редактирования результатов. К примеру, при автоматическом списании ушла продукция, скажем "Гурман (2,4)" 11 штук с датой производства 09.12.2020 по правилу списания. Но на самом деле 5 штук из этих 11 отгрузили с датой 10.12.2020 (про просьбе клиента или по невнимательности). Необходимо это отразить.
С импортом и рисованием отчетов я разберусь сам. Интересен сам механизм списания. Прочие тонкости тоже и озвучивать не буду.

crutchmaster,

так я ж не изучал ни джаву, ни си, ничего кроме ВБ, так что это точно в VB6 было

Ну так там много чего еще не прописано. Например, очистка содержимого переменных типа DataBase и Recordset еще не добавлена. В оригинале-то уже к тому моменту всё было :-)