⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ord500_02.pas.svn-base

📁 这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享
💻 SVN-BASE
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
      edtPlaceDept.Text:=qryOrd151.FieldByName('O151_003').AsString;
    end;
  end;
  qryOrd153.Close;
  qryOrd153.SQL.Clear;
  qryOrd153.SQL.Add('select AA.*,BB.O150_002,BB.O150_003 from');
  qryOrd153.SQL.Add(' (select C.I150_002,A.O153_003,A.O153_008,A.O153_010,A.O153_012,C.I150_003,C.I150_004,D.I120_003,C.I150_001,C.I150_010');
  qryOrd153.SQL.Add('from ORD153 A, ORD150 B, INV150 C, INV120 D');
  qryOrd153.SQL.Add('where A.O153_001=B.O150_001 and A.O153_002=C.I150_001 and C.I150_005=D.I120_001 and B.O150_002='+''''+edtCust.Text+''''+') as AA');
  qryOrd153.SQL.Add('left join ORD150 BB on AA.I150_010=BB.O150_001');
  qryOrd153.Open;
  AItemNo:=ADOQuery1.FieldByName('O500A_006').AsInteger;  //产品编号
  if qryOrd153.Locate('I150_001;O153_003',VarArrayOf([AItemNo,edtMacNo.Text]),[]) then
  begin
    edtItemID.Text:=qryOrd153.FieldByName('I150_002').AsString;
    edtItemName.Text:=qryOrd153.FieldByName('I150_003').AsString;
    edtMacNo.Text:=qryOrd153.FieldByName('O153_003').AsString;
    edtModel.Text:=qryOrd153.FieldByName('I150_004').AsString;
    edtItemClass.Text:=qryOrd153.FieldByName('I120_003').AsString;
    edtMaker.Text:=qryOrd153.FieldByName('O150_002').AsString;
    edtMakerName.Text:=qryOrd153.FieldByName('O150_003').AsString;
  end else
  begin
    edtItemID.Text:='';
    edtItemName.Text:='';
    edtMacNo.Text:='';
    edtModel.Text:='';
    edtItemClass.Text:='';
    edtMaker.Text:='';
    edtMakerName.Text:='';
  end;

  AOldCustNo:=ADOQuery1.FieldByName('O500A_017').AsInteger;
  GetDetailData;
  wwDBGrid1UpdateFooter(wwDBGrid1);
end;

procedure TOrd500_02Form.InsertEvent;
var
  ADate:TDateTime;
begin
  inherited;
  ADate:=GetServerDate;
  edtCode.Text:='';
  cbType.ItemIndex:=0;
  qryOrd100.Locate('O100_002',cbType.Text,[]);
  edtDate.Date:=ADate;
  edtStatus.Text:=AStatus[0];
  edtPerson.Text:='';
  edtPersonName.Text:='';
  cbPick.ItemIndex:=0;
  //币别=本位币
  qryGld100.Locate('G100_003',ACurrName,[]);
  cbCurr.ItemIndex:=cbCurr.Items.IndexOf(ACurrName);
  edtRate.Text:='1';
  cbPayment.ItemIndex:=0;
  qryGld110.Locate('G110_002',cbPayment.Text,[]);

  edtAmount.Text:='0.00';
  edtDisRate.Text:='0.00';
  edtDiscount.Text:='0.00';
  edtSumCharge.Text:='0.00';
  edtNetAmt.Text:='0.00';

  edtCust.Text:='';
  edtCustName.Text:='';
  edtCust.Text:='';
  edtPhone.Text:='';
  edtAddress.Text:='';
  edtFax.Text:='';
  edtContact.Text:='';
  edtDept.Text:='';
  edtPosit.Text:='';

  edtPlace.Text:='';
  edtRegion.Text:='';
  edtPlacePhone.Text:='';
  edtPlaceAddress.Text:='';
  edtPlaceFax.Text:='';
  edtPlaceContact.Text:='';
  edtPlaceDept.Text:='';
  edtPlacePosit.Text:='';

  memTerm.Text:='';
  memRemark.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;

  edtItemID.Text:='';
  edtItemName.Text:='';
  edtMacNo.Text:='';
  edtModel.Text:='';
  edtItemClass.Text:='';
  edtMaker.Text:='';
  edtMakerName.Text:='';

  ALastNo:=0;
  PageControl1.ActivePageIndex:=0;
  PageControl2.ActivePageIndex:=0;
  adsOrd500B.Close;
  adsOrd500B.CreateDataSet;
  adsOrd500.Close;
  adsOrd500.CreateDataSet;
  SetDBGridA;
  SetDBGridB;
