int Sub OnBeforeInsert(long lId)

// lId to identyfikator dokumentu sprzedaży jeszcze przed wystawieniem
// czyli w buforze w tabeli BD

// szukaj dokumentów magazynowych powiązanych z tym dokumentem

baseMG mg
int mgErr

mg.Open()
mg.SetKey("idhandl")
mg.SetKeySeg("idhandl", (-1) * lId ) // jeżeli powiązanie jest z dokumentem sprzedaży w BD to idhanld w MG jest ze znakiem "-"
mg.SetKeySeg("data","")
mgErr = mg.GetRec( GE )

while !mgErr
   if mg.GetField("idHandl") != (-1) * lId then exit   

      // tu rób coś
      message( (using "Dokument wydania %s jest powiązany z tym dokumentem sprzedaży", mg.GetField("kod") ))

   mgErr = mg.GetRec( NX )

wend


mg.Close()


EndSub