BeginForm(BeforeItem)
    Sql("Select LOGICALREF From LG_022_ITEMS WHERE CODE=@@Item.Code",@LG_ITEMS)
    Sql("select ONAYLITEDARIKCI,OZELKULLANIM,RETEST from LG_XT304_022 Where PARLOGREF=@LG_ITEMS.rows.1.LOGICALREF",@LG_EK_ALAN)
    Sql("Select YIELD2 From LG_022_ITMFACTP WHERE ITEMREF=@LG_ITEMS.rows.1.LOGICALREF",@FACTP)
    LogVariables()
    Item.Set({"ApprovedSupplier":"@LG_EK_ALAN.rows.1.ONAYLITEDARIKCI","SpecialUseStatuS":"@LG_EK_ALAN.rows.1.OZELKULLANIM","Retest":"@LG_EK_ALAN.rows.1.RETEST","InputOverageLimit":"@FACTP.rows.1.YIELD2"})
EndForm()

BeginForm(BeforeItemEkAlan)
    Item.Set({"EkAlan":"test"})
EndForm()

BeginForm(BeforeItemGetFromErp)
    Set(@wmsData.ExtendedKeys.Temperature,"666")
EndForm()

BeginForm(AfterSlipPost)
    If(@erpData.Success=0)
        Sql({"report":"RuleLogoKontrolKoduKaydet","slipId":"@erpData.ErpRecordId"},@Result)
        For(@i,1,@Result.rowCount,1)
            Set(@_CTRLCODEREF,@Result.rows.@i.CTRLCODEREF)
            Set(@_SLTRANSREF,@Result.rows.@i.SLTRANSREF)
            Set(@_STFICHEREF,@Result.rows.@i.STFICHEREF)
            Set(@_STLINEREF,@Result.rows.@i.STLINEREF)
            Set(@_TRCODE,@Result.rows.@i.TRCODE)
            Set(@_IOCODE,@Result.rows.@i.IOCODE)
            Set(@_SERILOTREF,@Result.rows.@i.SERILOTREF)
            Set(@_RETESTTARIH,@Result.rows.@i.RetestTarihi)
            If(@_TRCODE = "1")
                //Todo: Daghan - xt5 tablosunu doldur
            Else()
                //Sql({"report":"RuleLogoKontrolKoduProsedur","CTRLCODEREF":"@_CTRLCODEREF","SLTRANSREF":"@_SLTRANSREF","STFICHEREF":"@_STFICHEREF","STLINEREF":"@_STLINEREF","TRCODE":"@_TRCODE","IOCODE":"@_IOCODE","SERILOTREF":"@_SERILOTREF"},@Result)
                Sql("EXECUTE dbo.[PNET_SETCC_TRANS] @_CTRLCODEREF, @_SLTRANSREF, @_STFICHEREF, @_STLINEREF, @_TRCODE, @_IOCODE, @_SERILOTREF",@tmp)
            EndIf()
        Next()
    EndIf()
EndForm()

