package v1

import (
	"apsClient/conf"
	"apsClient/constvar"
	"apsClient/model"
	"apsClient/model/common"
	"apsClient/model/request"
	"apsClient/model/response"
	"apsClient/nsq"
	"apsClient/pkg/contextx"
	"apsClient/pkg/convertx"
	"apsClient/pkg/ecode"
	"apsClient/pkg/logx"
	"apsClient/pkg/safe"
	"apsClient/service"
	"apsClient/service/plc_address"
	"errors"
	"fmt"
	"github.com/gin-gonic/gin"
	"gorm.io/gorm"
	"sort"
	"sync"
	"time"
)

type TaskApi struct{}

// TaskCountdown
// @Tags      Task
// @Summary   新任务倒计时
// @Produce   application/json
// @Success   200   {object}  contextx.Response{data=response.TaskCountdown}  "成功"
// @Router    /v1/task/countdown [get]
func (slf *TaskApi) TaskCountdown(c *gin.Context) {
	ctx, ok := contextx.NewContext(c, nil)
	if !ok {
		return
	}
	var resp response.TaskCountdown
	workOrder, err := service.NewTaskService().GetNextTask()
	if err == nil {
		seconds := workOrder.StartTime - time.Now().Unix()
		resp.CountDownHour = seconds / 3600
		resp.CountDownMinute = seconds % 3600 / 60
		resp.ShowCountDown = true
	}
	ctx.OkWithDetailed(resp)
}

// TaskGet
// @Tags      Task
// @Summary   获取任务
// @Produce   application/json
// @Param     object  query    request.TaskList true  "查询参数"
// @Success   200   {object}  contextx.Response{data=response.TaskResponse}  "成功"
// @Router    /v1/task/get [get]
func (slf *TaskApi) TaskGet(c *gin.Context) {
	var params request.TaskList
	ctx, ok := contextx.NewContext(c, &params)
	if !ok {
		return
	}

	channelAmount, err := service.NewDevicePlcService().GetDeviceChannelAmount()
	if err != nil {
		ctx.FailWithMsg(ecode.NeedConfirmedErr, err.Error())
		return
	}

	taskCount := service.NewTaskService().NewTaskCount()
	params.Page = 1
	if params.PageSize <= 0 {
		if params.TaskMode == constvar.TaskModeUnStarted {
			params.PageSize = int(taskCount)
		} else {
			params.PageSize = channelAmount
		}
	}

	taskMode := constvar.TaskModeCurrent
	if params.TaskMode == constvar.TaskModeUnStarted {
		taskMode = params.TaskMode
	}

	taskResponse, code := service.NewTaskService().GetTask(params.Page, params.PageSize, taskMode, nil) //取进行中的或未开始的
	if code != ecode.OK {
		ctx.Fail(code)
		return
	}

	if len(taskResponse.Tasks) < channelAmount && taskMode == constvar.TaskModeCurrent {
		var existsChannel = make(map[int32]bool, channelAmount)
		for _, task := range taskResponse.Tasks {
			existsChannel[task.Channel] = true
		}
		for i := 0; i < channelAmount; i++ {
			if existsChannel[int32(i)] {
				continue
			}
			taskResponseTemp, code := service.NewTaskService().GetTask(params.Page, 1, constvar.TaskModeLastFinished, []int32{int32(i)}) //取上一个完成的
			if code != ecode.OK {
				ctx.Fail(code)
				return
			}
			taskResponse.Tasks = append(taskResponse.Tasks, taskResponseTemp.Tasks...)
		}
	}

	sort.Slice(taskResponse.Tasks, func(i, j int) bool {
		return taskResponse.Tasks[i].Channel < taskResponse.Tasks[i].Channel
	})

	nowTs := time.Now().Unix()
	flagMap := make(map[int32]struct{}, 0)
	for _, task := range taskResponse.Tasks {
		if _, ok := flagMap[task.Channel]; !ok && !service.TaskFlagGet(task.Channel) && task.Procedure.StartTime <= nowTs {
			task.CanStarted = true
			flagMap[task.Channel] = struct{}{}
		}
	}

	taskResponse.Prompt = conf.Conf.Prompt
	taskResponse.ChannelAmount = channelAmount
	taskResponse.TaskCount = taskCount

	ctx.OkWithDetailed(taskResponse)
}

