📄 acp510_02.pas.svn-base

📁 这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享
💻 SVN-BASE
📖 第 1 页 / 共 4 页
字号:
  Label1.Caption:=GetDBString('ACP51002027');  //原始单号
  lblCurr.Caption:=GetDBString('ACP51002028');  //币别名称
  lblRate.Caption:=GetDBString('ACP51002029');  //币别汇率
  Label3.Caption:=GetDBString('ACP51002030');  //发票金额
  Label4.Caption:=GetDBString('ACP51002031');  //发票税额
  Label5.Caption:=GetDBString('ACP51002032');  //应付金额
  lblRemark.Caption:=GetDBString('ACP51002033');  //备注说明
  wwDBGrid1.ColumnByName('FItemID').DisplayLabel:=GetDBString('ACP51002036');  //产品编号
  wwDBGrid1.ColumnByName('FItemName').DisplayLabel:=GetDBString('ACP51002037');  //产品名称
  wwDBGrid1.ColumnByName('FItemSpec').DisplayLabel:=GetDBString('ACP51002038');  //规格型号
  wwDBGrid1.ColumnByName('FUnitName').DisplayLabel:=GetDBString('ACP51002039');  //单位名称
  wwDBGrid1.ColumnByName('FOrderQty').DisplayLabel:=GetDBString('ACP51002040');  //销售数量
  wwDBGrid1.ColumnByName('FOrderPrice').DisplayLabel:=GetDBString('ACP51002041');  //销售单价
  wwDBGrid1.ColumnByName('FOrderAmount').DisplayLabel:=GetDBString('ACP51002042');  //销售金额
  wwDBGrid1.ColumnByName('FDisAmt').DisplayLabel:=GetDBString('ACP51002043');  //销售折扣
  wwDBGrid1.ColumnByName('FQty').DisplayLabel:=GetDBString('ACP51002044');  //发票数量
  wwDBGrid1.ColumnByName('FPrice').DisplayLabel:=GetDBString('ACP51002045');  //发票单价
  wwDBGrid1.ColumnByName('FAmount').DisplayLabel:=GetDBString('ACP51002046');  //发票金额
  wwDBGrid1.ColumnByName('FTaxRate').DisplayLabel:=GetDBString('ACP51002047');  //发票税率
  wwDBGrid1.ColumnByName('FTaxAmt').DisplayLabel:=GetDBString('ACP51002048');  //发票税额
  wwDBGrid1.ColumnByName('FRemark').DisplayLabel:=GetDBString('ACP51002049');  //备注说明
  gbCust.Caption:=GetDBString('ACP51002050');  //销售定单
  lblCust.Caption:=GetDBString('ACP51002051');  //客户编号
  lblAddress.Caption:=GetDBString('ACP51002052');  //客户地址
  lblPhone.Caption:=GetDBString('ACP51002053');  //电话号码
  lblFax.Caption:=GetDBString('ACP51002054');  //传真号码
  qryHrm150H150_002.DisplayLabel:=GetDBString('ACP51002055');  //员工编号
  qryHrm150H150_003.DisplayLabel:=GetDBString('ACP51002056');  //员工姓名
  qryAcp510BA510B_001.DisplayLabel:=GetDBString('ACP51002057');  //发票编号
  qryAcp510BA510B_002.DisplayLabel:=GetDBString('ACP51002058');  //发票行号
  qryAcp510BA510B_003.DisplayLabel:=GetDBString('ACP51002059');  //采购单号
  qryAcp510BA510B_004.DisplayLabel:=GetDBString('ACP51002060');  //采购单行
  qryAcp510BA510B_005.DisplayLabel:=GetDBString('ACP51002061');  //发票数量
  qryAcp510BA510B_006.DisplayLabel:=GetDBString('ACP51002062');  //发票单价
  qryAcp510BA510B_007.DisplayLabel:=GetDBString('ACP51002063');  //发票金额
  qryAcp510BA510B_008.DisplayLabel:=GetDBString('ACP51002064');  //发票税率
  qryAcp510BA510B_009.DisplayLabel:=GetDBString('ACP51002065');  //发票税额
  qryAcp510BA510B_010.DisplayLabel:=GetDBString('ACP51002066');  //应付金额
  qryAcp510BA510B_011.DisplayLabel:=GetDBString('ACP51002067');  //备注说明
  qryAcp510BO510B_002.DisplayLabel:=GetDBString('ACP51002068');  //定单行号
  qryAcp510BO510B_003.DisplayLabel:=GetDBString('ACP51002069');  //产品编号
  qryAcp510BO510B_004.DisplayLabel:=GetDBString('ACP51002070');  //计量单位
  qryAcp510BO510B_005.DisplayLabel:=GetDBString('ACP51002071');  //采购数量
  qryAcp510BO510B_006.DisplayLabel:=GetDBString('ACP51002072');  //采购单价
  qryAcp510BO510B_007.DisplayLabel:=GetDBString('ACP51002073');  //采购总额
  qryAcp510BO510B_024.DisplayLabel:=GetDBString('ACP51002074');  //发票金额
  qryAcp510BO510B_025.DisplayLabel:=GetDBString('ACP51002075');  //折扣金额
  qryAcp510BI150_002.DisplayLabel:=GetDBString('ACP51002076');  //I150_002
  qryAcp510BI150_003.DisplayLabel:=GetDBString('ACP51002077');  //I150_003
  qryAcp510BI150_004.DisplayLabel:=GetDBString('ACP51002078');  //I150_004
  qryAcp510BI150_008.DisplayLabel:=GetDBString('ACP51002079');  //I150_008
  qryAcp510BI140_002.DisplayLabel:=GetDBString('ACP51002080');  //I140_002
  qryAcp510BI140_003.DisplayLabel:=GetDBString('ACP51002081');  //I140_003
  qryItemsI150_002.DisplayLabel:=GetDBString('ACP51002082');  //产品编号
  qryItemsI150_003.DisplayLabel:=GetDBString('ACP51002083');  //产品名称
  qryItemsI150_004.DisplayLabel:=GetDBString('ACP51002084');  //规格型号
  qryItemsI140_002.DisplayLabel:=GetDBString('ACP51002085');  //单位编号
  qryItemsI140_003.DisplayLabel:=GetDBString('ACP51002086');  //单位名称
  qryInv150I150_001.DisplayLabel:=GetDBString('ACP51002087');  //I150_001
  qryInv150I150_002.DisplayLabel:=GetDBString('ACP51002088');  //I150_002
  qryInv150I150_003.DisplayLabel:=GetDBString('ACP51002089');  //I150_003
  qryInv150I150_004.DisplayLabel:=GetDBString('ACP51002090');  //I150_004
  qryInv150I150_005.DisplayLabel:=GetDBString('ACP51002091');  //I150_005
  qryInv150I150_006.DisplayLabel:=GetDBString('ACP51002092');  //I150_006
  qryInv150I150_007.DisplayLabel:=GetDBString('ACP51002093');  //I150_007
  qryInv150I150_008.DisplayLabel:=GetDBString('ACP51002094');  //I150_008
  qryInv150I150_009.DisplayLabel:=GetDBString('ACP51002095');  //I150_009
  qryInv150I150_010.DisplayLabel:=GetDBString('ACP51002096');  //I150_010
  qryInv150I150_011.DisplayLabel:=GetDBString('ACP51002097');  //I150_011
  qryInv150I150_012.DisplayLabel:=GetDBString('ACP51002098');  //I150_012
  qryInv150I150_013.DisplayLabel:=GetDBString('ACP51002099');  //I150_013
  qryInv150I150_014.DisplayLabel:=GetDBString('ACP51002100');  //I150_014
  qryInv150I150_015.DisplayLabel:=GetDBString('ACP51002101');  //I150_015
  qryInv150I150_016.DisplayLabel:=GetDBString('ACP51002102');  //I150_016
  qryInv150I150_017.DisplayLabel:=GetDBString('ACP51002103');  //I150_017
  qryInv150I150_018.DisplayLabel:=GetDBString('ACP51002104');  //I150_018
  qryInv150I150_019.DisplayLabel:=GetDBString('ACP51002105');  //I150_019
  qryInv150I150_020.DisplayLabel:=GetDBString('ACP51002106');  //I150_020
  qryInv150I150_021.DisplayLabel:=GetDBString('ACP51002107');  //I150_021
  qryInv150I150_022.DisplayLabel:=GetDBString('ACP51002108');  //I150_022
  qryInv150I150_023.DisplayLabel:=GetDBString('ACP51002109');  //I150_023
  qryInv150I150_024.DisplayLabel:=GetDBString('ACP51002110');  //I150_024
  qryInv150I150_025.DisplayLabel:=GetDBString('ACP51002111');  //I150_025
  qryInv150I150_026.DisplayLabel:=GetDBString('ACP51002112');  //I150_026
  qryInv150I150_027.DisplayLabel:=GetDBString('ACP51002113');  //I150_027
  qryInv150I150_028.DisplayLabel:=GetDBString('ACP51002114');  //I150_028
  qryInv150I150_029.DisplayLabel:=GetDBString('ACP51002115');  //I150_029
  qryInv150I150_030.DisplayLabel:=GetDBString('ACP51002116');  //I150_030
  qryInv150I150_031.DisplayLabel:=GetDBString('ACP51002117');  //I150_031
  qryInv150I150_032.DisplayLabel:=GetDBString('ACP51002118');  //I150_032
  qryInv150I150_033.DisplayLabel:=GetDBString('ACP51002119');  //I150_033
  qryInv150I150_034.DisplayLabel:=GetDBString('ACP51002120');  //I150_034
  qryInv150I150_035.DisplayLabel:=GetDBString('ACP51002121');  //I150_035
  qryInv150I150_036.DisplayLabel:=GetDBString('ACP51002122');  //I150_036
  qryInv150I150_037.DisplayLabel:=GetDBString('ACP51002123');  //I150_037
  qryInv150I150_038.DisplayLabel:=GetDBString('ACP51002124');  //I150_038
  qryInv150I150_039.DisplayLabel:=GetDBString('ACP51002125');  //I150_039
  qryInv150I150_040.DisplayLabel:=GetDBString('ACP51002126');  //I150_040
  qryInv150I150_041.DisplayLabel:=GetDBString('ACP51002127');  //I150_041
  qryInv150I150_042.DisplayLabel:=GetDBString('ACP51002128');  //I150_042
  qryInv150I150_043.DisplayLabel:=GetDBString('ACP51002129');  //I150_043
  qryInv150I150_044.DisplayLabel:=GetDBString('ACP51002130');  //I150_044
  qryInv150I150_045.DisplayLabel:=GetDBString('ACP51002131');  //I150_045
  qryInv150I150_046.DisplayLabel:=GetDBString('ACP51002132');  //I150_046
  qryInv150I150_047.DisplayLabel:=GetDBString('ACP51002133');  //I150_047
  qryInv150I150_048.DisplayLabel:=GetDBString('ACP51002134');  //I150_048
  qryInv150I150_049.DisplayLabel:=GetDBString('ACP51002135');  //I150_049
  qryInv150I150_050.DisplayLabel:=GetDBString('ACP51002136');  //I150_050
  qryInv150I150_051.DisplayLabel:=GetDBString('ACP51002137');  //I150_051
  qryInv150I150_052.DisplayLabel:=GetDBString('ACP51002138');  //I150_052
  qryInv150I150_053.DisplayLabel:=GetDBString('ACP51002139');  //I150_053
  qryInv140I140_001.DisplayLabel:=GetDBString('ACP51002140');  //I140_001
  qryInv140I140_002.DisplayLabel:=GetDBString('ACP51002141');  //I140_002
  qryInv140I140_003.DisplayLabel:=GetDBString('ACP51002142');  //I140_003
  qryInv140I140_004.DisplayLabel:=GetDBString('ACP51002143');  //I140_004
  qryOrd150O150_002.DisplayLabel:=GetDBString('ACP51002144');  //客户编号
  qryOrd150O150_003.DisplayLabel:=GetDBString('ACP51002145');  //客户名称
  qryOrd150O150_004.DisplayLabel:=GetDBString('ACP51002146');  //客户简称
  qryOrd150O150_005.DisplayLabel:=GetDBString('ACP51002147');  //电话号码
  qryOrd150O150_006.DisplayLabel:=GetDBString('ACP51002148');  //传真号码
  qryOrd150O150_007.DisplayLabel:=GetDBString('ACP51002149');  //电子邮件
  qryOrd150O150_008.DisplayLabel:=GetDBString('ACP51002150');  //公司网址
  qryOrd150O150_012.DisplayLabel:=GetDBString('ACP51002151');  //通讯地址

  AStatus[0]:=GetDBString('ACP51002152');  //新建
  AStatus[1]:=GetDBString('ACP51002153');  //作废
  AStatus[2]:=GetDBString('ACP51002154');  //收款
  AStatus[3]:=GetDBString('ACP51002155');  //完成
  //币别名称
  cbCurr.Clear;
  qryGld100.Close;
  qryGld100.Open;
  while not qryGld100.Eof do
  begin
    cbCurr.Items.Add(qryGld100.FieldByName('G100_003').AsString);
    qryGld100.Next;
  end;
  qryGld100.First;
  cbCurr.ItemIndex:=5;
  edtRate.Text:='1';
  
  adsAcp510B.Close;
  adsAcp510B.CreateDataSet;
  SetDBGridA;
