ap_param.pas

一个MRPII系统源代码版本

    //if Trim(LEdt_ErrRangeKMCode.text)='' then
    //  exit;
    with AdoQry_Tmp do
    begin
      Close;
      sql.clear;
      sql.Add('select ApParamCode '+
                      ' from ApParam '+
                      ' where ApParamCode=''ErrRangeKMCode''');
      open;
      str:=fieldbyname('ApParamCode').asstring;
      if str<>'' then
      begin
        with AdoQry_Tmp do
        begin
           Close;
           sql.clear ;
           sql.Add('update ApParam  '+
                           ' set ApParamValueC='''+Trim(LEdt_ErrRangeKMCode.text)+''''+
                           ' where ApParamCode=''ErrRangeKMCode''');
           execsql;
        end;
      end
      else
      begin
        with AdoQry_Tmp do
        begin
           Close;
           sql.clear ;
           sql.Add('insert ApParam '
                           +' (ApParamCode,ApParamName,ApParamValueC) '
                           +' Values( ''ErrRangeKMCode'','
                           +'''采购发票与入库单匹配产生差异归入会计科目'','
                           +''''+Trim(LEdt_ErrRangeKMCode.text)+''')');
           execsql;
        end;
      end;
    end;
end;

procedure TFrm_Ap_Param.AddUpdateKillNoInvoiceNo;//增加或修改抵冲历史未开票金额未开票入库单单号;
var
  str:string;
begin
    //if Trim(LEdt_KillNoInvoiceNo.text)='' then
    //  exit;
    with AdoQry_Tmp do
    begin
      Close;
      sql.clear;
      sql.Add('select ApParamCode '+
                      ' from ApParam '+
                      ' where ApParamCode=''KillNoInvoiceNo''');
      open;
      str:=fieldbyname('ApParamCode').asstring;
      if str<>'' then
      begin
        with AdoQry_Tmp do
        begin
           Close;
           sql.clear ;
           sql.Add('update ApParam  '+
                           ' set ApParamValueC='''+Trim(LEdt_KillNoInvoiceNo.text)+''''+
                           ' where ApParamCode=''KillNoInvoiceNo''');
           execsql;
        end;
      end
      else
      begin
        with AdoQry_Tmp do
        begin
           Close;
           sql.clear ;
           sql.Add('insert ApParam '
                           +' (ApParamCode,ApParamName,ApParamValueC) '
                           +' Values( ''KillNoInvoiceNo'','
                           +'''抵冲历史未开票金额未开票入库单单号'','
                           +''''+Trim(LEdt_KillNoInvoiceNo.text)+''')');
           execsql;
        end;
      end;
    end;
end;

procedure TFrm_Ap_Param.LEdt_KillNoInvoiceNoKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if key=120 then
  begin
    try
      Frm_Sys_Hint:=TFrm_Sys_Hint.Create(self);
      Frm_Sys_Hint.InitForm (AdoQry_tmp.Connection ,' select  InvInBill.InvBillNo  as ''单据号'''
                                                           +' ,InvInBill.VendorCode as ''供应商代码'''
                                                           +' , Vendor.VendorName as ''供应商名称'''
                                                   +' from InvInBill  '
                                                   +' Join Vendor On InvInBill.VendorCode=Vendor.VendorCode'
                                                   +' where InvInBill.InvBillValuation=1 and  InvInBill.InvBillRemArk like ''应付模块初示化数据%''');
      Frm_Sys_Hint.Showmodal;
      LEdt_KillNoInvoiceNo.Text :=Frm_Sys_Hint.AdoQuery.Fields[0].AsString ;
    finally
      Frm_Sys_Hint.Release  ;
    end;
  end;
end;

procedure TFrm_Ap_Param.LEdt_ErrRangeKMCodeKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if key=120 then
  begin
    try
      Frm_Sys_Hint:=TFrm_Sys_Hint.Create(self);
      Frm_Sys_Hint.InitForm (AdoQry_tmp.Connection ,' select KmCode as ''科目代码'''
                                                   +',kmName  as ''科目名称'''
                                                   +' from Gl_AccountSubject where endkm=1 and kmfreeze=0');
      Frm_Sys_Hint.Showmodal;
      LEdt_ErrRangeKMCode.Text :=Frm_Sys_Hint.AdoQuery.Fields[0].AsString;
    finally
      Frm_Sys_Hint.Release  ;
    end;
  end;
