selgoodscheckacceptqry.~pas

医药连锁经营管理系统源码

unit SelGoodsCheckAcceptQry;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzTabs, ExtCtrls, Menus, RzPanel, RzSplit, RzCommon, DBClient, StrUtils,
  DB, ckDBClient, MConnect, TFlatSpeedButtonUnit, RzStatus, TFlatPanelUnit,
  StdCtrls, RzButton, RzDTP, RzEdit, RzCmboBx, RzBtnEdt, ComCtrls, DBGridEh, DbUtilsEh, EhLibCDS,
  Mask, Grids, xEhLibCtl, xBaseFrm, IMainFrm, uGlobal, uDataTypes, ActnList,
  ModuleAction, ImgList, RzRadChk,DBFuncs, RzLabel;

type
  TFmSelGoodsChkAcptQry = class(TxBaseForm)
    RzSizePanel1: TRzSizePanel;
    ptBkPanel: TFlatPanel;
    FlatPanel2: TPanel;
    BtnWhatIs: TFlatSpeedButton;
    BtnHelp: TFlatSpeedButton;
    FlatPanel3: TPanel;
    BtnPopMenu: TFlatSpeedButton;
    TopPopMenu: TPopupMenu;
    SetFields1: TMenuItem;
    refresh1: TMenuItem;
    DCOMConnection1: TDCOMConnection;
    dsGoodsCheckAccept: TDataSource;
    cdsGoodsCheckAccept: TckClientDataSet;
    RzGroupBox1: TRzGroupBox;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    edBillNo1: TRzEdit;
    edBillNo2: TRzEdit;
    edGoodsID: TRzButtonEdit;
    edProvNo: TRzButtonEdit;
    cbOptor: TRzButtonEdit;
    cbAudit: TRzComboBox;
    edAudit: TRzButtonEdit;
    Label5: TLabel;
    Label11: TLabel;
    DTCtrl1: TRzDateTimePicker;
    DTCtrl2: TRzDateTimePicker;
    Label12: TLabel;
    edDepartID: TRzButtonEdit;
    Panel1: TPanel;
    dbgPchOrders: TxDBGridEh;
    ActionList1: TActionList;
    ImageList1: TImageList;
    ActQuery: TModlAction;
    ActReport: TModlAction;
    ActFieldsLayout: TModlAction;
    ActDataExport: TModlAction;
    ActDesignReport: TModlAction;
    ckMultiSelect: TRzCheckBox;
    ActViewBill: TModlAction;
    edPBillNo: TRzEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ActQueryExecute(Sender: TObject);
    procedure ActReportExecute(Sender: TObject);
    procedure ActFieldsLayoutExecute(Sender: TObject);
    procedure ActDataExportExecute(Sender: TObject);
    procedure BtnPopMenuClick(Sender: TObject);
    procedure cdsGoodsCheckAcceptAfterOpen(DataSet: TDataSet);
    procedure ActViewBillExecute(Sender: TObject);
    procedure edGoodsIDButtonClick(Sender: TObject);
    procedure edProvNoButtonClick(Sender: TObject);
    procedure edDepartIDButtonClick(Sender: TObject);
    procedure cbOptorButtonClick(Sender: TObject);
    procedure edAuditButtonClick(Sender: TObject);
  private
    IFmMain: IMainForm;
    LocSetting: PLocSetting;
    iClientID: Integer;
    SvrCommon: TDispatchConnection;
    CdsFieldProperty :TckClientDataSet;
  public
    { Public declarations }
  end;

var
  FmSelGoodsChkAcptQry: TFmSelGoodsChkAcptQry;

Const
  sFieldProPerty='Select * From SysFieldProperty '+
        ' Where TableName=''GoodsCheckAccept''';

implementation
uses SelectGoodsFrm,ceGlobal, ShowProGress, FieldsLayoutFrm, RepSelectFrm, DataExportFrm,
     SelectEmpFrm,SelectDepartFrm,
     SelectCustFrm;

{$R *.dfm}

