Sub PopupMenuClick(ctrl as String, index as Integer, result as Integer)
dim tSql , tnum , tMalRef ,tYuzde , tMalKod
dim tMiktar, tKalanMiktar, SeriLotKod , hatavarsafisyok
dim UyarMesaji
tYuzde = 0.00
SeriLotKod = ""
tMalRef = 0
tSql = ""
tnum = 0
tMiktar = 0.00
tKalanMiktar = 0.00
tMalKod = ""
hatavarsafisyok = 1
UyarMesaji = ""
if Ctrl = popup then
select case index
case cMnIdx
ArrGen.size =0
DBGGetRecAdr(brws,ref)
tnum = UretimUygunmu(ref)
if tnum = 0 then
warn("Potens uygulanamaz (1) !!!")
exit Sub
end if
' işleme başla
tSql = "SELECT POL.LOGICALREF, POL.ITEMREF, POL.AMOUNT*(POL.UINFO2/POL.UINFO1) "
tSql = tSql + "FROM "+ LogoTabloAd(157) +" PRD WITH(NOLOCK) "
tSql = tSql + "INNER JOIN " + LogoTabloAd(154) + " POL WITH(NOLOCK) ON POL.PRODORDREF = PRD.LOGICALREF "
tSql = tSql + "WHERE PRD.CANCELLED=0 AND POL.LINENO_ <>1 AND SUBSTRING(POL.LINEEXP,1,1)='A' "
tSql = tSql + "AND PRD.LOGICALREF = " + StringYap(ref)
CreateQuery(Qry)
Qry.SetSQLText(tSql)
ok = Qry.ExecuteDirect()
if Qry.Ready = 1 then
resof = Qry.First()
if resof = 1 then
do while resof = 1
Qry.GetFieldValue( 1, 1, tnum)
Qry.GetFieldValue( 2, 1, tMalRef)
Qry.GetFieldValue( 3, 3, tMiktar)
'Qry.GetFieldValue(2, 1, tLineNr)
'Qry.GetFieldValue(3, 4, tPlaka)
tMalKod = MalzemeBul(tMalRef)
GeciciSeriLotNo = ""
GeciciSeriLotRef = 0
GeciciPolRef = 0
GeciciMalRef = 0
GeciciPolRef = tnum
GeciciMalRef = tMalRef
GeciciKalan = 0
' SeriLotKod= POLINELotNo(tnum,tMalRef)
abcMiktar = POLINELotNo(tnum,tMalRef)
tKalanMiktar = tMiktar - abcMiktar '(tMiktar * (tYuzde/100.00))
if DonBabaDonelim2(tMalKod, tKalanMiktar , tYuzde) = 0 then
' hatavarsafisyok = 0
' warn("Fiş Oluşturulamadı (1)")
tKalanMiktar = GeciciKalan
GeciciKalan = 0
else
tKalanMiktar = GeciciKalan
GeciciKalan = 0
end if
if tKalanMiktar > 0 then
if DonBabaDonelim(tMalKod, tKalanMiktar , tYuzde)=0 then
hatavarsafisyok = 0
UyarMesaji = tMalKod + " Fiş Oluşturulamadı (2)"
warn(UyarMesaji)
end if
end if
resof = Qry.Next()
Loop
if hatavarsafisyok = 1 then
call SarfFisi(ref)
end if
end if
end if
Qry.Clear()
Qry=Null
end select
end if
End Sub