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

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

interface Plan 'Производственные планы';
 show   at   (,,76,25);
 var name: string;
 	 data:date;
 	 status:string;
 	 podr:string;
 	 t_plan:string;
 	 	 	 browse bPPlan(,,sci178EnEsc);
 	 	 	 	 fields

 	 	 	 	 	 data   'Дата' : [15] , protect, noAutoSize;
 	 	 	 	 	 name   'Номер плана' : [25], protect, noAutoSize;
 	 	 	 	 	 status 'Статус' : [7], protect,noAutoSize;
 	 	 	 	 	 podr   'Подразделение' : [25] , protect, noAutoSize;
 	 	 	 	 	 t_plan 'Тип плана' : [4], protect, noAutoSize;
 	 	 	 end;
 	 handleevent
	 	 cmDefault:
	 	 {
	 	 	 RunInterface('PlanCorrect',data,name,status,podr,t_plan);
		 }
		 cmDelete://F8
		 {var a:integer;
		 	a:=1;
		 }
		 cmInsert://F7
		 {			 var a:integer;
							a:=2;
		 }
		 cmDefault://Enter
		 {
		 }
		 cmClose://Esc
		 {
		 }
 	 end;
 end.

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

interface PlanCorrect 'Редактирование планов';
show at (,,83,25);
var
	data :date;
	namePPlan :string;
	podr :string;
	status :string;
	t_plan :string;
	line: string;
	group_i:string;
	name : string;
	percIs:double;
	TechLoss:double;
	UnitMeasure:string;
	Vsego:double;
	Fdec:double;
	Sdec:double;
	Tdec:double;

parameters data,namePPlan,status,podr,t_plan;
		panel p_sCorPPlan;
		show at (,,,8);
			screen sCorPPlan;
			bevel be1 {4,0,79,7,bsRaised, bsFrame};
				fields
					data :pickButton;
					namePPlan:noprotect;
					podr :pickButton;
					status :pickButton;
					t_plan :pickButton;
					line: pickbutton;
					group_i:pickbutton;
			buttons
				cmAddMc;
<<

          Дата            Номер плана              Структурное подразделение
        .@@@@@@@@@       .@@@@@@@@@@@@           .@@@@@@@@@@@@@@@@@@@@@@@@@@

               Статус               .@@@@@@@@@@@      Тип плана.@@@@@@@@@@@@
               Линия      .@@@@@@@@@@@@@@@@@@@@@      Группа  .@@@@@@@@@@@@@

                                                      <.Добавить матценность.>

>>
			end;
		end;
		panel p_bCorPPlan;
		show at (,9,,)
			browse bCorPPlan(,,sci178EnEsc);
				fields
					name 'Наименование' : [20], pickButton;
					percIs'Процент','1 сорта,%': [6],noprotect;
					TechLoss 'Техпотери, %':[8],noprotect;
					UnitMeasure 'Единица','измерения':[7],pickButton;
					Vsego 'Всего':[12],Skip;
					Fdec 'Первая','декада':[10],noprotect;
					Sdec 'Вторая','декада':[10],noprotect;
					Tdec 'Третья','декада':[10],noprotect;
			end;
		end;
handleEvent
	cmAddMc:
	        {
				RunInterface('AddMC');
		    }
		cmPick:
		{
		  var res : word;

		  case CurField of
			#name:
			  res := RunInterface('PickMC',name);
			#UnitMeasure:
			  res := RunInterface('MeashureUnits',UnitMeasure);
		  end;
		  	RescanPanel(sCorPPlan);
			RescanPanel(bCorPPlan);
		}
		cmCancel: begin
		  CloseInterface(cmDefault); 
		  stop; 
		  end;
		cmCheckField:
 		{
			vsego:=Fdec+Sdec+Tdec;
			RescanPanel(bCorPPlan);
		}
end;
end.

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

embedded scOne interface plan;
end;
embedded scOne interface plan.plancorrect;
end;

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

  handleevent
    cmMyDataAreChanged: ReScanPanel; // или типа того
    ...
  end;