powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как реализовать одну вещь?
3 сообщений из 3, страница 1 из 1
Как реализовать одну вещь?
    #34034665
АВКЛ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я уже донимал недавно вас с дурацкими вопросами.
http://]www.sql.ru/forum/actualthread.aspx?tid=332917&pg=-1&hl=%e0%e2%ea%eb
Сейчас появился еще один.

В MS SQL работает такая конструкция:

| SELECT
| case when J.IDDocDef=$ВидДокумента.РасходнаяНакладная then $ДокР.Клиент
| when J.IDDocDef=$ВидДокумента.ПриходнаяНакладная then $ДокП.Клиент
| end as Покупатель,
| $РегПТ.Товар as Товар,
| РегПТ.IDDoc as ТекДок,
| $РегПТ.КодОперации as КодОперации,
| РегПТ.IDDocDef as ТекДок_вид,
| (1-РегПТ.DEBKRED)*$РегПТ.Стоимость as СтоимостьВ,
| РегПТ.DEBKRED*$РегПТ.Стоимость as Стоимость,
| (1-РегПТ.DEBKRED)*$РегПТ.Оборот as СумПродажВ,
| РегПТ.DEBKRED*$РегПТ.Оборот as СумПродаж,
| (1-РегПТ.DEBKRED)*$РегПТ.НДСрасхода as НДСрасходаВ,
| РегПТ.DEBKRED*$РегПТ.НДСрасхода as НДСрасхода,
| (1-РегПТ.DEBKRED)*$РегПТ.ОстатокВКг as КолВоКГВ,
| РегПТ.DEBKRED*$РегПТ.ОстатокВКг as КолВоКГ
| FROM
| $Регистр.ПартииТоваров as РегПТ"+гл_nolock+"
| inner join "+гл_1SJourn+" as J on
| РегПТ.IDDOC = J.IDDoc
| left join $Документ.РасходнаяНакладная as ДокР on
| ДокР.IDDoc = J.IDDoc
| left join $Документ.ПриходнаяНакладная as ДокП on
| ДокП.IDDoc = J.IDDoc
| WHERE
| (J."+гл_Date_Time_IDDoc+" between :ВыбНачПериода"+гл_hvostik+гл_hvostik+" and :ВыбКонПериода~"+гл_hvostik+") and
| (J.$ФлагРегистра.ПартииТоваров=1) and
| $РегПТ.Фирма = :ВыбФирма and
| (($РегПТ.ОстатокВКг <> 0) or ($РегПТ.ОстатокВКг <> 0)) and
| J.IDDocDef <> $ВидДокумента.Сторно and
| $РегПТ.КодОперации"+гл_collate+" IN ("+СтрокаСПарКодовОперацийПродаж+")

Хотелось бы аналог в SQL VisualFoxPro.
...
Рейтинг: 0 / 0
Как реализовать одну вещь?
    #34034713
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Синтаксис
Код: plaintext
1.
ICASE( lCondition1, eResult1 [, lCondition2, eResult2] ...    [, eOtherwiseResult])
значит типа так
Код: plaintext
1.
ICASE( J.IDDocDef=$ВидДокумента.РасходнаяНакладная , $ДокР.Клиент
,J.IDDocDef=$ВидДокумента.ПриходнаяНакладная , $ДокП.Клиент)  as Покупатель
...
Рейтинг: 0 / 0
Как реализовать одну вещь?
    #34034807
АВКЛ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, пошло!
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как реализовать одну вещь?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]