[Deell]

доброго времени суток! такая вот проблемка может кто сможет дать дельный совет. есть база 7.7 мне с помощью delphi необходимо из нее вытащить приходные документы по реквизиту шапки "склад" наваял такой код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     ListBox1: TListBox;     Button1: TButton;     Edit1: TEdit;     ListBox2: TListBox;     Button2: TButton;     ComboBox1: TComboBox;     Button3: TButton;     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure ComboBox1Change(Sender: TObject);     procedure Button3Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   select,olebuf,Ole1C: OleVariant;   Contrag, BankSch, RaschSch, Nomenkl, VidNomenkl : OleVariant;   VariantNalog, StavkaNDS, StavkaNP, EdIzm: OleVariant;   Doc,Roznica : OleVariant;   BuhSchet: OleVariant;   Version1C: OleVariant;   IsOper, BoolYes: OleVariant;   textquery:string; implementation uses ComObj;    procedure TForm1.Button3Click(Sender: TObject); begin select:=ole1c.CreateObject('Запрос'); textquery:='|Период с 01.05.11 по 01.09.11;'; textquery:=textquery+'|Обрабатывать НеПомеченныеНаУдаление;'; textquery:=textquery+'|ТекущийДокумент = Документ.ОтчетККМ.ТекущийДокумент;'; textquery:=textquery+'|НомерДок = Документ.ОтчетККМ.НомерДок;'; textquery:=textquery+'|ДатаДок = Документ.ОтчетККМ.ДатаДок;'; textquery:=textquery+'|Склад= Документ.ОтчетККМ.Склад.Код;'; textquery:=textquery+'|Группировка НомерДок;'; if select.Выполнить(textquery)=0 then showmessage('ошибка!'); while select.Группировка(1) = 1 do begin doc:=select.ТекущийДокумент; doc.ПолучитьСтроку(); while doc.Номенклатура()=1 do listbox2.items.add(Doc.Номенклатура); end; end;

Админ: Пользуемся тегами для оформления кода!

собсно подключение проходит нормально но при попытке нажатия на кнопку выскакивает такая ошибка. сам я 1с не знаю практически, подскажите в чем накосячил

[Rat]

Рискну предположить то не понимает он знак |

[Deell]

хм..пасиб щас попробую

[Deell]

а символ ";" в конце каждой строки тоже не нужен я так полагаю?

[Deell]

простите с синтаксисом 1с не очень дружу, замучался методом тыка искать касяк, после каждой ошибки приходиться заново индексировать таблицы в 1с что занимает достаточно долгий период времени. ктонибудт по поводу это ошибки может чтонить сказать?

[Rat]

Ну так по русски же пишет. Теперь ему не нравиться символ "?". А еще он хочет дату перед "01.05". Т.е. возможно дата должна быть в каком то формате другом. Например "01/05/2011".

[Deell]

с датой разобрался выкидываает ошибку о несоответствии типов на этой строке

Код:

1	doc.ПолучитьСтроку();

[Deell]

Код:

1 2 3 4 5 6 7

while select.Группировка(1) = 1 do begin doc:=select.ТекущийДокумент; doc.ВыбратьСтроки(); doc.ПолучитьСтроку(); while doc.Номенклатура()=1 do listbox2.items.add(Doc.Номенклатура); end;

вот на этой строке пишет несоответствие типов:

Код:

1	doc.ВыбратьСтроки();

чего сотворить нужно?

[Deell]

не актуально