Передать переменную

[zuzka]

Цитата:

Сообщение от Fierce

ну и опять же, по поводу даты начала, если ее не введут, оно в ексель будет выводить с какого то там 1700 года...

А кто мешает урезать то что без даты до максимально возможного отрезка?
К примеру: выбрали 5 лет - у Вас максимум 1 год, режьте год от имеющейся даты... (...12.12.12 => 12.12.11..12.12.12)

[srg]

Цитата:

ставим фильтр на тип даты = день
а на поле Starting Date - тот самый фильтр, что указал пользователь.
далее Date.Find('-') дает нам первую дату фильтра, а Date.Find('+') - последнюю.
и опять же никакого разбора на точечьки

вот эту часть не совсем понял

[zuzka]

Цитата:

Сообщение от Fierce

вот эту часть не совсем понял

имелось в виду что при наложенном фильтре по дате FIND('-') найдет самую первую запись, а FIND('+') - последнюю... аналоги FINDFIRST и FINDLAST - сортировка таблицы по данному полю через конструкцию:
SETCURRENTKEY и ASCENDING перед выборками совсем не помешает - отсортирует записи...

[Sancho]

Цитата:

Сообщение от Fierce

вот эту часть не совсем понял

погнали
создаем переменную типа record с субтипом Date, назовем ее _Date
далее

 _Date1 := 0D;
 _Date2 := 0D;
 _Date.SETRANGE("Period Type", _Date."Period Type"::"0"{День});
 _Date.SETFILTER("Period Start", ТотСамыйДатаФильтрТупымТекстом);
 IF _Date.FIND('-') THEN
    Date1 := _Date."Period Start";
 IF _Date.FIND('+') THEN
    Date2 := _Date."Period Start";

где _Date1 и _Date2 переменные, даты начала и конца пользовательского фильтра.
если фильтр ..011113, то _Date1 наверняка будет 0D или 1753-й год

[Yoil]

Санчо, не учи плохому
Не FIND('-') и FIND('+'), а FINDFIRST и FINDLAST

[RedFox]

Цитата:

Сообщение от Дуд

Санчо, не учи плохому
Не FIND('-') и FIND('+'), а FINDFIRST и FINDLAST />/>

А вот и нет! Если есть перебор, то лучше использовать так.
см. больше тут What impact does my C/AL have on SQL?

[srg]

Короче я идиот, не могу сделать эту "фигню"

на OnOpenForm реквест формы..

IF DateFilter='' THEN
ERROR('Необходимо ввести дату периода');
Item.SETFILTER("Date Filter",DateFilter);
     periodstart:=Item.GETRANGEMIN("Date Filter");
     periodend:=Item.GETRANGEMAX("Date Filter");

не могу решить эту задачу вообще, сейчас заплачу

[InTacto]

periodstart,periodend пустые при заполненом Datafilter?

[srg]

Цитата:

Сообщение от InTacto

periodstart,periodend пустые при заполненом Datafilter?

если datafilter 01.01.11..31.12.11
то
periodstart=01.01.11
periodend=31.12.11

так же, если дата фильтер 01.01.01
то
periodstart=01.01.01
periodend=01.01.01
а если датафильтер ..01.01.11 то ошибка которую пользователь сочтет как ошибку программы скорей, чем то, что он неправильно ввел.

[InTacto]

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

Цитата:

Сообщение от Fierce

... буду наверное находить позицию '..' ...

[srg]

Цитата:

Сообщение от InTacto

Так проверяйте на две точки в начале или в конце и получайте только верхнюю или только нижнюю границу соответственно.
Вы же вчера сами хотели так делать. />

Цитата:

Сообщение от Fierce

... буду наверное находить позицию '..' ...

этот способ мне кажется плохим), я его не хочу использовать, нужно ведь расширять знания, а не делать все однотипно

[zuzka]

В этом случае Вы должны уточнить по ТЗ что должно быть в таких случаях, ибо если пользователь будет ошибаться - крайним он будет делать разработчика (проверено мною не один раз)...

[Constantine_imported]

А в чем проблема передать 2 переменные, StartDate и EndDate? Если одна из них пустая (= 0D), то отругать пользователя и попросить заполнить.
И есть ли такая необходимость узнавать даты, если они не определены? Может просто в отчете сделать не

SETRANGE

, а

SETFILTER

. Он должен корректно наложить фильтр и перебрать все записи от неопределенной даты, до конечной (если у вас в начале стоит ..).

[srg]

Цитата:

Сообщение от Constantine

А в чем проблема передать 2 переменные, StartDate и EndDate? Если одна из них пустая (= 0D), то отругать пользователя и попросить заполнить.

На форме одно поле DateFitler

