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

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

Table Struct tmpMnPlanForDel
(
 cMnPlan : tNRec
)
..........
cmMarkUnMark:
{
  if (IsValid(tntmpMnPlanForDel))
  {
    delete current tmpMnPlanForDel;
  }
  else
  {
    ClearBuffer(#tmpMnPlanForDel);
    set tmpMnPlanForDel.cMnplan := MnPlan.Nrec;
    Insert Current tmpMnPlanForDel;
  }
  RedrawCurrentAndGo (GetCurrentFormat, true);
}

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

#component "M_MNPLAN"
alter interface IRMNPLAN;
create view as select pick.* from pick where ((11027 == pick.wlist and  mnplan.nrec == pick.crec));
handleevent
cmMarkUnMark:
	{
  if (IsValid(tntmpMnPlanForDel))
  {
    delete current tmpMnPlanForDel;
  }
  else
  {
    ClearBuffer(#tmpMnPlanForDel);
    set tmpMnPlanForDel.cMnplan := MnPlan.Nrec;
    Insert Current tmpMnPlanForDel;
  }
	  if isvalid(#pick) {
	                        delete current pick;
						  }else
                          {
							ClearBuffer(#Pick);
							set Pick.wlist:=11027;
                            set Pick.crec :=mnplan.nrec ;
							insert current  pick;

						  }
	 redrawCurrentAndGo(brMnPlanZakazNeedMt, true);
     redrawCurrentAndGo(brMnPlanSort, true);
	 rescanpanel(#MnPlan);
	 rescanpanel(#tmpsort);
	}
 cmSelectAll:
 {
  if curFormatinArea(brMnPlanZakazNeedMt)=brMnPlanZakazNeedMt
   {
   pushPos(#mnPlan);
   _loop mnplan
   {
  if (IsValid(tntmpMnPlanForDel))
  {
    delete current tmpMnPlanForDel;
  }
  else
  {
    ClearBuffer(#tmpMnPlanForDel);
    set tmpMnPlanForDel.cMnplan := MnPlan.Nrec;
    Insert Current tmpMnPlanForDel;
  }
	  if not isvalid(#pick) {
							 ClearBuffer(#Pick);
							 set Pick.wlist:=11027;
        set Pick.crec :=mnplan.nrec ;
							 insert current  pick;
 						    }



   }
   popPos(#mnplan);
  rescanpanel(#MnPlan);
  }
  if curFormatinArea(brMnPlanSort)=brMnPlanSort
   {
   pushPos(#tmpsort);
   _loop tmpsort
   {
  if (IsValid(tntmpMnPlanForDel))
  {
    delete current tmpMnPlanForDel;
  }
  else
  {
    ClearBuffer(#tmpMnPlanForDel);
    set tmpMnPlanForDel.cMnplan := TmpSort.crec;
    Insert Current tmpMnPlanForDel;
  }
	  if not isvalid(#pick) {
							 ClearBuffer(#Pick);
							 set Pick.wlist:=11027;
                             set Pick.crec :=tmpsort.crec;
							 insert current  pick;
 						    }



   }
   popPos(#tmpsort);
   rescanpanel(#tmpsort);
  }
 }


 cmUnSelectAll :
 {
     delete all pick where ((11027 == pick.wlist));
    delete all tmpMnPlanForDel;
  rescanpanel(#MnPlan);
  rescanpanel(#tmpsort);

 }
end.

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

RunInterface(M_MNPLAN::irMnPlan, 0, 17, crec);

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

Возникло необработанное исключение...
Ссылка не была инициализирована...

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

	  runinterface('M_MNPLAN::mnpldisp',3,17,нрек ПЗ);