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

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

#param /linc:d:\viperprojekt\autoexec.vpp
#setcurenv "galnet" from 'c:\GAL810\exe\';
#define ComponentVersion
#include GALNET.CCM
#Component "L_SOPRDOC"
alter interface AKTREC;
tableEvent table SPSOPR
cmPick:
{
 var cmc:comp
 case curfield of
  #NAMEMCUSL:
  {
   if runinterface (L_MCU::GETMC,cmc) = cmdefault and cmc != 0
   {
   if spsopr.cmcusl = 0
   {
   spsopr.cmcusl:=cmc;
   insert current spsopr;
   }
    else
  {
    spsopr.cmcusl:=cmc;
    update current spsopr;
  }
   rereadrecord(#spsopr);
   stop;
   }
  } else if(inherited::HandleEvent(cmPick) = heOk)   {}
 end;
}
end;
end.  

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

#param /linc:d:\viperprojekt\autoexec.vpp
#setcurenv "galnet" from 'c:\GAL810\exe\';
#define ComponentVersion
#include GALNET.CCM
#Component "L_SOPRDOC"
alter interface AKTREC;
tableEvent table SPSOPR
cmPick:
{
 var cmc:comp
 case curfield of
  #NAMEMCUSL:
  {
   if runinterface (L_MCU::GETMC,cmc) = cmdefault and cmc != 0
if spsopr.cmcusl = 0
    {
   spsopr.cmcusl:=cmc;
  if RecordExists spsopr !=tsOK
    then insert current spsopr;
   else
   update current spsopr;
   rereadrecord(#spsopr);
   stop;
   }
  else if(inherited::HandleEvent(cmPick) = heOk)   {}
  }
 end;
}
end;
end.   

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

SpSopr201Default(1);

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

function IsNew : boolean;

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

#param /linc:d:\viperprojekt\autoexec.vpp
#setcurenv "galnet" from 'c:\GAL810\exe\';
#define ComponentVersion
#include GALNET.CCM
#Component "L_SOPRDOC"
alter interface AKTREC;
tableEvent table SPSOPR
cmPick:
{
 var cmc:comp
 case curfield of
  #NAMEMCUSL:
  {
   if runinterface (L_MCU::GETMC,cmc) = cmdefault and cmc != 0
    spsopr.cmcusl:=cmc;
    if isnew()
    insert current spsopr;
    else
    update current spsopr;
    rereadrecord(#spsopr);
  runinterface (L_SOPRDOC::Example, katsopr.corgbase, spsopr.cmcusl)
  }
   else if(inherited::HandleEvent(cmPick) = heOk)   {}
 end;
}
end;
end.
Interface Example 'TEST' doAccept;
var _corg, _cmc:comp
parameters _corg, _cmc
  create view as select * from katsopr, spsopr, katorg
where
 ((
   _corg == katsopr.corgbase and
   201 == katsopr.vidsopr and
   _cmc == spsopr.cmcusl and
   katsopr.nrec == spsopr.csopr   and
   spsopr.cmcusl == katmc.nrec and
   katsopr.corgbase == katorg.nrec and
   1>>=spsopr.prmc
 ));
  browse EmployeeBrowse;
//  table KATSOPR;
  Fields
    katsopr.nsopr:protect;
    katsopr.dsopr:protect;
    katsopr.vidsopr:protect;
    katmc.name:protect;
    katorg.name:protect;
  end;
end.

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

#param /linc:d:\viperprojekt\autoexec.vpp
#setcurenv "galnet" from 'c:\GAL810\exe\';
#define ComponentVersion
#include GALNET.CCM
#Component "L_SOPRDOC"
alter interface AKTREC;
tableEvent table SPSOPR
cmPick:
{
 case curfield of
  #NAMEMCUSL:
  {
   if runinterface (L_MCU::GETMC,spsopr.cmcusl) = cmdefault and spsopr.cmcusl != 0
    if isnew()
    insert current spsopr;
    else
    update current spsopr;
    rereadrecord(#spsopr);
    runinterface (L_SOPRDOC::Example, katsopr.corgbase, spsopr.cmcusl,spsopr.kolfact,spsopr.price,spsopr.csporder)
    spsopr.rprice:=spsopr.price;
    update current spsopr;
    PutCommand(cmRefreshBDdata)
  }
   else if(inherited::HandleEvent(cmPick) = heOk)   {}
 end;
}
end;
end.
Interface Example 'TEST' , escClose, cyan,doAccept;
var _corg, _cmc, _csporder, _gruz:comp
var _kol,_price:double;
parameters _corg, _cmc, _kol,_price,_csporder
  create view as select * from katsopr, spsopr, katorg, katparty, sklorder, sporder, katpodr
where
 ((
   _corg == katsopr.corgbase and
   201 == katsopr.vidsopr and
   _cmc == spsopr.cmcusl and
   katsopr.nrec /== spsopr.csopr   and
   katsopr.corgbase /== katorg.nrec and
   spsopr.cmcusl == katmc.nrec and
   katsopr.corgbase == katorg.nrec and
   1>>=spsopr.prmc and
   spsopr.cparty == katparty.nrec and
   spsopr.nrec == sporder.cspsopr and
   sporder.csklorder == sklorder.nrec and
   sklorder.cpodr == katpodr.nrec
 ))
 bounds filGruz = _gruz == katsopr.cgruzto(noindex)
 ;
  browse EmployeeBrowse;
  table KATSOPR;
  Fields
    katsopr.nsopr '№ сопроводительного документа':[30], protect;
    katsopr.dsopr 'Дата':[10], protect;
//    katsopr.vidsopr:protect;
    katmc.name 'Наименование товара':[25], protect;
    katorg.name 'Наименование контрагента':[25], protect;
    katparty.name 'Название партии':[25], protect;
    sklorder.norder '№ Ордера':[10], protect;
  end;
handleevent
cmInit :
{

}
cmDefault:
{
 _kol:=spsopr.kolfact;
 _price:=spsopr.price;
 _csporder:=sporder.nrec;
}
cmpick:
{
_gruz:=0;
runinterface(L_KATORG::GetKatOr,_gruz,0,false,0,0);
if _gruz !=0
{
 subbounds(tbfilGruz);
 addbounds(tbfilGruz);
}
else
subbounds(tbfilGruz)
PutCommand(cmRefreshBDdata)
}
end;
end.