нужно в дбфном тисе вывести таблицу
колонки:
номенклатура, остаток тмц, остаток по партиям
на ТА
ткните в пример кода попроще который делает это или похожее что-то
желательно готовый к исполнению без недосказанностей вроде необъявленных переменных
(если есть конечно варианты проще тех что в регпринте и типовой выгрузке остатков)

(21) ну вроде как должно сработать, хотя там возможно надо еще ТекущийЭлемент добавить, без скобок

(23)спасибо! вы очень помогли )))

вот он гениальный код:!
       ДатаНач    = ДатаНачала - 1;
       ДатаТА    = ПолучитьДатуТА();    
       ДатаНач    = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА);

и это в обработке выгрузки...

(0)
ТЗ=СоздатьОбъект("ТаблицаЗначений");
Регистр.ПартииТоваров.ВыгрузитьИтоги(ТЗ); //ну или какой там у тебя регистр
ТЗ.ВыбратьСтроку();

Андрей, за (4) надо линейкой по рукам бить )))

(27)короче семера не позволяет сразу сделать сабж по двум регистрам?

(29) "семера"  позволяет делать если не все, то очень многое.
есть только один нюанс - делать надо...
а за тебя делать никто не будет (ну разве что за деньги....)

(30)т.е. короче код который присобачит к парктически готовой таблице колонку из другой готовой таблицы по номенклатуре настолько сложен что его можно только за деньги написать специально?

(31) ну напиши. кто ж возражает?

(32)да я то напишу

(33) ну и в чем тогда проблемы (кроме разве что одной, широко известной)?

(28) обоснуешь?

(35) все это нужно воткнуть в сам запрос (получение цены), в том числе, хэвинг на нулевые итоги.

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

(36) не так всё просто мне пока. Если не сложно - покажи как получить цены сразу в запросе

(37) индексы я только осваиваю (по твоей наколке на днях)

кстати - появился вопрос по 1с++. может тут спросить? ответишь? вроде ничего сложного а понять не могу как сделать

(38) спрашивай. может, и ответим...

SUM(Рег.Стоимость/Рег.Остаток) as Цена
....
having Sum(Рег.Остаток)<>0

(40) Ха... сумма() и тут пашет оказывается.. сенькс

кстати вот вопросик над которым бился

1. надо отобрать документы N-видов быстрым запросом
2. во всех этих документах есть НЕОБЩИЙ реквизит и НЕ ГРАФА ОТБОРА например "ОбъектУчета" тип справочник. Есть 100 % во всех. Как наложить условие по этому реквизиту? пробовал через левое соединение - не взлетает.