end;

procedure TAcp510_02Form.FormCreate(Sender: TObject);
begin
  inherited;
//打开数据集
  ATableName:='Acp510A';
  AFieldName:='A510A_001';
  qryHrm150.Open;
  qryGld100.Open;
  qryOrd150.Open;
  qryInv140.Open;
  qryInv150.Open;
  qryAcp510B.Open;
  adsAcp510B.Close;
  adsAcp510B.CreateDataSet;
  qryItems.Open;
  AKeyEvent:=OnKeyDown;
end;

procedure TAcp510_02Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//退出窗口
end;

procedure TAcp510_02Form.DeleteEvent;
var
  ACode:String;
  AAccountInfo:TAccountInfo;
begin
  inherited;
  ACode:=ADOQuery1.FieldByName('A510A_001').AsString;
  
  if ADOQuery1.FieldByName('A510A_003').AsInteger<>0 then
  begin
    ShowMsg('UMS10000679');    //不能删除非新建状态的采购发票
    Exit;
  end;

  if not (ADOQuery1A510A_003.Value in [0]) then
  begin
    ShowMsg('UMS10000696');  //不能删除非新增状态的采购发票
    Abort;
  end;

  GetAccountInfo(ACode,'ACP510',AMode,AAccountInfo,ADOQuery1.FieldByName('A510A_002').value);
  UpdateCSH610(0,AAccountInfo.ACustNo,AAccountInfo.ACurrNo,AAccountInfo.AInOut,0,AAccountInfo.ABillNo,2,AAccountInfo.ADate,AAccountInfo.AAmount,ACode,'','DEL');

  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select * from Acp510B where A510B_001='+''''+ACode+'''');
  SYSDM.qryQuery.open;
  SYSDM.qryQuery.First;
  while not SYSDM.qryQuery.Eof do
  begin
    UpdateORD510B(SYSDM.qryQuery.FieldByName('A510B_003').Value,'DEL');
    SYSDM.qryQuery.Next;
  end;
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('delete from Acp510B where A510B_001='+''''+ACode+'''');
  SYSDM.qryQuery.ExecSQL;
  DeleteTableRecord(ADOQuery1,'Acp510A','A510A_001='+''''+ACode+'''');
end;

procedure TAcp510_02Form.GetDataInfo;
var
  ACustNo,ASaleNo:integer;
  ASaleID,ASaleName:string;
begin
  inherited;
  //取得界面信息
  edtCode.Text:=ADOQuery1.FieldByName('A510A_001').AsString;       //采购单号
  cbFrom.ItemIndex:=ADOQuery1.FieldByName('A510A_002').AsInteger;  //采购类型
  edtStatus.Text:=AStatus[ADOQuery1.FieldByName('A510A_003').AsInteger];  //定单状态(0=新建，1=作废，2=付款，3=完成)
  edtDate.Date:=ADOQuery1.FieldByName('A510A_004').Value;          //采购日期
  ASaleNo:=ADOQuery1.FieldByName('A510A_005').AsInteger;           //开票人员
  //开票人员
  if qryHrm150.Locate('H150_001',ASaleNo,[]) then
  begin
    ASaleID:=qryHrm150.FieldByName('H150_002').AsString;
    ASaleName:=qryHrm150.FieldByName('H150_003').AsString;
    edtPerson.Text:=ASaleID;          //人员编号
    edtPersonName.Text:=ASaleName;    //人员名称
  end;
  //币别信息
  edtSourceNo.Text:=ADOQuery1.FieldByName('A510A_006').AsString;    //原始单号
  ACurrNo:=ADOQuery1.FieldByName('A510A_007').AsInteger;            //币别编号
  cbCurr.ItemIndex:=ACurrNo-1;
  if qryGld100.Locate('G100_001',ACurrNo,[]) then
  begin
    edtRate.Text:=qryGld100.fieldByName('G100_005').AsString;
  end;
  edtAmount.Text:= ADOQuery1.FieldByName('A510A_009').AsString;    //发票金额
  edtRevenue.Text:=ADOQuery1.FieldByName('A510A_010').AsString;    //发票税额
  edtReceive.Text:=ADOQuery1.FieldByName('A510A_011').AsString;    //应收金额
  memRemark.Text:=ADOQuery1.FieldByName('A510A_013').AsString;     //备注说明
  ACustNo:=ADOQuery1.FieldByName('A510A_012').AsInteger;           //备注说明
  //取得客户资料的信息
  if qryOrd150.Locate('O150_001',ACustNo,[]) then
  begin
    GetCustPlaceInfo;
  end;
  //取得料品资料的信息
  GetDetailData;

  edtCreateDate.Text:=ADOQuery1.fieldByName('A510A_014').AsString;
  edtCreateBy.Text:=ADOQuery1.fieldByName('A510A_015').AsString;
  edtUpdateDate.Text:=ADOQuery1.fieldByName('A510A_016').AsString;
  edtUpdateBy.Text:=ADOQuery1.fieldByName('A510A_017').AsString;
end;

procedure TAcp510_02Form.InsertEvent;
var
  ADate:TDateTime;
begin
  inherited;
  //清空界面
  ADate:=GetServerDate;
  edtCode.Text:='';
  edtDate.Date:=ADate;
  edtStatus.Text:=AStatus[0];
  edtPerson.Text:='';
  edtPersonName.Text:='';
  edtSourceNo.Text:='';
  edtRate.Text:='1.00';
  edtAmount.Text:='0.00';
  edtRevenue.Text:='0.00';
  edtReceive.Text:='0.00';
  memRemark.Text:='';
  edtCust.Text:='';
  edtCustName.Text:='';
  edtPhone.Text:='';
  edtAddress.Text:='';
  edtContact.Text:='';
  edtDate.Date:=ADate;
  edtCreateDate.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',ADate);
  edtCreateBy.Text:=AUserName;
  edtUpdateDate.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',ADate);
  edtUpdateBy.Text:=AUserName;
  cbCurr.ItemIndex:=5;
  edtRate.Text:='1';
  adsAcp510B.Close;
  adsAcp510B.CreateDataSet;
  SetDBGridA;
end;

procedure TAcp510_02Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;

end;

procedure TAcp510_02Form.SetEmptyInit;
begin
  inherited;
  edtCode.Text:='';
  edtDate.Date:=GetServerDate;
  edtStatus.Text:=AStatus[0];
  edtPerson.Text:='';
  edtPersonName.Text:='';
  edtSourceNo.Text:='';
  edtRate.Text:='1.00';
  edtAmount.Text:='0.00';
  edtRevenue.Text:='0.00';
  edtReceive.Text:='0.00';
  memRemark.Text:='';
💿 文件大小 5005 K
👤 上传用户 struggle10000
📂 所属分类企业管理
🏷️ 相关标签

#ERP #代码 #企业信息 #管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -