|
#1
|
|||
|
|||
делфи и 1с7,7
доброго времени суток! такая вот проблемка может кто сможет дать дельный совет. есть база 7.7 мне с помощью delphi необходимо из нее вытащить приходные документы по реквизиту шапки "склад" наваял такой код:
Код:
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с не знаю практически, подскажите в чем накосячил Последний раз редактировалось Admin, 21.09.2011 в 16:49. |
#2
|
|||
|
|||
Рискну предположить то не понимает он знак |
|
#3
|
|||
|
|||
хм..пасиб щас попробую
|
#4
|
|||
|
|||
а символ ";" в конце каждой строки тоже не нужен я так полагаю?
|
#5
|
|||
|
|||
простите с синтаксисом 1с не очень дружу, замучался методом тыка искать касяк, после каждой ошибки приходиться заново индексировать таблицы в 1с что занимает достаточно долгий период времени. ктонибудт по поводу это ошибки может чтонить сказать?
|
#6
|
|||
|
|||
Ну так по русски же пишет. Теперь ему не нравиться символ "?". А еще он хочет дату перед "01.05". Т.е. возможно дата должна быть в каком то формате другом. Например "01/05/2011".
|
#7
|
|||
|
|||
с датой разобрался выкидываает ошибку о несоответствии типов на этой строке
Код:
doc.ПолучитьСтроку(); |
#8
|
|||
|
|||
Код:
while select.Группировка(1) = 1 do begin doc:=select.ТекущийДокумент; doc.ВыбратьСтроки(); doc.ПолучитьСтроку(); while doc.Номенклатура()=1 do listbox2.items.add(Doc.Номенклатура); end; Код:
doc.ВыбратьСтроки(); |
#9
|
|||
|
|||
не актуально
|