Текст="
   |SELECT
   |    Жур.IDDoc as [Док $Документ],
   |    Жур.IDDocDef as Док_вид
   |FROM
   |    1SJourn as Жур
   |WHERE
   |    Жур.Date BETWEEN :НачДата~~ AND :КонДата~~";
   
   Если СокрЛП(ФильтрПоНомеру)<>"" Тогда    
       Текст=Текст+"
       |AND LOWER(Жур.DOCNO) LIKE '%"+СокрЛП(ФильтрПоНомеру)+"%'";
   КонецЕсли;

   СтрокаУсловий="";
   Начали=0;                  
   Для Ном=1 По СписокВидов.РазмерСписка() Цикл
       ТекВид=СписокВидов.ПолучитьЗначение(Ном);
       Если Начали=0 Тогда
           Текст=Текст+"
           |AND (";
           Начали=1;
       КонецЕсли;
       СтрокаУсловий=СтрокаУсловий+?(СокрЛП(СтрокаУсловий)="","Жур.IDDocDef = $ВидДокумента."+СокрЛП(ТекВид)," OR Жур.IDDocDef = $ВидДокумента."+СокрЛП(ТекВид));
   КонецЦикла;    
   Если Начали=1 Тогда
       Текст=Текст+СтрокаУсловий+")";
   КонецЕсли;    

это сам запрос. количество видов документов переменное - в зависимости от ситуации. Вот так вот вопросец. Скажешь чего?

(42) coalesce()

(43) простите забыл упомянуть - dbf

(44) :-(
Ну, тогда собирай через union all, хотя это и медленно

кроме того в описухе говорится про общий реквизит...

да я выкрутился через ж.... фильтрую результат уже а не в запросе. замедление небольшое - документов в периоде не так много... но "некрасиво" это

(45) как? голова уже не варит вовсе. клиент торопит - уже селекты снятся

(47) "фильтровать результат через жопу" - оригинально

строку условий лучше лепить такую:

Жур.IDDocDef in ($ВидДокумента.Вася,.....$ВидДокумента.Федя)

условие на отбор по реквизиту так, к примеру

where iddoc in
(
 select
     Док1.iddoc as iddoc
 from $Документ.Вася as Док1
 where  $Док1.РеквизитТвой = :Условие

 union all

 select
     Док2.iddoc as iddoc
 from $Документ.Федя as Док2
 where  $Док2.РеквизитТвой = :Условие
 union all
 ....
 )

до индекса я допёр и сам и пробовал через левое соединение в цикле дописывая к Док номер в списке но тогда приходится и в select тоже дох дописывать этих Док1,Док2... видов может быть от одного до 12-15... показалось некошерным. опять же обработка результатов то тоже будет через эти самые Док1,Док2. или я ошибаюсь?

(+51) я про то что в итогово

(+51) я про то что в итоговой ТЗ колонки то будут Док1, Док2, Док3 и т.п. не сильно удобно при выборке, сортировке и т.п.

леплю альтернативный журнал документов с отбором по нескольким видам документов и фильтром по значениям реквизита... а в журнале ещё и дата и время и фирма и общие реквизиты.... короче потом приходится довольно много вытягивать данных типа "ТЗ.ДатДок=ТЗЗапроса.Док.ДатаДок"

(52) а ?
зачем в селекте " дописывать этих Док1,Док2." ?

дата у тебя в табличке журнала же есть, там док не нужен

(54) а у тебя разве не так?

(
 select
     Док1.iddoc as iddoc
 from $Документ.Вася as Док1
 where  $Док1.РеквизитТвой = :Условие

 union all

 select
     Док2.iddoc as iddoc
 from $Документ.Федя as Док2
 where  $Док2.РеквизитТвой = :Условие
 union all
 ....
 )

вот в селекте Док1, Док2

(55) да это я знаю я просто для примера...

пусть будет не дата а тот же общий для этих видов реквизит (а таких там три)

(53) они ж у тебя в в один "столбец" объединятся...

(56) нет, у меня в селекте 1 колонка .. да и это подзапрос на фильтр по iddoc первоначальной выборки журнала.

А динамически кучу юнионов собрать.. как 2 пальца %)

(59)+(60) ну да.. тормознул.... попробую если альтернативы нет

сенкс

вот если бы я то же самое спросил бы по восьмерке
ответов было бы 25 штук за 25 минут
вывод: настоящих спецов по семерке почти нет

(63) просто задачка неинтересная. стандарная слишком. даже отвечать лениво...

(63) Неправильный вывод. По семёрке мало молодых и неопытных. А опытные про 2+2 жевать не станут, давно пройденный этап.

И ещё. 25 ответов нафиг не надо. Тебе с ходу дали 2, но нормальных.

(65)вот нормальный:

Процедура Сформировать()

    Запрос = СоздатьОбъект("Запрос");

    Запрос.Выполнить(
    "
    |зФирма                    = Регистр.ОстаткиТМЦ.Фирма,        
Регистр.ПартииНаличие.Фирма;
    |зНоменклатура            = Регистр.ОстаткиТМЦ.Номенклатура,    
Регистр.ПартииНаличие.Номенклатура;
    |зКолО                    = Регистр.ОстаткиТМЦ.Количество;
    |зКолП                    =     Регистр.ПартииНаличие.Количество;
    |Функция зКолОстатки    = КонОст(зКолО);
    |Функция зКолПартии        = КонОст(зКолП);
    |Группировка            зФирма;
    |Группировка            зНоменклатура Без Групп;
    |");

    Пока Запрос.Группировка("зФирма") = 1 Цикл
        Сообщить(Запрос.зФирма);
        Пока Запрос.Группировка("зНоменклатура") = 1 Цикл
            Если Запрос.зКолОстатки <> Запрос.зКолПартии Тогда
                Сообщить("   " + Строка(Запрос.зНоменклатура) + ": " +
Строка(Запрос.зКолОстатки) + " --- " + Строка(Запрос.зКолПартии));
            КонецЕсли;
        КонецЦикла;
    КонецЦикла;



КонецПроцедуры

а у вас видать у всех ум за разум уже позаходил

(66) ну, по крайней мере, они у нас хотя бы есть - и ум, и разум... в отличие от...

(67)но жадности и желания поумничать больше всего

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

(68) скорее, желания пофлудить..
(69) ну, это верно - за франчами приходится частенько разгребать...

(70)все франчи разные
за рарусом например ничего не нужно разгребать

(71) :))))))))))))))))))))