// GetProcessParams
// @Tags      Task
// @Summary   任务开始（获取工艺参数）
// @Produce   application/json
// @Param     id  path    int true  "工序id"
// @Success   200   {object}  contextx.Response{data=response.ProcessParamsResponse}  "成功"
// @Router    /v1/task/start/{id} [get]
func (slf *TaskApi) GetProcessParams(c *gin.Context) {
	ctx, ok := contextx.NewContext(c, nil)
	if !ok {
		return
	}
	idx := c.Param("id")
	if idx == "" {
		ctx.Fail(ecode.ParamsErr)
		return
	}
	id := convertx.Atoi(idx)
	procedure, code := service.NewTaskService().GetProcedureById(id)
	if code != ecode.OK {
		ctx.Fail(code)
		return
	}

	order, err := service.NewTaskService().GetOrderByWorkOrderId(procedure.WorkOrderID)
	if err != nil {
		ctx.Fail(ecode.DBErr)
		return
	}
	var processModel *model.ProcessModel
	if procedure.ProcessModelNumber != "" {
		processModel, err = service.GetProcessModelByNumber(procedure.ProcessModelNumber)
		if err != nil || processModel == nil || processModel.ParamsMap == nil {
			ctx.FailWithMsg(ecode.ParamsErr, "未获取到工艺参数，请在工艺模型库中上传！")
			return
		}
	} else {
		processModel, err = service.NewTaskService().GetProcessParams(procedure, order)
		if err != nil || processModel == nil || processModel.ParamsMap == nil {
			ctx.FailWithMsg(ecode.ParamsErr, "未获取到工艺参数，请在工艺模型库中上传！")
			return
		}
	}

	processParamsArr := make([]response.ProcessParams, 0, len(processModel.ParamsMap))
	for k, v := range processModel.ParamsMap {
		processParamsArr = append(processParamsArr, response.ProcessParams{
			Key:   k,
			Value: v,
		})
	}

	safe.Go(func() {
		caller := nsq.NewCaller(fmt.Sprintf(constvar.NsqTopicGetPlcAddress, conf.Conf.NsqConf.NodeId), fmt.Sprintf(constvar.NsqTopicSendPlcAddress, conf.Conf.NsqConf.NodeId))
		var addressResult common.ResponsePlcAddress
		err := caller.Call(common.RequestPlcAddress{DeviceId: conf.Conf.System.DeviceId}, &addressResult, time.Second*3)
		if err != nil {
			logx.Infof("get plc address err: %v", err.Error())
		}
	})

	resp := response.ProcessParamsResponse{
		Number: processModel.Number,
		Params: processParamsArr,
	}
	ctx.OkWithDetailed(resp)
}

// TaskFinish
// @Tags      Task
// @Summary   任务结束
// @Produce   application/json
// @Param     id  path    int true  "工序id"
// @Success   200   {object}  contextx.Response{service.GetProcessModel}  "成功"
// @Router    /v1/task/finish/{id} [put]
func (slf *TaskApi) TaskFinish(c *gin.Context) {
	ctx, ok := contextx.NewContext(c, nil)
	if !ok {
		return
	}
	idx := c.Param("id")
	if idx == "" {
		ctx.Fail(ecode.ParamsErr)
		return
	}
	id := convertx.Atoi(idx)
	procedure, code := service.NewTaskService().GetProcedureById(id)
	if code != ecode.OK {
		ctx.Fail(code)
		return
	}
	if procedure.Status == model.ProcedureStatusFinished {
		ctx.Ok()
		return
	}
	if procedure.Status != model.ProcedureStatusProcessing {
		ctx.Fail(ecode.ParamsErr)
		return
	}
	err := service.NewTaskService().UpdateProcedureStatus(nil, id, model.ProcedureStatusFinished, procedure.Channel)
	if err != nil {
		logx.Errorf("UpdateProcedureStatus err: %v", err.Error())
		ctx.Fail(ecode.UnknownErr)
		return
	}

	msg := &common.MsgTaskStatusUpdate{
		WorkOrderId:  procedure.WorkOrderID,
		ProcedureID:  procedure.ProceduresInfo.ProcedureID,
		DeviceId:     procedure.ProceduresInfo.DeviceID,
		IsProcessing: false,
		IsFinish:     true,
	}

	caller := nsq.NewCaller(fmt.Sprintf(constvar.NsqTopicTaskProcedureStatusUpdate, conf.Conf.NsqConf.NodeId), "")
	err = caller.Send(msg)
	if err != nil {
		logx.Errorf("send task status update msg error:%v", err.Error())
	}

	service.TaskFlagUnset(procedure.Channel)

	ctx.Ok()
}

