gl_enter_credence_d.pas

一个MRPII系统源代码版本

  if key=120 then
  CommOnHint(Sender,AdoQry_Tmp,'kmName','科目名称','kmCode',
             '科目代码',' Gl_AccountSubject ',' endkm=1 and kmfreeze=0 ');
end;

procedure TFrm_Gl_Enter_Credence_D.edt_kmCodeButtonClick(Sender: TObject);
begin
  inherited;
  CommOnHint(Sender,AdoQry_Tmp,'kmName','科目名称','kmCode',
             '科目代码',' Gl_AccountSubject ',' endkm=1 and kmfreeze=0 ');
end;

procedure TFrm_Gl_Enter_Credence_D.edt_kmCodeExit(Sender: TObject);
var 
    currencyCode:string;
    kmpro:integer;
//    nowMonth:string;
begin
  inherited;
  if activecontrol.Name='btn_Cancel' then exit;
  if Trim(Tedit(sender).text)='' then
  begin
   DispInfo('科目代码不能为空！',3);
   Tedit(sender).setfocus;
   abort;
  end;
  Executesql(AdoQry_tmp,'select * from Gl_AccountSubject where endkm=1 and kmfreeze=0 and kmCode='+quotedstr(Trim(Tedit(sender).text)),0)  ;
  if AdoQry_tmp.RecordCount=0 then
    begin
      DispInfo('科目代码错误！',3);
      Tedit(sender).setfocus;
      abort;
    end;
  //iSfcurrency:=AdoQry_tmp.fieldbyname('fcurrecycalculate').asinteger;
  currencyCode:=AdoQry_tmp.fieldbyname('Fcurrecy').asstring;
  kmpro:=AdoQry_tmp.fieldbyname('kmproperty').asinteger;
  edt_kmName.Text:=AdoQry_tmp.fieldbyname('kmName').asstring;

  IsDeptCalculate:=AdoQry_tmp.fieldbyname('DepArtCalculate').asinteger;
  IsPersonCalculate:=AdoQry_tmp.fieldbyname('PersonCalculate').asinteger;
  IScustomerCalculate:=AdoQry_tmp.fieldbyname('CustomerCalculate').asinteger;
  IsVenderCalculate:=AdoQry_tmp.fieldbyname('VendorCalculate').asinteger;
  IsProjectCalculate:=AdoQry_tmp.fieldbyname('ProjectCalculate').asinteger;

  ExecuteSql(AdoQry_Tmp, 'select * from currency where isMaster=1 and currencyCode='+quotedstr(currencyCode),0);
  if AdoQry_Tmp.IsEmpty then
    ISfcurrency:=1
  else
    ISfcurrency:=0;
  if iSfcurrency=0 then
  begin
    edt_fdebit.Text:='0';
   // edt_Credit.Enabled:=iifValue(kmpro=1,False,True);
  //  edt_Debit.Enabled:=iifValue(kmpro=1,True,False);
  //  if edt_Credit.Enabled=False then edt_Credit.Text:='0';
  //  if edt_Debit.Enabled=False then edt_Debit.Text:='0';
    edt_Debit.Enabled :=False;
    edt_Debit.Text:='0';
    edt_Credit.Enabled :=False;
    edt_Credit.Text:='0';

    edt_fdebit.Enabled:=True;
    edt_fcredit.Text:='0';
    edt_fcredit.Enabled:=True;
    edt_rate.Text:='1';
    edt_rate.Enabled:=False;
   // edt_Debit.SetFocus;
    //exit;
  end
  else
  begin

   // edt_fcredit.Enabled:=iifValue(kmpro=1,False,True);
   // edt_fdebit.Enabled:=iifValue(kmpro=1,True,False);
    //if edt_fcredit.Enabled=False then edt_fcredit.Text:='0';
    //if edt_fdebit.Enabled=False then edt_fdebit.Text:='0';
    edt_Debit.Text:='0';
    edt_fcredit.Enabled:=True;
    edt_fdebit.Enabled:=True;
    edt_fcredit.Text:='0';
    edt_fdebit.Text:='0';
    edt_Debit.Enabled :=False;
    edt_Debit.Text:='0';
    edt_Credit.Enabled :=False;
    edt_Credit.Text:='0';
    Executesql(AdoQry_tmp,'select * from ExchRate '
                         +' where currencyCode='+quotedstr(currencyCode)
                         +' and ExchMonth='+quotedstr(nowMonth),0);
    Edt_Rate.Enabled := True;
    edt_rate.Text:=floattostr(AdoQry_tmp.fieldbyname('ExchRate').asfloat) ;
    edt_fdebit.SetFocus;
  end;
