tpssmmabw03表更新

Log::Trace("", __FUNCTION__, "*******更新炼钢连铸制造命令板坯表tpssmmabw03开始*******");
                //根据[铸坯材料]==获取一条代表信息，根据此[ingot_code]获取对应的虚拟材料管理单位[01]/[02]=按炉批/按件管理。详见代码[PM2D]
                //===========
                //MM的管理单位的控制，已经在[命令确定]点进行了处理。
                //[01]=按炉批管理，炉批号：命令材料号 = 1：1
                //[02]=按件管理  ，炉批号：命令材料号= 1：N
                //SO ，新增 TPSSMMABW03表的时候，根据命令材料号进行分组汇总，即可。 UPDATE on 2013/9/3 9:24:08
                v_ctrl_flag = tpmommabw01.CTRL_FLAG;//物料管理单位。
                //根据[命令材料号]==进行分组循环处理。
                //=========== 
                v_melt_lot_no = ""; //炉批号。
                v_pono_mat_no = "";//命令材料号。
                v_total_num = 0;
                v_total_wt = 0;
                Log::Trace("", __FUNCTION__, "产线类型=[{0}]", tpmommabw01.LINE_TYPE);
                
                c_sql_condition = " select t.prec_mat_no,NVL(SUM(t.MAT_NUM),0),NVL(SUM(t.MAT_WT),0) "
                    "  from tpmommabw01 t "
                    "  where t.cast_lot_no = @cast_lot_no  "
                    "  GROUP BY t.prec_mat_no " //命令材料号
                    "  ORDER BY t.prec_mat_no ";
                Log::Trace("", __FUNCTION__, "c_sql_condition=[{0}]", c_sql_condition);
                sqlstr = c_sql_condition;
                cmd_sql.SetCommandText(c_sql_condition);// 设置执行的SQL语句
                // 设置SQL中的变量
                cmd_sql.Parameters.Set("cast_lot_no", tpmommabw01.CAST_LOT_NO);
                cmd_sql.ExecuteReader();
                while (cmd_sql.Read())
                {
                    v_pono_mat_no = cmd_sql.GetString(1); //命令材料号。
                    v_total_num = cmd_sql.GetDecimal(2);//总个数。
                    v_total_wt = cmd_sql.GetDecimal(3);//总重量

                    Log::Trace("", __FUNCTION__, "命令板坯号=[{0}]", v_pono_mat_no);
                    Log::Trace("", __FUNCTION__, "总个数=[{0}]", v_total_num);
                    Log::Trace("", __FUNCTION__, "总重量=[{0}]", v_total_wt);
                    //根据[命令材料号]，获取一条代表信息。
                    //===================
                    c_sql_condition3 = " select t.*  from tpmommabw01 t "
                        "  where t.prec_mat_no = @pono_mat_no  "  // 根据 命令材料号。
                        "  order by  t.prec_mat_no "
                        ;
                    Log::Trace("", __FUNCTION__, "c_sql_condition3=[{0}]", c_sql_condition);
                    sqlstr = c_sql_condition3;
                    cmd_sql3.SetCommandText(c_sql_condition3);// 设置执行的SQL语句
                    // 设置SQL中的变量
                    cmd_sql3.Parameters.Set("pono_mat_no", v_pono_mat_no);
                    cmd_sql3.ExecuteReader();
                    if (cmd_sql3.Read()) //一个[命令材料号] ，随机获取一条信息。
                    {
                        cmd_sql3.Fetch(tpmommabw01);
                    }
                    cmd_sql3.Close();

                    tpmommabw01.TrimOrBlank();
                    tpssmmabw03.Reset();
                    tpssmmabw03.REC_CREATOR = userid;    //记录创建责任者
                    tpssmmabw03.REC_CREATE_TIME = systime;   //记录创建时刻
                    tpssmmabw03.REC_REVISOR = "";        //记录修改责任者
                    tpssmmabw03.REC_REVISE_TIME = systime;   //记录修改时刻
                    //tpssmmabw03.ARCHIVE_FLAG;   //归档标记 

                    tpssmmabw03.FACTORY_DIV = tpmommabw01.FACTORY_DIV;   //主工序代码
                    Log::Trace("", __FUNCTION__, "FACTORY_DIV=[{0}]", tpmommabw01.FACTORY_DIV);
                    tpssmmabw03.CAST_LOT_NO = tpmommabw01.CAST_LOT_NO;   //浇铸批号
                    Log::Trace("", __FUNCTION__, "CAST_LOT_NO=[{0}]", tpmommabw01.CAST_LOT_NO);
                    Log::Trace("", __FUNCTION__, "tpmommabw01.PREC_MAT_NO[{0}]", tpmommabw01.PREC_MAT_NO);

                    tpssmmabw03.SLAB_NO = tpmommabw01.PREC_MAT_NO;   //命令材料号
                    tpssmmabw03.LG_ST = tpmommabw01.LG_ST;
                    tpssmmabw03.PONO = tpmommabw01.PONO;          //制造命令号
                    tpssmmabw03.STRAND_NO = tpmommabw01.STRAND_NO;   //流号
                    tpssmmabw03.BILLET_TYPE = tpmommabw01.BILLET_TYPE;   //钢坯类型
                    if (tpssmmabw03.BILLET_TYPE.Trim() == "")
                    {//应小何 要求，若铸坯类型为空，则默认= 1 ，ON 2014-2-8 14:22:28
                        tpssmmabw03.BILLET_TYPE = "1"; //钢坯类型= 1=板坯。
                    }

                    //===tpssmmabw03.SLAB_GROUP_NO;   //板坯组号 
                    //tpssmmabw03.VARIETY_CODE;        //品种代码
                    //tpssmmabw03.STEEL_CODE = "";   //钢种代码

                    tpssmmabw03.SLAB_THICK = tpmommabw01.NOM_SLAB_THICK;   //板坯厚度
                    tpssmmabw03.SLAB_WIDTH = tpmommabw01.NOM_SLAB_WIDTH;   //板坯宽度
                    tpssmmabw03.SLAB_LEN = tpmommabw01.NOM_SLAB_LEN;     //板坯长度
                    tpssmmabw03.SLAB_MAX_LEN = tpmommabw01.SLAB_MAX_NOM_LEN;   //板坯长度最大值
                    tpssmmabw03.SLAB_MIN_LEN = tpmommabw01.SLAB_MIN_NOM_LEN;   //板坯长度最小值

                    //和PSSMMABW-何云飞 讨论确定，如下信息暂定给0. by zy on 2013/11/13 13:06:48
                    //向萍要求，放开赋值， on 2015-8-10 15:11:26
                    tpssmmabw03.SLAB_MAX_WT = tpmommabw01.SLAB_MAX_NOM_WT;    //板坯重量最大值
                    tpssmmabw03.SLAB_MIN_WT = tpmommabw01.SLAB_MIN_NOM_WT;    //板坯重量最小值
                    tpssmmabw03.SLAB_NUM = v_total_num;      //板坯块数=一个[命令材料号]下的材料总个数。 
                    tpssmmabw03.SLAB_WT = v_total_wt;       //板坯重量=一个[命令材料号]下的材料总重量。
                    tpssmmabw03.INFUR_SLAB_WID = 0;   //进加热炉板坯宽度
                    tpssmmabw03.INFUR_SLAB_LEN = 0;   //进加热炉板坯长度
                    tpssmmabw03.INFUR_SLAB_MAX_LEN = 0;   //进加热炉板坯最大长度
                    tpssmmabw03.INFUR_SLAB_MIN_LEN = 0;   //进加热炉板坯最小长度
                    tpssmmabw03.INFUR_SLAB_WT = 0;   //进加热炉板坯重量
                    tpssmmabw03.INFUR_SLAB_MAX_WT = 0;   //进加热炉板坯最大重量
                    tpssmmabw03.INFUR_SLAB_MIN_WT = 0;   //进加热炉板坯最小重量

                    tpssmmabw03.PLAN_TYPE = "";   //计划类型
                    tpssmmabw03.SLAB_DEST = tpmommabw01.SLAB_DEST;   //板坯去向
                    //2016.03.17 tpssmmabw03.HOT_SEND_FLAG = tpmommabw01.NOM_HOT_SEND_FLAG;   //热送标记
                    tpssmmabw03.HOT_SEND_FLAG = tpmommabw01.HOT_SEND_FLAG;

                    /*柳钢方坯去向最多有2个*/
                    Log::Trace("", __FUNCTION__, "方坯归并合同去向设定,产线类型[{0}],合同号[{1}]", tpmommabw01.LINE_TYPE, tpmommabw01.ORDER_NO);
                    if (tpmommabw01.LINE_TYPE == "BW")
                    {
                        slab_dest_count = 0;
                        //判断是否是归并合同
                        c_sql_condition = " select count(distinct a.slab_dest) from tqmtomatb11 a ,tpmogma02 b where a.order_no = b.order_no \
                                                                                                                and a.whole_backlog_no = b.whole_backlog_no and b.merg_order_no = @var_order_no   ";
                        sqlstr = c_sql_condition;
                        CDbCommand cmd_sql_union(conn);
                        cmd_sql_union.SetCommandText(c_sql_condition);
                        cmd_sql_union.Parameters.Set("var_order_no", tpmommabw01.ORDER_NO);
                        cmd_sql_union.ExecuteReader(); //执行读取
                        if (cmd_sql_union.Read()) //只读取单记录，可用IF 语句。
                        {
                            v_merge_count = cmd_sql_union.GetDecimal(1);
                        }
                        cmd_sql_union.Close(); //关闭游标

                        if (v_merge_count > 2)
                        {
                            sprintf(s.msg, "归并合同下工序代码多于2个，柳钢方坯合同归并只有2个去向");
                            throw CApplicationException(-1, s.msg, log.Location);
                        }
                        else if (v_merge_count > 0)
                        {
                            c_sql_condition = " select distinct a.slab_dest from tqmtomatb11 a ,tpmogma02 b where a.order_no = b.order_no \
                                                                                                                            and a.whole_backlog_no = b.whole_backlog_no and b.merg_order_no = @var_order_no order by a.slab_dest  ";
                            sqlstr = c_sql_condition;
                            CDbCommand cmd_sql_merge(conn);
                            cmd_sql_merge.SetCommandText(c_sql_condition);
                            cmd_sql_merge.Parameters.Set("var_order_no", tpmommabw01.ORDER_NO);
                            cmd_sql_merge.ExecuteReader();
                            while (cmd_sql_merge.Read())
                            {
                                v_slab_dest_code = cmd_sql_merge.GetString(1);
                                slab_dest_count++;
                                Log::Trace("", __FUNCTION__, "当前去向个数[{0}]", slab_dest_count);
                                if (slab_dest_count == 1)
                                {
                                    tpssmmabw03.SLAB_DEST = v_slab_dest_code;
                                }
                                else if (slab_dest_count == 2)
                                {
                                    tpssmmabw03.SLAB_DEST_1 = v_slab_dest_code;
                                }
                            }
                            cmd_sql_merge.Close();
                        }
                        else
                        {
                            Log::Trace("", __FUNCTION__, "非归并合同");
                        }

                    }


                    //===========PSSMMABW表中的热装标记= 材料申请类型。
                    //==========================================
                    tpssmmabw03.HOT_CHARGE_FLAG = tpmommabw01.APP_TYPE;   //热装标记=材料申请类型。
                    tpssmmabw03.MEND_FLAG = "0";   //修磨标志
                    tpssmmabw03.PREC_ROLL_PLAN_NO = "";   //预定轧制计划号
                    //tpssmmabw03.PREC_ROLL_SEQ_NO = tpmommabw01.MAT_SEQ_NO;   //预定轧制计划顺序号

                    tpssmmabw03.STEEL_LATEST_DATE = tpmommabw01.STEEL_APP_DATE;   //炼钢最晚结束日期=炼钢申请日期。
                    tpssmmabw03.SLAB_COOL_IND = tpssmmabw01.SLAB_COOL_IND;   //板坯缓冷指示
                    tpssmmabw03.LSLAB_T_B_FLAG = "1";   //长坯头尾标记
                    //tpssmmabw03.SLAB_COOL_CODE;   //板坯冷却基准代码

                    tpssmmabw03.INGOT_CODE = tpmommabw01.INGOT_CODE;   //锭型代码
                    if (tpssmmabw03.INGOT_CODE.Trim() == "")
                    {
                        tpssmmabw03.INGOT_CODE = "0000";
                    }
                    //tpssmmabw03.SAMPLE_LOT_NO;   //试批号

                    tpssmmabw03.ORDER_REMAIN_DIV = "1";   //合同材/预备材区分= 1/0=有合同/无合同。
                    if (tpmommabw01.ORDER_NO.Trim() == "")
                    {//若合同号为空，是无委的铸坯。
                        tpssmmabw03.ORDER_REMAIN_DIV = "0";

                        //应向萍要求，若是无合同的命令材料信息，则令热装标志= ‘0’=冷状态。
                        //============update by zy on 2014-5-19 15:35:48
                        tpssmmabw03.HOT_CHARGE_FLAG = "0"; //tpmommabw01.APP_TYPE;   //热装标记
                    }
                    else
                    {//若是有合同的铸坯，根据[合同号]获取以下信息。
                        //tqmtomatb11
                        tpssmmabw03.SLAB_FINISH_CODE = "";   //板坯精整基准代码
                        //tpssmmabw03.FLAME_CLEAN_DIV = "";   //火焰清理区分2020年10月29日 夏鹏程处理 未辨明该字段在宝钢系统所对应的字段

                        c_sql_condition2 = " select t.* from tqmtomatb11 t "
                            "  where t.order_no      = @order_no  "
                            "  and   t.whole_backlog = @whole_backlog "
                            ;
                        sqlstr = c_sql_condition2;
                        cmd_sql2.SetCommandText(c_sql_condition2);// 设置执行的SQL语句
                        // 设置SQL中的变量
                        cmd_sql2.Parameters.Set("order_no", tpmommabw01.ORDER_NO);
                        cmd_sql2.Parameters.Set("whole_backlog", tpmommabw01.WHOLE_BACKLOG);
                        cmd_sql2.ExecuteReader();
                        if (cmd_sql2.Read())
                        {
                            cmd_sql2.Fetch(tqmtomatb11);
                            tqmtomatb11.TrimOrBlank();
                        }
                        cmd_sql2.Close();
                        tpssmmabw03.SLAB_FINISH_CODE = tqmtomatb11.SLAB_FINISH_CODE;
                        /*tpssmmabw03.FLAME_CLEAN_DIV = tqmtomatb11.FLAME_CLEAN_DIV; 2020年10月29日 夏鹏程处理 未辨明该字段在宝钢系统所对应的字段*/

                        //tompoma01
                        tpssmmabw03.ORDER_NO = tpmommabw01.ORDER_NO;   //合同号

                        c_sql_condition2 = " select t.ORDER_LEN_MAX,t.ORDER_LEN_MIN "
                            " ,t.ORDER_SHORT_MAX,t.ORDER_SHORT_MIN,t.ORDER_SHORT_RATE "
                            " ,t.NEW_TEST_NO,t.SG_STD,t.MIC,t.PSR,t.APN from tompoma01 t "
                            "  where t.order_no      = @order_no  "
                            ;
                        sqlstr = c_sql_condition2;
                        cmd_sql2.SetCommandText(c_sql_condition2);// 设置执行的SQL语句
                        // 设置SQL中的变量
                        cmd_sql2.Parameters.Set("order_no", tpmommabw01.ORDER_NO);
                        cmd_sql2.ExecuteReader();
                        if (cmd_sql2.Read())
                        {
                            tpssmmabw03.ORDER_LEN_MAX = cmd_sql2.GetDecimal(1);    //订货长度上限
                            tpssmmabw03.ORDER_LEN_MIN = cmd_sql2.GetDecimal(2);    //订货长度下限
                            tpssmmabw03.ORDER_SHORT_MAX = cmd_sql2.GetDecimal(3);    //订货最大短尺
                            tpssmmabw03.ORDER_SHORT_MIN = cmd_sql2.GetDecimal(4);    //订货最小短尺
                            tpssmmabw03.ORDER_SHORT_RATE = cmd_sql2.GetDecimal(5);    //订货短尺率
                            tpssmmabw03.NEW_TEST_NO = cmd_sql2.GetString(6);     //新试号
                            tpssmmabw03.SG_STD = cmd_sql2.GetString(7);
                            tpssmmabw03.MIC = cmd_sql2.GetString(8);
                            tpssmmabw03.PSR = cmd_sql2.GetString(9);
                            tpssmmabw03.APN = cmd_sql2.GetString(10);
                        }
                        cmd_sql2.Close();

                    }

                    //新增字段， on 2015-4-10 10:32:58
                    tpssmmabw03.SLAB_SEQ_1 = tpmommabw01.SLAB_SEQ_1;   //炉流内板坯顺序号
                    tpssmmabw03.SLAB_SEQ_2 = tpmommabw01.SLAB_SEQ_2;   //流内板坯顺序号
                    tpssmmabw03.STRAND_NUM = atoi(tpmommabw01.STRAND_NO);   //流数
                    tpssmmabw03.LSLAB_NO = tpmommabw01.LSLAB_NO;   //长坯号

                    //新增字段， ON 2015-11-3 10:44:16
                    tpssmmabw03.WHOLE_BACKLOG_NO = tpmommabw01.WHOLE_BACKLOG_NO;
                    tpssmmabw03.WHOLE_BACKLOG = tpmommabw01.WHOLE_BACKLOG;
                    tpssmmabw03.WHOLE_BACKLOG_SEQ = tpmommabw01.WHOLE_BACKLOG_SEQ; //炼钢工序序号。
                    tpssmmabw03.WHOLE_BACKLOG_CODE = tpmommabw01.WHOLE_BACKLOG_CODE;

                    /*柳钢新增字段*/
                    tpssmmabw03.SG_SIGN = tpmommabw01.SG_SIGN;
                    Log::Trace("", __FUNCTION__, "产线类型=[{0}],是否后备[{1}]", tpmommabw01.LINE_TYPE, tpmommabw01.REMARK);
                    if (tpmommabw01.LINE_TYPE != "HP")
                    {
                        tpssmmabw03.LSLAB_NO = tpssmmabw03.SLAB_NO;
                    }
                    //20170509厚板模铸向萍要求增加长坯号赋值
                    if (tpmommabw01.LINE_TYPE == "HP" && tpmommabw01.MODEL_CAST_DIV == "I")
                    {
                        tpssmmabw03.LSLAB_NO = tpssmmabw03.SLAB_NO;
                    }
                    Log::Trace("", __FUNCTION__, "tpssmmabw03内部 tpmommabw01.ROLL_PLAN_NO=[{0}],tpmommabw01.ROLL_SEQ_NO=[{1}]", tpmommabw01.ROLL_PLAN_NO, tpmommabw01.ROLL_SEQ_NO);

                    tpssmmabw03.PREC_ROLL_PLAN_NO = tpmommabw01.ROLL_PLAN_NO;   //轧制计划号 
                    tpssmmabw03.PREC_ROLL_SEQ_NO = tpmommabw01.ROLL_SEQ_NO;    //轧制计划顺序号

                    tpssmmabw03.SLAB_PROD_FLAG = "0";   //板坯产出标记 20161027周平要求置为0
                    tpssmmabw03.LINE_TYPE = tpmommabw01.LINE_TYPE;//201610 应向萍要求添加
                    tpssmmabw03.IC_CC_FLAG = tpmommabw01.MODEL_CAST_DIV;//20180409 应吴振南要求增加

                    tpssmmabw03.TrimOrBlank();
                    tpssmmabw03.Print();
                    sqlstr = CString::Format("insert tpssmmabw03. PREC_MAT_NO[%s]", (const char*)tpssmmabw03.SLAB_NO);
                    tpssmmabw03.Insert();
                    Log::Trace("", __FUNCTION__, "*******更新炼钢连铸制造命令板坯表tpssmmabw03结束*******");
                }
                cmd_sql.Close(); //关闭游标   ===某个LOT 下的多个命令材料循环==END. 

            }
            //tpssmmabw03==end