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

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

#ifndef _TESTEMB_ 
#define _TESTEMB_ 

objinterface ITestEmb; 
end; 

vipinterface TestEmb implements ITestEmb 
#ifdef ATL51 
#end 
; 
#end 

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

#include Galnet.inc
#include testemb.vih 
interface TestEmb 'Vstraivaemii interfeis' 
          (,,sci1Esc) EscClose, Blue; 
	show at (,,70,15); 

	create view 
		as select * 
		from 
			KatOrg, BaseDoc 
		where 
			(( 
				Word(101) == BaseDoc.VidDoc and 
				KatOrg.nRec == BaseDoc.cOrg 
			));                                                                      
	screen scr2 'scr2'
	show at(,,,1);
		buttons
			cmValue2;
	<< 
	<.ggg.> 
	>>
	end;
	handleevent
		cmValue2:{
		message('ffdtteto9');
		rescanpanel(tnkatorg);
		redrawpanel(tnkatorg);
		rereadrecord;
		}
	end;
	Browse KatOrg 'Nakladna9|'; 
		show at (,2,,); 
		table BaseDoc; 
			fields 
				BaseDoc.NoDoc 'Nomer' ('Nomer'): [15], Protect; 
				BaseDoc.dDoc 'Data' ('Data'): [15], Protect; 
				BaseDoc.Name 'Prime4anie' ('Prime4anie'): [40], Protect; 
	end; 
end. 

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

#include Galnet.inc
#include testemb.vih
#make "TestEmb.vip "
function Notify(word,longint): longint; external;
interface TESTIT 'Ispolzovanie vstroenngo feisa' 
          (,,sci1Esc) EscClose, Blue; 
Show at (,,,); 
	create view 
			var 
				TE: ITestEmb;
	as select * 
 		from 
			KatOrg, BaseDoc 
		where 
			(( 
				Word(101) == BaseDoc.VidDoc and 
				KatOrg.nRec == BaseDoc.cOrg 
			));                                                                      

	Browse brwOrg 'Organizacii'; 
	Show at (,,,6); 
		table KatOrg; 
			fields 
				KatOrg.Name 'Kotntragent' ('Kotntragent'): [50], Protect; 
	end; 
TabbedSheet TOP tshMain; 
Show at (,7,,); 

Screen scrMain 'Osnovna9'; 
Show at(,,,);
Buttons 
 cmMSG,,,''; 
<< 
      <. Polu4it' Zna4enie .> 
>> 
end; 

Embedded brwOrgBDoc 'Vstroenni feis' interface TE 
show (,,,) 
end; 
end; 
HandleEvent 
cmInit: { 
  LoadVipRef(TE, 'TestEmb'); 
} 
cmDone: 
{ 
  if not NullVipRef(TE) 
    FreeVipInterface(TE); 
} 
cmpositionchanged:{//message('gfgffg');
notify(cmValue2,0);}
end; 
end. 

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

   int1 
   ...
   win1
    ...
   end; // win 1
   win2 
    ...
   embedded embTest 'Test' interface int1.win1;
   end; // win2
   end; // int1