Продаю исходные коды комплекса

← →
Fredericco © (2007-06-14 16:40) [40]

а) Перевозка грузов;Каким видом транспорта? Решается ли в рамках данного функционала транспортная задача? Задача па оптимальной загрузке?
б) Размещение и хранение грузов на складе (в т.ч., ответственное хранение);
Каким образом идет разделение груза по владельцу?
в) Расчеты за перевозку и хранение товара.В каком виде выдается результат? Счет? Экспорт в ERP?
а) Упаковка грузов;Какое количество вложенности упаковок поддерживается?
б) Сортировка товара;
Где?
в) Комплектация товара;
Сериннные номера поддерживаются? Отслеживание по ним?
г) Выбраковка товара.Зона карантина есть?

Еще вопросы:
Стратегии размещения есть?
Учет по коду паллеты есть?
Смешанные паллеты поддерживаются?
Что с мерным товаром?
Пересчет единиц хранения?
WiFi терминалы сбора данных подерживаются?
Как выдается задание работнику склада?
Что с интеграцией с ERP?
Какие виды отбора заказа(ов) поддерживаются?

← →
StriderMan © (2007-06-14 16:41) [41]

> with frmRfPersonEdit do
> Это - вааще шедевр...

хм. вы против with? не уловил в чем шедевр :[

PS: 90 человек - это 3 группы студентов на лабах?

← →
Rouse_ © (2007-06-14 16:41) [42]

Класс, китайский метод программирования рулит :)
Ибо только им можно посмотрить кусок
with adoMyDBQuery do begin Close; SQL.Clear; SQl.Add(QuerySQL); Open; end;
В трех подряд идущих процедурах, одна из которых еще и рефреш :)

← →
Rouse_ © (2007-06-14 16:42) [43]

посмотрить = повторить :)

← →
Ega23 © (2007-06-14 16:44) [44]

slPhoto := TStringList.Create; slPhoto.Add(ds.DataSet.FieldByName("Photo").AsString); slPhoto.SaveToFile(sTMP); Zimg.Picture.LoadFromFile(sTMP); DeleteFile(sTMP);

Гы-гы-гы!!!!!!!!!!!!!!!!!!!!
ДЕРЖИТЕ МЕНЯ!!!!!!!!!!!!!!!!!!!!!!!
Распечатал, на стенку повесил.
Ща народу перешлю.... :))))))))))))))))))))))

yutonig, не останавливайся, жги дальше!

← →
Ricko © (2007-06-14 16:45) [45]

procedure TfrmRfPerson.tbnEditClick(Sender: TObject);
var
sTMP : string;
slPhoto: TStringList;
begin
if tbnEdit.Enabled = false then exit;
with frmRfPersonEdit do
Это - вааще шедевр...

> StriderMan © (14.06.07 16:41) [41]
> хм. вы против with? не уловил в чем шедевр :[
>

Вроде как события tbnEditClick не возникнет если tbnEdit.Enabled == false

← →
iXT © (2007-06-14 16:46) [46]

>>Разрабатывается совместный проект для службы знакомств, предлагаю сотрудничество
Типа этот комплекс так же писался? :)

ЗЫ Веселая ветка

← →
Ega23 © (2007-06-14 16:47) [47]

> StriderMan © (14.06.07 16:41) [41]
>
>
> > with frmRfPersonEdit do
> > Это - вааще шедевр...
>
> хм. вы против with? не уловил в чем шедевр :[

Пардон. Я не разглядел frmRfPersonEdit
Но тогда я вообще не понимаю, какой индус это писал....

← →
nadJIIu`Angel (2007-06-14 16:48) [48]

> а) Перевозка грузов;Каким видом транспорта? Решается ли
> в рамках данного функционала транспортная задача? Задача
> па оптимальной загрузке?
Ответ: в программе предусмотрен классификатор видов доставки (от авто, авия, ж/д, до курьеров)

> б) Размещение и хранение грузов на складе (в т.ч., ответственное
> хранение);
> Каким образом идет разделение груза по владельцу?
Ответ: По фирмам-заказчикам
> в) Расчеты за перевозку и хранение товара.В каком виде выдается
> результат? Счет? Экспорт в ERP?
Ответ: в любом
> а) Упаковка грузов;Какое количество вложенности упаковок
> поддерживается?
Ответ: Да
> б) Сортировка товара;
> Где?
Ответ: некорректный ворпос
> в) Комплектация товара;
> Сериннные номера поддерживаются? Отслеживание по ним?
Ответ: поддерживаются, предусмотрена система штрихкод, на любые заявки
> г) Выбраковка товара.Зона карантина есть?
Ответ: да
> Еще вопросы:
> Стратегии размещения есть?
Ответ: есть
> Учет по коду паллеты есть?
Ответ: нет
> Смешанные паллеты поддерживаются?
Ответ: да
> Что с мерным товаром?
Ответ: поддерживаются USB, PS2, COM, LPT весы
> Пересчет единиц хранения?
> WiFi терминалы сбора данных подерживаются?
Ответ: нет
> Как выдается задание работнику склада?
Ответ: в виде заявки
> Что с интеграцией с ERP?
Ответ:

← →
Rouse_ © (2007-06-14 16:48) [49]

if ds.DataSet.FieldByName("IS_MALE").AsBoolean = true then cmbIsMale.itemindex := 1 else cmbIsMale.itemindex := 0;
ЖЖОШЬ!!! :)
Все скатывается к тому, что тут не продавать нужно, а платить кому нить, чтоб за вас все это дело поправили хотябы :)

← →
Alx2 © (2007-06-14 16:49) [50]

Интересно, а этот довольно наглый продукт где-то используется уже? :)

← →
Плохиш © (2007-06-14 16:49) [51]

> yutonig (14.06.07 15:15)

Возьму с доплатой в 1000 Евро.

> yutonig (14.06.07 16:31) [26]

Ооооо, после этого доплата увеличивается в 10 раз.

← →
Ega23 © (2007-06-14 16:50) [52]

if ds.DataSet.FieldByName("IS_MALE").AsBoolean = true then cmbIsMale.itemindex := 1 else cmbIsMale.itemindex := 0;

Н-да... Это тоже ща по приятелям разошлю.

← →
_Слоник (2007-06-14 16:51) [53]

ужос, код отвратен
впрочем, считаем:
проект в каждый момент времени пишут 6 программистов - студентов начальных курсов, команда "разработчиков" полностью обновляется в среднем за 2 с небольшим месяца (из-за профнепригодности) :)

← →
StriderMan © (2007-06-14 16:51) [54]

Ricko © (14.06.07 16:45) [45]
> Вроде как события tbnEditClick не возникнет если tbnEdit.
> Enabled == false

и правда :))))))
но этот код не зря написан, а вот почему:

procedure TfrmRfPerson.DBGridDblClick(Sender: TObject); begin if tbnEdit.Enabled then tbnEdit.OnClick(nil); end;

афтар таки все предусмотрел :)))))

← →
Ega23 © (2007-06-14 16:51) [55]

Самое паршивое во всём этом то, что такие программы ведь реально где-то работают. И ведь денег за это 90 человек "программистов" срубило немало...

Куда страна катится...?

← →
tesseract © (2007-06-14 16:52) [56]

> Самое паршивое во всём этом то, что такие программы ведь
> реально где-то работают. И ведь денег за это 90 человек
> "программистов" срубило немало...

Хочешь круче вещь пришлю, франчи в 1с накатали. за 15 минут скорость работы поднялась в 48 раз.

← →
Nic © (2007-06-14 16:53) [57]

Ужас. 90 человек разрабатывало? Жесть.
КОд не читал, но форматирование ужасно.
Вообще, просили исходники Десктоп-стиккеров у antonn, а не непонятную систему с 300 Мб исходников.

← →
Ega23 © (2007-06-14 16:54) [58]

> Хочешь круче вещь пришлю, франчи в 1с накатали. за 15 минут
> скорость работы поднялась в 48 раз.

Не, мне ещё за час хп накатать надо...
Весёлая ветка. Сохраните кто-нить.... :)

← →
Fredericco © (2007-06-14 16:54) [59]

2 nadJIIu`Angel (14.06.07 16:48) [48]
б) Сортировка товара;
> Где?
Ответ: некорректный ворпос
Что по твоему сортировка товара и в какой момент она происходит?

← →
Bless © (2007-06-14 16:54) [60]

