BeginForm(BeforeDispatchPost) 
  sql("select TOP 1 CODE from LOGOTIGER..L_SHPAGENT",@sqlresult)
  IF(@ERPDATA.TYPE=1 OR @ERPDATA.TYPE=8 @ERPDATA.TYPE=25)
      If(@sqlresult.rowCount>0)
          // L_SHPAGENT tablosunda kayıtlı taşıyıcı kodlarından birisinin bu şekilde set edilmesi yeterlidir.
          Set(@ERPDATA.SHIPPING_AGENT,@sqlresult.rows.1.CODE)
      EndIf()
  EndIf()
EndForm()