end;

procedure TOrd500_02Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;
  if ParName='I150_002'           then ParValue:= qryOrd153.fieldByName('I150_002').Value  //产品编号
  else if ParName='O153_003'      then ParValue:= qryOrd153.fieldByName('O153_003').Value  //机身编号
  else if ParName='I150_003'      then ParValue:= qryOrd153.fieldByName('I150_003').Value  //产品名称
  else if ParName='I150_004'      then ParValue:= qryOrd153.fieldByName('I150_004').Value  //规格型号
  else if ParName='I120_003'      then ParValue:= qryOrd153.fieldByName('I120_003').Value  //产品类别
  else if ParName='O150_002'      then ParValue:= qryOrd153.fieldByName('O150_002').Value  //制造商号
  else if ParName='O150_003'      then ParValue:= qryOrd153.fieldByName('O150_003').Value  //制造商名
  else if ParName='I150_001'      then ParValue:= qryOrd153.fieldByName('I150_001').Value //

  else if ParName='PlaceContact'  then ParValue:=edtPlaceContact.Text
  else if ParName='PlaceDept'     then ParValue:=edtPlaceDept.Text
  else if ParName='PlacePhone'    then ParValue:=edtPlacePhone.Text
  else if ParName='PlaceFax'      then ParValue:=edtPlaceFax.Text
  else if ParName='PlacePosit'    then ParValue:=edtPlacePosit.Text
  else if ParName='PlaceDept'     then ParValue:=edtPlaceDept.Text;
//
end;

procedure TOrd500_02Form.SetEmptyInit;
begin
  inherited;
  edtCode.Text:='';
  cbType.ItemIndex:=0;
  qryOrd100.Locate('O100_002',cbType.Text,[]);
  edtDate.Date:=GetServerDate;
  edtStatus.Text:=AStatus[0];
  edtPerson.Text:='';
  edtPersonName.Text:='';
  cbPick.ItemIndex:=0;
  cbCurr.ItemIndex:=-1;
  edtRate.Text:='1';
  cbPayment.ItemIndex:=0;
  qryGld110.Locate('G110_001',cbPayment.Text,[]);
  cbFrom.ItemIndex:=0;

  edtAmount.Text:='0.00';
  edtDisRate.Text:='0.00';
  edtDiscount.Text:='0.00';
  edtSumCharge.Text:='0.00';
  edtNetAmt.Text:='0.00';

  edtCust.Text:='';
  edtCustName.Text:='';
  edtCust.Text:='';
  edtPhone.Text:='';
  edtAddress.Text:='';
  edtFax.Text:='';
  edtContact.Text:='';
  edtDept.Text:='';
  edtPosit.Text:='';

  edtPlace.Text:='';
  edtRegion.Text:='';
  edtPlacePhone.Text:='';
  edtPlaceAddress.Text:='';
  edtPlaceFax.Text:='';
  edtPlaceContact.Text:='';
  edtPlaceDept.Text:='';
  edtPlacePosit.Text:='';

  memTerm.Text:='';
  memRemark.Text:='';

  edtCreateDate.Text:='';
  edtCreateBy.Text:='';
  edtUpdateDate.Text:='';
  edtUpdateBy.Text:='';

  edtItemID.Text:='';
  edtItemName.Text:='';
  edtMacNo.Text:='';
  edtModel.Text:='';
  edtItemClass.Text:='';
  edtMaker.Text:='';
  edtMakerName.Text:='';

  ALastNo:=0;
  PageControl1.ActivePageIndex:=0;
  PageControl2.ActivePageIndex:=0;
  adsOrd500B.Close;
  adsOrd500B.CreateDataSet;
  adsOrd500.Close;
  adsOrd500.CreateDataSet;
  SetDBGridA;
  SetDBGridB;
