int Sub OnBeforeInsert(long lId )
   
   baseZZ zz
   baseBD bd
   bd.GetRecById( lId )

   zz.SetKey( "cross2" )
   zz.SetKeySeg( "typi", 150 )
   zz.SetKeySeg( "baza2", 28 )
   zz.SetKeySeg( "id2", lId )
   zz.SetKeySeg( "baza1", 0 )
   zz.SetKeySeg( "id1", 0 )

   zz.GetRec( GE )

   if zz.GetField("baza2") == 28 && zz.GetField("id2") == lId && zz.GetField("typi") == 150  then
   
      OnBeforeInsert = 0      

   else

      if bd.GetField("typ_dk") == "FVS"
         message "W pierwszej kolejności wystaw paragon. Następnie fakturę do paragonu."
         OnBeforeInsert = -6000      
      endif

   endif

EndSub