commfunction.cpp

邮 电 公 司 erp源码

        UpdateMsg="销售退货单信息";
        break;
      case euSdSoCr:
        UpdateMsg="销售订单取消原因信息";
        break;

  //Manufacture
      case euSdBomh:
        UpdateMsg="产品结构表信息";
        break;
      case euSdTeam:
        UpdateMsg="班组信息";
        break;
      case euSdShop:
        UpdateMsg="车间信息";
        break;
      case euSdWc:
        UpdateMsg="工作中心信息";
        break;
      case euSdWo:
        UpdateMsg="加工单信息";
        break;
      case euSdProcess:
        UpdateMsg="工序信息";
        break;
      case euSdRouteh:
        UpdateMsg="工艺路线信息";
        break;
      case euSdPbomh:
        UpdateMsg="计划产品结构表信息";
        break;
      case euSdRep:
        UpdateMsg="替换件信息";
        break;
      case euSdWrg:
        UpdateMsg="工单路线表信息";
        break;
      case euSdWsgm:
        UpdateMsg="工单物料表信息";
        break;
      case euSdEcoh:
        UpdateMsg="工程更改单信息";
        break;
      case euSdCale:
        UpdateMsg="制造日历信息";
        break;
      case euSdPsr:
        UpdateMsg="工序物料损坏原因信息";
        break;
      case euSdUdr:
        UpdateMsg="物料损坏原因信息";
        break;
      case euSdWsr:
        UpdateMsg="工单报废原因信息";
        break;
      case euSdProducter:
        UpdateMsg="生管员信息";
        break;
      case euSdPg:
        UpdateMsg="工序物料信息";
        break;
      case euSdTe:
        UpdateMsg="班组员工信息";
        break;
      case euSdWpe:
        UpdateMsg="工序员工信息";
        break;
      case euSdPieceh:
        UpdateMsg="计件信息";
        break;
      case euSdLabh:
        UpdateMsg="计时信息";
        break;
      case euSdWeph:
        UpdateMsg="完成品入库单信息";
        break;
      case euSdPdrh:
        UpdateMsg="工序日报单信息";
        break;

      case euSdWn:
        UpdateMsg="工票信息";
        break;

      case euSdGmth_R:
        UpdateMsg="定额领料单信息";
        break;

      case euSdGmth_W:
        UpdateMsg="工单领料单信息";
        break;

      case euSdGmth_A:
        UpdateMsg="补料单信息";
        break;

      case euSdGmth_C:
        UpdateMsg="共用件领料单信息";
        break;

      case euSdGmth_D:
        UpdateMsg="部门领料单信息";
        break;

      case euSdRmbh:
        UpdateMsg="退料单信息";
        break;
      case euSdDmah:
        UpdateMsg="直接材料分摊信息";
        break;

      case euSdPdmh:
        UpdateMsg="工序物料报废单信息";
        break;

      case euSdDml:
        UpdateMsg="物料分配表信息";
        break;


  //FmDoc
      case euSdCac:
        UpdateMsg="公司帐号信息";
        break;
      case euSdInTax:
        UpdateMsg="个人所得税信息";
        break;
      case euSdFvct:
        UpdateMsg="科目类型信息";
        break;
      case euSdGlkm:
        UpdateMsg="财务科目信息";
        break;
      case euSdPurser:
        UpdateMsg="会计员信息";
        break;
      case euSdCashier:
        UpdateMsg="出纳员信息";
        break;
      case euSdArd:
        UpdateMsg="帐号权限信息";
        break;
      case euSdFbb:
        UpdateMsg="出纳日记帐信息";
        break;
      case euSdBcs:
        UpdateMsg="银行对帐单信息";
        break;
      case euSdCts:
        UpdateMsg="现金盘点表信息";
        break;

  //Cost 成本管理 （CmDoc）
      case euSdCc:
        UpdateMsg="成本中心信息";
        break;
      case euSdCd:
        UpdateMsg="成本资料信息";
        break;
      case euSdAdjCoh:
        UpdateMsg="成本调整单信息";
        break;
      case euSdRwt:
        UpdateMsg="定额工时信息";
        break;
      case euSdEquc:
        UpdateMsg="约当产量系数信息";
        break;
      case euSdScmbh:
        UpdateMsg="标准成本更改单信息";
        break;