end;

procedure TFrm_Gl_Enter_Credence_D.edt_DeptCodeExit(Sender: TObject);
begin
  inherited;
  if ChkKm(Sender,IsDeptCalculate, '部门标识') then exit;
  Executesql(AdoQry_tmp,'select * from Dept where DeptCode='+quotedstr(Trim(Tedit(sender).text)),0)  ;
  if AdoQry_Tmp.IsEmpty and (TLinkEdit(Sender).Text<>'') then
  begin
    DispInfo('输入数据错误，请检查!',3);
    TWinControl(Sender).Setfocus;
  end;
  edt_DeptName.Text:=AdoQry_tmp.fieldbyname('DeptName').asstring;
end;

procedure TFrm_Gl_Enter_Credence_D.edt_PersonCodeExit(Sender: TObject);
begin
  inherited;
  if ChkKm(Sender,IsPersonCalculate,'个人标识') then exit;
  Executesql(AdoQry_tmp,'select * from Employee where EmployeeCode='+quotedstr(Trim(Tedit(sender).text)),0)  ;
  if AdoQry_Tmp.IsEmpty and (TLinkEdit(Sender).Text<>'') then
  begin
    DispInfo('输入数据错误，请检查!',3);
    TWinControl(Sender).Setfocus;
  end;
  edt_PersonName.Text:=AdoQry_tmp.fieldbyname('EmployeeName').asstring;
end;

procedure TFrm_Gl_Enter_Credence_D.edt_CustomerCodeExit(Sender: TObject);
begin
  inherited;
  if ChkKm(Sender,IScustomerCalculate,'客户标识') then exit;
  Executesql(AdoQry_tmp,'select * from customer where customerCode='+quotedstr(Trim(Tedit(sender).text)),0)  ;
  if AdoQry_Tmp.IsEmpty and (TLinkEdit(Sender).Text<>'') then
  begin
    DispInfo('输入数据错误，请检查!',3);
    TWinControl(Sender).Setfocus;
  end;
  edt_CustomerName.Text:=AdoQry_tmp.fieldbyname('customerName').asstring;
end;

procedure TFrm_Gl_Enter_Credence_D.edt_VendorCodeExit(Sender: TObject);
begin
  inherited;
  if ChkKm(Sender,IsVenderCalculate,'供应商标识') then exit;
  Executesql(AdoQry_tmp,'select * from Vendor where VendorCode='+quotedstr(Trim(Tedit(sender).text)),0)  ;
  if AdoQry_Tmp.IsEmpty and (TLinkEdit(Sender).Text<>'') then
  begin
    DispInfo('输入数据错误，请检查!',3);
    TWinControl(Sender).Setfocus;
  end;
  edt_VendorName.Text:=AdoQry_tmp.fieldbyname('VendorName').asstring;
end;

