доброго времени суток! такая вот проблемка может кто сможет дать дельный совет. есть база 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с не знаю практически, подскажите в чем накосячил