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

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

const
	cmMC=7200;
	cmStatus=7201;
	cmFormat=7202;
	cmLine=7203;
	Sci1478EscIns =6994;
end;
interface iServePlan'Заполнение производственных планов';
Show At (,,93,25);
panel pServe;
show at(,,,);
	screen sServe
		buttons
			cmMC;
			cmStatus;
			cmFormat;
			cmLine;
<<
	<.МЦ.>
	<.Статусы.>
	<.Форматы.>
	<.Линии.>
>>
	end;
	handleevent
		cmMC:
			{
				RunWindow('mc');
			}
		cmStatus:
			{
				RunWindow('status');
			}
		cmFormat:
			{
				RunWindow('format');
			}
		cmLine:
			{
				RunWindow('line');
			}
	end;
end;

window mc
 show at (,,93,25);
 panel pMc
 show at (,,,);
 browse bMc(,,Sci1478EscIns)
	table k1,cartesian;
	recMarker {k2.nrec};
	 fields
	 		k1.name 'Эталон':[10];
	 		ppkatstan.name 'МЦ(Э,Л)':[10];
			k2.name 'МЦ обычная':[20];
	 		groupmc.name'Группа Мц':[15];

 end;
handleevent
	 cmInit:
	 {

	 }
	 cmInsert:
	 {
	 }
	 cmDelete:
	 {

	 }
	 cmClose:
	 {
					   stop;
		   CloseWindow('mc');
	 }
 end;
 end;

end;
window status
	  show at (,,93,25);
	  panel pstatus
	  show at (,,,);
	  browse bstatus(,,Sci1478EscIns)
		 table ppstatus,cartesian;
		 recMarker {ppstatus.atl_nrec};
		  fields
		  	ppstatus.name 'Статус документа':[10];
	  end;
	handleevent
			cmInit:
			{
	
			}
			cmInsert:
			{
			}
			cmDelete:
			{
	
			}
			cmClose:
			{
							  stop;
				  CloseWindow('status');
			}
		end;
	  end;

end;
window format
end;
window line
end;
end.

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

CloseWindow('mc');

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

CloseWindow(mc);

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

  longint SomeWindowNumber;

  ...
  CloseWindow(SomeWindowNumber);
  ...

  handleevent
    cmInit: {
      ...
      SomeWindowNumber := mc;
      ...
    }
    ...
  end;