procedure TFmSelGoodsChkAcptQry.FormCreate(Sender: TObject);
var SystemTime: TSystemTime;
begin
  CdsFieldProperty := TckClientDataSet.Create(Self);
  GetLocalTime(SystemTime);
  with SystemTime do
    DTCtrl1.Date := EncodeDate(wYear, wMonth, 1);
  DTCtrl2.Date := Date;

  IFmMain := Application.MainForm as IMainForm;
  LocSetting := IFmMain.IFmMainEx.GetLocSetting;
  iClientID := IFmMain.IFmMainEx.ClientID;
  SetGressHint('正在连接到公用信息服务器...');
  SvrCommon := IFmMain.GetConnection(Handle, '', 'CommonSvr.CommonRDM');
  cdsGoodsCheckAccept.RemoteServer := SvrCommon;

  CdsFieldProPerty.ProviderName:='DspTemp';
  CdsFieldProPerty.RemoteServer:=SvrCommon;

end;

procedure TFmSelGoodsChkAcptQry.FormShow(Sender: TObject);
begin
  SetGressHint('初始化本地环境...');
  IFmMain.SetActionStatus(ActionList1, hInstance, self.ClassName);
  SysFieldXml(CdsFieldProPerty,sFieldProPerty,'TFmGoodsCheckAcceptQry.Xml');
  SetGridEhColor([dbgPchOrders]);
//  cdsGoodsCheckAccept.Open;
  FreeGressForm;
end;

procedure TFmSelGoodsChkAcptQry.ActQueryExecute(Sender: TObject);
var swMst, swDtl, str: String;
   sTableNames:String;