//Human
      case euSdTow:
        UpdateMsg="工种信息";
        break;
      case euSdRank:
        UpdateMsg="职务信息";
        break;
      case euSdVacType:
        UpdateMsg="假别信息";
        break;
      case euSdLr:
        UpdateMsg="离职原因信息";
        break;
      case euSdEmployee:
        UpdateMsg="职员信息";
        break;
      case euSdSkill:
        UpdateMsg="技能信息";
        break;
      case euSdTransfer:
        UpdateMsg="调动登记单信息";
        break;
      case euSdTap:
        UpdateMsg="调职单信息";
        break;
      case euSdLop:
        UpdateMsg="离职单信息";
        break;
      case euSdWl:
        UpdateMsg="工资等级信息";
        break;
      case euSdWage:
        UpdateMsg="薪资信息";
        break;

  //plan
      case euSdPlanner:
        UpdateMsg="计划员信息";
        break;
          
  //Equipment
      case euSdFat:
        UpdateMsg="设备类型信息";
        break;
      case euSdFadm:
        UpdateMsg="折旧方法信息";
        break;
      case euSdFaUse:
        UpdateMsg="设备使用状态信息";
        break;
      case euSdFav:
        UpdateMsg="设备变动类型信息";
        break;
      case euSdFacs:
        UpdateMsg="样式表信息";
        break;
      case euSdFadn:
        UpdateMsg="设备信息";
        break;
      case euSdFaDec:
        UpdateMsg="设备减少单信息";
        break;
      case euSdFaDisCard:
        UpdateMsg="设备报废信息";
        break;
      case euSdFaWork:
        UpdateMsg="工作量信息";
        break;
      case euSdFaDc:
        UpdateMsg="计提折旧信息";
        break;
      case euSdFaChg:
        UpdateMsg="设备变动单信息";
        break;
      case euSdFaCheck:
        UpdateMsg="设备检查记录信息";
        break;
      case euSdFaFix:
        UpdateMsg="设备大修信息";
        break;
      case euSdFaAcd:
        UpdateMsg="设备事故信息";
        break;
      case euSdFaStop:
        UpdateMsg="设备停用信息";
        break;
      case euSdFaRent:
        UpdateMsg="设备租赁信息";
        break;
      default:
        break;
  }
  switch(UpdateType)
  {
    case 1:
      UpdateMsg+="已有被更新,现在需要刷新吗?";
      break;
    case 2:
      UpdateMsg+="已有被删除,现在需要刷新吗?";
      break;
    case 3:
      UpdateMsg+="已有被审核,现在需要刷新吗?";
      break;
    case 4:
      UpdateMsg+="已有被结清,现在需要刷新吗?";
      break;
    case 5:
      UpdateMsg+="已有被作废,现在需要刷新吗?";
      break;
    case 6:
      UpdateMsg+="已有被记帐,现在需要刷新吗?";
      break;
  }
  if(MessageDlg(UpdateMsg, mtInformation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrNo)
    return false;
  else
    return true;
}

void __fastcall WriteLog(AnsiString sFrom,int iType,AnsiString sDesc)
{
  TComResultSet *RsLog;
  AnsiString sSql,sParaMode;
  try
  {
    RsLog=NewResultSet();
   //获取“写日志方式”参数
    sSql="select ParameterValue from sdParameter where ParameterCode='10112'";
    RsLog->Open(sSql,"");
    RsLog->MoveFirst();
    if( RsLog->Eof == 0)
      sParaMode=RsLog->FieldByName("ParameterValue");
    else
      sParaMode="-1"; //参数不存在,赋无效值
    RsLog->Close();
    if(sParaMode=="1") //非缓冲直接写数据库方式
    {
        sSql=" EXEC sdst_writesystemlog '"
          +g_sdCurDate+"','"                       //日期
          +FormatDateTime("hh:nn:ss:zzz",Now())+"','"  //时间
          +sFrom+"',"                              //来源
          +AnsiString(iType)+",'"                  //类型
          +g_sdUserCode+"','"                      //操作员
          +sDesc+"','"                             //原因
          +g_sdComputerName+"','"                  //机器名
          +g_sdComputerIP+"'" ;                    //IP
        RsLog->Execute(sSql);
      RsLog->Close();
    }
    if(sParaMode=="2") //缓冲方式，先写文件退出后在写数据库
    {
      //暂不实现
    }
  }
  __finally
  {
    delete RsLog;
  }
}
//---------------------------------------------------------------------------
//检验可输入下拉框构件(TSDComboBox)的输入值有效性
void __fastcall CheckComboBoxText(TSDComboBox *sdcbx)
{
 int Founded;
 if(sdcbx->Items->Count == 0) //无可选项，清空显示
 {
  sdcbx->Text="";
  return;
 }
 if(Trim(sdcbx->Text)=="") //Text为空，清除当前选择项
 {
  sdcbx->ItemIndex=-1;
  return;
 }
 if(sdcbx->ItemIndex > -1) //已经有了选择项，不再检验
 {
  sdcbx->Text=sdcbx->ItemData[0];
  return;
 }
 Founded=sdcbx->LocateKey(Trim(sdcbx->Text));
 if(Founded==0)            //输入值无效，清空显示
 {
  sdcbx->Text="";
 }
}
//---------------------------------------------------------------------------