unit U_BaoguanInPut; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, dxDateTimeWheelPicker, dxGDIPlusClasses, Vcl.Menus, MovePanel, cxCheckBox, cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput, System.ImageList, Vcl.ImgList, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, cxSplitter, dxSkinWXI, dxScrollbarAnnotations; type TfrmBaoguanInPut = class(TfrmBaseInput) ToolBar1: TToolBar; TBSave: TToolButton; TBClose: TToolButton; ScrollBox1: TScrollBox; Label3: TLabel; ConDate: TDateTimePicker; ADOTemp: TADOQuery; ADOCmd: TADOQuery; DS_1: TDataSource; Order_Sub: TClientDataSet; Label9: TLabel; Label10: TLabel; ConNo: TEdit; Label14: TLabel; Label20: TLabel; BuyName: TBtnEditC; Label6: TLabel; Label34: TLabel; BuyConNo: TEdit; cxgrdpmn1: TcxGridPopupMenu; QtyNote: TBtnEditC; Sellname: TBtnEditC; MiddleName: TBtnEditC; Label26: TLabel; Label27: TLabel; IsTax: TComboBox; Label29: TLabel; Label30: TLabel; QiYun: TBtnEditC; MuDi: TBtnEditC; Label2: TLabel; ExchangeRate: TEdit; Label5: TLabel; Currency: TComboBox; Label7: TLabel; YongJin: TEdit; Label11: TLabel; Label12: TLabel; YunShu: TBtnEditC; Payment: TBtnEditC; Label4: TLabel; GSChuanYangNote: TBtnEditC; Label13: TLabel; JiaGeSY: TBtnEditC; Label1: TLabel; CKChuanYangNote: TBtnEditC; pm_sub: TPopupMenu; N1: TMenuItem; Pic_Image1: TcxDBImage; DataSource1: TDataSource; ADOQueryImage: TADOQuery; MTieJing: TRichEdit; cxDBImage1: TcxDBImage; DS_ImgHX: TDataSource; Qry_ImgHX: TADOQuery; IdFTP1: TIdFTP; Label8: TLabel; Packing: TBtnEditC; Label15: TLabel; Label16: TLabel; DlyDate: TDateTimePicker; YFTPName: TBtnEditC; Label17: TLabel; N2: TMenuItem; ShippMent: TEdit; ToolButton3: TToolButton; Label23: TLabel; ConType: TComboBox; Label24: TLabel; Saleser: TEdit; Tallyer: TEdit; lblSalesId: TLabel; Label25: TLabel; SalesId: TEdit; TallyId: TEdit; Label18: TLabel; Label19: TLabel; Booker: TComboBox; Label21: TLabel; WeightNote: TBtnEditC; Label22: TLabel; VolumeEstimation: TBtnEditC; Label28: TLabel; Panel1: TPanel; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; Tv1Column7: TcxGridDBColumn; v1XHNo: TcxGridDBColumn; VC_SCSCode: TcxGridDBColumn; v1Column4: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; v1Column5: TcxGridDBColumn; v1Column1: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn; v1Column8: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; v1Column6: TcxGridDBColumn; v1Column7: TcxGridDBColumn; v1OrderUnit: TcxGridDBColumn; v1PRTPrice: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; v1Column2: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; Note: TMemo; Tv1Column2: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn; ADOQuery1: TADOQuery; ADOQuery2: TADOQuery; ADOQuery3: TADOQuery; ToolBar3: TToolBar; ToolButton4: TToolButton; ToolButton5: TToolButton; Panel2: TPanel; ToolBar2: TToolBar; ToolButton1: TToolButton; cxGrid2: TcxGrid; TV2: TcxGridDBTableView; cxGridLevel1: TcxGridLevel; DataSource2: TDataSource; Sub_CB: TClientDataSet; TV2Column2: TcxGridDBColumn; TV2Column3: TcxGridDBColumn; TV2Column4: TcxGridDBColumn; ADOQueryCmd: TADOQuery; ToolButton2: TToolButton; ADOGY1: TADOQuery; ADOGY2: TADOQuery; ADOGY3: TADOQuery; TV2Column1: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; cxSplitter1: TcxSplitter; Label31: TLabel; QDAddress: TBtnEditC; Label32: TLabel; IsYF: TComboBox; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); procedure ToolButton4Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject); procedure BuyNameBtnUpClick(Sender: TObject); procedure BuyNameBtnDnClick(Sender: TObject); procedure v1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure SalesmanBtnUpClick(Sender: TObject); procedure v1Column15PropertiesEditValueChanged(Sender: TObject); procedure SellNameBtnUpClick(Sender: TObject); procedure MiddleNameBtnUpClick(Sender: TObject); procedure v1PRTOrderQtyPropertiesEditValueChanged(Sender: TObject); procedure QiYunBtnUpClick(Sender: TObject); procedure N1Click(Sender: TObject); procedure Pic_Image1DblClick(Sender: TObject); procedure cxDBImage1DblClick(Sender: TObject); procedure YFTPNameBtnUpClick(Sender: TObject); procedure MTieJingDblClick(Sender: TObject); procedure N2Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject); procedure ExchangeRateKeyPress(Sender: TObject; var Key: Char); procedure ShippMentKeyPress(Sender: TObject; var Key: Char); procedure ShippMentChange(Sender: TObject); procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); // procedure PBPriceKeyPress(Sender: TObject; var Key: Char); // procedure Button1Click(Sender: TObject); private FLeft, FTop: Integer; fuserName, Fstatus: string; procedure InitImage(); // procedure InitGX(); procedure JSMoney(); procedure JSCB(); procedure CBMX(); procedure InitData(); procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); function TestData(): Boolean; function SaveData(): Boolean; function SaveCB(): Boolean; function GetLSNo1(ADOQueryTmp: TADOQuery; // 取主键 var mMaxNo: string; mFlag: string; mTable: string; mlen: Integer; mtype: Integer = 0): Boolean; procedure SetXH(); procedure LookImage(FileName: string); { Private declarations } public CopyInt: Integer; PState: string; fFlileFlag: string; FConMId: string; FAuthority, FGSTT: string; { Public declarations } end; var frmBaoguanInPut: TfrmBaoguanInPut; newh: hwnd; implementation uses U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_ClothInfoSel, U_PictureUpload; {$R *.dfm} function TfrmBaoguanInPut.GetLSNo1(ADOQueryTmp: TADOQuery; var mMaxNo: string; mFlag: string; mTable: string; mlen: Integer; mtype: Integer = 0): Boolean; begin try with ADOQueryTmp do begin close; sql.Clear; sql.Add('exec Get_SY_MaxBH1 '); sql.Add(' ' + quotedStr(mFlag)); sql.Add(',' + quotedStr(mTable)); sql.Add(',' + intTostr(mlen)); sql.Add(',' + intTostr(mtype)); // ShowMessage(SQL.Text); Open; if Recordcount > 0 then begin mMaxNo := Trim(fieldByName('MaxBH').AsString); if mMaxNo <> '' then Result := true else Result := false; end else begin Result := false; end; end; if not Result then application.MessageBox(PWideChar('无法生成流水号(' + mFlag + ')'), '提示信息', MB_ICONINFORMATION); except Result := false; application.MessageBox(PWideChar('无法生成流水号(' + mFlag + ')'), '提示信息', MB_ICONINFORMATION); end; end; procedure TfrmBaoguanInPut.SetXH(); var i: Integer; begin with Order_Sub do begin First; i := 1; while not Eof do begin with Order_Sub do begin Edit; FieldByName('XHNoTemp').Value := i; Post; end; i := i + 1; Next; end; end; with Order_Sub do begin Order_Sub.IndexFieldNames := ''; First; i := 1; while not Eof do begin with Order_Sub do begin Edit; FieldByName('SerialNo').Value := FieldByName('XHNoTemp').AsInteger; Post; end; i := i + 1; Next; end; Order_Sub.IndexFieldNames := 'SerialNo'; end; end; procedure TfrmBaoguanInPut.ShippMentChange(Sender: TObject); begin if ShippMent.text <> '' then begin Dlydate.DateTime := ConDate.DateTime + StrToFloat(Shippment.text); end; end; procedure TfrmBaoguanInPut.ShippMentKeyPress(Sender: TObject; var Key: Char); begin if not (((Key >= '0') and (Key <= '9')) or (Key = '.') or (Key = #8)) then begin Key := #0; end else if (pos('.', TEdit(Sender).text) <> 0) then begin if Key = '.' then begin Key := #0; end; end; end; procedure TfrmBaoguanInPut.InitImage(); begin with ADOQueryImage do begin close; sql.Clear; sql.Add('select * from TP_File A'); sql.Add('where isnull(WBID,'''')<>'''' and FileName=' + quotedstr(Trim(YFTPName.Text))); // showmessage(sql.text); Self..Text open; end; end; //procedure TfrmSalesConInPut.InitGX(); //var // i: Integer; // xh: string; //begin // if Order_Sub.IsEmpty then // exit; // with ADOQuery1 do // begin // close; // sql.Clear; // sql.Add('select * from BS_Cloth_Glide A '); // sql.Add('left join Bs_Cloth_Info B on A.BCIID=B.BCIID'); // sql.Add('where B.C_Code =' + quotedstr((Order_sub.fieldbyname('C_Code').AsString))); // open; // end; // i := 1; // xh := '1'; //// if ADOQuery1.ISEmpty = False then //// begin // // while i <= 3 do // begin // with ADOQuery2 do // begin // close; // sql.Clear; // sql.Add('select A.* from (select X.ProcessName+''-''+X.ProcessTypeName AS GX,X.BCIID,X.GlideIdx from BS_Cloth_Glide X) A '); // sql.Add('left join Bs_Cloth_Info B on A.BCIID=B.BCIID'); // sql.Add('where B.C_Code =' + quotedstr((Order_sub.fieldbyname('C_Code').AsString))); // sql.Add('and A.GlideIdx =''' + Trim(xh) + ''''); //// showmessage(SQL.text); // open; // end; // // case i of // 1: // begin // if Trim(ADOQuery2.fieldbyname('GX').AsString) <> '' then // begin // Label36.Caption := Trim(ADOQuery2.fieldbyname('GX').AsString) + '加工费:'; // end // else // begin // Label36.Caption := '工艺1加工费：'; // end; // // end; // 2: // begin // if Trim(ADOQuery2.fieldbyname('GX').AsString) <> '' then // begin // Label37.Caption := Trim(ADOQuery2.fieldbyname('GX').AsString) + '加工费:'; // end // else // begin // Label37.Caption := '工艺2加工费：'; // end; // end; // 3: // begin // if Trim(ADOQuery2.fieldbyname('GX').AsString) <> '' then // begin // Label38.Caption := Trim(ADOQuery2.fieldbyname('GX').AsString) + '加工费:'; // end // else // begin // Label38.Caption := '工艺3加工费：'; // end; // end; // end; // // i := i + 1; // xh := IntToStr(i); //// end; // end; // //end; procedure TfrmBaoguanInPut.JSMoney(); var FConQty, FConPrice, FC_Money: Double; begin with Order_Sub do begin FConQty := Fieldbyname('ConQty').AsFloat; FConPrice := Fieldbyname('ConPrice').AsFloat; end; //计算金额，保留2位小数 FC_Money := RoundFloat(FConQty * FConPrice, 2); with Order_Sub do begin Edit; FieldByName('ConTotalAmount').Value := FC_Money; Post; end; tv1.Controller.EditingController.ShowEdit(); end; procedure TfrmBaoguanInPut.CBMX(); begin with ADOQuery2 do begin close; sql.Clear; sql.Add('select COUNT(A.BCIID) S from BS_Cloth_Glide A '); sql.Add('left join Bs_Cloth_Info B on B.BCIID =A.BCIID'); sql.Add('where B.C_Code =' + quotedstr((Order_sub.fieldbyname('C_Code').AsString))); open; end; //查询工艺1 with ADOGY1 do begin close; sql.Clear; sql.Add('select ISNULL(A.ProcessName, '''')+ISNULL(''_''+A.ProcessTypeName, '''') GY from BS_Cloth_Glide A '); sql.Add('left join Bs_Cloth_Info B on B.BCIID =A.BCIID'); sql.Add('where B.C_Code =' + quotedstr((Order_sub.fieldbyname('C_Code').AsString))); sql.Add('and A.GlideIdx=1 '); open; end; //查询工艺2 with ADOGY2 do begin close; sql.Clear; sql.Add('select ISNULL(A.ProcessName, '''')+ISNULL(''_''+A.ProcessTypeName, '''') GY from BS_Cloth_Glide A '); sql.Add('left join Bs_Cloth_Info B on B.BCIID =A.BCIID'); sql.Add('where B.C_Code =' + quotedstr((Order_sub.fieldbyname('C_Code').AsString))); sql.Add('and A.GlideIdx=2 '); open; end; //查询工艺3 with ADOGY3 do begin close; sql.Clear; sql.Add('select ISNULL(A.ProcessName, '''')+ISNULL(''_''+A.ProcessTypeName, '''') GY from BS_Cloth_Glide A '); sql.Add('left join Bs_Cloth_Info B on B.BCIID =A.BCIID'); sql.Add('where B.C_Code =' + quotedstr((Order_sub.fieldbyname('C_Code').AsString))); sql.Add('and A.GlideIdx=3 '); open; end; with ADOQuery1 do begin Close; SQL.Clear; sql.Add(' select * from BS_Contract_Sub_CB '); sql.Add('where ConSid=' + quotedstr(trim(order_Sub.fieldbyname('Consid').AsString))); // sql.Add(' order by SerialNo '); // ShowMessage(sql.text); Open; end; SCreateCDS(ADOQuery1, Sub_CB); SInitCDSData(ADOQuery1, Sub_CB); if ADOQuery1.IsEmpty then begin with Sub_CB do begin Sub_CB.EmptyDataSet; Append; FieldByName('SerialNo').Value := 1; FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); FieldByName('CB_Name').Value := '坯布价'; FieldByName('CB_Price').Value := '0'; post; Append; FieldByName('SerialNo').Value := 2; FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); FieldByName('CB_Name').Value := '缩率(%)'; FieldByName('CB_Price').Value := '0'; post; Append; FieldByName('SerialNo').Value := 3; FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); FieldByName('CB_Name').Value := '染费'; FieldByName('CB_Price').Value := '0'; post; Append; FieldByName('SerialNo').Value := 4; FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); FieldByName('CB_Name').Value := '米长'; FieldByName('CB_Price').Value := '1'; post; Append; FieldByName('SerialNo').Value := 5; FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); FieldByName('CB_Name').Value := '工艺缩率(%)'; FieldByName('CB_Price').Value := '0'; post; Append; FieldByName('SerialNo').Value := 6; FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); FieldByName('CB_Name').Value := '面布价'; FieldByName('CB_Price').Value := '0'; post; Append; FieldByName('SerialNo').Value := 7; FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); if ADOQuery2.fieldbyname('S').AsInteger > 0 then begin FieldByName('CB_Name').Value := Trim(ADOGY1.fieldbyname('GY').AsString); end else begin FieldByName('CB_Name').Value := '工艺1加工费'; end; FieldByName('CB_Price').Value := '0'; post; Append; FieldByName('SerialNo').Value := 8; FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); if ADOQuery2.fieldbyname('S').AsInteger > 1 then begin FieldByName('CB_Name').Value := Trim(ADOGY2.fieldbyname('GY').AsString); end else begin FieldByName('CB_Name').Value := '工艺2加工费'; end; FieldByName('CB_Price').Value := '0'; post; Append; FieldByName('SerialNo').Value := 9; FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); if ADOQuery2.fieldbyname('S').AsInteger > 2 then begin FieldByName('CB_Name').Value := Trim(ADOGY3.fieldbyname('GY').AsString); end else begin FieldByName('CB_Name').Value := '工艺3加工费'; end; FieldByName('CB_Price').Value := '0'; post; append; FieldByName('SerialNo').Value := 10; FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); FieldByName('CB_Name').Value := '包装费'; FieldByName('CB_Price').Value := '0'; post; Append; FieldByName('SerialNo').Value := 11; FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); FieldByName('CB_Name').Value := '汇率'; FieldByName('CB_Price').Value := '1'; post; Append; FieldByName('SerialNo').Value := 12; FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); FieldByName('CB_Name').Value := '运费'; FieldByName('CB_Price').Value := '0'; post; Append; FieldByName('SerialNo').Value := 13; FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); FieldByName('CB_Name').Value := '佣金(%)'; FieldByName('CB_Price').Value := '0'; post; end; end; end; procedure TfrmBaoguanInPut.JSCB(); var FLRL, FSYGCB: string; i: Integer; FPBPrice, Fsl, Frf, FMQty, FMBPrice, FGY1, FGY2, FGY3: Double; Fbzf, Fhl, Fyf, Fyj, FXSPrice, FYGCB, FLR, FGYSL: Double; begin i := 1; with Sub_CB do begin First; while not Eof do begin case i of 1: begin FPBPrice := Sub_CB.fieldbyname('CB_Price').Asfloat; end; 2: begin Fsl := (100 - Sub_CB.fieldbyname('CB_Price').Asfloat) / 100; end; 3: begin Frf := Sub_CB.fieldbyname('CB_Price').Asfloat; end; 4: begin FMQty := Sub_CB.fieldbyname('CB_Price').Asfloat; end; 5: begin FGYSL := (100 - Sub_CB.fieldbyname('CB_Price').Asfloat) / 100; end; 6: begin FMBPrice := Sub_CB.fieldbyname('CB_Price').Asfloat; end; 7: begin FGY1 := Sub_CB.fieldbyname('CB_Price').Asfloat; end; 8: begin FGY2 := Sub_CB.fieldbyname('CB_Price').Asfloat; end; 9: begin FGY3 := Sub_CB.fieldbyname('CB_Price').Asfloat; end; 10: begin Fbzf := Sub_CB.fieldbyname('CB_Price').Asfloat; end; 11: begin Fhl := Sub_CB.fieldbyname('CB_Price').Asfloat; end; 12: begin Fyf := Sub_CB.fieldbyname('CB_Price').Asfloat; end; 13: begin Fyj := (100 - Sub_CB.fieldbyname('CB_Price').Asfloat) / 100; end; end; i := i + 1; Next; end; end; FXSPrice := Order_sub.fieldbyname('ConPrice').Asfloat; if FPBPrice = 0 then begin Application.MessageBox('坯布价不能为0!', '提示', 0); Exit; end; if Fsl = 0 then begin Application.MessageBox('缩率不能为0!', '提示', 0); Exit; end; if FGYSL = 0 then begin Application.MessageBox('工艺缩率不能为0!', '提示', 0); Exit; end; if FMQty = 0 then begin Application.MessageBox('米长不能为0!', '提示', 0); Exit; end; if Fhl = 0 then begin Application.MessageBox('汇率不能为0!', '提示', 0); Exit; end; if Fyj = 0 then begin Application.MessageBox('佣金不能为0!', '提示', 0); Exit; end; FYGCB := RoundFloat((((((FPBPrice / Fsl + Frf) / FMQty + FMBPrice + FGY1 + FGY2 + FGY3) / FGYSL + Fbzf) / Fhl + Fyf) / Fyj), 2); FLR := RoundFloat((FXSPrice - FYGCB) / FYGCB, 3) * 100; FSYGCB := floatToStr(FYGCB); FLRL := floatToStr(FLR) + '%'; // showmessage('预估成本：'+TRIM(FSYGCB)+'利润率：'+tRIM(FLRL)+'是否要保存！'); if Application.MessageBox(PChar('预估成本：' + TRIM(FSYGCB) + '利润率：' + tRIM(FLRL) + '是否要保存！'), '提示', 32 + 4) <> IDYES then Exit; if SaveCb() then begin Application.MessageBox('保存成功！', '提示', 0); end; // Sub_CB.post; with Order_Sub do begin Edit; FieldByName('Estimated').Value := FloatToStr(FYGCB); FieldByName('ProfitRate').Value := FLRL; Post; end; if SaveData() then begin Application.MessageBox('预估成本保存成功！', '提示', 0); end; end; //begin // // //// tv1.Controller.EditingController.ShowEdit(); //end; function TfrmBaoguanInPut.TestData(): Boolean; begin try if Trim(ConNo.Text) = '' then raise Exception.Create('合同号不能为空！'); if Trim(SellName.Text) = '' then raise Exception.Create('经营单位不能为空！'); if Trim(BuyName.Text) = '' then raise Exception.Create('对方单位不能为空！'); if Trim(ConType.Text) = '' then raise Exception.Create('类型不能为空！'); if Order_Sub.IsEmpty then raise Exception.Create('明细不能为空！'); if Order_Sub.Locate('C_Code', null, []) then raise Exception.Create('产品编号不能为空！'); if Order_Sub.Locate('C_Code', '', []) then raise Exception.Create('产品编号不能为空！'); if Order_Sub.Locate('C_Name', null, []) then raise Exception.Create('品名不能为空！'); if Order_Sub.Locate('C_Name', '', []) then raise Exception.Create('品名不能为空！'); // if Order_Sub.Locate('C_Color', null, []) then // raise Exception.Create('颜色不能为空！'); // if Order_Sub.Locate('C_Color', '', []) then // raise Exception.Create('颜色不能为空！'); // if Order_Sub.Locate('C_MF', null, []) then // raise Exception.Create('门幅不能为空！'); // if Order_Sub.Locate('C_MF', '', []) then // raise Exception.Create('门幅不能为空！'); // if Order_Sub.Locate('C_KZ', null, []) then // raise Exception.Create('克重不能为空！'); // if Order_Sub.Locate('C_KZ', '', []) then // raise Exception.Create('克重不能为空！'); if Order_Sub.Locate('ConQty', null, []) then raise Exception.Create('数量不能为空！'); if Order_Sub.Locate('ConQty', 0, []) then raise Exception.Create('数量不能为0！'); if Order_Sub.Locate('ConUnit', null, []) then raise Exception.Create('数量单位不能为空！'); if Order_Sub.Locate('ConUnit', '', []) then raise Exception.Create('数量单位不能为空！'); Result := True; except Result := false; application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); end; end; procedure TfrmBaoguanInPut.TBCloseClick(Sender: TObject); begin Close; end; procedure TfrmBaoguanInPut.InitData(); var maxno: string; begin //刷新产品信息 with ADOTemp do begin Close; SQL.Clear; sql.Add(' select * from BS_Contract_Sub '); sql.Add('where ConMId=''' + Trim(FConMId) + ''''); // sql.Add(' order by SerialNo '); Open; end; SCreateCDS(ADOTemp, Order_Sub); SInitCDSData(ADOTemp, Order_Sub); //刷新条款信息 with ADOTemp do begin Close; sql.Clear; sql.Add('select * from BS_Contract_Main where ConMId=''' + Trim(FConMId) + ''''); Open; end; SCSHData(ADOTemp, ScrollBox1, 2); BuyName.TxtCode := Trim(ADOTemp.FieldByName('BuyNo').AsString); Sellname.TxtCode := Trim(ADOTemp.FieldByName('SellNo').AsString); MiddleName.TxtCode := Trim(ADOTemp.FieldByName('MiddleNo').AsString); Fstatus := Trim(ADOTemp.FieldByName('status').AsString); if PState = '新增' then begin ConDate.DateTime := SGetServerDateTime(ADOTemp); DlyDate.DateTime := ConDate.DateTime; ConNo.Text := '自动生成'; end; if PState = '复制' then begin PState := '新增'; FConMId := ''; ConNo.Text := '自动生成'; with Order_Sub do begin First; while not Eof do begin if GetLSNo(ADOCmd, maxno, 'SCS', 'BS_Contract_Sub', 4, 1) = False then begin Application.MessageBox('取子流水号失败！', '提示', 0); Exit; end; Edit; FieldByName('ConMId').Value := ''; FieldByName('ConSId').Value := maxno; Post; Next; end; end; end; end; procedure TfrmBaoguanInPut.MiddleNameBtnUpClick(Sender: TObject); begin try frmCompanySel := TfrmCompanySel.Create(Application); with frmCompanySel do begin FCoType := '客户'; if Self.FAuthority = '录入' then FAuthority := '理单业务'; if ShowModal = 1 then begin self.MiddleName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); self.MiddleName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString); end; end; finally frmCompanySel.Free; end; end; procedure TfrmBaoguanInPut.MTieJingDblClick(Sender: TObject); begin try frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin // flag := 'TJ' + TRIM(Order_Sub.fieldbyname('C_Code').AsString) + TRIM(BuyName.TxtCode); flag := 'TJ'; flagname := '贴金'; if ShowModal = 1 then begin MTieJing.Text := StringReplace(Trim(ClientDataSet1.fieldbyname('ZDYName').AsString), '#', #$D#$A, [rfReplaceAll]); end; end; finally frmZDYHelp.Free; end; end; procedure TfrmBaoguanInPut.N1Click(Sender: TObject); var FValue, FFValue, FColumn, FFColumn, MHXSID: string; MXHNO: Integer; begin // if Fstatus = '1' then // begin // application.MessageBox('合同已审核，无法操作！', '提示信息', 0); // exit; // end; // MXHNO := Order_Sub.FieldByName('XHNo').ASInteger; // FColumn := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; // FValue := Trim(Order_Sub.fieldbyname(FColumn).AsString); // MHXSID := Trim(Order_Sub.fieldbyname('HXSID').AsString); // with Order_Sub do // begin // DisableControls; // First; // while not Eof do // begin // if FieldByName('SSel').AsBoolean then // begin // Edit; // // if FValue = '' then // begin // Order_Sub.FieldByName(FColumn).Value := null; // end // else // begin // Order_Sub.FieldByName(FColumn).Value := FValue; // end; // if FColumn = 'C_HX' then // begin // Order_Sub.FieldByName('HXSID').Value := MHXSID; // end; // Post; // JSMoney(); // end; // Next; // end; // EnableControls; // end; // Order_Sub.Locate('XHNO', MXHNO, []); end; procedure TfrmBaoguanInPut.N2Click(Sender: TObject); var FValue, MC_Code, MC_Craft, MC_Name, MC_Spec, MC_CF, MC_Color, MC_MF, MC_KZ, MC_Note, MC_Unit, MGcHuaNo, MSuoLv, MC_EName: string; MXHNO: Integer; begin // if Fstatus = '1' then // begin // application.MessageBox('合同已审核，无法操作！', '提示信息', 0); // exit; // end; // // MXHNO := Order_Sub.FieldByName('XHNo').ASInteger; // MC_Code := Order_Sub.fieldbyname('C_Code').AsString; // MC_Craft := Order_Sub.fieldbyname('C_Craft').AsString; // MC_Name := Order_Sub.fieldbyname('C_Name').AsString; // MC_Spec := Order_Sub.fieldbyname('C_Spec').AsString; // MC_CF := Order_Sub.fieldbyname('C_CF').AsString; // MC_Color := Order_Sub.fieldbyname('C_Color').AsString; // MC_MF := Order_Sub.fieldbyname('C_MF').AsString; // MC_KZ := Order_Sub.fieldbyname('C_KZ').AsString; // MC_Note := Order_Sub.fieldbyname('C_Note').AsString; // MC_Unit := Order_Sub.fieldbyname('C_Unit').AsString; // MSuoLv := Order_Sub.fieldbyname('SuoLv').AsString; // MGcHuaNo := Order_Sub.fieldbyname('GcHuaNo').AsString; // MC_EName := Order_Sub.fieldbyname('C_EName').AsString; // // with Order_Sub do // begin // DisableControls; // First; // while not Eof do // begin // if FieldByName('SSel').AsBoolean then // begin // Edit; // Order_Sub.fieldbyname('C_Code').Value := MC_Code; // Order_Sub.fieldbyname('C_Craft').Value := MC_Craft; // Order_Sub.fieldbyname('C_Name').Value := MC_Name; // Order_Sub.fieldbyname('C_Spec').Value := MC_Spec; // Order_Sub.fieldbyname('C_CF').Value := MC_CF; // Order_Sub.fieldbyname('C_Color').Value := MC_Color; // Order_Sub.fieldbyname('C_MF').Value := MC_MF; // Order_Sub.fieldbyname('C_KZ').Value := MC_KZ; // Order_Sub.fieldbyname('C_Note').Value := MC_Note; // Order_Sub.fieldbyname('C_Unit').Value := MC_Unit; // Order_Sub.fieldbyname('SuoLv').Value := MSuoLv; // Order_Sub.fieldbyname('GcHuaNo').Value := MGcHuaNo; // Order_Sub.fieldbyname('C_EName').Value := MC_EName; // Post; // // end; // Next; // end; // EnableControls; // end; // Order_Sub.Locate('XHNO', MXHNO, []); end; //procedure TfrmSalesConInPut.PBPriceKeyPress(Sender: TObject; var Key: Char); //begin // if not (((Key >= '0') and (Key <= '9')) or (Key = '.') or (Key = #8)) then // begin // Key := #0; // end // else if (pos('.', TEdit(Sender).text) <> 0) then // begin // if Key = '.' then // begin // Key := #0; // end; // end; // //end; procedure TfrmBaoguanInPut.Pic_Image1DblClick(Sender: TObject); begin if TcxDBImage(Sender).Picture.Height = 0 then exit; LookImage(ADOQueryImage.fieldbyname(TcxDBImage(Sender).Hint).asstring); end; procedure TfrmBaoguanInPut.LookImage(FileName: string); var sFieldName: string; begin sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\图片查看'; if not DirectoryExists(pchar(sFieldName)) then CreateDirectory(pchar(sFieldName), nil); sFieldName := sFieldName + '\' + trim(FileName); try IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '服务器地址', '127.0.0.1'); IdFTP1.Username := 'three'; IdFTP1.Password := '641010'; IdFTP1.Connect(); except ; end; if IdFTP1.Connected then begin try IdFTP1.Get(fFlileFlag + '\' + Trim(FileName), sFieldName, true, false); except Application.MessageBox('客户图样文件不存在', '提示', MB_ICONWARNING); IdFTP1.Quit; Exit; end; end else begin Application.MessageBox('无法连接文件服务器', '提示', MB_ICONWARNING); IdFTP1.Quit; Exit; end; if IdFTP1.Connected then IdFTP1.Quit; ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL); end; procedure TfrmBaoguanInPut.QiYunBtnUpClick(Sender: TObject); var fsj: string; FWZ: Integer; begin fsj := Trim(TEdit(Sender).Hint); FWZ := Pos('/', fsj); try frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin flag := Copy(fsj, 1, FWZ - 1); flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); MainType := '销售合同'; if ShowModal = 1 then begin TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally frmZDYHelp.Free; end; end; procedure TfrmBaoguanInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string); var FType, ZDYName, FText: string; begin end; procedure TfrmBaoguanInPut.FormShow(Sender: TObject); begin // inherited; readCxGrid(trim(self.Caption), Tv1, '销售合同管理'); fFlileFlag := UserDataFlag + 'HX'; InitData(); InitImage(); end; function TfrmBaoguanInPut.SaveCB(): Boolean; var MConSid, MCBName, MSCBID, MaxNo: string; begin try ADOQueryCmd.Connection.BeginTrans; //////////////// 成本 /////////////////// // // if not Sub_CB.IsEmpty then // begin // with Sub_cb do // begin // Sub_cb.First; // while not Eof do // begin // MConSid := Trim(Sub_cb.fieldbyname('ConSid').AsString); // MCBName := Trim(Sub_cb.fieldbyname('CB_Name').AsString); // // with ADOQueryCmd do // begin // Close; // sql.Clear; // sql.Add('select * from BS_Contract_sub_CB where ConSid=' + quotedstr(Trim(MConSid))); // Sql.Add('and CB_Name=' + quotedstr(Trim(MCBName))); // Open; // end; // with ADOQueryCmd do // begin // if ADOQueryCmd.IsEmpty then // begin // Append; // end // else // begin // Edit; // end; // // RTSetSaveDataCDS(ADOQueryCmd, Tv2, Sub_CB, 'BS_Contract_sub_CB', 0); // Post; // end; // with Sub_CB do // begin // Edit; // FieldByName('ConSid').Value := Trim(MConSid); // FieldByName('CB_Name').Value := Trim(MCBName); // Post; // end; // Sub_CB.Next; // end; // end; // end; // // // //////成本///////////////////// // if not Sub_CB.IsEmpty then // begin with Sub_CB do begin Sub_CB.First; while not Eof do begin MSCBID := Trim(Sub_CB.fieldbyname('SCBID').AsString); if Trim(MSCBID) = '' then begin if GetLSNo(ADOQuery1, MaxNo, 'CB', 'BS_Contract_Sub_CB', 4, 1) = False then begin ADOQuery1.Connection.RollbackTrans; Application.MessageBox('取号失败!', '提示', 0); Exit; end; end else begin MaxNo := trim(MSCBID); end; with ADOQuery1 do begin Close; sql.Clear; sql.Add('select * from Bs_Contract_Sub_CB where SCBID=' + quotedstr(Trim(MSCBID))); Open; end; with ADOQuery1 do begin if Trim(MSCBID) = '' then begin Append; end else begin Edit; end; FieldByName('SCBID').Value := Trim(MaxNo); // FieldByName('COID').Value := Trim(MSCBID); RTSetSaveDataCDS(ADOQuery1, Tv2, Sub_Cb, 'BS_Contract_Sub_CB', 0); Post; end; with sub_Cb do begin Edit; FieldByName('SCBID').Value := Trim(MaxNo); Post; end; Sub_CB.Next; end; end; // end; ADOQueryCmd.Connection.CommitTrans; // FCCID := Trim(MaxSubId); Result := True; except ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('保存异常!', '提示', 0); Result := false; end; end; function TfrmBaoguanInPut.SaveData(): Boolean; var maxno, MQZ, MLS, MYR: string; fconNO, fmxType, fDate: string; begin try ADOCmd.Connection.BeginTrans; //////////////// 保存主表 ////////////////////// if Trim(FConMId) = '' then begin if GetLSNo(ADOTemp, maxno, 'CM', 'BS_Contract_Main', 3, 1) = False then raise Exception.Create('取最大号失败！'); // fDate := FormatDateTime('yy', SGetServerDate(ADOTemp)); if trim(ConNo.Text) = '自动生成' then begin if GetLSNo1(ADOTemp, fconNO, 'DH', 'BS_Contract_Main', 4, 1) = False then raise Exception.Create('取最合同编号失败！'); with ADOQuery1 do begin Close; sql.Clear; SQL.Add('select LEFT(''' + Trim(fconNO) + ''''); SQl.Add(', 4) AS QZ,RIGHT(''' + Trim(fconNO) + ''''); SQL.ADD(', 4) AS LS'); Open; end; MQZ := ADOQuery1.FieldByName('QZ').ASString; MLS := ADOQuery1.FieldByName('LS').ASString; with ADOQuery2 do begin Close; sql.Clear; SQL.Add('select RIGHT(YEAR(GETDATE()) * 10000 + MONTH(GETDATE()) * 100 + DAY(GETDATE()), 4) YR '); Open; end; MYR := ADOQuery2.FieldByName('YR').ASString; // if ConType.Text = '内销' then // fconNO := 'N' + fconNO // else // fconNO := 'W' + fconNO; ConNo.Text := MQZ + MYR + MLS; end; end else begin maxno := Trim(FConMId); end; with ADOCmd do begin Close; sql.Clear; SQL.Add('select * from BS_Contract_Main where ConMId=''' + Trim(FConMId) + ''''); Open; end; with ADOCmd do begin if Trim(FConMId) = '' then begin Append; FieldByName('Filler').Value := Trim(DName); FieldByName('status').Value := '0'; end else begin Edit; FieldByName('Editer').Value := Trim(DName); FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); end; FieldByName('ConMId').Value := Trim(maxno); RTSetsavedata(ADOCmd, 'BS_Contract_Main', ScrollBox1, 2); FieldByName('BuyNo').Value := Trim(BuyName.TxtCode); FieldByName('SellNo').Value := Sellname.TxtCode; FieldByName('MiddleNo').Value := MiddleName.TxtCode; Post; end; with ADOCmd do begin Close; sql.Clear; sql.Add('select * from BS_Contract_Main where ConNo=''' + Trim(ConNo.Text) + ''''); Open; end; if ADOCmd.RecordCount > 1 then raise Exception.Create('合同号重复！'); FConMId := Trim(maxno); //////////////// 保存主表 ////////////////////// /// //////////////// 保存子表 ////////////////////// with Order_Sub do begin First; while not Eof do begin maxno := Trim(Order_Sub.fieldbyname('ConSId').AsString); with ADOCmd do begin Close; SQL.Clear; sql.Add('select * from BS_Contract_Sub where ConSId=''' + Trim(maxno) + ''''); Open; end; with ADOCmd do begin if ADOCmd.IsEmpty then Append else Edit; RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'BS_Contract_Sub', 0); FieldByName('ConMId').Value := Trim(FConMId); FieldByName('ConSId').Value := Trim(maxno); Post; end; with Order_Sub do begin Edit; FieldByName('ConSId').Value := Trim(maxno); Post; end; Next; end; end; //////////////// 保存子表 ////////////////////// /// //////////////// 更新合同 ////////////////////// // with ADOCmd do // begin // close; // sql.Clear; // sql.Add('EXEC P_Con_Up_PiQty '); // sql.Add('@DataID=' + quotedstr(Trim(FConMId))); // execsql; // end; //////////////// 更新合同 ////////////////////// ADOCmd.Connection.CommitTrans; Result := True; except ADOCmd.Connection.RollbackTrans; application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); Result := False; end; end; procedure TfrmBaoguanInPut.TBSaveClick(Sender: TObject); begin ConDate.SetFocus; if TestData() = false then exit; if SaveData() then begin Application.MessageBox('保存成功！', '提示', 0); end; end; procedure TfrmBaoguanInPut.v1PRTOrderQtyPropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName, FLRL: string; FConQty, FConPrice, FC_Money, FEstimated, FLR: Double; //个数，单价，金额, 预估成本 begin mvalue := TcxTextEdit(Sender).EditingText; if Trim(mvalue) = '' then begin mvalue := '0'; end; FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); with Order_Sub do begin Edit; FieldByName(FFieldName).Value := Trim(mvalue); Post; FConQty := Fieldbyname('ConQty').AsFloat; FConPrice := Fieldbyname('ConPrice').AsFloat; end; FC_Money := RoundFloat(FConQty * FConPrice, 2); with Order_Sub do begin Edit; FieldByName('ConQty').Value := FConQty; FieldByName('ConPrice').Value := FConPrice; FieldByName('ConTotalAmount').Value := FC_Money; Post; end; if Order_Sub.FieldByName('Estimated').asString <> '' then begin FEstimated := Order_sub.Fieldbyname('Estimated').AsFloat; FLR := RoundFloat((FConPrice - FEstimated) / FEstimated, 3) * 100; FLRL := floatToStr(FLR) + '%'; with Order_Sub do begin Edit; FieldByName('ProfitRate').Value := FLRL; Post; end; end; tv1.Controller.EditingController.ShowEdit(); end; procedure TfrmBaoguanInPut.YFTPNameBtnUpClick(Sender: TObject); begin if FConMId = '' then begin end; try frmPictureUpload := TfrmPictureUpload.create(self); with frmPictureUpload do begin fFlileFlag := self.fFlileFlag; FDataId := trim(Self.FConMId); FPictureName := TRIM(YFTPName.Text); FWidth := 450; FHeight := 600; // FTFType := 'HX'; FTFType := 'YP'; if showmodal = 1 then begin Self.YFTPName.Text := frmPictureUpload.FPictureName; end; end; finally frmPictureUpload.free; end; InitImage(); end; procedure TfrmBaoguanInPut.ToolButton4Click(Sender: TObject); var i: Integer; maxno: string; begin if GetLSNo(ADOCmd, maxno, 'CS', 'BS_Contract_Sub', 4, 1) = False then begin ADOCmd.Connection.RollbackTrans; Application.MessageBox('取子流水号失败！', '提示', 0); Exit; end; if Trim(ConNo.Text) = '' then begin Application.MessageBox('合同号不能为空!', '提示', 0); Exit; end; i := Order_Sub.RecordCount; //当前的dataset有多少行记录 i := i + 1; CopyAddRow(Tv1, Order_Sub); with Order_Sub do begin Edit; FieldByName('SSEL').Value := FALSE; FieldByName('SerialNo').Value := i; FieldByName('ConSId').Value := maxno; FieldByName('C_Color').Value := ''; FieldByName('ConQty').Value := null; FieldByName('Estimated').Value := ''; FieldByName('ProfitRate').Value := ''; Post; end; SetXH(); end; procedure TfrmBaoguanInPut.ToolButton5Click(Sender: TObject); begin if Order_Sub.IsEmpty then Exit; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then Exit; while Order_Sub.Locate('SSel', True, []) do begin with ADOTemp do begin Close; sql.Clear; sql.Add('select * from Trade_Plan_Sub where ConSId=''' + Trim(Order_Sub.fieldbyname('ConSId').AsString) + ''''); open; end; if ADOTemp.IsEmpty = false then begin exit; application.MessageBox('该明细已经在生产！', '提示信息'); end; if Trim(Order_Sub.fieldbyname('ConSId').AsString) <> '' then begin with ADOCmd do begin Close; sql.Clear; sql.Add('delete BS_Contract_Sub where ConSId=''' + Trim(Order_Sub.fieldbyname('ConSId').AsString) + ''''); ExecSQL; end; end; Order_Sub.Delete; end; SetXH(); end; procedure TfrmBaoguanInPut.ToolButton1Click(Sender: TObject); begin if SaveCB() then begin Application.MessageBox('运算值保存成功!', '提示', 0); ModalResult := 1; end; end; procedure TfrmBaoguanInPut.ToolButton2Click(Sender: TObject); begin JSCB(); end; procedure TfrmBaoguanInPut.ToolButton3Click(Sender: TObject); begin WriteCxGrid(trim(self.Caption), Tv1, '销售合同管理'); end; procedure TfrmBaoguanInPut.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin if PState = '成本预估' then begin CBMX(); end; // TV2.DataController.Filter.Clear; end; procedure TfrmBaoguanInPut.BuyNameBtnUpClick(Sender: TObject); begin try frmCompanySel := TfrmCompanySel.Create(Application); with frmCompanySel do begin FCoType := '客户'; if Self.FAuthority = '录入' then FAuthority := '理单业务'; if ShowModal = 1 then begin self.BuyName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); self.BuyName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); self.SalesId.Text := Trim(frmCompanySel.CDS_1.fieldbyname('SalesId').AsString); self.Saleser.Text := Trim(frmCompanySel.CDS_1.fieldbyname('Saleser').AsString); self.TallyId.Text := Trim(frmCompanySel.CDS_1.fieldbyname('TallyId').AsString); self.Tallyer.Text := Trim(frmCompanySel.CDS_1.fieldbyname('Tallyer').AsString); end; end; finally frmCompanySel.Free; end; end; procedure TfrmBaoguanInPut.cxDBImage1DblClick(Sender: TObject); begin if TcxDBImage(Sender).Picture.Height = 0 then exit; LookImage(Qry_ImgHX.fieldbyname(TcxDBImage(Sender).Hint).asstring); end; procedure TfrmBaoguanInPut.ExchangeRateKeyPress(Sender: TObject; var Key: Char); begin if not (((Key >= '0') and (Key <= '9')) or (Key = '.') or (Key = #8)) then begin Key := #0; end else if (pos('.', TEdit(Sender).text) <> 0) then begin if Key = '.' then begin Key := #0; end; end; end; //procedure TfrmSalesConInPut.Button1Click(Sender: TObject); //var // FPBPrice, Fsl, Frf, FMQty, FGY1, FGY2, FGY3: Double; // Fbzf, Fhl, Fyf, Fyj, FXSPrice, FYGCB, FLR: Double; //begin // FPBPrice := 0; // Fsl := 0; // Frf := 0; // FMQty := 0; // FGY1 := 0; // FGY2 := 0; // FGY3 := 0; // Fbzf := 0; // Fhl := 0; // Fyf := 0; // Fyj := 0; // FXSPrice := 0; // if GY1Price.text <> '' then // begin // FGY1 := StrToFloat(GY1Price.text); // end; // if GY2Price.text <> '' then // begin // FGY2 := StrToFloat(GY2Price.text); // end; // if GY3Price.text <> '' then // begin // FGY3 := StrToFloat(GY3Price.text); // end; // if PBPrice.text <> '' then // begin // FPBPrice := StrToFloat(PBPrice.text); // end // else // begin // Application.MessageBox('坯布价格不能为空!', '提示', 0); // Exit; // end; // if suolv.text <> '' then // begin // Fsl := StrToFloat(suolv.text); // end // else // begin // // Application.MessageBox('缩率不能为空!', '提示', 0); // Exit; // // end; // if RPrice.text <> '' then // begin // Frf := StrToFloat(RPrice.text); // end; // // if MQty.text <> '' then // begin // FMQty := StrToFloat(MQty.text); // end; // if PackPrice.text <> '' then // begin // Fbzf := StrToFloat(PackPrice.text); // end; // if exchange.text <> '' then // begin // Fhl := StrToFloat(exchange.text); // end; // if freight.text <> '' then // begin // Fyf := StrToFloat(freight.text); // end; // // if brokerage.text <> '' then // begin // Fyj := StrToFloat(brokerage.text); // end // else // begin // Application.MessageBox('佣金不能为空!', '提示', 0); // Exit; // end; // // if conPrice.text <> '' then // begin // FXSPrice := StrToFloat(conPrice.text); // end; // // // FYGCB := RoundFloat(((((FPBPrice / Fsl + Frf) / FMQty + FGY1 + FGY2 + FGY3 + Fbzf) / Fhl + Fyf) / Fyj), 2); // FLR := RoundFloat((FXSPrice - FYGCB) / FYGCB, 2)*100; // // Estimated.text := FloatToStr(FYGCB); // ProfitRate.text := FloatToStr(FLR)+'%'; // // if Application.MessageBox('是否要保存！', '提示', 32 + 4) <> IDYES then // Exit; // // with ADOQuery1 do // begin // Close; // sql.Clear; // sql.Add(' Update BS_Contract_Sub Set PBPrice=''' + Trim(PBPrice.text) + ''' '); // sql.Add(',suolv=''' + Trim(suolv.text) + ''',RPrice=''' + Trim(RPrice.text) + ''' '); // sql.Add(',MQty=''' + Trim(MQty.text) + ''',GY1Price=''' + Trim(GY1Price.text) + ''' '); // sql.Add(',GY2Price=''' + Trim(GY2Price.text) + ''',GY3Price=''' + Trim(GY3Price.text) + ''' '); // sql.Add(',PackPrice=''' + Trim(PackPrice.text) + ''',exchange=''' + Trim(exchange.text) + ''' '); // sql.Add(',freight=''' + Trim(freight.text) + ''',brokerage=''' + Trim(brokerage.text) + ''' '); // sql.Add(',Estimated=''' + Trim(Estimated.text) + ''',profitrate=''' + Trim(profitrate.text) + ''' '); // sql.Add(' where ConSid=''' + Trim(Order_sub.fieldbyname('ConSid').AsString) + ''' '); // // ExecSQL; // end; //end; procedure TfrmBaoguanInPut.BuyNameBtnDnClick(Sender: TObject); begin TBtnEditC(Sender).Text := ''; TBtnEditC(Sender).TxtCode := ''; end; procedure TfrmBaoguanInPut.v1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin flag := 'MPRTCodeName'; flagname := '产品名称'; if ShowModal = 1 then begin Order_Sub.Edit; Order_Sub.fieldbyname('PRTCodeName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); Order_Sub.fieldbyname('PRTCode').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); Order_Sub.Post; end; end; finally frmZDYHelp.Free; end; tv1.Controller.EditingController.ShowEdit(); end; procedure TfrmBaoguanInPut.v1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin flag := 'C_MF'; flagname := '门幅信息'; if ShowModal = 1 then begin Order_Sub.Edit; Order_Sub.fieldbyname('C_MF').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); // Order_Sub.fieldbyname('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); Order_Sub.Post; end; end; finally frmZDYHelp.Free; end; tv1.Controller.EditingController.ShowEdit(); end; procedure TfrmBaoguanInPut.v1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin flag := 'C_KZ'; flagname := '克重信息'; if ShowModal = 1 then begin Order_Sub.Edit; Order_Sub.fieldbyname('C_KZ').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); // Order_Sub.fieldbyname('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); Order_Sub.Post; end; end; finally frmZDYHelp.Free; end; tv1.Controller.EditingController.ShowEdit(); end; procedure TfrmBaoguanInPut.v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); var MCYNo: string; begin frmClothInfoSel := TfrmClothInfoSel.Create(self); with frmClothInfoSel do begin if showmodal = 1 then begin Order_Sub.Edit; Order_Sub.fieldbyname('C_Code').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Code').asstring; Order_Sub.fieldbyname('C_Name').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Name').asstring; Order_Sub.fieldbyname('C_EName').Value := frmClothInfoSel.CDS_1.fieldbyname('C_EName').asstring; Order_Sub.fieldbyname('C_Spec').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Spec').asstring; Order_Sub.fieldbyname('C_Composition').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Composition').asstring; Order_Sub.fieldbyname('C_Color').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Color').asstring; Order_Sub.fieldbyname('C_Width').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Width').asstring; Order_Sub.fieldbyname('C_GramWeight').Value := frmClothInfoSel.CDS_1.fieldbyname('C_GramWeight').asstring; Order_Sub.Post; end; free; end; tv1.Controller.EditingController.ShowEdit(); end; procedure TfrmBaoguanInPut.SalesmanBtnUpClick(Sender: TObject); var fsj: string; FWZ: Integer; begin fsj := Trim(TEdit(Sender).Hint); FWZ := Pos('/', fsj); try frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin flag := Copy(fsj, 1, FWZ - 1); flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); if ShowModal = 1 then begin TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally frmZDYHelp.Free; end; end; procedure TfrmBaoguanInPut.v1Column15PropertiesEditValueChanged(Sender: TObject); var mvalue: string; begin mvalue := TcxTextEdit(Sender).EditingText; if Trim(mvalue) = '' then begin mvalue := '0'; end; with Order_Sub do begin Edit; FieldByName('YongJinPrice').Value := mvalue; FieldByName('YongJin').Value := FieldByName('YongJinPrice').AsFloat * FieldByName('PRTOrderQty').AsFloat; Post; end; end; procedure TfrmBaoguanInPut.SellNameBtnUpClick(Sender: TObject); begin try frmCompanySel := TfrmCompanySel.Create(Application); with frmCompanySel do begin FCoType := '我司'; if ShowModal = 1 then begin self.Sellname.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); self.Sellname.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); self.Currency.text := Trim(frmCompanySel.CDS_1.fieldbyname('Currency').AsString); end; end; finally frmCompanySel.Free; end; end; end.