end;

procedure TOrd500_02Form.TableAfterPost;
begin
  inherited;
  qryOrd500B.Close;
  qryOrd500B.SQL.Clear;
  qryOrd500B.SQL.Add('select * from ORD500B where O500B_001='+''''+edtCode.Text+''''+' order by O500B_001,O500B_002');
  qryOrd500B.Open;
  if adsOrd500B.State in [dsInsert,dsEdit] then adsOrd500B.Post;
  adsOrd500B.First;
  while not adsOrd500B.Eof do
  begin
    qryOrd500B.Append;
    qryOrd500B.FieldByName('O500B_001').Value:=edtCode.Text;
    qryOrd500B.FieldByName('O500B_002').Value:=adsOrd500B.FieldByName('FNo').Value;
    qryOrd500B.FieldByName('O500B_003').Value:=adsOrd500B.FieldByName('FItemNo').Value;
    qryOrd500B.FieldByName('O500B_004').Value:=adsOrd500B.FieldByName('FUnitNo').Value;
    qryOrd500B.FieldByName('O500B_005').Value:=adsOrd500B.FieldByName('FQty').Value;
    qryOrd500B.FieldByName('O500B_006').Value:=adsOrd500B.FieldByName('FPrice').Value;
    qryOrd500B.FieldByName('O500B_007').Value:=adsOrd500B.FieldByName('FAmount').Value;
    qryOrd500B.FieldByName('O500B_008').Value:=adsOrd500B.FieldByName('FDisRate').Value;
    qryOrd500B.FieldByName('O500B_009').Value:=adsOrd500B.FieldByName('FDisAmt').Value;
    qryOrd500B.FieldByName('O500B_010').Value:=adsOrd500B.FieldByName('FNetAmt').Value;
    qryOrd500B.FieldByName('O500B_011').Value:=adsOrd500B.FieldByName('FTax').Value;
    qryOrd500B.FieldByName('O500B_012').Value:=adsOrd500B.FieldByName('FTaxAmt').Value;
    qryOrd500B.FieldByName('O500B_013').Value:=adsOrd500B.FieldByName('FAcrAmt').Value;
    qryOrd500B.FieldByName('O500B_014').Value:=adsOrd500B.FieldByName('FDate').Value;
    qryOrd500B.FieldByName('O500B_015').Value:=adsOrd500B.FieldByName('FFactDate').Value;
    qryOrd500B.FieldByName('O500B_016').Value:=adsOrd500B.FieldByName('FReceQty').Value;
    qryOrd500B.FieldByName('O500B_017').Value:=adsOrd500B.FieldByName('FPlace').Value;
    qryOrd500B.FieldByName('O500B_018').Value:=0;
    qryOrd500B.FieldByName('O500B_019').Value:=adsOrd500B.FieldByName('FFromID').Value;
    qryOrd500B.FieldByName('O500B_020').Value:=adsOrd500B.FieldByName('FLineNo').Value;
    qryOrd500B.FieldByName('O500B_021').Value:=adsOrd500B.FieldByName('FRemark').Value;
    qryOrd500B.FieldByName('O500B_022').Value:=adsOrd500B.FieldByName('FReturn').Value;
    qryOrd500B.FieldByName('O500B_023').Value:=adsOrd500B.FieldByName('FUnitRate').Value;
    qryOrd500B.Post;
    adsOrd500B.Next;
  end;
  //特殊费用
  if adsOrd500.State in [dsInsert,dsEdit] then adsOrd500.Post;
  adsOrd500.First;
  while not adsOrd500.Eof do
  begin
    qryOrd500B.Append;
    qryOrd500B.FieldByName('O500B_001').Value:=edtCode.Text;
    qryOrd500B.FieldByName('O500B_002').Value:=adsOrd500.FieldByName('FNo').Value;
    qryOrd500B.FieldByName('O500B_003').Value:=adsOrd500.FieldByName('FItemNo').Value;
    qryOrd500B.FieldByName('O500B_004').Value:=adsOrd500.FieldByName('FUnitNo').Value;
    qryOrd500B.FieldByName('O500B_005').Value:=adsOrd500.FieldByName('FQty').Value;
    qryOrd500B.FieldByName('O500B_006').Value:=adsOrd500.FieldByName('FPrice').Value;
    qryOrd500B.FieldByName('O500B_007').Value:=adsOrd500.FieldByName('FAmount').Value;
    qryOrd500B.FieldByName('O500B_008').Value:=adsOrd500.FieldByName('FDisRate').Value;
    qryOrd500B.FieldByName('O500B_009').Value:=adsOrd500.FieldByName('FDisAmt').Value;
    qryOrd500B.FieldByName('O500B_010').Value:=adsOrd500.FieldByName('FNetAmt').Value;
    qryOrd500B.FieldByName('O500B_011').Value:=adsOrd500.FieldByName('FTax').Value;
    qryOrd500B.FieldByName('O500B_012').Value:=adsOrd500.FieldByName('FTaxAmt').Value;
    qryOrd500B.FieldByName('O500B_013').Value:=adsOrd500.FieldByName('FAcrAmt').Value;
    qryOrd500B.FieldByName('O500B_014').Value:=adsOrd500.FieldByName('FDate').Value;
    qryOrd500B.FieldByName('O500B_015').Value:=adsOrd500.FieldByName('FFactDate').Value;
    qryOrd500B.FieldByName('O500B_016').Value:=adsOrd500.FieldByName('FReceQty').Value;
    qryOrd500B.FieldByName('O500B_017').Value:=adsOrd500.FieldByName('FPlace').Value;
    qryOrd500B.FieldByName('O500B_018').Value:=2;
    qryOrd500B.FieldByName('O500B_019').Value:=adsOrd500.FieldByName('FFromID').Value;
    qryOrd500B.FieldByName('O500B_020').Value:=adsOrd500.FieldByName('FLineNo').Value;
    qryOrd500B.FieldByName('O500B_021').Value:=adsOrd500.FieldByName('FRemark').Value;
    qryOrd500B.FieldByName('O500B_022').Value:=adsOrd500.FieldByName('FReturn').Value;
    qryOrd500B.FieldByName('O500B_023').Value:=adsOrd500.FieldByName('FUnitRate').Value;
    qryOrd500B.Post;
    adsOrd500.Next;
  end;
end;

procedure TOrd500_02Form.TableBeforePost;
var
  ADate:TDateTime;
  ACustNo,ACurrNo,APayment,AItemNo:Integer;
begin
  inherited;
  if trim(cbType.Text)='' then
  begin
    ShowMsg('UMS10000527');  //报价类型不能为空
    cbType.SetFocus;
    Abort;
  end;
  qryOrd100.Locate('O100_002',cbType.Text,[]);
  if trim(edtDate.Text)='' then
  begin
    ShowMsg('UMS10000417');  //报价日期不能为空
    edtDate.SetFocus;
    Abort;
  end;
  if not qryGld100.Locate('G100_003',cbCurr.Text,[]) then
  begin
    ShowMsg('UMS10000412');  //输入的币别编号无效
    cbCurr.SetFocus;
    Abort;
  end;
  ACurrNo:=qryGld100.FieldByName('G100_001').AsInteger;
  if not qryGld110.Locate('G110_002',cbPayment.Text,[]) then
  begin
    ShowMsg('UMS10000528');  //无效的付款方式
12345

⌨️ 快捷键说明

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