> nadJIIu`Angel (14.06.07 16:48) [48]
> > а) Упаковка грузов;Какое количество вложенности упаковок
>
> > поддерживается?
> Ответ: Да

Сказал, как отрезал :)

← →
Ega23 © (2007-06-14 16:55) [61]

> Что по твоему сортировка товара и в какой момент она происходит?

Что по твоему сортировка товара; Order By!
и в какой момент она происходит: В момент открытия запроса!

← →
keymaster © (2007-06-14 16:55) [62]

> with frmRfPersonEdit doЭто - вааще шедевр...

Тоже посмеялся...

> StriderMan © (14.06.07 16:37) [34]
> > yutonig (14.06.07 16:33) [29] бардак какой, все юниты
> проекта в одну папку свалены?

Так часто бывает у неопытных...
Но если работает 90 человек и исходников на 300 мегов и все это в одной папке, остаётся сильно незавидовать тому, кто все это разгребать будет.

> Ricko © (14.06.07 16:45) [45]
> procedure TfrmRfPerson.tbnEditClick(Sender: TObject);varsTMP
> : string;slPhoto: TStringList;beginif tbnEdit.Enabled =
> false then exit;with frmRfPersonEdit doЭто - вааще шедевр.
> ..> StriderMan © (14.06.07 16:41) [41]> хм. вы против
> with? не уловил в чем шедевр :[> Вроде как события tbnEditClick
> не возникнет если tbnEdit.Enabled == false

А как же быть с with frmRfPersonEdit, если в самом начале сказано, что
procedure TfrmRfPerson.tbnEditClick?

В общем - отличный пример того, как НЕ надо писать код.

← →
Ega23 © (2007-06-14 16:59) [63]

> А как же быть с with frmRfPersonEdit, если в самом начале
> сказано, что
> procedure TfrmRfPerson.tbnEditClick?
>

Не, там всё хитрее. Объявлена переменная var frmRfPerson : TfrmRfPerson.
Но вот with уже идёт с переменной frmRfPersonEdit.
Для чего - понять можно: дабы запутать китайскую разведку.

В общем, за такой код зарплату надо платить очень маленькую.

← →
StriderMan © (2007-06-14 17:02) [64]

> А как же быть с with frmRfPersonEdit, если в самом начале
> сказано, что
> procedure TfrmRfPerson.tbnEditClick?

не, тут-то все более менее нормально. нажали кнопку в форме, проинициализировали модальный диалог, показали его опять же модально.

← →
Loginov Dmitry © (2007-06-14 17:06) [65]

> Гы-гы-гы!!!!!!!!!!!!!!!!!!!!
> ДЕРЖИТЕ МЕНЯ!!!!!!!!!!!!!!!!!!!!!!!
> Распечатал, на стенку повесил.

Для начинающего - нормальный код. Сам также писал в первый месяц изучения Дельфи. Работает - и фик с ним.
А мощность проекта определяется вовсе не качеством кода. Т.е. может проект и мощный, НО врядли сами исходники кому-то пригодятся, тем более за озвученную сумму кто захочет использовать код такого, мягко говоря, спорного качества?

← →
Ega23 © (2007-06-14 17:07) [66]

> Для начинающего - нормальный код.

Нет, это ненормальный код даже для начинающего. Тем более в компании 90 программистов.

← →
oldman © (2007-06-14 17:08) [67]

Ну че вы напали на человека?
Автор, я куплю!
За бутылку пива.
Причем, пиво с тебя.
Причем, самопривоз.

← →
tesseract © (2007-06-14 17:09) [68]

> Тем более в компании 90 программистов.

Нее они по очереди, одного шалопая выгонят - второй появиться :-)

> ShowModal;
> end;
> tbnRefresh.OnClick(nil);

т.е. даже если ShowModal не вернул mrOk или что-то подобное
идет полное переоткрытие запросов

зачем же вы так над базой издеваетесь

ЗЫ. дальше ниасилил

По 12 дней, однако, каждый работал...

> Сериннные номера поддерживаются? Отслеживание по ним? Ответ: поддерживаются, предусмотрена система штрихкод, на любые заявки
Штрихкод предназаначен для идентификации некой сущности. Корбки, к примеру. Учет сериный номеров, то механизм, при котором при создании комплекта из комплектующих, сохраняются серийные номера последних. И в итоге, когда ты отгружаешь комплект стол, ты всегда знаешь из какой партии и от какого поставщика пришла ножка этого стола.

Это поддерживается?

Тупое прикалывание...
А вы ведётесь :)

Тупое прикалывание...
А вы ведётесь :)

+1
Причем долго ;-)

slPhoto := TStringList.Create;

а slPhoto.Free напрочь отсутствует! Класс! Что не удивительно при полном игнорировании конструкции try ... finally ... end

> Amoeba © (14.06.07 17:54)

100 k$ так ведь не предел :) если
> конструкции try ... finally ... end
,
то уже 200 как минимум

блин бедные нивные программисты :-)
афтар молодец, флудоносный топик на профессиональную тему ...

← →
Панкратов (2007-06-14 20:23) [78]

yutonig (14.06.07 15:15)

Если не прикол, где можно скачать демо-версию или выложи скриншоты?

> Тупое прикалывание...
> А вы ведётесь :)

Т.е. кто то придумал:
> yutonig (14.06.07 16:33) [29]
или
> if ds.DataSet.FieldByName("IS_MALE").AsBoolean = true then
>
> cmbIsMale.itemindex := 1 else cmbIsMale.itemindex := 0;

мне кажется это реальный проект =)

← →
aktuba (2007-06-14 20:50) [80]

Класс!!! У меня тоже много исходников - могу продать =))))))

Продаю исходные коды комплекса Найти похожие ветки