var mutex sync.Mutex

// TaskStart
// @Tags      Task
// @Summary   下发工艺参数（开始任务）
// @Produce   application/json
// @Param     object  body    request.SendProcessParams true  "查询参数"
// @Success   200   {object}  contextx.Response{service.GetProcessModel}  "成功"
// @Router    /v1/task/sendProcessParams [post]
func (slf *TaskApi) TaskStart(c *gin.Context) {
	mutex.Lock()
	defer mutex.Unlock()
	var params request.SendProcessParams
	ctx, ok := contextx.NewContext(c, &params)
	if !ok {
		return
	}
	taskService := service.NewTaskService()
	procedure, code := taskService.GetProcedureById(params.ProcedureId)
	if code != ecode.OK {
		ctx.Fail(code)
		return
	}
	order, err := taskService.GetOrderByWorkOrderId(procedure.WorkOrderID)
	if err != nil {
		ctx.Fail(ecode.UnknownErr)
		return
	}

	if procedure.Status == model.ProcedureStatusProcessing {
		ctx.Ok()
		return
	}
	processModel, err := taskService.GetProcessParams(procedure, order)
	if err != nil || processModel == nil || processModel.ParamsMap == nil {
		ctx.FailWithMsg(ecode.ParamsErr, "未获取到工艺参数，请在工艺模型库中上传！")
		return
	}

	err = model.WithTransaction(func(db *gorm.DB) error {
		err = taskService.UpdateProcedureStatusAndChannel(db, params.ProcedureId, model.ProcedureStatusProcessing, procedure.Channel, processModel.Number)
		if err != nil {
			return err
		}
		err = taskService.UpdateOrderStatus(db, order.ID, model.OrderStatusProcessing)
		if err != nil {
			return err
		}
		return service.NewProgressService().Add(db, procedure, order)
	})
	if err != nil {
		logx.Errorf("SendProcessParams update order and procedure status error:%v", err.Error())
		ctx.FailWithMsg(ecode.DBErr, "更改工单状态失败")
		return
	}
	plcConfig, code := service.NewDevicePlcService().GetDevicePlc()
	if code != ecode.OK || plcConfig.Id == 0 {
		ctx.FailWithMsg(ecode.NeedConfirmedErr, "请先配置PLC")
		return
	}
	plcConfig.MaxTryTimes = 2
	err = SendParams(processModel.ParamsMap, plcConfig)
	if err != nil {
		logx.Errorf("SendProcessParams: %v", err.Error())
		err = model.WithTransaction(func(db *gorm.DB) error {
			err = taskService.UpdateProcedureStatusAndChannel(db, params.ProcedureId, model.ProcedureStatusWaitProcess, procedure.Channel, "")
			if err != nil {
				return err
			}
			return nil
		})
		ctx.FailWithMsg(ecode.NeedConfirmedErr, "PLC请求失败，请检查PLC配置！")
		return
	}
	plcConfig.CurrentTryTimes = 0
	err = service.PlcWrite(plcConfig, constvar.PlcStartAddressTypeTotalNumber, procedure.Channel, order.Amount.IntPart())
	if err != nil {
		ctx.FailWithMsg(ecode.NeedConfirmedErr, "PLC请求失败，请检查PLC配置")
		return
	}

	msg := &common.MsgTaskStatusUpdate{
		WorkOrderId:  procedure.WorkOrderID,
		ProcedureID:  procedure.ProceduresInfo.ProcedureID,
		DeviceId:     procedure.ProceduresInfo.DeviceID,
		IsProcessing: true,
		IsFinish:     false,
	}

	caller := nsq.NewCaller(fmt.Sprintf(constvar.NsqTopicTaskProcedureStatusUpdate, conf.Conf.NsqConf.NodeId), "")
	err = caller.Send(msg)
	if err != nil {
		logx.Errorf("send task status update msg error:%v", err.Error())
	}
	service.TaskFlagSet(procedure.Channel)
	ctx.Ok()
}

