📄 ad_enter_assetcard_d.pas
字号:
+','''+EDT_AdChangeTypeCode.Text+''''
+','''+EDT_UseStatusCode.Text+''''
+','''+EDT_CurrencyCode.Text+''''
+','''+EDT_ExchangeRate.Text+''''
+','''+EDT_FirstAmount.Text+''''
+','''+EDT_FirstFAmount.Text+''''
+','''+IntToStr(CMBX_DepreciationWay.ItemIndex+1)+''''
+','''+EDT_IntendingPeriod.Text+''''
+','''+EDT_DraffRate.Text+''''
+','''+EDT_DraffValue.Text+''''
+','''+EDT_PeriodRate.Text+''''
+','''+EDT_PeriodValue.Text+''''
+','''+EDT_UsedPeriod.Text+''''
+','''+EDT_DepreciationValue.Text+''''
+','''+EDT_NetValue.Text+''''
+','''+EDT_Intending.Text+''''
+','''+EDT_FinishTask.Text+''''
+','''+EDT_TaskUom.Text+''''
+','''+EDT_PcDepreciation.Text+''''
+','''+MEDT_CreateDate.Text+''''
+','''+EDT_CreateEmployeeCode.Text+''''
+','''+MEDT_EditDate.Text+''''
+','''+EDT_EdItEmployeeCode.Text+''''
+','''+Edt_StArtDepreciationMonth.Text+''''
+')';
ChgType:='增加';
end else
begin
SQL.Text:='Update Ad_AssetCard'
+' Set AssetName='''+Edt_AssetName.Text+''''
+',AssetSujectCode='''+Edt_AssetSujectCode.Text+''''
+',UomCode='+quotedstr(edt_UomCode.text)
+',DepreciationSubjectCode='''+Edt_DepreciationSubjectCode.Text+''''
+',AssetTypeCode='''+Edt_AssetTypeCode.Text+''''
+',DepositaryCode=' +iifstring(Trim(EDT_DepositaryCode.Text)='','null',quotedstr(EDT_DepositaryCode.Text))
+',InAccountDate='''+MEdt_InAccountDate.Text+''''
+',StartUseDate='''+MEdt_StartUseDate.Text+''''
// +',StArtstopUseDate='''+MEdt_StArtstopUseDate.Text+''''
+',AdChangeTypeCode='''+Edt_AdChangeTypeCode.Text+''''
+',UseStatusCode='''+Edt_UseStatusCode.Text+''''
+',CurrencyCode='''+Edt_CurrencyCode.Text+''''
+',ExchangeRate='''+Edt_ExchangeRate.Text+''''
+',FirstAmount='''+Edt_FirstAmount.Text+''''
+',FirstFAmount='''+Edt_FirstFAmount.Text+''''
+',DepreciationWay='''+IntToStr(CMBX_DepreciationWay.ItemIndex+1)+''''
+',IntendingPeriod='''+Edt_IntendingPeriod.Text+''''
+',DraffRate='''+Edt_DraffRate.Text+''''
+',DraffValue='''+Edt_DraffValue.Text+''''
+',PeriodRate='''+Edt_PeriodRate.Text+''''
+',PeriodValue='''+Edt_PeriodValue.Text+''''
+',UsedPeriod='''+Edt_UsedPeriod.Text+''''
+',DepreciationValue='''+Edt_DepreciationValue.Text+''''
+',NetValue='''+Edt_NetValue.Text+''''
+',Intending='''+Edt_Intending.Text+''''
+',FinishTask='''+Edt_FinishTask.Text+''''
+',TaskUom='''+Edt_TaskUom.Text+''''
+',PCDepreciation='''+Edt_PcDepreciation.Text+''''
+',StArDepreciationMonth='''+Edt_StArtDepreciationMonth.Text+''''
+',CreateDate='''+MEdt_CreateDate.Text+''''
+',CreateEmployeeCode='''+Edt_CreateEmployeeCode.Text+''''
+',EditDate='''+MEdt_EditDate.Text+''''
+',EdItEmployeeCode='''+Edt_EdItEmployeeCode.Text+''''
+' Where AssetCode='''+AdoQry_Maintain.fieldbyname('AssetCode').AsString+'''';
ChgType:='修改';
end;
ExecSQL;
end;
SaveHistoryAseetCArd(ChgType);
If DeptInfo.RecordCount>0 Then SaveDeptInfo;
If DeptInfo.RecordCountKm>0 Then SaveKmInfo;
with AdoQry_Maintain do
begin
fieldbyname('AssetCode').AsString:=EDT_AssetCode.Text;
fieldbyname('AssetName').AsString:=EDT_AssetName.Text;
fieldbyname('UomCode').asstring:=edt_UomCode.Text;
fieldbyname('UomName').asstring:=Extedit1.Text;
fieldbyname('AssetSujectCode').AsString:=EDT_AssetSujectCode.Text;
fieldbyname('KmName1').AsString:=EDT_AssetSujectName.Text;
fieldbyname('DepreciationSubjectCode').AsString:=EDT_DepreciationSubjectCode.Text;
fieldbyname('KmName').AsString:=EDT_DepreciationSubjectName.Text;
fieldbyname('AssetTypeCode').AsString:=EDT_AssetTypeCode.Text;
fieldbyname('AssetTypeName').AsString:=EDT_AssetTypeName.Text;
fieldbyname('DepositaryCode').AsString:=EDT_DepositaryCode.Text;
fieldbyname('DepositaryName').AsString:=EDT_DepositaryName.Text;
fieldbyname('InAccountDate').AsString:=MEDT_InAccountDate.Text;
fieldbyname('StartUseDate').AsString:=MEDT_StartUseDate.Text;
// fieldbyname('StArtstopUseDate').AsString:=MEDT_StArtstopUseDate.Text;
fieldbyname('AdChangeTypeCode').AsString:=EDT_AdChangeTypeCode.Text;
fieldbyname('AdChangeTypeName').AsString:=EDT_AdChangeTypeName.Text;
fieldbyname('UseStatusCode').AsString:=EDT_UseStatusCode.Text;
fieldbyname('UseStatusName').AsString:=EDT_UseStatusName.Text;
fieldbyname('CurrencyCode').AsString:=EDT_CurrencyCode.Text;
fieldbyname('CurrencyName').AsString:=EDT_CurrencyName.Text;
fieldbyname('ExchangeRate').AsString:=EDT_ExchangeRate.Text;
fieldbyname('FirstAmount').AsString:=EDT_FirstAmount.Text;
fieldbyname('FirstFAmount').AsString:=EDT_FirstAmount.Text;
fieldbyname('DepreciationWay').AsInteger:=CMBX_DepreciationWay.ItemIndex+1;
fieldbyname('IntendingPeriod').AsString:=EDT_IntendingPeriod.Text;
fieldbyname('DraffRate').AsString:=EDT_DraffRate.Text;
fieldbyname('DraffValue').AsString:=EDT_DraffValue.Text;
fieldbyname('PeriodRate').AsString:=EDT_PeriodRate.Text;
fieldbyname('PeriodValue').AsString:=EDT_PeriodValue.Text;
fieldbyname('UsedPeriod').AsString:=EDT_UsedPeriod.Text;
fieldbyname('DepreciationValue').AsString:=EDT_DepreciationValue.Text;
fieldbyname('NetValue').AsString:=EDT_NetValue.Text;
fieldbyname('Intending').AsString:=EDT_Intending.Text;
fieldbyname('FinishTask').AsString:=EDT_FinishTask.Text;
fieldbyname('TaskUom').AsString:=EDT_TaskUom.Text;
fieldbyname('PCDepreciation').AsString:=EDT_PcDepreciation.Text;
fieldbyname('StArDepreciationMonth').AsString:=EDT_StArTDepreciationMonth.Text;
fieldbyname('CreateDate').AsString:=MEDT_CreateDate.Text;
fieldbyname('CreateEmployeeCode').AsString:=EDT_CreateEmployeeCode.Text;
fieldbyname('EmployeeName1').AsString:=EDT_CreateEmployeeName.Text;
fieldbyname('EditDate').AsString:=MEDT_EditDate.Text;
fieldbyname('EdItEmployeeCode').AsString:=EDT_EdItEmployeeCode.Text;
fieldbyname('EmployeeName').AsString:=EDT_EdItEmployeeName.Text;
Post;
end;
end;
procedure TFrm_Ad_Enter_AssetCard_D.SaveHistoryAseetCArd(ChgType:String);
begin
with AdoQry_Tmp do
begin
Close;
Sql.clear;
SQL.Text:='Insert into Ad_AssetCardHistory(AssetCode,AssetName,AssetSujectCode,DepreciationSubjectCode,'+
'AssetTypeCode,DepositaryCode,InAccountDate,StartUseDate,'+
'AdChangeTypeCode,UseStatusCode,CurrencyCode,ExchangeRate,'+
'FirstAmount,FirstFAmount,DepreciationWay,IntendingPeriod,'+
'DraffRate,DraffValue,PeriodRate,PeriodValue,UsedPeriod,'+
'DepreciationValue,NetValue,Intending,FinishTask,'+
'TaskUom,PCDepreciation,CreateDate,CreateEmployeeCode,'+
'EditDate,EdItEmployeeCode,ChgEmployeeCode,ChgTime,ChgType)'
+' Values('
+' '''+EDT_AssetCode.Text+''''
+','''+EDT_AssetName.Text+''''
+','''+EDT_AssetSujectCode.Text+''''
+','''+EDT_DepreciationSubjectCode.Text+''''
+','''+EDT_AssetTypeCode.Text+''''
+','''+EDT_DepositaryCode.Text+''''
+','''+MEDT_InAccountDate.Text+''''
+','''+MEDT_StartUseDate.Text+''''
+','''+EDT_AdChangeTypeCode.Text+''''
+','''+EDT_UseStatusCode.Text+''''
+','''+EDT_CurrencyCode.Text+''''
+','''+EDT_ExchangeRate.Text+''''
+','''+EDT_FirstAmount.Text+''''
+','''+EDT_FirstFAmount.Text+''''
+','''+IntToStr(CMBX_DepreciationWay.ItemIndex+1)+''''
+','''+EDT_IntendingPeriod.Text+''''
+','''+EDT_DraffRate.Text+''''
+','''+EDT_DraffValue.Text+''''
+','''+EDT_PeriodRate.Text+''''
+','''+EDT_PeriodValue.Text+''''
+','''+EDT_UsedPeriod.Text+''''
+','''+EDT_DepreciationValue.Text+''''
+','''+EDT_NetValue.Text+''''
+','''+EDT_Intending.Text+''''
+','''+EDT_FinishTask.Text+''''
+','''+EDT_TaskUom.Text+''''
+','''+EDT_PcDepreciation.Text+''''
+','''+MEDT_CreateDate.Text+''''
+','''+EDT_CreateEmployeeCode.Text+''''
+','''+MEDT_EditDate.Text+''''
+','''+EDT_EdItEmployeeCode.Text+''''
+','''+UserCode+''''
+',getdate()'
+','''+ChgType+''''
+')';
ExecSQL;
end;
end;
procedure TFrm_Ad_Enter_AssetCard_D.EDT_AssetTypeCodeKeyDown(
Sender: TObject; var Key: Word; Shift: TShiftState);
begin
inherited;
If key=120 Then
CommOnHint(Sender,AdoQry_Tmp,'AssetTypeName','固定资产类别名称','AssetTypeCode',
'固定资产类别代码',' Ad_AssetType ');
end;
procedure TFrm_Ad_Enter_AssetCard_D.EDT_DepositaryCodeKeyDown(
Sender: TObject; var Key: Word; Shift: TShiftState);
begin
inherited;
If key=120 Then
CommOnHint(Sender,AdoQry_Tmp,'DepositaryName','存放地点名称','DepositaryCode',
'存放地点代码',' Ad_Depositary ');
end;
procedure TFrm_Ad_Enter_AssetCard_D.EDT_AdChangeTypeCodeKeyDown(
Sender: TObject; var Key: Word; Shift: TShiftState);
begin
inherited;
If key=120 Then
CommOnHint(Sender,AdoQry_Tmp,'AdChangeTypeName','增减方式名称','AdChangeTypeCode',
'增减方式代码',' Ad_ChangeType ');
end;
procedure TFrm_Ad_Enter_AssetCard_D.EDT_UseStatusCodeKeyDown(
Sender: TObject; var Key: Word; Shift: TShiftState);
begin
inherited;
If key=120 Then
CommOnHint(Sender,AdoQry_Tmp,'UseStatusName','使用状态名称','UseStatusCode',
'使用状态代码',' Ad_UseStatus ');
end;
procedure TFrm_Ad_Enter_AssetCard_D.EDT_CurrencyCodeExit(Sender: TObject);
begin
inherited;
IF Trim(EDT_CurrencyCode.Text)<>'' Then CurrencyCodeCheck(Sender);
AdoQry_Tmp.Close;
AdoQry_Tmp.SQL.clear;
AdoQry_Tmp.SQL.Text:=' Select CurrencyCode,CurrencyName,ISMaster from Currency '
+' where CurrencyCode= '''+EDT_CurrencyCode.Text+''' ';
AdoQry_Tmp.Open;
EDT_CurrencyName.Text := AdoQry_Tmp.fieldbyname('CurrencyName').AsString;
If AdoQry_Tmp.fieldbyname('ISMaster').AsInteger=1 Then
begin
EDT_ExchangeRate.Enabled:=False;
EDT_FirstAmount.Enabled:=False;
EDT_FirstFAmount.Enabled:=True;
EDT_ExchangeRate.Text:='1';
end Else
begin
AdoQry_Tmp.Close;
AdoQry_Tmp.SQL.clear;
AdoQry_Tmp.SQL.Text:=' select * from ExchRate where currencyCode='+quotedstr(EDT_CurrencyCode.Text)
+' and exchMonth='+quotedstr(Copy(MEDT_InAccountDate.text,1,7));
{AdoQry_Tmp.SQL.Text:='select Distinct Gl_ForeignCurrencyRate.ForeignRate,Gl_ForeignCurrencyRateLine.ForeignRate LForeignRate '+
'from Gl_ForeignCurrencyRate,Gl_ForeignCurrencyRateLine '+
'where Gl_ForeignCurrencyRate.ForeignCurrencyRateID=Gl_ForeignCurrencyRateLine.ForeignCurrencyRateID '+
'And CURRENCYCode='''+EDT_CurrencyCode.Text+''' '+
'And (AccountPeriod+''.'' '+
'+Case Len(Cast(Gl_ForeignCurrencyRateLine.AccountPeriodDate as varchAr)) '+
'when 1 then ''0''+Cast(Gl_ForeignCurrencyRateLine.AccountPeriodDate as varchAr) '+
'else Cast(Gl_ForeignCurrencyRateLine.AccountPeriodDate as varchAr) end)='''+MEDT_InAccountDate.Text+''' ';}
AdoQry_Tmp.Open;
if not AdoQry_Tmp.IsEmpty then
EDT_ExchangeRate.Text:=AdoQry_Tmp.fieldbyname('ExchRate').asstring
else
EDT_ExchangeRate.Text:='0';
If Trim(EDT_FirstAmount.Text)='' Then EDT_FirstAmount.Text:='0';
//If Trim(EDT_ExchangeRate.Text)='' Then EDT_ExchangeRate.Text:='0';
EDT_FirstFAmount.Enabled:=False;
EDT_FirstAmount.Enabled:=True;
EDT_ExchangeRate.Enabled:=True;
end;
if EDT_ExchangeRate.Enabled then EDT_ExchangeRate.SetFocus
else CMBX_DepreciationWay.SetFocus;
end;
procedure TFrm_Ad_Enter_AssetCard_D.EDT_CreateEmployeeCodeExit(
Sender: TObject);
begin
inherited;
if(ActiveControl.Name='btn_Cancel')then
Abort;
if TCustomEdit(Sender).Text <>'' then
begin
AdoQry_Tmp.Close;
AdoQry_Tmp.SQL.clear;
AdoQry_Tmp.SQL.Text:=' Select EmployeeCode,EmployeeName from Employee '
+' where EmployeeCode= '''+TCustomEdit(Sender).Text+''' ';
AdoQry_Tmp.Open;
if not AdoQry_Tmp.Eof then
begin
EDT_CreateEmployeeName.Text := AdoQry_Tmp.fieldbyname('EmployeeName').AsString;
end
else
begin
DispInfo('建档人员代码错误，请重新输入',1);
TWinControl(Sender).SetFocus;
Abort;
end;
end
else
EDT_CreateEmployeeName.Text:='';
end;
procedure TFrm_Ad_Enter_AssetCard_D.EDT_EdItEmployeeCodeExit(
Sender: TObject);
begin
inherited;
if(ActiveControl.Name='btn_Cancel')then
Abort;
if TCustomEdit(Sender).Text <>'' then
begin
AdoQry_Tmp.Close;
AdoQry_Tmp.SQL.clear;
AdoQry_Tmp.SQL.Text:=' Select EmployeeCode,EmployeeName from Employee '
+' where EmployeeCode= '''+TCustomEdit(Sender).Text+''' ';
AdoQry_Tmp.Open;
if not AdoQry_Tmp.Eof then
begin
EDT_EdItEmployeeName.Text := AdoQry_Tmp.fieldbyname('EmployeeName').AsString;
end
else
begin
DispInfo('修改人员代码错误，请重新输入',1);
TWinControl(Sender).SetFocus;
Abort;
end;
end
else
EDT_EdItEmployeeName.Text:='';
end;
procedure TFrm_Ad_Enter_AssetCard_D.EDT_AssetTypeCodeButtonClick(
Sender: TObject);
begin
inherited;
CommOnHint(Sender,AdoQry_Tmp,'AssetTypeName','固定资产类别名称','AssetTypeCode',
'固定资产类别代码',' Ad_AssetType ');
end;
procedure TFrm_Ad_Enter_AssetCard_D.EDT_DepositaryCodeButtonClick(
Sender: TObject);
begin
inherited;
CommOnHint(Sender,AdoQry_Tmp,'DepositaryName','存放地点名称','DepositaryCode',
'存放地点代码',' Ad_Depositary ');
end;
procedure TFrm_Ad_Enter_AssetCard_D.EDT_AdChangeTypeCodeButtonClick(
Sender: TObject);
begin
inherited;
CommOnHint(Sender,AdoQry_Tmp,'AdChangeTypeName','增减方式名称','AdChangeTypeCode',
'增减方式代码',' Ad_ChangeType ');
end;
procedure TFrm_Ad_Enter_AssetCard_D.EDT_UseStatusCodeButtonClick(
Sender: TObject);
begin
inherited;
CommOnHint(Sender,AdoQry_Tmp,'UseStatusName','使用状态名称','UseStatusCode',
'使用状态代码',' Ad_UseStatus ');
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -