Галактика в вопросах и ответах

Код: Выделить всё

// http://forum.galaktika.by
Interface SelectMemo, doaccept;

	show at (6,6,65,20)

	var
	cnRec   : comp;

	table struct tbasedoc
		(
			nrec : comp,
			ddoc : date,
			nodoc : string
		);

	table struct tattrval
		(
			nrec : comp,
			crec : comp,
			wtable : word,
			vlvar : lvar
		);

	create view
	as select *
	from tbasedoc, tattrval, ttndoc
	where
	((
		comp(tBaseDoc.Nrec) == TTNDOC.CDOC
		and word(1102) == ttndoc.wtable
		and ttndoc.nrec == tattrval.CREC
		and word(1150) == tattrval.wtable
	));

	parameters cnRec;

	browse brSelPers;
		show at (,,,10);
		table tbasedoc;

		fields
		tBasedoc.ddoc  'Дата документа' : [15], protect;
		tBasedoc.nodoc  'Номер документа': [15], protect;
	end;



	panel panText;
		show at (,11,,);
		table tattrval;

		Text memoid=memo1 tattrval.vlvar 'Мемо-поле';
	end;

handleevent
	cmInit:
	{
		SQL select attrval.nrec, attrval.crec, attrval.wtable, attrval.vlvar
		from attrval
		where
		attrval.cattrnam = comp('281474976711112')
		into tattrval

		SQL select basedoc.nrec, basedoc.ddoc, basedoc.nodoc
		from basedoc
		inner join ttndoc on (BaseDoc.Nrec = TTNDOC.CDOC) and ttndoc.wtable=1102
		inner join tattrval on ttndoc.nrec = tattrval.CREC// and attrval.cattrnam = comp('281474976711112')
		order by basedoc.ddoc
		INTO tbasedoc

		}
	end;

End.

Код: Выделить всё

Interface SelectMemo 'Особые заявления отправителя', doaccept;

	show at (6,6,65,20)

	var
	cnRec   : comp;
	stmt, astmt : longint;

	table struct tbasedoc
		(
			nrec : comp,
			ddoc : date,
			nodoc : string
		)
		with index (n = nrec);

	table struct tattrval
		(
			nrec : comp,
			crec : comp
		)
		with index (c = crec);

	create view
	as select *
	from tbasedoc, tattrval, attrval, ttndoc
	where
	((
		comp(tBaseDoc.Nrec) == TTNDOC.CDOC
		and word(1102) == ttndoc.wtable
		and ttndoc.nrec == tattrval.CREC
		and tattrval.nrec == attrval.nrec
	));


	parameters cnRec;

	browse brSelPers;
		show at (,,,10);
		table tbasedoc;

		fields
		tBasedoc.ddoc  'Дата документа' : [15], protect;
		tBasedoc.nodoc  'Номер документа': [15], protect;
	end;


	panel panText;
		show at (,11,,);
		table attrval;

		Text memoid=memo1 attrval.vlvar 'Мемо-поле';
	end;

handleevent
	cmInit:
	{

		 stmt := sqlAllocStmt;
		  //Создаем ВТ
		  sqlCreateTmpTable('Table tattrval (nrec : comp, crec : comp);', ctmNormal);
		  //Заполняем ВТ
		  sqlExecStmt(stmt,'select attrval.nrec, attrval.crec from attrval where attrval.cattrnam = comp(''281474976711112'')');
		  sqlFetchInto(stmt, tntattrval);
		  sqlFreeStmt(stmt);

		 stmt := sqlAllocStmt;
		  //Создаем ВТ
		  sqlCreateTmpTable('Table tbasedoc (nrec : comp, ddoc : date, nodoc : string);', ctmNormal);
		  //Заполняем ВТ
		  sqlExecStmt(stmt,'select basedoc.nrec, basedoc.ddoc, basedoc.nodoc from basedoc inner join ttndoc on (BaseDoc.Nrec = TTNDOC.CDOC) and ttndoc.wtable=1102 inner join tattrval on ttndoc.nrec = tattrval.CREC');
		  sqlFetchInto(stmt, tntbasedoc);
		  sqlFreeStmt(stmt);
		}

end;

End.

Код: Выделить всё

Interface SelectMemo 'Особые заявления отправителя', doaccept;

	show at (6,6,65,20)

	var
	cnRec   : comp;
	stmt, astmt : longint;

	table struct tbasedoc
		(
			nrec : comp,
			ddoc : date,
			nodoc : string
		)
		with index (n = nrec);


	create view
	as select *
	from tbasedoc, attrval, ttndoc
	where
	((
		comp(tBaseDoc.Nrec) == TTNDOC.CDOC
		and word(1102) == ttndoc.wtable
		and word(1150) == attrval.wtable
		and ttndoc.nrec == attrval.CREC
		and word(1150) == attrval.wtable
		and '281474976711112'  == attrval.cattrnam
	));



	parameters cnRec;

	browse brSelPers;
		show at (,,,10);
		table tbasedoc;

		fields
		tBasedoc.ddoc  'Дата документа' : [15], protect;
		tBasedoc.nodoc  'Номер документа': [15], protect;
	end;



	panel panText;
		show at (,11,,);
		table attrval;

		Text memoid=memo1 attrval.vlvar 'Мемо-поле';
	end;


handleevent
	cmInit:
	{

		 stmt := sqlAllocStmt;
		  //Создаем ВТ
		  sqlCreateTmpTable('Table tbasedoc (nrec : comp, ddoc : date, nodoc : string);', ctmNormal);
		  //Заполняем ВТ
		  sqlExecStmt(stmt,'select basedoc.nrec, basedoc.ddoc, basedoc.nodoc from basedoc, ttndoc, attrval, attrnam where BaseDoc.Nrec = TTNDOC.CDOC and ttndoc.wtable=1102 and ttndoc.nrec = attrval.CREC and attrval.cattrnam = attrnam.nrec and attrnam.nrec = comp(''281474976711112'')');
		  //Читаем ВТ
		  sqlFetchInto(stmt, tntbasedoc);
		  sqlFreeStmt(stmt);
	}

end;

End.