int Sub OnAfterInsert(long lId)
   
// sprawdzić do jakiego typu dokumentu zostało wystawione KW

// ustawić odpowiedni schemat dla FVS i FVZ

   OnAfterInsert = 0
EndSub

int Sub OnAfterInsert(long lId)
   
   basepn pn
   pn.getrecbyid(lId)
   
   baserl rl
   rl.setKey("cross1")
   rl.setKeySeg("id1",pn.getfield("id"))
   rl.setKeySeg("id2",0)

   rl.getrec(GE)

   basepn pn2
   pn2.open()
   pn2.getrecbyid(rl.getfield("id2"))

   basedk dk
   dk.getrecbyid(pn2.getfield("dkid"))

   select case dk.getfield("typ_dk")
   
   case "FVK"
      pn.SetField("schemat","KW1")
      pn.DoUpdate()
   case "FVS"
      pn.SetField("schemat","KW2")
      pn.DoUpdate()

   endselect

   endif
   
   OnAfterInsert = 0
EndSub