спасибо, поржал.

(71) бу га га
За рарусом уже нечего разгребать, все уже в руинах

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

(74) судя по (0), работал мойщиком окон ?

Или.. даже доверяли коробки носить ?
..
:)

(75)вам бы всё запросы в цикле писать да номенклатуру по наименованию синхронизировать

(77) аргументируй

(76)я системный архитектор со стажем
работаю в крупной британской компании
как бы между прочим если вам интересно

(79) не верю.
Ибо примитивный язык 1с-а изучается за 2 дня.

(78)был у меня один такой умник повесил своим отчетом всю базу, вообще программисты один другого умнее всегда

ну может больше, за счет русского синтаксиса.

(80)так я и выучил уже
главное знать разницу между сик и скан
а нотация запросов в среде это дело нескольких часов

Тааак, а теперь какое отношение рарус имеет к британскому архитектору ?
Неужто выгнали и взяли в падаваны, коробки носить ?
:)

(84)в сапе такого бардака нет.
там всё четко и работает правильно и сразу
потому что никто не делит учет на серийный и партионный
там партия и есть серия

(85) :)))))))))))))))))))))))))))))))))))))00

(79) Поржал.

Насмотрелся на типового снеговика что ли со своими сериями ?
:))))))))))))))
Архитектор..
мда.

ЗЫ: если что, как напишешь - так и полетит.
Никакого отношения учет серий и партий к платформе не имеет, как бэ.

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

(89) И чего, даже в хвалёном Рарусе никого нет ?
:)

хорошая реклама раруса :-)))

(91) ))))+1

(90)там есть, но это исключение

какой жирный троль....

автор - а ты в чём спец? ну не в 1С 7.7 это понятно. в 8-ке спец?

(94) Он системный архитектор, а не спец.

(95) а чегой то это означает? вот архитектор - он проектирует строения. а этот чего? системы? какие? просто интересно где на таких пафосных учат и чего он делал в рарусе?

(96) я не знаю, ждем ТС.

(94) судя по v8: скорость записи в базу и блокировки - тоже
"талантливый человек талантлив во всем. и дятел 0 он тоже во всем дятел"©

(98)странно что при таком количестве умников во всех компаниях работать почему-то приходится мне

или нет странно?

(9) а ты разве работаешь? мне кажется ты глупыми вопросами форум за..ешь. нет? так ты ответишь - в чём ты конкретно спец? и почему ты занимаешься 1С? в карты проиграл или ещё чего?

(99) Ну где ж столько "архитехтуров" взять? :-)

100

(100) его в карты проиграли...

Вот уж не ожидал
 |зФирма= Регистр.Имя1.Фирма, Регистр.Имя2.Фирма;

проверил, работает.

(0)

v8: v8: Киев: Требуется програмист, зарплата от 3000 ...

"А вы не принимали участие в написании УПП?"

(104)да
прикольно

(106) прикольно то, что системный архиолух не умеет читать документацию...

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

(106) а что это за должность "системный архитектор"? чего проектируете или чем занимаетесь и каким боком тут программирование в целом?

(108) дарить халявщикам не приучен. я помогаю ищущим и пытающимся что то сделать самостоятельно

(109)архитектор информационных систем, программирование это хобби
(110)см. (108)

(111) я бы даже сказал не хобби. Мучение данное в наказание видимо.

а чего мне смотреть свой собственный пост? это ты его прочти внимательно

так а чего ты архитектируешь то в британской компании?

(109) не "архитектор", а "архиолух"

(113) познаёт разницу между сик и скан вестимо.

(115) а что это?

(115) все познается в сравнении...
следущим шагом его карьеры будет диссертация "раздичие сик и скан с точки зрения системной архитектуры в компаниях различной национальной принадлежности"

(116) поиск.
примерно 1-й курс приличного института или техникума.

(116) выполнение запроса по индексу, либо просмотр целиком всей таблички, либо "беганьем" по полям индекса.. это в первом приблежении
index seek & index scan

(117) зато он наверняка знает такие слова как :

жоб-оффер
бренч
тренд
бизнес-ленч
франчайзинг
мерчендайзинг
хэви-контент
рерайтер
копирайтер
ньюс-рум
ханд-хантер

и прочие

(119) тьфу ты... не сообразил что это транслит....

(+121) ну тогла 120 вообще в тему попало ;)