ap_param.pas

一个MRPII系统源代码版本

unit Ap_Param;

Interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Dialog, StdCtrls, Mask, Db, AdODB, linkedit;
Type
  TFrm_Ap_Param = Class(TFrm_Base_Dialog)
    Label1: TLabel;
    Edt_range: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    LEdt_KillNoInvoiceNo: TLinkEdit;
    LEdt_ErrRangeKMCode: TLinkEdit;
    CmBx_ApCancelType: TComboBox;
    procedure btn_okClick(Sender: TObject);
    procedure btn_CancelClick(Sender: TObject);
    procedure Edt_rangeChange(Sender: TObject);
    procedure displayValue;                                                     //显示资料；
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure LEdt_KillNoInvoiceNoKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure LEdt_ErrRangeKMCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure LEdt_ErrRangeKMCodeButtonClick(Sender: TObject);
    procedure LEdt_KillNoInvoiceNoButtonClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ConditionFloatCheck(Sender: TObject);
  private
    { Private declarations }
    CurrencyCode:String;                //主控货币;
    procedure Savecheck;                //存盘前检查;
    procedure AddUpdateKillNoInvoiceNo; //增加或修改抵冲历史未开票金额未开票入库单单号;
    procedure AddUpdateApCancelType;    //增加或修改应付帐款核销方式;
    procedure AddUpdateErrRange;        //增加或修改采购发票与入库单匹配允许误差(元);
    procedure AddUpdateErrRangeKMCode;  //增加或修改采购发票与入库单匹配产生的差异归入会计科目;
  public
    { Public declarations }
    procedure InitForm(AdOConnection: TAdOConnection);
  end;

var
  Frm_Ap_Param: TFrm_Ap_Param;

implementation

uses Sys_Global, Sys_Hint;

{$R *.DFM}

procedure TFrm_Ap_Param.btn_okClick(Sender: TObject);
begin
  inherited;
  Savecheck;                         //存盘前检查;
  AdoQry_Tmp.Connection.beginTrans ;
  try
    AddUpdateKillNoInvoiceNo;       //增加或修改抵冲历史未开票金额未开票入库单单号;
    AddUpdateApCancelType;          //增加或修改应付帐款核销方式;
    AddUpdateErrRange;              //增加或修改采购发票与入库单匹配允许误差(元);
    AddUpdateErrRangeKMCode;        //增加或修改采购发票与入库单匹配产生的差异归入会计科目;
    AdoQry_Tmp.Connection.CommitTrans ;
    DispInfo('设置成功！',3);
  except
    AdoQry_Tmp.Connection.RollBackTrans ;
    DispInfo('设置失败！',1);
  end;
end;

procedure TFrm_Ap_Param.InitForm(AdOConnection: TAdOConnection);
begin
  SetDBConnect(AdOConnection);
  displayValue;
end;

procedure TFrm_Ap_Param.btn_CancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TFrm_Ap_Param.Edt_rangeChange(Sender: TObject);
begin
  inherited;
  btn_Cancel.Enabled:=(Trim(Edt_range.text)<>'');
end;

procedure TFrm_Ap_Param.displayValue;
var
  str1:string;
begin
  with AdoQry_Tmp do
  begin
    Close;
    sql.clear;
    sql.Add('select ApParamValuen '+
                    ' from ApParam '+
                    ' where ApParamCode=''ErrRange ''');
    open;
    Str1:=fieldbyname('ApParamValuen').asstring;
    if str1<>'' then
      Edt_range.text:=str1
    else
      Edt_range.text:='0';
    Close;
    sql.clear;
    sql.Add('select ApParamValuen '+
                    ' from ApParam '+
                    ' where ApParamCode=''ApCancelType''');
    open;
    Str1:=fieldbyname('ApParamValuen').asstring;
    if str1<>'' then
      CmBx_ApCancelType.Itemindex:=strtoint(str1)-1
    else
      CmBx_ApCancelType.Itemindex:=0;
    Close;
    sql.clear;
    sql.Add('select ApParamValueC '+
                    ' from ApParam '+
                    ' where ApParamCode=''ErrRangeKMCode ''');
    open;
    Str1:=fieldbyname('ApParamValueC').asstring;
    if str1<>'' then
      LEdt_ErrRangeKMCode.text:=str1
    else
      LEdt_ErrRangeKMCode.text:='';
    Close;
    sql.clear;
    sql.Add('select ApParamValueC '+
                    ' from ApParam '+
                    ' where ApParamCode=''KillNoInvoiceNo''');
    open;
    Str1:=fieldbyname('ApParamValueC').asstring;
    if str1<>'' then
      LEdt_KillNoInvoiceNo.text:=str1
    else
      LEdt_KillNoInvoiceNo.text:='';
    Close;
  end;
end;

procedure TFrm_Ap_Param.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  action:=cafree;
end;

procedure TFrm_Ap_Param.FormCreate(Sender: TObject);
begin
  inherited;
  CurrencyCode:='元';
  //label2.Caption:=CurrencyCode;
end;

procedure TFrm_Ap_Param.AddUpdateErrRange;  //增加或修改采购发票与入库单匹配允许误差(元)
var
  str:string;
begin
    with AdoQry_Tmp do
    begin
      Close;
      sql.clear;
      sql.Add('select ApParamCode '+
                      ' from ApParam '+
                      ' where ApParamCode=''ErrRange ''');
      open;
      str:=fieldbyname('ApParamCode').asstring;
      if str<>'' then
      begin
        with AdoQry_Tmp do
        begin
           Close;
           sql.clear ;
           sql.Add('update ApParam  '+
                           ' set ApParamValuen='''+Trim(Edt_range.text) +''''+
                           ' where ApParamCode=''ErrRange''');
           execsql;
        end;
      end
      else
      begin
        with AdoQry_Tmp do
        begin
           Close;
           sql.clear ;
           sql.Add('insert ApParam '
                           +' (ApParamCode,ApParamName,ApParamValuen) '
                           +' Values( ''ErrRange'','
                           +'''采购发票与入库单匹配允许误差'','
                           +' '''+Trim(Edt_range.text) +''')');
           execsql;
        end;
      end;
    end;
end;

procedure TFrm_Ap_Param.AddUpdateApCancelType; //增加或修改应付帐款核销方式;
var
  str:string;
begin
    with AdoQry_Tmp do
    begin
      Close;
      sql.clear;
      sql.Add('select ApParamCode '+
                      ' from ApParam '+
                      ' where ApParamCode=''ApCancelType''');
      open;
      str:=fieldbyname('ApParamCode').asstring;
      if str<>'' then
      begin
        with AdoQry_Tmp do
        begin
           Close;
           sql.clear ;
           sql.Add('update ApParam  '+
                           ' set ApParamValueN='+inttostr(CmBx_ApCancelType.ItemIndex+1)+
                           ' where ApParamCode=''ApCancelType''');
           execsql;
        end;
      end
      else
      begin
        with AdoQry_Tmp do
        begin
           Close;
           sql.clear ;
           sql.Add('insert ApParam '
                           +' (ApParamCode,ApParamName,ApParamValueN) '
                           +' Values( ''ApCancelType'','
                           +'''应付帐款核销方式'','
                           +inttostr(CmBx_ApCancelType.ItemIndex+1)+')');

           execsql;
        end;
      end;
    end;
end;

procedure TFrm_Ap_Param.AddUpdateErrRangeKMCode;//增加或修改采购发票与入库单匹配产生的差异归入会计科目;
var
  str:string;
begin