BeginForm(PlanlamaAracBelirle)
    Set(@VehicleId, {Actions.1.RuleResponse})
    
    If(@VehicleId != "")
        For(@i,1,@GridSelectList.rowCount,1)
            Warehouse.Get(@GridSelectList.rows.@i.WarehouseId)
            If(@@Warehouse!="")   
                PlanningSlip.Get(@GridSelectList.rows.@i.Id)
                If(@@PlanningSlip!="")        
                    Vehicle.Get(@VehicleId)
                    Warehouse.Get(@@PlanningSlip.WarehouseId)
                    PlanningSlip.Save()
                EndIf()
            EndIf()
        Next()  
    EndIf()
EndForm()