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

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

wkl:=false
if getperv tabla=0 { wkl:=true;PushPos() }
if wkl
  getnext tabla;
delete current tabla;
if wkl { PosPos() }
rescanpanel(#tabla)

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

TableEvent Table Katorg;
 cmSetDefault : {
                };
 cmInsertRecord : Insert Current Katorg;
 cmUpdateRecord : Update Current Katorg;
 cmDeleteRecord : If Message ( '', YesNo ) = cmYes
                    then Delete Current Katorg;
End; //TableEvent Katorg

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

			panel pPPlan
			table pptitle;
	 	 	 browse bPPlan(,,Sci13478Esc)
			   	 fields
 	 	 	 	 	 pptitle.pdate   'Дата' : [15] , protect, noAutoSize;
 	 	 	 	 	 pptitle.npp   'Номер плана' : [25], protect, noAutoSize;
	 	 	 	 	 ppstatus.name 'Статус' : [7], protect,noAutoSize;
 	 	 	 	 	 podr   'Подразделение' : [25] , protect, noAutoSize;
  	 	 	 end;
			 tableevent
			 	cmSetDefault: {		  //clearbuffer(#pptitle);
										   pptitle.pdate:=Cur_Date();
										   pptitle.npp:='';
										   pptitle.cppstatus:=0;
										   pptitle.cpodr:=0;
										   
										 //pptitle.atl_nrec:=RecordsInTable(#pptitle)+1;
										 }
			   cmUpdateRecord : update current pptitle;
			   cmInsertRecord :{ insert current pptitle;};
			   cmDeleteRecord : delete current pptitle;
			 end;
			end;

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

TableEvent Table ppTitle
cmDeleteRecord :
 {
  //Перед удалением основной записи удаляем все подчиненные
  If Delete ppSpecif Where ((ppTitle.nrec == ppSpecif.cPPTitle )) = tsOk
    Delete Current ppTitle;
 }
End;

TableEvent Table ppSpecif
cmDeleteRecord :
 {
  Delete Current ppSpecif;
 }
End;