xndgnb.pas

完成虚拟的多功能电能表

    TMPSJCD:=mid(dta,19,2);
    if tmpsjcd<>'02' then
      sndstr:='68'+data_chang(TMPBH,false)+'F43435'+hexadd('68'+data_chang(TMPBH,false)+'F43435')+'16'//C10102 错误代码
    else
    begin
      TMPSJXBS:=mid(dta,21,4);
      if (tmpsjxbs='65F3') or (tmpsjxbs='66F3') or (tmpsjxbs='67F3') then //表号 用户号 设备号
      begin
        sndstr:='68999999999999688108'+tmpsjxbs+data_call(GLBH[bw],12,false)
               +hexadd('68999999999999688108'+tmpsjxbs+data_call(GLBH[bw],12,false))+'16';
      end;
      if tmpsjxbs='44F4' then //最大需量周期
        sndstr:='68'+data_chang(GLBH[bw],false)+'688103'+tmpsjxbs+'48'+hexadd('68'+data_chang(GLBH[bw],false)+'688103'+tmpsjxbs+'48')+'16';
      if tmpsjxbs='45F4' then //滑差时间
        sndstr:='68'+data_chang(GLBH[bw],false)+'688103'+tmpsjxbs+'34'+hexadd('68'+data_chang(GLBH[bw],false)+'688103'+tmpsjxbs+'48')+'16';
      if tmpsjxbs='72F6' then //时段
      begin
        tmpsj:='';
        for i:=1 to db_sds do
        begin
          tmpsj:=tmpsj+mid(sqsdb[1,i],1,2)+mid(sqsdb[1,i],4,2);
          if sqsdb[0,i]='尖' then tmpsj:=tmpsj+'01';
          if sqsdb[0,i]='峰' then tmpsj:=tmpsj+'02';
          if sqsdb[0,i]='平' then tmpsj:=tmpsj+'03';
          if sqsdb[0,i]='谷' then tmpsj:=tmpsj+'04';
        end;
        num:=db_sds*3;
        sndstr:='68'+data_chang(GLBH[bw],false)+'6881'+formatfloat('00',2+num)+tmpsjxbs+data_chang(tmpsj,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'6881'+formatfloat('00',2+num)+tmpsjxbs+data_chang(tmpsj,true))+'16';
      end;
      //电压电流
      if tmpsjxbs='44E9' then //A相电压
        sndstr:='68'+data_chang(GLBH[bw],false)+'688104'+tmpsjxbs+data_call(formatfloat('000.0',tmpua),4,True)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688104'+tmpsjxbs+data_call(formatfloat('000.0',tmpua),4,True))+'16';
      if tmpsjxbs='45E9' then //B相电压
        sndstr:='68'+data_chang(GLBH[bw],false)+'688104'+tmpsjxbs+data_call(formatfloat('000.0',tmpub),4,True)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688104'+tmpsjxbs+data_call(formatfloat('000.0',tmpub),4,True))+'16';
      if tmpsjxbs='46E9' then //C相电压
        sndstr:='68'+data_chang(GLBH[bw],false)+'688104'+tmpsjxbs+data_call(formatfloat('000.0',tmpuc),4,True)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688104'+tmpsjxbs+data_call(formatfloat('000.0',tmpuc),4,True))+'16';
      if tmpsjxbs='54E9' then //A相电流
        sndstr:='68'+data_chang(GLBH[bw],false)+'688104'+tmpsjxbs+data_call(formatfloat('00.00',tmpIa),4,True)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688104'+tmpsjxbs+data_call(formatfloat('00.00',tmpIa),4,True))+'16';
      if tmpsjxbs='55E9' then //B相电流
        sndstr:='68'+data_chang(GLBH[bw],false)+'688104'+tmpsjxbs+data_call(formatfloat('00.00',tmpIb),4,True)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688104'+tmpsjxbs+data_call(formatfloat('00.00',tmpIb),4,True))+'16';
      if tmpsjxbs='56E9' then //C相电流
        sndstr:='68'+data_chang(GLBH[bw],false)+'688104'+tmpsjxbs+data_call(formatfloat('00.00',tmpIc),4,True)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688104'+tmpsjxbs+data_call(formatfloat('00.00',tmpIc),4,True))+'16';

      //正向有功
      if TMPSJXBS='52C3' then //901F 数据块
      begin
        for i:=0 to 4 do
          tmpsj:=tmpsj+data_CALL(db_dq_dl[bw,0,i],8,true);
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj+hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj)+'16';//返回数据
      end;
      if TMPSJXBS='43C3' then //9010
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,0,0],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,0,0],8,true))+'16';//返回数据
      if TMPSJXBS='44C3' then //9011
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,0,1],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,0,1],8,true))+'16';//返回数据
      if TMPSJXBS='45C3' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,0,2],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,0,2],8,true))+'16';//返回数据
      if TMPSJXBS='46C3' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,0,3],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,0,3],8,true))+'16';//返回数据
      if TMPSJXBS='47C3' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,0,4],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,0,4],8,true))+'16';//返回数据
      //反向有功
      if TMPSJXBS='62C3' then //902F 数据块
      begin
        tmpsj:='';
        for i:=0 to 4 do
          tmpsj:=tmpsj+data_CALL(db_dq_dl[bw,1,i],8,true);
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj+hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj)+'16';//返回数据
      end;
      if TMPSJXBS='53C3' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,1,0],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,1,0],8,true))+'16';//返回数据
      if TMPSJXBS='54C3' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,1,1],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,1,1],8,true))+'16';//返回数据
      if TMPSJXBS='55C3' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,1,2],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,1,2],8,true))+'16';//返回数据
      if TMPSJXBS='56C3' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,1,3],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,1,3],8,true))+'16';//返回数据
      if TMPSJXBS='57C3' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,1,4],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,1,4],8,true))+'16';//返回数据
      //正向无功
      if TMPSJXBS='52C4' then //911F 数据块
      begin
        tmpsj:='';
        for i:=0 to 4 do
          tmpsj:=tmpsj+data_CALL(db_dq_dl[bw,2,i],8,true);
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj+hexadd('68'+TMPBH+'688108'+TMPSJXBS+tmpsj)+'16';//返回数据
      end;
      if TMPSJXBS='43C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,2,0],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,2,0],8,true))+'16';//返回数据
      if TMPSJXBS='44C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,2,1],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,2,1],8,true))+'16';//返回数据
      if TMPSJXBS='45C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,2,2],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,2,2],8,true))+'16';//返回数据
      if TMPSJXBS='46C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,2,3],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,2,3],8,true))+'16';//返回数据
      if TMPSJXBS='47C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,2,4],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,2,4],8,true))+'16';//返回数据
      //反向无功
      if TMPSJXBS='62C4' then //912F 数据块
      begin
        tmpsj:='';
        for i:=0 to 4 do
          tmpsj:=tmpsj+data_CALL(db_dq_dl[bw,3,i],8,true);
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj+hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj)+'16';//返回数据
      end;
      if TMPSJXBS='53C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,3,0],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,3,0],8,true))+'16';//返回数据
      if TMPSJXBS='54C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,3,1],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,3,1],8,true))+'16';//返回数据
      if TMPSJXBS='55C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,3,2],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,3,2],8,true))+'16';//返回数据
      if TMPSJXBS='56C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,3,3],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,3,3],8,true))+'16';//返回数据
      if TMPSJXBS='57C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,3,4],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_dq_dl[bw,3,4],8,true))+'16';//返回数据

      //一象限无功
      if TMPSJXBS='72C4' then //912F 数据块
      begin
        tmpsj:='';
        for i:=0 to 4 do
          tmpsj:=tmpsj+data_CALL(db_sxx_dl[bw,1,i],8,true);
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj+hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj)+'16';//返回数据
      end;
      if TMPSJXBS='63C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,1,0],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,1,0],8,true))+'16';//返回数据
      if TMPSJXBS='64C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,1,1],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,1,1],8,true))+'16';//返回数据
      if TMPSJXBS='65C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,1,2],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,1,2],8,true))+'16';//返回数据
      if TMPSJXBS='66C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,1,3],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,1,3],8,true))+'16';//返回数据
      if TMPSJXBS='67C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,1,4],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,1,4],8,true))+'16';//返回数据
      //四象限无功
      if TMPSJXBS='82C4' then //912F 数据块
      begin
        tmpsj:='';
        for i:=0 to 4 do
          tmpsj:=tmpsj+data_CALL(db_sxx_dl[bw,4,i],8,true);
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj+hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj)+'16';//返回数据
      end;
      if TMPSJXBS='73C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,4,0],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,4,0],8,true))+'16';//返回数据
      if TMPSJXBS='74C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,4,1],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,4,1],8,true))+'16';//返回数据
      if TMPSJXBS='75C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,4,2],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,4,2],8,true))+'16';//返回数据
      if TMPSJXBS='76C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,4,3],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,4,3],8,true))+'16';//返回数据
      if TMPSJXBS='77C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,4,4],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,4,4],8,true))+'16';//返回数据

      //二象限无功
      if TMPSJXBS='92C4' then //912F 数据块
      begin
        tmpsj:='';
        for i:=0 to 4 do
          tmpsj:=tmpsj+data_CALL(db_sxx_dl[bw,2,i],8,true);
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj+hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj)+'16';//返回数据
      end;
      if TMPSJXBS='83C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,2,0],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,2,0],8,true))+'16';//返回数据
      if TMPSJXBS='84C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,2,1],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,2,1],8,true))+'16';//返回数据
      if TMPSJXBS='85C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,2,2],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,2,2],8,true))+'16';//返回数据
      if TMPSJXBS='86C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,2,3],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,2,3],8,true))+'16';//返回数据
      if TMPSJXBS='87C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,2,4],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,2,4],8,true))+'16';//返回数据

      //三象限无功
      if TMPSJXBS='A2C4' then //912F 数据块
      begin
        tmpsj:='';
        for i:=0 to 4 do
          tmpsj:=tmpsj+data_CALL(db_sxx_dl[bw,3,i],8,true);
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj+hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj)+'16';//返回数据
      end;
      if TMPSJXBS='93C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,3,0],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,3,0],8,true))+'16';//返回数据
      if TMPSJXBS='94C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,3,1],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,3,1],8,true))+'16';//返回数据
      if TMPSJXBS='95C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,3,2],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,3,2],8,true))+'16';//返回数据
      if TMPSJXBS='96C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,3,3],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,3,3],8,true))+'16';//返回数据
      if TMPSJXBS='97C4' then
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,3,4],8,true)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(db_sxx_dl[bw,3,4],8,true))+'16';//返回数据

      if TMPSJXBS='43F3' then //日期
      begin
        tmpsj:=mid(Grid3.cells[bw,1],3,2)+mid(Grid3.cells[bw,1],6,2)+mid(Grid3.cells[bw,1],9,2)+'46';
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(tmpsj,6,false)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(tmpsj,6,false))+'16';//返回数据
      end;
      //时间
      if TMPSJXBS='44F3' then
      begin
        tmpsj:=grid3.cells[bw,2];
        tmpsj:=mid(tmpsj,1,2)+mid(tmpsj,4,2)+mid(tmpsj,7,2);
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(tmpsj,6,false)
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(tmpsj,6,false))+'16';//返回数据
      end;
      if TMPSJXBS='43D3' then //最大需量 正向有功
      begin
        tmpsj:=data_CALL(db_zdxl[bw,0,0,0],6,true);
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj)+'16';//返回数据
      end;
      if TMPSJXBS='53D3' then //最大需量 反向有功
      begin
        tmpsj:=data_CALL(db_zdxl[bw,0,1,0],6,true);
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj)+'16';//返回数据
      end;
      if TMPSJXBS='43D4' then //最大需量 正向无功
      begin
        tmpsj:=data_CALL(db_zdxl[bw,0,2,0],6,true);
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj)+'16';//返回数据
      end;
      if TMPSJXBS='53D4' then //最大需量 反向无功
      begin
        tmpsj:=data_CALL(db_zdxl[bw,0,3,0],6,true);
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+data_CALL(tmpsj,6,true))+'16';//返回数据
      end;
      if TMPSJXBS='43E3' then //最大需量发生时间 正向有功
      begin
        tmpsj:=db_zdxl[bw,1,0,0];
        tmpsj:=mid(tmpsj,1,2)+mid(tmpsj,4,2)+mid(tmpsj,7,2)+mid(tmpsj,10,2);
        tmpsj:=data_CALL(tmpsj,8,false);
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj)+'16';//返回数据
      end;
      if TMPSJXBS='53E3' then //最大需量发生时间 反向有功
      begin
        tmpsj:=db_zdxl[bw,1,1,0];
        tmpsj:=mid(tmpsj,1,2)+mid(tmpsj,4,2)+mid(tmpsj,7,2)+mid(tmpsj,10,2);
        tmpsj:=data_CALL(tmpsj,8,false);
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj
               +hexadd('68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj)+'16';//返回数据
      end;
      if TMPSJXBS='43E4' then //最大需量发生时间 正向无功
      begin
        tmpsj:=db_zdxl[bw,1,2,0];
        tmpsj:=mid(tmpsj,1,2)+mid(tmpsj,4,2)+mid(tmpsj,7,2)+mid(tmpsj,10,2);
        tmpsj:=data_CALL(tmpsj,8,false);
        sndstr:='68'+data_chang(GLBH[bw],false)+'688108'+TMPSJXBS+tmpsj