sercomm.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit SerComm;

interface

uses
  Classes, SysUtils, Controls, Windows, Forms, ComCtrls,CommCtrl,DBGrids,
  Messages, Graphics, ADODB, ActiveX, SYSDATA, CommFun, Dialogs;

//更新来电记录信息(来电状态)
//解决方案建立、删除、修改时调用
Procedure UpdateSolution(ACallID:string);
//更新来电记录信息(来电状态)
//来电汇报建立、删除、修改时调用
Procedure UpdateReport(ACallID:string);

implementation

//更新来电记录信息(来电状态)
//解决方案建立、删除、修改时调用
Procedure UpdateSolution(ACallID:string);
var
  AStatus:Integer;
begin
  //来电状态
  //当不存在解决方案时，来电状态=受理，否则来电状态=调查中
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select 1 from SER510 where S510_002='+''''+ACallID+'''');
  SYSDM.qryQuery.Open;
  if not SYSDM.qryQuery.IsEmpty then AStatus:=1 else AStatus:=6;
  //更新来电记录状态=调查中
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('update SER500 set S500_003='+IntToStr(AStatus)+' where S500_001='+''''+ACallID+'''');
  SYSDM.qryQuery.ExecSQL;
end;

//更新来电记录信息(来电状态)
//来电汇报建立、删除、修改时调用
Procedure UpdateReport(ACallID:string);
var
  AStatus:Integer;
begin
  //来电状态
  //当不存在来电汇报时，来电状态=待报价，否则来电状态=最后汇报的状态
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select top 1 * from SER530 where S530_002='+''''+ACallID+''''+' order by S530_004 desc');
  SYSDM.qryQuery.Open;
  if SYSDM.qryQuery.IsEmpty then AStatus:=2 else AStatus:=SYSDM.qryQuery.FieldByName('S530_006').Value;
  //更新来电记录状态=调查中
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('update SER500 set S500_003='+IntToStr(AStatus)+' where S500_001='+''''+ACallID+'''');
  SYSDM.qryQuery.ExecSQL;
end;

end.