end;

procedure TFrm_Ap_Param.LEdt_ErrRangeKMCodeButtonClick(Sender: TObject);
begin
  inherited;
    try
      Frm_Sys_Hint:=TFrm_Sys_Hint.Create(self);
      Frm_Sys_Hint.InitForm (AdoQry_tmp.Connection ,' select KmCode as ''科目代码'''
                                                   +',kmName  as ''科目名称'''
                                                   +' from Gl_AccountSubject where endkm=1 and kmfreeze=0');
      Frm_Sys_Hint.Showmodal;
      LEdt_ErrRangeKMCode.Text :=Frm_Sys_Hint.AdoQuery.Fields[0].AsString;
    finally
      Frm_Sys_Hint.Release  ;
    end;
end;

procedure TFrm_Ap_Param.LEdt_KillNoInvoiceNoButtonClick(Sender: TObject);
begin
  inherited;
  try
    Frm_Sys_Hint:=TFrm_Sys_Hint.Create(self);
    Frm_Sys_Hint.InitForm (AdoQry_tmp.Connection ,' select  InvInBill.InvBillNo  as ''单据号'''
                                                         +' ,InvInBill.VendorCode as ''供应商代码'''
                                                         +' , Vendor.VendorName as ''供应商名称'''
                                                 +' from InvInBill  '
                                                 +' Join Vendor On InvInBill.VendorCode=Vendor.VendorCode'
                                                 +' where InvInBill.InvBillValuation=1 and  InvInBill.InvBillRemArk like ''应付模块初示化数据%''');
    Frm_Sys_Hint.Showmodal;
    LEdt_KillNoInvoiceNo.Text :=Frm_Sys_Hint.AdoQuery.Fields[0].AsString ;
  finally
    Frm_Sys_Hint.Release  ;
  end;
end;

procedure TFrm_Ap_Param.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Ap_Param:=nil;
end;

procedure TFrm_Ap_Param.Savecheck;                 //存盘前检查;
var
  I:double;
begin
  if Trim(LEdt_KillNoInvoiceNo.text)<>'' then
  begin
    with AdoQry_tmp do
    begin
      Close;
      sql.clear;
      sql.Add(' select  InvInBill.InvBillNo  as ''单据号'''
                                                           +' ,InvInBill.VendorCode as ''供应商代码'''
                                                           +' , Vendor.VendorName as ''供应商名称'''
                                                   +' from InvInBill  '
                                                   +' Join Vendor On InvInBill.VendorCode=Vendor.VendorCode'
                                                   +' where InvInBill.InvBillNo='''+Trim(LEdt_KillNoInvoiceNo.text)+''''
                                                   +' and InvInBill.InvBillRemArk like ''应付模块初示化数据%''');
      open;
      if isempty then
      begin
        DispInfo('输入入库单单号不存在或不符合系统要求',3);
        LEdt_KillNoInvoiceNo.setfocus;
        abort;
      end;
    end;
  end;
  i:=0.00;
  if Trim(Edt_range.text)='' then
  begin
    DispInfo('输入项不能为空！',3);
    Edt_range.setfocus;
    abort;
  end;
  try
    i:=strtofloat(Edt_range.text);
  except
   DispInfo('输入非法数据！',1);
   Edt_range.setfocus;
   abort;
  end;
  if Trim(LEdt_ErrRangeKMCode.text)<>'' then
  begin
    with AdoQry_tmp do
    begin
      Close;
      sql.clear;
      sql.Add('select KmCode as ''科目代码'''
                               +',kmName  as ''科目名称'''
                               +' from Gl_AccountSubject '
                               +' where KmCode='''+Trim(LEdt_ErrRangeKMCode.text)+''''
                               +' and  endkm=1 and kmfreeze=0');
      open;
      if isempty then
      begin
        DispInfo('您输入会计科目不存在或不符合系统要求!',3);
        LEdt_ErrRangeKMCode.setfocus;
        abort;
      end;
    end;
  end;
end;

procedure TFrm_Ap_Param.ConditionFloatCheck(Sender: TObject);
begin
  inherited;
  Edt_range.text:=formatfloat('#.##',strtofloat(Edt_range.text));
end;

end.