у меня на репорте, на реквест форме два поля Startingdate и endingdate, при вызове отчета, нужно передавать DateFilter в старт и енд дейт, но в DateFilter могут ввести такого рода как ..12.12.12 ДАТУ, и теория моя ломиться..\

Конечная дата получается и записывается, когда в DateFilter вписана дата в формате ..12.12.12, но сразу валиться с ошибкой, из за того, что первое поле пустое..

[Constantine_imported]

А вам обязательно в своем отчете использовать 2 переменные? Используйте 1 как на форме или разбирайте на составляющие. Либо через разбор точек, либо сортируйте таблицу по нужной вам дате, накладывайте фильтр и находите первую и последнюю запись, берите из них даты и передавайте в свой отчет.

[srg]

Цитата:

Сообщение от Constantine

А вам обязательно в своем отчете использовать 2 переменные? Используйте 1 как на форме или разбирайте на составляющие. Либо через разбор точек, либо сортируйте таблицу по нужной вам дате, накладывайте фильтр и находите первую и последнюю запись, берите из них даты и передавайте в свой отчет.

такого условие, в отчете должно быть 2 переменные...пытался сделать проверку, на если дата минимальная пустая, то.. не канает, стреляет ту же ошибку)

[Constantine_imported]

GETRANGEMIN и GETRANGEMAX видимо не умеет работать с неопределенной датой. Разбирайте строку и ищите точки, либо ищите первую и последнюю запись.

SETCURRENTKEY("Postin Date");
ASCENDING(True);
IF FINDFIRST THEN // тут будет самая ранняя дата
  StartDate := Rec."Posting Date";
IF FINDLAST THEN // тут будет самая поздняя дата
  EndDate := Rec."Posting Date";

Ну или как советовал Sancho, ставьте фильтр на служебную таблицу Date.

[srg]

Спасибо огромное за советы ребята
есть вопрос

мне нужно найти сотрудников, по полю "No. in management comp.", которое лежит на физ лице.
и вывести тех у кого они есть, все это делается на Multicompany

вот мой код, что неправильно работает, я хз

employee.CHANGECOMPANY(company.Name);
employee.SETRANGE(employee."No.",PayrollLedgerEntry."Employee No.");
employee.FINDFIRST;

person.SETRANGE(person."No.",employee."Person No.");
person1.FINDSET;
person1.SETRANGE(person1."No. in management comp.",person."No. in management comp.");

employee1.RESET;
employee1.SETRANGE(employee1."Person No.",person1."No.");//

TempPayrollAnalysisViewEntry."Employee No." :=employee1."No.";

[InTacto]

зачем на person наложен фильтр?

Цитата:

Сообщение от Fierce

person.SETRANGE(person."No.",employee."Person No.");

где этот person используется в этом коде?

а потом делается поиск записи в person1 и где на него накладывались фильтры не показано

Цитата:

Сообщение от Fierce

person1.FINDSET;

вот эта строчка тоже оч странная

Цитата:

Сообщение от Fierce

person1.SETRANGE(person1."No. in management comp.",person."No. in management comp.");

а где поиск для employee1?

Цитата:

Сообщение от Fierce

employee1.RESET;
employee1.SETRANGE(employee1."Person No.",person1."No.");//

TempPayrollAnalysisViewEntry."Employee No." :=employee1."No.";[/code]

После исправлений напишите комментарий к каждому блоку.
Здесь получил общий номер, тут вот ищу его в одной фирме, тут ищу в другой.
Наверное туплю под вечер, но что нужно получить физ лицо или сотрудника не понял?

[srg]

Цитата:

Сообщение от InTacto

зачем на person наложен фильтр?

Цитата:

Сообщение от Fierce

person.SETRANGE(person."No.",employee."Person No.");

где этот person используется в этом коде?

а потом делается поиск записи в person1 и где на него накладывались фильтры не показано

Цитата:

Сообщение от Fierce

person1.FINDSET;

вот эта строчка тоже оч странная

Цитата:

Сообщение от Fierce

person1.SETRANGE(person1."No. in management comp.",person."No. in management comp.");

а где поиск для employee1?

Цитата:

Сообщение от Fierce

employee1.RESET;
employee1.SETRANGE(employee1."Person No.",person1."No.");//

TempPayrollAnalysisViewEntry."Employee No." :=employee1."No.";[/code]

После исправлений напишите комментарий к каждому блоку.
Здесь получил общий номер, тут вот ищу его в одной фирме, тут ищу в другой.
Наверное туплю под вечер, но что нужно получить физ лицо или сотрудника не понял?

консультант как сформировал задание, я его так и говорю))

короче говорил 20 минут с ним(не привело вообще ничего и не понятно еще больше стало),пошел поговорил еще с одним программистом,решили нужно вывести всех пользователей у которых заполнен в управленчиской компании, то есть в текущей.
No. in management comp. - поле таблицы Person