Задать вопрос

Xvir43

Комментарии

  • Как работать с табличной частью в 1с (delphi)?

    @Xvir43 Автор вопроса
    Константин Нагибович, 
    oleZakaztmp.text:='Выбрать '+
                          'ЗаказПокупателя.СуммаДокумента КАК СуммаЗаказаПокупателя, '+

                          'ИЗ '+
                          'Документ.ЗаказПокупателя КАК ЗаказПокупателя, '+
                          'Документ.ЗаказПокупателя.Номенклатура КАК Номенклатура '+
                          'ГДЕ '+
                          ' ЗаказПокупателя.Грузополучатель.Код = &Грузополучатель  '+
                          ' И ЗаказПокупателя.Ссылка.Дата >= &ДатаНач '+
                          ' И ЗаказПокупателя.Ссылка.Дата <= &ДатаКон ';

    Немного не понимаю, можно небольшой пример? и пото как в цикле обрабатывать? где указывать номер строки?
    for c :=oleZakaz.Товары.Количество()-1 downto 1 do begin oTable.Cells[6,i]:=oTable.Cells[6,i]+string(oleZakaz.Товары(тут).Номенклатура(или тут)[или так]);
    end;
    Написано

  • Как работать с табличной частью в 1с (delphi)?

    @Xvir43 Автор вопроса 
    oleZakaztmp.text:='Выбрать '+
                          'ЗаказПокупателя.СуммаДокумента КАК СуммаЗаказаПокупателя, '+
                          'ЗаказПокупателя.Товары КАК Товары '+ //Тут не знаю правильно ли?
                          'ИЗ '+
                          'Документ.ЗаказПокупателя КАК ЗаказПокупателя '+
                          'ГДЕ '+
                          ' ЗаказПокупателя.Грузополучатель.Код = &Грузополучатель  '+
                          ' И ЗаказПокупателя.Ссылка.Дата >= &ДатаНач '+
                          ' И ЗаказПокупателя.Ссылка.Дата <= &ДатаКон ';

                       oleZakaztmp.УстановитьПараметр('Грузополучатель',oleKontrB.Код);

                       oleZakaztmp.УстановитьПараметр('ДатаНач',DateTimePicker1.DateTime);
                       oleZakaztmp.УстановитьПараметр('ДатаКон',DateTimePicker2.DateTime);
         end
         else begin
           ShowMessage('Ошибка выбора периода формирования отчета!');
           exit;
         end;
             oleZakaz:=oleZakaztmp.Выполнить().Выбрать();
             oTable.Cells[3,i]:='0';
             oTable.Cells[4,i]:='0';
             while oleZakaz.Следующий() do begin
             oTable.Cells[3,i]:=inttostr(strtoint(oTable.Cells[3,i])+1);
              if oleZakaz.СуммаЗаказаПокупателя<>null then
              oTable.Cells[4,i]:=floattostr(strtofloat(oTable.Cells[4,i])+strtofloat(oleZakaz.СуммаЗаказаПокупателя));

      тут просто пробывал как-то       // for c :=oleZakaz.Товары.Количество()-1 downto 1 do begin
              oTable.Cells[6,i]:=oTable.Cells[6,i]+string(oleZakaz.Товары[1].Номенклатура);

            //  end;

             end;
    Написано

  • Как правильно сделать запрос в 1с?

    @Xvir43 Автор вопроса
    Den Melnikov, Я Вас люблю ......
    Написано

  • Как правильно сделать запрос в 1с?

    @Xvir43 Автор вопроса
    Нужно определить кол-во заказов у каждого грузополучателя у конкретного контрагента.
    то есть контрагент одна организация , а грузополучателей несколько организации и название у них(Грузополучателей) одинаковое(но расположение у них разное) по этому и хочу выбрать по их коду.
    Написано

  • Delphi xe 10, какой компонент использовать для подобия мессенджера?

    @Xvir43 Автор вопроса
    Спасибо за отклик , но как туда изображения пахнуть ,? Например приняли через nethttpclient картинку и как её там отобразить? (То есть миниатюру картинки , и при нажатие на неё увеличить(это то я разберусь , главное что бы маленькую картинку туда отправить) )
    Написано

  • Почему в таблицу mysql входит не вся строка?

    @Xvir43 Автор вопроса
    Почему то отбирает тольео вот эту часть из всего !_!AgADAgADb6gxGwzmcEqbd1ZGil00eRdUqw4ABJUCJ0J6a-o4_pQAAgI!_!AgADAgADcKgxGwzmcErqsoitiVLCxnnyAw4ABEEpf9TDkCxc_lcFAAEC
    может он как то не адекватно реагирует на тире???таблицу создаю ручками в heidSQL
    Написано

  • Почему в таблицу mysql входит не вся строка?

    @Xvir43 Автор вопроса
    Нет , тип данных стоит TEXT длинна/значение пусто
    Написано

  • Delphi запрос в 1с что не так?

    @Xvir43 Автор вопроса
    Константин Нагибович, какова вида они должны быть в 1с? 01.01.2001 00:00:00 такого?
    Написано

  • Delphi запрос в 1с что не так?

    @Xvir43 Автор вопроса
    Константин Нагибович, doc:=s1C8_ole.NewObject('Запрос');
    doc.text:='ВЫБРАТЬ ЗаказПокупателяТовары.Номенклатура КАК Номенклатура, '+
    'ПРЕДСТАВЛЕНИЕ(ЗаказПокупателяТовары.Номенклатура), '+
    'ЗаказПокупателяТовары.Количество КАК Количество ' +
    'ИЗ'+
    ' Документ.ЗаказПокупателя.Товары КАК ЗаказПокупателяТовары '+
    ' ГДЕ '+
    'ЗаказПокупателяТовары.Ссылка.ДатаОтгрузки >= &НачалоПериода '+
    'И ЗаказПокупателяТовары.Ссылка.ДатаОтгрузки <= &КонецПериода '+
    'И ЗаказПокупателяТовары.Ссылка.ПометкаУдаления = Ложь';

    doc.УстановитьПараметр('НачалоПериода',StrToDate('28.03.2018'));
    doc.УстановитьПараметр('КонецПериода',StrToDate('30.03.2018'));
    //doc.УстановитьПараметр('ПометкаУдаления',false);
    та же самая ошибка при выводе номенклатуры дает Exception class EVariantTypeCastError with message 'Could not convert variant of type (Dispatch) into type (OleStr)
    Написано

  • Delphi запрос в 1с что не так?

    @Xvir43 Автор вопроса
    doc.УстановитьПараметр('ПометкаУдаления',false); сделал так, теперь заходит в цикл но выдает ошибку типов
    Memo1.Lines.Add( string(sel_res.Номенклатура)); ругается на это вот так:
    Exception class EVariantTypeCastError with message 'Could not convert variant of type (Dispatch) into type (OleStr)'.
    Написано

  • Delphi запрос в 1с что не так?

    @Xvir43 Автор вопроса
    В 1с коде все нормально срабатывает и выдает отчет, мне надо эти данные в delphi получить.
    Написано