lulgu
Но на форуме свою точку зрения все-таки надо уметь хоть как-то аргументировать.

Божья_коровка

lulgu
Но на форуме свою точку зрения все-таки надо уметь хоть как-то аргументировать.

Согласна, точка зрения должна быть аргументирована. Я не использую ДЕ поскольку не работаю по сути с фоксовой базой. У меня на поддержке оракловая база, к которой просто формируются динамические запросы и результат в виде курсоров на клиента хватает для реализаций поставленной задачи, поэтому именно для себя в данной ситуации не вижу смысла в ДЕ. В своё время piva по этому поводу и высказывался, что для такой задачи нет необходимости в ДЕ. Но у ТС другая задача, и тут надо думать именно под конкретную задачу как и писали мастодонты в 2002 году. Хотя я сомневаюсь, что ХелРайсер сейчас так же уверенно и четко проголосует за ДЕ. В 2002 году когда была эта тема ему было по 20 с хвостиком.

Crispy
Вообще так по мелочам - много чего, если бы немного доработать - могло бы сегодня сделать фокспро едва ли не самым удобным средством разработки. Вот скажем недавно взялся перелопатить один сам-для-себя проектик на лазарусе, и как же оно раздражало со всеми этими паскальными сложностями визуализации объектов, которые на фоксе, как бы оно странно ни прозвучало, были реализованы намного удобнее! Несмотря на всю уже моральную устарелость собственно VFP9. Т.е. как раз по мыслям - в древнем как бы по своей сути фоксе разные задумки были намного более удобные для программиста. Нежели во всех этих "современных" иных средах.
Как и сама структура языка - изначально гениальная. В отличие от всех прочих. Причем, самое удивительное - даже в отношении набрасывания визуального интерфейса!
Еще бы ему добавить чуть больше встроенных возможностей по более углубленной работе с графикой, вообще было бы просто таки супер.
Т.е. фокспро - намного более высокого уровня язык получается. При достаточной все еще компактности. Что для многих нужд - намного более удобно. Нежели закапываться в мелочах, как в сишных и прочих моделях именно с визуальным интерфейсом.

lulgu
Вернемся от комплексующих художников в VFP.

Аспид

lulgu
Вернемся от комплексующих художников в VFP.

Талантливая способность превращать любой топик в помойку

Цитата:

Траву кушаем, век на щавеле
Скисли душами, опрыщавели.
В. Высоцкий.

Crispy
А по чисто проф.моментам - кто-то явно консультирует.

Аспид
Кардинальный совет, отказаться от Dataenvironment.
Насовсем, навсегда. Забыть о его существовании.
1. Сделайте класс доступа к данным.
Возможно сразу не ясно. Сделайте процедуру. Если постараться сделать ее максимально абстрактной, то вот и базовый класс.
Да бог с ним, это можно и позже, а сначала, пищите процедуры. А потом ищите в них общие черты, сигнатуру, заготовка для будущего класса.
И там, мне кажется вам ясно как переключаться между БД.
2. Исходя из первого ответа, второй напрашивается сам.
Вы делаете процедуру получения данных, структура одинаковая, а откуда, можно передать в параметре.

И забудьте про инструмент для домохозяек - Dataenvironment.

Crispy
Еще бы ему (фоксу) добавить чуть больше встроенных возможностей по более углубленной работе с графикой, вообще было бы просто таки супер.

Цитата:

Без нормального каркаса? Постоянно кодировать одни и те-же рутинные операции? Кнопки навигации, сохранение данных, обработчики ошибок, прочие очень полезные классы? Нет уж увольте, я не машинистка чтоб перепечатывать одно и то-же по сути много раз и не VB-"профи" освоивший виртуозное владение Ctrl+C Ctrl+V как основной приём программирования

Божья_коровка
У меня на поддержке оракловая база, к которой просто формируются динамические запросы и результат в виде курсоров на клиента хватает для реализаций поставленной задачи, поэтому именно для себя в данной ситуации не вижу смысла в ДЕ.

LUCIAN
Я тоже поддерживаю оракловую БД ,но ДЕ использую для курсорадаптеров.
Все курсорадаптеры в 50кб рисунок не поместились.

Taran
Офигеть. И все эти и непоместившиеся CA используются в данной форме?

LUCIAN

Taran
Офигеть. И все эти и непоместившиеся CA используются в данной форме?

Эта форма используется для формирования отчёта о приходе и расходе материалов и комплектующих поиздельно в цехах,учитывая план и нормы расхода.

Божья_коровка
PS: Честно признаюсь стараюсь все отчеты по возможности формировать на сервере и на клиента просто в виде итогового результата получать данные. Иногда грешу 3-х этажными запросами, чтобы по меньше на клиента данных тащить для расчетов отчетов. Но у меня отчетность небольшая и не страшная.

lulgu

Божья_коровка
PS: Честно признаюсь стараюсь все отчеты по возможности формировать на сервере и на клиента просто в виде итогового результата получать данные. Иногда грешу 3-х этажными запросами, чтобы по меньше на клиента данных тащить для расчетов отчетов. Но у меня отчетность небольшая и не страшная.

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

Божья_коровка
Он настолько страшный этот отчет о приходе и расходе материалов?
PS: Честно признаюсь стараюсь все отчеты по возможности формировать на сервере и на клиента просто в виде итогового результата получать данные.:

