unit U_TradeClothDROutEdit; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit, RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, RM_e_Xls, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations; type TfrmTradeClothDROutEdit = class(TfrmBaseList) ADOQueryTemp: TADOQuery; ADOQueryCmd: TADOQuery; DS_MainSel: TDataSource; CDS_MainSel: TClientDataSet; GPM_1: TcxGridPopupMenu; Panel2: TPanel; Label5: TLabel; Label4: TLabel; Label9: TLabel; edtScan: TEdit; CRTime: TDateTimePicker; ToCoName: TEdit; Button2: TButton; cxStyleRepository1: TcxStyleRepository; cxStyle1: TcxStyle; Label12: TLabel; CDS_Main: TClientDataSet; CRType: TEdit; Button1: TButton; RMXLSExport1: TRMXLSExport; RMDBMX: TRMDBDataSet; RM1: TRMGridReport; CDS_JuanPRT: TClientDataSet; Label10: TLabel; edtIsSMTH: TEdit; btn1: TButton; ds1: TClientDataSet; ds2: TDataSource; Panel1: TPanel; cxGrid3: TcxGrid; Tv3: TcxGridDBTableView; VC_MJXH: TcxGridDBColumn; v3Column1: TcxGridDBColumn; v3Column2: TcxGridDBColumn; cv3Column4: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; cxGrid1: TcxGrid; TV4: TcxGridDBTableView; cCXCONNO: TcxGridDBColumn; cCXCOLOR: TcxGridDBColumn; VC_SQQTY: TcxGridDBColumn; cCXFHPS: TcxGridDBColumn; cxGridLevel2: TcxGridLevel; TV4Column1: TcxGridDBColumn; Tv3Column1: TcxGridDBColumn; TV4Column2: TcxGridDBColumn; TV4Column3: TcxGridDBColumn; OutNo: TEdit; GPM_2: TcxGridPopupMenu; TV4Column5: TcxGridDBColumn; Tv3Column4: TcxGridDBColumn; Tv3Column2: TcxGridDBColumn; Tv3Column3: TcxGridDBColumn; Label1: TLabel; Button3: TButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormDestroy(Sender: TObject); procedure FormShow(Sender: TObject); procedure edtScanKeyPress(Sender: TObject; var Key: Char); procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure edtIsSMTHClick(Sender: TObject); procedure btn1Click(Sender: TObject); procedure TV4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Button3Click(Sender: TObject); private { Private declarations } FCKNO, FSMStr, JXFlag, CZZT, fcuowu: string; procedure InitCKGrid(); procedure InitSQGrid(); procedure PlayWav(MWav: string); function JudgeSQD(): Boolean; function SaveCKJTM(MStkIds: string): Boolean;//保存出库 procedure SaveCKJTMCX(); //撤销出库 public { Public declarations } end; var frmTradeClothDROutEdit: TfrmTradeClothDROutEdit; implementation uses U_DataLink, U_RTFun, MMSystem, U_TradeDRSel, U_TradeClothStkList_Sel, U_LabelPrint; procedure TfrmTradeClothDROutEdit.PlayWav(MWav: string); begin if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\' + MWav + '.wav')) then PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\' + MWav + '.wav'), 0, SND_ASYNC); end; procedure TfrmTradeClothDROutEdit.SaveCKJTMCX(); begin try if Trim(OutNo.Text) = '' then raise Exception.Create('出库单号不能为空!'); if CDS_MainSel.IsEmpty then raise Exception.Create('无可撤销的数据!'); try ADOQueryCmd.Connection.BeginTrans; with ADOQueryCmd do begin Close; Sql.Clear; sql.Add('insert into Finance_Need_Up(UType,UDataId) values(''贸易成品出库'',' + quotedstr(OutNo.Text) + ') '); Sql.Add('exec P_Trade_Cloth_ReOut '); Sql.Add(' @StkIds=' + quotedstr(trim(FSMStr))); Sql.Add(',@IOIDS=' + quotedstr(trim(''))); Sql.Add(',@FillId=' + Quotedstr(DCode)); Sql.Add(',@Filler=' + Quotedstr(DName)); Open; end; if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then begin raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); end; ADOQueryCmd.Connection.CommitTrans; PlayWav('正确'); except ADOQueryCmd.Connection.RollbackTrans; raise Exception.Create(PChar(Exception(ExceptObject).Message)); end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('exec P_Trade_Cloth_DR @OutNo=' + Quotedstr(Trim(OutNo.Text))); Open; end; if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then begin raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); end; except application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); // PlayWav('发货错误'); end; end; procedure TfrmTradeClothDROutEdit.TV4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin inherited; InitCKGrid(); end; function TfrmTradeClothDROutEdit.SaveCKJTM(MStkIds: string): Boolean; begin try if Trim(OutNo.Text) = '' then begin PlayWav('出库单号不能为空'); raise Exception.Create('出库单号不能为空!'); end; with ADOQueryTemp do begin Close; sql.Clear; sql.Add(' select A.* from Trade_Cloth_Inspect A '); sql.Add(' where A.CIID=''' + Trim(MStkIds) + ''''); Open; end; if ADOQueryTemp.IsEmpty then begin PlayWav('未检验'); edtScan.text := ''; raise Exception.Create('未检验'); end; if Trim(CRType.text) = '销售出库' then begin if Trim(ADOQueryTemp.fieldbyname('grade').AsString) <> '正品' then begin PlayWav('销售出库只能出库正品'); edtScan.text := ''; raise Exception.Create('销售出库只能出库正品'); end; end; if Trim(CRType.text) = '报废出库' then begin if Trim(ADOQueryTemp.fieldbyname('grade').AsString) <> '报废' then begin PlayWav('报废出库只能出库报废'); edtScan.text := ''; raise Exception.Create('报废出库只能出库报废'); end; end; if Trim(ADOQueryTemp.fieldbyname('CIIOFlag').AsString) = '未入库' then begin PlayWav('未入库'); edtScan.text := ''; raise Exception.Create('未入库'); end; if Trim(ADOQueryTemp.fieldbyname('CIIOFlag').AsString) = '已出库' then begin PlayWav('已出库'); edtScan.text := ''; raise Exception.Create('已出库'); end; with ADOQueryTemp do begin Close; sql.Clear; sql.Add(' select * from Trade_Cloth_DR_Sub A INNER JOIN Trade_Cloth_Stock B on A.C_Code = B.C_Code and isnull(A.C_Color,'''')=isnull(B.C_Color,'''') and isnull(A.C_ColorNo,'''') = isnull(B.C_ColorNo,'''') '); sql.Add(' where B.StkExists=1 and B.CIID=''' + Trim(MStkIds) + ''''); sql.Add(' and A.DRMID=''' + Trim(OutNo.Text) + ''''); //showmessage(sql.Text); Open; end; if ADOQueryTemp.IsEmpty then begin PlayWav('产品不一致'); edtScan.text := ''; raise Exception.Create('产品不一致'); end; if ADOQueryTemp.fieldbyname('DlyPiece').asfloat >= ADOQueryTemp.fieldbyname('Piece').asfloat then begin PlayWav('超过发货上限'); edtScan.text := ''; raise Exception.Create('超过发货上限'); end; try ADOQueryCmd.Connection.BeginTrans; with ADOQueryCmd do begin Close; Sql.Clear; sql.Add('insert into Finance_Need_Up(UType,UDataId) values(''贸易成品出库'',' + quotedstr(OutNo.Text) + ') '); Sql.Add('exec P_Trade_Cloth_Out '); Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds))); Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime))); Sql.Add(',@IOType=' + Quotedstr(crtype.Text)); Sql.Add(',@IONO=' + Quotedstr(OutNo.Text)); Sql.Add(',@FillId=' + Quotedstr(DCode)); Sql.Add(',@Filler=' + Quotedstr(DName)); Open; end; if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then begin raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); end; ADOQueryCmd.Connection.CommitTrans; except ADOQueryCmd.Connection.RollbackTrans; raise Exception.Create(PChar(Exception(ExceptObject).Message)); end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('exec P_Trade_Cloth_DR @OutNo=' + Quotedstr(Trim(OutNo.Text))); Open; end; if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then begin raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); end; PlayWav('正确'); Result := True; except Result := False; application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); // PlayWav('发货错误'); end; end; {$R *.dfm} function TfrmTradeClothDROutEdit.JudgeSQD(): Boolean; begin Result := false; try with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select * from Trade_Cloth_DR_Main A inner join Trade_Cloth_DR_Sub B on A.DRMID=B.DRMID where A.DRMID=''' + Trim(FSMStr) + ''''); Open; end; if ADOQueryTemp.IsEmpty then raise Exception.Create('申请单不存在暂停发货!'); if Trim(OutNo.Text) <> '' then begin FCKNO := Trim(OutNo.Text); end; OutNo.Text := Trim(FSMStr); if FSMStr <> FCKNO then begin InitCKGrid(); InitSQGrid(); end; Result := True; except Result := false; application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); // PlaySound('未扫描申请单暂停发货.wav', 0, SND_FILENAME or SND_ASYNC); end; end; procedure TfrmTradeClothDROutEdit.FormClose(Sender: TObject; var Action: TCloseAction); begin inherited; Action := caFree; end; procedure TfrmTradeClothDROutEdit.FormDestroy(Sender: TObject); begin inherited; frmTradeClothDROutEdit := nil; end; procedure TfrmTradeClothDROutEdit.FormShow(Sender: TObject); begin inherited; edtScan.SetFocus; ReadCxGrid('扫描出库Tv4', Tv4, '发货申请'); ReadCxGrid('扫描出库Tv3', Tv3, '发货申请'); CRTime.DateTime := SGetServerDate(ADOQueryTemp); end; procedure TfrmTradeClothDROutEdit.edtScanKeyPress(Sender: TObject; var Key: Char); var maxno, SMFlag, KYCKFlag, FMainId, ff: string; FFQty: Integer; begin if Key = #13 then begin if edtScan.Text = '' then Exit; FSMStr := TRIM(edtScan.Text); if Copy(FSMStr, 1, 2) = 'DM' then begin if not JudgeSQD() then exit; end else begin if Trim(edtIsSMTH.Text) = '' then begin if Copy(FSMStr, 1, 2) = 'BI' then begin with ADOQueryTemp do begin Close; sql.Clear; sql.Add(' select StkIdS=CAST((select distinct lTRIM(rTRIM(X.StkId)) + '','' '); sql.Add(' from Trade_Cloth_Stock X where X.PacketId=' + quotedstr(FSMStr) + ' for xml path('''') ) AS NVARCHAR(MAX)) '); //showmessage(sql.Text); Open; end; if SaveCKJTM(ADOQueryTemp.FieldByName('StkIdS').AsString) then begin PlayWav('正确'); end else exit; end else begin if SaveCKJTM(FSMStr) then begin PlayWav('正确'); end else exit; end; end else begin SaveCKJTMCX(); end; InitSQGrid(); InitCKGrid(); end; edtScan.Text := ''; end; end; procedure TfrmTradeClothDROutEdit.Button2Click(Sender: TObject); begin WriteCxGrid('扫描出库Tv4', Tv4, '发货申请'); WriteCxGrid('扫描出库Tv3', Tv3, '发货申请'); Close; end; procedure TfrmTradeClothDROutEdit.Button3Click(Sender: TObject); begin if Trim(OutNo.Text) = '' then Exit; try frmLabelPrint := TfrmLabelPrint.Create(Application); with frmLabelPrint do begin FLMType := 'TradeOutPrint'; FFiltration1 := Trim(Self.OutNo.Text); if ShowModal = 1 then begin end; end; finally frmLabelPrint.Free; end; end; procedure TfrmTradeClothDROutEdit.Button1Click(Sender: TObject); var MKey: Char; begin MKey := #13; try frmTradeDRSel := TfrmTradeDRSel.Create(self); with frmTradeDRSel do begin if ShowModal = 1 then begin edtScan.Text := Trim(Order_Main.fieldbyname('DRMID').AsString); edtScanKeyPress(edtScan, MKey); end; end; finally frmTradeDRSel.Free; end; end; procedure TfrmTradeClothDROutEdit.edtIsSMTHClick(Sender: TObject); begin if Trim(edtIsSMTH.Text) = '' then edtIsSMTH.Text := '√' else edtIsSMTH.Text := ''; end; procedure TfrmTradeClothDROutEdit.btn1Click(Sender: TObject); var MKey: Char; begin MKey := #13; CZZT := '选择库存'; fcuowu := '1'; try frmTradeClothStkList_Sel := TfrmTradeClothStkList_Sel.Create(Application); with frmTradeClothStkList_Sel do begin // CustomerNoName.text := trim(Self.KHName.text); if ShowModal = 1 then begin with frmTradeClothStkList_Sel.CDS_1 do begin First; while not Eof do begin if Fieldbyname('ssel').AsBoolean then begin Self.edtScan.Text := Trim(Fieldbyname('CIID').AsString); edtScanKeyPress(Self.edtScan, MKey); if fcuowu = '错误' then begin Break; end; Sleep(200); end; Next; end; end; end; end; finally frmTradeClothStkList_Sel.Free; end; InitCKGrid(); end; procedure TfrmTradeClothDROutEdit.InitSQGrid(); begin if OutNo.Text <> '' then begin with ADOQueryTemp do begin Close; sql.Clear; sql.Add('SELECT * FROM Trade_Cloth_DR_Sub B'); sql.Add('inner join Trade_Cloth_DR_Main A ON A.DRMID=B.DRMID '); sql.Add('WHERE B.DRMID=''' + Trim(OutNo.Text) + ''''); Open; end; SCreateCDS(ADOQueryTemp, DS1); SInitCDSData(ADOQueryTemp, DS1); crtype.Text := Trim(ADOQueryTemp.FieldByName('OutType').AsString); ToCoName.Text := Trim(ADOQueryTemp.FieldByName('ToCoName').AsString); end; end; procedure TfrmTradeClothDROutEdit.InitCKGrid(); begin if OutNo.Text <> '' then begin with ADOQueryTemp do begin Close; sql.Clear; sql.Add(' select * '); sql.Add(' from Trade_Cloth_Stock A inner join Trade_Cloth_IO B on A.STKID=B.StkId '); sql.Add(' where B.IONO=''' + Trim(OutNo.Text) + ''''); sql.Add(' order by Filltime desc '); Open; end; SCreateCDS(ADOQueryTemp, CDS_MainSel); SInitCDSData(ADOQueryTemp, CDS_MainSel); end; end; end.