BeginForm(Rest_CreateFiche)
    If(@DATA.MATERIAL_SLIPS.TYPE = "25")
        Set(@SlipType, "3")//Ambar Transfer
        Set(@CustomType, "26")
    Else()
        Set(@SlipType, "2")//Sarf Çıkış
        Set(@CustomType, "24")
        ResetVariables({"name":"@@Warehouse2"})
    EndIf()
    CaseGoto(@DATA.MATERIAL_SLIPS.TYPE,{"25":"Depo1Kontrol","12":"MalzemeKontrol"})
    Goto(NoOperation)
        
    MalzemeKontrol:
        Item.Get("Code='@DATA.MATERIAL_SLIPS.ITEM_CODE'")
        If(@@Item.Id="")
            Set(@ReturnVar,{"Status":"-1","Message":"Malzeme kodu bulunamadı","Ref":"-1"})
            Goto(Return)
        EndIf()
        
    BirimKontrol:     
        ItemUnit.Get("Code='@DATA.MATERIAL_SLIPS.UNIT_CODE' and ItemId=@@Item.Id")
        If(@@ItemUnit.Id="")
            Set(@ReturnVar,{"Status":"-1","Message":"Malzeme birimi bulunamadı","Ref":"-1"})
            Goto(Return)
        EndIf()
        
    Depo1Kontrol:
        Warehouse.Get("Code='@DATA.MATERIAL_SLIPS.SOURCE_WH'")
        If(@@Warehouse.Id="")
            Set(@ReturnVar,{"Status":"-1","Message":"Kaynak depo bulunamadı","Ref":"-1"})
            Goto(Return)
        EndIf()
        
        If(@DATA.MATERIAL_SLIPS.TYPE <> "25", Goto(FisOlustur))
    Depo2Kontrol:
        Warehouse.Get("Code='@DATA.MATERIAL_SLIPS.DEST_WH'",@@Warehouse2)
        If(@@Warehouse2.Id="")
            Set(@ReturnVar,{"Status":"-1","Message":"Hedef depo bulunamadı","Ref":"-1"})
            Goto(Return)
        EndIf()
        
    FisOlustur:  
        CustomSlipType.Get(@CustomType)
        WorkOrder.New({"SlipType":"@SlipType"},1)
        If(@Response.Status="-1")
            Set(@ReturnVar,{"Status":"-1","Message":"Fiş başlığı oluşturulamadı:@Response.Message","Ref":"-1"})
            Goto(Return)
        Else()
            Goto(SatirOlustur)
        EndIf()
        
    SatirOlustur:
        For(@i,1,@DATA.MATERIAL_SLIPS.PACKAGES.COUNT,1)
            Set(@Qty,@DATA.MATERIAL_SLIPS.PACKAGES.@i.QUANTITY)
            
            Container.Get("LPN='@DATA.MATERIAL_SLIPS.PACKAGES.@i.NUMBER'")
            If(@@Container.Id="")
                Set(@ReturnVar,{"Status":"-1","Message":"Ambalaj bulunamadı:@Response.Message","Ref":"-1"})
                Goto(Return)
            Else()
                If(@SlipType = "3")
                    Set(@Qty,1)//Kolilerde Miktar 1 olması için
                    Container.Get(@@Container.Id,@@Container2)
                    Address.Get("Address=(SELECT Address FROM GetContainerAdressInfo(@@Container.Id)) AND WarehouseId = @@Warehouse2.Id",@@Address2)    
                EndIf()
                
                If(@SlipType = "3" AND @@Address2.Id="")
                    Set(@ReturnVar,{"Status":"-1","Message":"Hedef adres bulunamadı:@Response.Message","Ref":"-1"})
                    Goto(Return)
                Else()                
                    WorkOrderLine.New({"SlipType":"@SlipType","Quantity":"@Qty"},0)
                    If(@SlipType = "2")
                        ItemTracking.New({"LineType":"4","Quantity":"@Qty","TrackingNumber":"@DATA.MATERIAL_SLIPS.SERIAL_LOT_NUMBER"},1)
                    Else()
                        WorkOrderLine.Save()
                    EndIf()
                    If(@Response.Status="-1")
                        Set(@ReturnVar,{"Status":"-1","Message":"Fiş satırı oluşturulamadı:@Response.Message","Ref":"-1"})
                        Goto(Return)        
                    EndIf() 
                EndIf() 
            Next()
            
    SlipGenerate:
        //CustomSlipType.Get(26)
        Slip.Generate()
        CustomState.Get("SystemEvent = 6 AND RecordType = 161")
        Slip.Save()
        If(@Response.Status="-1")
            Set(@ReturnVar,{"Status":"-1","Message":"Fiş satırı oluşturulamadı:@Response.Message","Ref":"-1"})
        Else()
            Set(@ReturnVar,{"Status":"0","Message":"Fiş başarılı şekilde oluşturuldu","Ref":"@@Slip.Id"})
        EndIf()
        Goto(Return) 
        
    NoOperation:
        Set(@ReturnVar,{"Status":"-1","Message":"Fiş türü uygun değil","Ref":"-1"})
        
    Return:
        
        ResetVariables({"name":"@DATA"})
        Set(@DATA.Status,@ReturnVar.Status)
        Set(@DATA.Message,@ReturnVar.Message)
        Set(@DATA.Reference,@ReturnVar.Ref)
EndForm()

BeginForm(CodeMag_Shipment)
    ResetVariables({"name":"@DATA"})
             Set(@DATA.Status,"0")
             Set(@DATA.Message,"Kayıt Eklendi")
             Set(@DATA.Reference,"12312312")
EndForm()

BeginForm(CodeMag_Production)
 ResetVariables({"name":"@DATA"})
             Set(@DATA.Status,"0")
             Set(@DATA.Message,"Kayıt Eklendi")
             Set(@DATA.Reference,"12312312")
EndForm()

BeginForm(CodeMag_ProductionStatus)
    LogVariables()
   ResetVariables({"name":"@DATA"})
             Set(@DATA.Status,"0")
             Set(@DATA.Message,"Kayıt Eklendi")
             Set(@DATA.Reference,"12312312")
EndForm()

BeginForm(CodeMag_Refund)
            ResetVariables({"name":"@DATA"})
             Set(@DATA.Status,"0")
             Set(@DATA.Message,"Kayıt Eklendi")
             Set(@DATA.Reference,"12312312")
EndForm()


BeginForm(Millilestirme)
    If(@wmsData.SlipType = "3")
        Sql("INSERT INTO TEST (TEST) VALUES (@wmsData.Id)",@tmp)
        Sql("SELECT * FROM PNET_GET_MILFISDETAIL(@wmsData.Id)",@mlresult)
        LogVariables()
        If(@mlresult.rowCount > 0)
            Set(@inputOrderRef,@mlresult.rows.1.WorkOrderId)
            Set(@inWh,@mlresult.rows.1.WarehouseId)
            Set(@outWh,@mlresult.rows.1.Warehouse2Id)
            WorkOrder.Get(@inputOrderRef)
            CustomSlipType.Get(33)
            Warehouse.Get(@inWh,@@Warehouse)
            Warehouse.Get(@outWh,@@Warehouse2)
            Address.Get("Address='G01' AND WarehouseId = @@Warehouse2.Id",@@Address2)
            ResetVariables({"name":["@@OrderSlip","@@OrderSlipLine"]})
            WorkOrder.New({"SlipType":"3"},1)
            WorkOrderLine.List("SlipId = @inputOrderRef","Id",@sqlml)
            For(@i,1,@sqlml.rowCount,1)
                Container.Get(@sqlml.rows.@i.Container2Id)
                Container.Get(@@Container.Id,@@Container2)
                WorkOrderLine.New({"SlipType":"3","Quantity":"1"},1)
            Next()
            Slip.Generate()
        EndIf()
    EndIf()
    
EndForm()