begin
	swMst := 'and M.FDATE>='''+FormatDateTime('yyyy-mm-dd', DTCtrl1.Date)
  				+''' AND M.FDATE<'''+FormatDateTime('yyyy-mm-dd', DTCtrl2.Date+1)+'''';
//  if edDepotID.Text<>'' then
	str := edProvNo.Text;
	if str<>'' then
  	swMst := swMst+' AND M.ProvNo='''+str+'''';
  str := edBillNo1.Text;
  if str<>'' then begin
  	if edBillNo2.Text='' then
      swMst := swMst+' AND M.BILLNO='''+str+''''
    else
    	swMst := swMst+' AND M.BILLNO>='''+str+''' AND M.BillNo<='''+edBillNo2.Text+'''';
  end;
  str := edPBillNo.Text;
  if str<>'' then
  	swMst := swMst+' AND M.PBillNo='''+str+'''';
  str := cbOptor.Text;
  if str<>'' then
  	swMst := swMst+' AND M.Creater='''+str+'''';
  str := edAudit.Text;
  if str<>'' then
  	swMst := swMst+' AND M.Audit='''+str+'''';
  if cbAudit.ItemIndex=1 then
  	swMst := swMst+' AND M.Audit IS NOT NULL '
  else if cbAudit.ItemIndex=2 then
  	swMst := swMst+' AND M.Audit IS NULL ';

  str := edGoodsID.Text;
  if str<>'' then begin
    if AnsiPos(',', str)>0 then
      swDtl := ' and GoodsID in(''' + AnsiReplaceText(str, ',', ''',''') + ''')'
    else
      swDtl := ' AND GoodsID Like '''+edGoodsID.Text+'''';
  end;
  cdsGoodsCheckAccept.Close;
  cdsGoodsCheckAccept.Data := SvrCommon.AppServer.QueryBill(iClientID, 'GoodsCheckAccept', swMst, swDtl);
  sTableNames := 'GoodsCheckAccept';
  SetFieldProperty(CdsFieldProPerty,cdsGoodsCheckAccept,sTableNames);
end;

procedure TFmSelGoodsChkAcptQry.ActReportExecute(Sender: TObject);
begin
  SelRepPrint(self.Name, [cdsGoodsCheckAccept], '销售退回质量验收查询', ActDesignReport.Enabled);
end;

procedure TFmSelGoodsChkAcptQry.ActFieldsLayoutExecute(Sender: TObject);
begin
  SetFieldsLayOut(LocSetting^.FieldLayoutCfgFile, Name, [dbgPchOrders], '销售退回质量验收查询');
end;

procedure TFmSelGoodsChkAcptQry.ActDataExportExecute(Sender: TObject);
begin
	ExportData([cdsGoodsCheckAccept], '销售退回质量验收查询', '');
end;

procedure TFmSelGoodsChkAcptQry.BtnPopMenuClick(Sender: TObject);
var tp:TPoint;
begin
  tp.X:=BtnPopMenu.Left;
  tp.Y:=BtnPopMenu.Top+BtnPopMenu.Height+1;
  tp:=ClientToScreen(tp);
	TopPopmenu.Popup(tp.x,tp.Y);
end;

procedure TFmSelGoodsChkAcptQry.cdsGoodsCheckAcceptAfterOpen(DataSet: TDataSet);
begin
  LoadFieldsLayOut(LocSetting^.FieldLayoutCfgFile, Name, [dbgPchOrders]);
end;

procedure TFmSelGoodsChkAcptQry.ActViewBillExecute(Sender: TObject);
var //Form: TForm;
    Values: Variant;
    sBillNo, sBills: String;
    mark: TBookmark;
begin
  if cdsGoodsCheckAccept.IsEmpty then Exit;
{  IFmMain.OnAction(Sender);
  Form := FindForm('TFmPchOrder');
  if (Form=nil)or not (Form is TxBaseForm) then Exit;
}  with cdsGoodsCheckAccept do begin
    sBillNo := FieldByName('BillNo').AsString;
    mark := GetBookmark;
    DisableControls;
    try
      First;
      while not Eof do begin
        sBills := sBills+FieldByName('BillNo').AsString+#13;
        Next;
      end;
    finally
      GotoBookmark(mark);
      FreeBookmark(mark);
      EnableControls;
    end;
  end;
  Values := VarArrayCreate([0,1], varOleStr);
  Values[0] := sBillNo;
  Values[1] := sBills;
//  TxBaseForm(Form).DoSome('ViewBill', Values);
//  Form.BringToFront;
  IFmMain.DoSome(ActViewBill.ModuleFile, 'ViewBill', Values);
  Values := NULL;
end;

procedure TFmSelGoodsChkAcptQry.edGoodsIDButtonClick(Sender: TObject);
var
  IdStr :String;
begin
  idStr:='';
  if SelectGoodsID(IdStr,True) then
  begin
    if ckMultiSelect.Checked then
      If edGoodsID.Text<>'' Then
        edGoodsId.Text := edGoodsId.Text+','+IdStr;
     edGoodsId.Text := IdStr;
  end;
end;

procedure TFmSelGoodsChkAcptQry.edProvNoButtonClick(Sender: TObject);
Var
  CustNo :string;
  CustName :String;
begin
  CustNo := '';
  CustName := '';
  if SelectCust(CustNo,CustName) then
  edProvNo.Text := CustNo;
end;

procedure TFmSelGoodsChkAcptQry.edDepartIDButtonClick(Sender: TObject);
Var
  DptId :Integer;
  DptNo :String;
  DptName :String;
begin
  DptId := 0;
  DptNo := '';
  DptName := '';
  if SelectDepart(DptId,DptNo,DptName) then
  edDepartID.Text := DptNo;
end;

procedure TFmSelGoodsChkAcptQry.cbOptorButtonClick(Sender: TObject);
Var
  EmpNo :String;
  EmpName :String;
begin
  EmpNo := '';
  EmpName := '';
  if SelectEmp(EmpNo,EmpName) then
  cbOptor.Text := EmpNo;
end;

procedure TFmSelGoodsChkAcptQry.edAuditButtonClick(Sender: TObject);
Var
  EmpNo :String;
  EmpName :String;
begin
  EmpNo := '';
  EmpName := '';
  if SelectEmp(EmpNo,EmpName) then
  edAudit.Text := EmpNo;
end;

initialization
  RegisterClass(TFmSelGoodsChkAcptQry);

finalization
  UnRegisterClass(TFmSelGoodsChkAcptQry);

end.