procedure TFrm_Gl_Enter_Credence_D.edt_BalanceTypeCodeKeyDown(
  Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  inherited;
  if key=120 then
  CommOnHint(Sender,AdoQry_Tmp,'BalanceTypeName','结算方式名称','BalanceTypeCode',
             '结算方式代码',' BalanceType ');
end;

procedure TFrm_Gl_Enter_Credence_D.edt_BalanceTypeCodeButtonClick(
  Sender: TObject);
begin
  inherited;
  CommOnHint(Sender,AdoQry_Tmp,'BalanceTypeName','结算方式名称','BalanceTypeCode',
             '结算方式代码',' BalanceType ');
end;

procedure TFrm_Gl_Enter_Credence_D.edt_BalanceTypeCodeExit(
  Sender: TObject);
begin
  inherited;
  if activecontrol.Name='btn_Cancel' then exit;
  if Trim(edt_BalanceTypeCode.Text)='' then exit;
  Executesql(AdoQry_tmp,'select * from BalanceType where BalanceTypeCode='+quotedstr(Trim(Tedit(sender).text)),0)  ;
  if AdoQry_tmp.RecordCount=0 then
    begin
      DispInfo('结算方式代码错误！',3);
      Tedit(sender).setfocus;
      abort;
    end;
  edt_BalanceTypeName.Text:=AdoQry_tmp.fieldbyname('BalanceTypeName').asstring;
end;

procedure TFrm_Gl_Enter_Credence_D.edt_DocketNameExit(Sender: TObject);
begin
  inherited;
  if activecontrol.Name='btn_Cancel' then exit;
  if Trim(Tedit(sender).text)='' then
  begin
    DispInfo('摘要不能为空！',3);
    Tedit(sender).setfocus;
    abort;
  end;
  Executesql(AdoQry_tmp,'select * from Gl_Docket where docketCode='+quotedstr(Trim(edt_DocketName.text)),0);
  if AdoQry_tmp.RecordCount>0 then
  edt_DocketName.Text:=AdoQry_tmp.fieldbyname('docketName').asstring;
end;

procedure TFrm_Gl_Enter_Credence_D.cmb_CashWayButtonClick(Sender: TObject);
begin
  inherited;
  CommOnHint(Sender,AdoQry_Tmp,'projectName','项目名称','projectCode','项目编号',' Gl_CashReport ', ' (plineno<>'''' or plineno is not null) and issum=0 ');
end;

procedure TFrm_Gl_Enter_Credence_D.cmb_CashWayExit(Sender: TObject);
begin
  inherited;
  {if activecontrol.Name='btn_Cancel' then exit;
  if not BlankCheck(Trim(cmb_CashWay.text),'现金流向')then
  begin
    cmb_CashWay.SetFocus;
    exit;
  end;}
  if Trim(cmb_CashWay.text)='' then exit;
  Executesql(AdoQry_Tmp,'select * from Gl_CashReport where (plineno<>'''' or plineno is not null) and issum=0 and projectCode='+quotedstr(Trim(Tedit(sender).text)),0)  ;
  if AdoQry_Tmp.RecordCount=0 then
    begin
      DispInfo('现金流向代码错误！',3);
      Tedit(sender).setfocus;
      abort;
    end;
  Edt_CashWay.Text:=AdoQry_Tmp.fieldbyname('projectName').asstring;

end;

procedure TFrm_Gl_Enter_Credence_D.cmb_CashWayKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if key=120 then
    CommOnHint(Sender,AdoQry_Tmp,'projectName','项目名称','projectCode','项目编号',' Gl_CashReport ', ' (plineno<>'''' or plineno is not null) and issum=0 ');
end;

function TFrm_Gl_Enter_Credence_D.ChkKm(Sender: TObject;
  CalculateName: integer; InfoStr: string=''): boolean;
begin
  Result:=False;
  if ((CalculateName=1) and (Trim(TLinkEdit(Sender).Text)='')) then
  begin
    Result:=True;
    DispInfo(Infostr+' 不能為空，您必须输入相应内容!',3);
    TWinControl(Sender).SetFocus;
  end;
end;

procedure TFrm_Gl_Enter_Credence_D.edt_ProjectCodeExit(Sender: TObject);
begin
  inherited;
  if ChkKm(Sender,IsProjectCalculate, '项目标识') then exit;
  {if AdoQry_Tmp.IsEmpty then
  begin
    DispInfo('输入数据错误，请检查!',3);
    TWinControl(Sender).Setfocus;
    Exit;
  end;}
end;

procedure TFrm_Gl_Enter_Credence_D.edt_fdebitExit(Sender: TObject);
begin
  inherited;
  FloatCheck(Edt_Fdebit);
  edt_Debit.Text:=floattostr(strtofloat(Trim(edt_fdebit.text))*strtofloat(Trim(edt_rate.text)));
end;

procedure TFrm_Gl_Enter_Credence_D.edt_fcreditExit(Sender: TObject);
begin
  inherited;
  FloatCheck(Edt_Fcredit);
  edt_Credit.Text:=floattostr(strtofloat(Trim(edt_fcredit.text))*strtofloat(Trim(edt_rate.text)));
end;

end.