ThisForm.Gm1.VALID && установка параметров связанных с отчётн.месяцем

*формиование таблицы на сервере для CAD C_OSTC

LnReturn = SQLEXEC(THISFORM.DATAENVIRONMENT.DATASOURCE, [{CALL OTC_COSTDK_VYB}])

* Обновление CADа C_OSTC
THISFORM.DATAENVIRONMENT.C_OSTC.CURSORREFRESH

SELECT C_OSTc
GO TOP
* CAD C_OSTC обновляем в Grid
ThisForm.Pageframe1.Page1.Grdm1.refresh
ThisForm.Pageframe1.Page1.Command6.Visible = .T.

 SELECT id_tov, nmat, ed_izm, tmat, iedi, ost, k_per, ostx, id_mat_teh, ordf,
99999 ID_STR FROM otc_temp_costdk   
  UNION
           SELECT   0 id_tov, RPAD ('  ', 60) nmat, RPAD ('  ', 30) ed_izm,
                    INITCAP (nmat) tmat, INITCAP (iedi) iedi, 0 ost, 1 k_per,
                    0 ostx, cmat id_mat_teh,
                    RPAD (LTRIM (INITCAP (nmat)), 120) ordf,99999 ID_STR
               FROM (SELECT DISTINCT cmat, nmat, iedi
                                FROM otc_temp_limit
                               WHERE otc_temp_limit.scet = cx_p.get_scet
                                 AND cmat NOT IN (SELECT id_mat_teh
                                                    FROM otc_temp_costdk))
           ORDER BY 10;

CREATE OR REPLACE PROCEDURE LIDA.OTC_COSTDK_VYB as
-- ВЫБОРКА ЛИМИТА СОГЛАСНО ПЛАНА
 
BEGIN


delete from otc_TEMP_COSTDK ;
commit ;

INSERT INTO otc_TEMP_COSTDK SELECT ostdk.id_tov, INITCAP (sp_tov.nmat) nmat,
                        sp_tov.ed_izm, INITCAP (tmat) tmat,
                        INITCAP (iedi) iedi, ostdk.ost,
                        DECODE (SIGN (NVL (sp_tov.k_per, 0)),
                                0, 1,
                                1, sp_tov.k_per
                               ) k_per,
                          ostdk.ost
                        * DECODE (SIGN (NVL (sp_tov.k_per, 0)),
                                  0, 1,
                                  1, sp_tov.k_per
                                 ) ostx,
                        NVL (sp_tov.id_mat_teh, 0000) id_mat_teh,
                        RPAD (LTRIM (INITCAP (tmat) || INITCAP (sp_tov.nmat)),
                              120
                             ) ordf
                   FROM (SELECT   doks.id_tov, SUM (ostp.ost) ost
                             FROM (SELECT   doks.id_str, SUM (ostp.ost) ost
                                       FROM otc_ostd ostd INNER JOIN otc_ostp ostp
                                            ON ostp.id_pri = ostd.id_pri
                                          AND id_ost = cx_p.get_ost_id
                                            INNER JOIN otc_doks doks
                                            ON doks.id_str = ostd.id_pri
                                            INNER JOIN otc_sp_tov sp_tov
                                            ON sp_tov.id_tov = doks.id_tov
                                          AND sp_tov.scet = cx_p.get_scet
                                   GROUP BY doks.id_str
--                                     HAVING SUM (ostp.ost) > 0
                                   UNION ALL
                                   SELECT   doks.id_str, SUM (ostp.ost) ost
                                       FROM otc_doks doks INNER JOIN otc_dok dok
                                            ON dok.id_dok = doks.id_dok
                                          AND d_dok >= cx_p.get_otc_mes
                                          AND d_dok < cx_p.get_otc_mesl
                                          AND pol = cx_p.get_otp
                                            INNER JOIN otc_sp_tov sp_tov
                                            ON sp_tov.id_tov = doks.id_tov
                                          AND sp_tov.scet = cx_p.get_scet
                                            INNER JOIN otc_ostp ostp
                                            ON ostp.id_pri = doks.id_str
                                   GROUP BY doks.id_str ) OSTP
 --                                    HAVING SUM (ostp.ost) > 0) ostp
                                  INNER JOIN
                                  otc_doks doks ON doks.id_str = ostp.id_str
                         GROUP BY doks.id_tov) ostdk
                        INNER JOIN
                        (SELECT sp.*, NVL (tex.nmat, RPAD (' ', 60)) tmat
                                 FROM (SELECT id_tov, nmat, ed_izm, k_per,
                                        id_mat_teh,nsi_sei.iedi
                                   FROM otc_sp_tov INNER JOIN nsi_sei
                            ON nsi_sei.kedi = otc_sp_tov.kedip
                                  WHERE scet = cx_p.get_scet) sp
                                LEFT JOIN
                                (SELECT nsi_mat_tex.*
                                   FROM nsi_mat_tex 
                                      where (  nsi_mat_tex.sch * 100
                                           + nsi_mat_tex.ssch
                                          ) = cx_p.get_scet
                                        ) tex ON tex.cmat = sp.id_mat_teh
                                ) sp_tov ON sp_tov.id_tov = ostdk.id_tov ;
COMMIT;
UPDATE otc_TEMP_COSTDK SET ordf = ' '||LTRIM(RTRIM(ordf)) WHERE id_mat_teh =999999901;
commit;

END;
/[color=Red][/color]