// UpdateProcessParams
// @Tags      Task
// @Summary   更新工艺参数（进行中的任务）
// @Produce   application/json
// @Param     object  body    request.SendProcessParams true  "查询参数"
// @Success   200   {object}  contextx.Response{}  "成功"
// @Router    /v1/task/updateProcessParams [post]
func (slf *TaskApi) UpdateProcessParams(c *gin.Context) {
	mutex.Lock()
	defer mutex.Unlock()
	var params request.SendProcessParams
	ctx, ok := contextx.NewContext(c, &params)
	if !ok {
		return
	}
	taskService := service.NewTaskService()
	procedure, code := taskService.GetProcedureById(params.ProcedureId)
	if code != ecode.OK {
		ctx.Fail(code)
		return
	}
	order, err := taskService.GetOrderByWorkOrderId(procedure.WorkOrderID)
	if err != nil {
		ctx.Fail(ecode.UnknownErr)
		return
	}

	if procedure.Status != model.ProcedureStatusProcessing { //只能进行中的可以更新
		ctx.FailWithMsg(ecode.ParamsErr, "只能进行中的工序可以更新工艺参数")
		return
	}
	processModel, err := taskService.GetProcessParams(procedure, order)
	if err != nil || processModel == nil || processModel.ParamsMap == nil {
		ctx.FailWithMsg(ecode.ParamsErr, "未获取到工艺参数，请在工艺模型库中上传！")
		return
	}

	plcConfig, code := service.NewDevicePlcService().GetDevicePlc()
	if code != ecode.OK || plcConfig.Id == 0 {
		ctx.FailWithMsg(ecode.NeedConfirmedErr, "请先配置PLC")
		return
	}
	plcConfig.MaxTryTimes = 2
	err = SendParams(processModel.ParamsMap, plcConfig)
	if err != nil {
		logx.Errorf("update process params err: %v", err.Error())
		ctx.FailWithMsg(ecode.NeedConfirmedErr, "PLC请求失败，请检查PLC配置！")
		return
	}
	_ = taskService.UpdateProcedureStatusAndChannel(nil, params.ProcedureId, model.ProcedureStatusProcessing, procedure.Channel, processModel.Number)
	ctx.Ok()
}

func SendParams(paramsMap map[string]interface{}, plcConfig *model.DevicePlc) error {
	if len(paramsMap) == 0 {
		return errors.New("empty params")
	}
	if plcConfig.CurrentTryTimes > plcConfig.MaxTryTimes {
		return plcConfig.CurrentErr
	}
	if plcConfig.CurrentTryTimes == 0 {
		logx.Info("----------------开始下发工艺参数-----------------")
	}
	var failedNumbers int
	for k, v := range paramsMap {
		address, ok := plc_address.Get(k)
		if !ok {
			logx.Errorf("miss param address, k:%v, v:%v", k, v)
			continue
		}
		err := service.PlcWriteDirect(plcConfig, address, v)
		if err != nil {
			plcConfig.CurrentErr = err
			failedNumbers++
			logx.Errorf("plc write err:%v, address: %v, key: %v value: %v", err.Error(), address, k, v)
		} else {
			delete(paramsMap, k)
			logx.Infof("plc write ok: key: %v, value: %v", k, v)
		}
	}
	if failedNumbers >= 1 { //写入plc失败, 重试
		plcConfig.CurrentTryTimes++
		return SendParams(paramsMap, plcConfig)
	}
	logx.Info("----------------下发工艺参数完毕-----------------")
	return nil
}