selectpchreceivefrm.pas

来自「医药连锁经营管理系统源码」· PAS 代码 · 共 250 行

unit SelectPchReceiveFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, DbUtilsEh, EhLibCDS, xEhLibCtl, RzButton, DBCtrls, RzDBNav, RzPanel,
  StdCtrls, Mask, RzEdit, ExtCtrls, RzSplit, ImgList, DB, DBClient,
  ckDBClient, MConnect,IMainFrm, ComCtrls, RzDTP, RzRadChk,uDataTypes,
  RzTabs,DBGrids, DbFuncs,ShowProgress,FieldsLayoutFrm;

type
  TFrmSelectPchReceive = class(TForm)
    DComm: TDCOMConnection;
    CdsSelectPchReceive: TckClientDataSet;
    DsSelectPchReceive: TDataSource;
    ImageList1: TImageList;
    DsSelectPchReceiveDtl: TDataSource;
    CdsSelectPchReceiveDtl: TckClientDataSet;
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    dbgArrearage: TxDBGridEh;
    dbgArrearageDtl: TxDBGridEh;
    RzPanel1: TRzPanel;
    Label1: TLabel;
    ckProvNo: TRzCheckBox;
    ckBillNo: TRzCheckBox;
    ckDate: TRzCheckBox;
    dtpBeginDate: TRzDateTimePicker;
    dtpEndDate: TRzDateTimePicker;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn1: TRzBitBtn;
    edProvNo: TRzEdit;
    edBillNo: TRzEdit;
    ckEmpNo: TRzCheckBox;
    ckCreater: TRzCheckBox;
    edEmpNo: TRzEdit;
    edCreater: TRzEdit;
    CdsSelectPchReceiveBillNo: TStringField;
    CdsSelectPchReceiveFDate: TDateTimeField;
    CdsSelectPchReceiveProvNo: TStringField;
    CdsSelectPchReceiveProvName: TStringField;
    CdsSelectPchReceiveEmpNo: TStringField;
    CdsSelectPchReceiveName: TStringField;
    CdsSelectPchReceiveCreater: TStringField;
    CdsSelectPchReceiveCreateName: TStringField;
    CdsSelectPchReceiveAdsBrowPchReceiveDtl: TDataSetField;
    CdsSelectPchReceiveDtlBillNo: TStringField;
    CdsSelectPchReceiveDtlItemNo: TIntegerField;
    CdsSelectPchReceiveDtlGoodsID: TStringField;
    CdsSelectPchReceiveDtlName: TStringField;
    CdsSelectPchReceiveDtlUnit: TStringField;
    CdsSelectPchReceiveDtlQty: TBCDField;
    CdsSelectPchReceiveDtlPrice: TFloatField;
    CdsSelectPchReceiveDtlTaxRate: TBCDField;
    CdsSelectPchReceiveDtlUnTaxPrice: TFloatField;
    CdsSelectPchReceiveDtlGoodsSum: TBCDField;
    CdsSelectPchReceiveDtlTaxSum: TBCDField;
    CdsSelectPchReceiveDtlAmount: TBCDField;
    CdsSelectPchReceiveDtlBatchNo: TStringField;
    CdsSelectPchReceiveDtlProdDate: TDateTimeField;
    CdsSelectPchReceiveDtlValidDate: TDateTimeField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure dbgArrearageDtlDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CdsSelectPchReceiveBeforeGetRecords(Sender: TObject;
      var OwnerData: OleVariant);
  private
    { Private declarations }
    IFmMain:iMainForm;
    LocSetting: PLocSetting;
    CdsFieldProPerty:TCKClientDataSet;
    SvrCommon: TDispatchConnection;
    CanMulti : Boolean;
    SvrArrearage:TDispatchConnection;
    IClientID : Integer;
    Function FilterData:String;
  public
    { Public declarations }
  end;
Function SelectPchReceive(DataSet: TDataSet;sProvNo:String;bAppend, bMultiSlt: Boolean): Boolean;

var
  FrmSelectPchReceive: TFrmSelectPchReceive;

Const
  sFieldProPerty='Select * From SysFieldProPerty Where TableName In(''PchReceive'',''PchReceiveDtl'', ''Goodses'')';

implementation

{$R *.dfm}
Function SelectPchReceive(DataSet: TDataSet;sProvNo:String;bAppend, bMultiSlt: Boolean): Boolean;
const
  c_Fields1: Array[0..10] of String =('ItemNo','GoodsID','Unit','BatchNo','Qty','Price','TaxRate','UnTaxPrice','GoodsSum','TaxSum','Amount');
  c_Fields2: Array[0..10] of String =('ItemNo','GoodsID','Unit','BatchNo','Qty','Price','TaxRate','UnTaxPrice','GoodsSum','TaxSum','Amount');
var iCount,iLen,i,n : Integer;
    vField1, vField2: TField;
begin
  Result := false;
  with TFrmSelectPchReceive.Create(NIl) do begin
    If not bAppend then Begin
      dbgArrearageDtl.Options := dbgArrearageDtl.Options-[dgMultiSelect];
      CanMulti := False;
    End Else
      CanMulti := True;
    CdsSelectPchReceive.Filtered := False;
//    If (CdsSelectPchReceive.Active) And bAppend Then
      If sProvNo<>'' Then Begin
        ckProvNo.Checked := True;
        edProvNo.Text := sProvNo;
//        CdsSelectPchReceive.Locate('ProvNo',sProvNo,[loCaseInsensitive]);
      End;
    if ShowModal=mrOk then begin
      if bMultiSlt And bAppend Then
        iCount := dbgArrearageDtl.SelectedRows.Count
      Else
        iCount := 1;
      For n:= 0 to iCount-1 do begin
        If bAppend Then Begin
          CdsSelectPchReceiveDtl.Bookmark := dbgArrearageDtl.SelectedRows[n];
          DataSet.Append;
        End Else
          DataSet.Edit;
        iLen := Length(c_Fields1);
        For i:=0 to iLen-1 do begin
          vField1 := DataSet.FindField(c_Fields1[i]);
          if vField1=nil then Continue;
          vField2 := CdsSelectPchReceiveDtl.FindField(c_Fields2[i]);
          if vField2=nil then Continue;
          vField1.Value := vField2.Value;
        end;
        DataSet.Post;
      End;
    End;
  End;
  Result := true;
end;

procedure TFrmSelectPchReceive.FormCreate(Sender: TObject);
begin
  IFmMain := (Application.MainForm as IMainForm);
  IClientID := IFmMain.IFmMainEx.ClientID;
  SvrArrearage := IFmMain.GetConnection(Handle,'','CKPurchInBase.PurchInRDM');
  CdsFieldProPerty:=TCKClientDataSet.Create(Self);
  LocSetting := IFmMain.IFmMainEx.GetLocSetting;
  SetGressHint('正在连接到公用信息服务器...');
  SvrCommon:=IFmMain.GetConnection(Handle,'','CommonSvr.CommonRDM');
  CdsFieldProPerty.RemoteServer:=SvrCommon;
  CdsFieldProPerty.ProviderName:='DspTemp';
  CdsSelectPchReceive.RemoteServer := SvrArrearage;
end;

procedure TFrmSelectPchReceive.FormShow(Sender: TObject);
begin
  CdsSelectPchReceive.Open;
  LoadFieldsLayOut(LocSetting^.FieldLayoutCfgFile, Name, [dbgArrearage,dbgArrearageDtl]);
  SetGressHint('初始化本地环境...');
  SysFieldXml(CdsFieldProPerty,sFieldProPerty,'TFrmSelectPchReceive.Xml');
  SetFieldProperty(CdsFieldProPerty,CdsSelectPchReceive,'PchReceive');
  SetFieldProperty(CdsFieldProPerty,CdsSelectPchReceiveDtl, 'PchReceiveDtl,Goodses');
  FreeGressForm;
end;

procedure TFrmSelectPchReceive.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

function TFrmSelectPchReceive.FilterData: String;
Var
  SqlText:String;
begin
  SqlText:='';
  If ckBillNo.Checked Then
    If edBillNo.Text<>'' Then
      SqlText:='BillNo Like '''+edBillNo.Text+'%''';
  If ckProvNo.Checked Then
    If edProvNo.Text<>'' Then
      If SqlText<>'' Then
        SqlText:=SqlText+' OR (ProvNo Like '+''''+edProvNo.Text+'%'+''' Or ProvName Like '+''''+edProvNo.Text+'%'+''')'
      Else
        SqlText:=' (ProvNo Like '+''''+edProvNo.Text+'%'+''' Or ProvName Like '+''''+edProvNo.Text+'%'+''')';
  If ckDate.Checked Then
    If SqlText<>'' Then
      SqlText:=SqlText+' OR (Fdate<= '+DateToStr(dtpEndDate.Date)+' And FDate>= '+DateToStr(dtpBeginDate.Date)+')'
    Else
      SqlText:=' (Fdate<= '+DateToStr(dtpEndDate.Date)+' And FDate>= '+DateToStr(dtpBeginDate.Date)+')';
  If ckEmpNo.Checked Then
    If edEmpNo.Text <>'' Then
      If SqlText<>'' Then
        SqlText:=SqlText+' OR (EmpNo Like '+''''+edEmpNo.Text+'%'+''' Or Name Like '+''''+edEmpNo.Text+'%'+''')'
      Else
        SqlText:=' (EmpNo Like '+''''+edEmpNo.Text+'%'+''' Or Name Like '+''''+edEmpNo.Text+'%'+''')';
  If ckCreater.Checked Then
    If edCreater.Text<>'' Then
      If SqlText<>'' Then
        SqlText:=SqlText+' OR (Creater Like '+''''+edCreater.text+'%'+''' Or CreateName Like '+''''+edCreater.Text+'%'+''')'
      Else
        SqlText:=' (Creater Like '+''''+edCreater.Text+'%'+''' Or CreateName Like '+''''+edCreater.Text+'%'+''')';
  Result:=SqlText;
end;

procedure TFrmSelectPchReceive.RzBitBtn2Click(Sender: TObject);
begin
  CdsSelectPchReceive.Filtered:= False;
  CdsSelectPchReceive.Filter := FilterData;
  CdsSelectPchReceive.Filtered := True;
end;

procedure TFrmSelectPchReceive.RzBitBtn1Click(Sender: TObject);
Var iCount : Integer;
begin
  If NOt(CanMulti) Then
    iCount := 0
  Else
    iCount := 1;
  If dbgArrearageDtl.SelectedRows.Count< iCount Then Begin
    MessageBox(Handle,Pchar('请选择入库通知单据明细数据!'),'提示',64);
    Exit;
  End;
  ModalResult := mrOK;
end;

procedure TFrmSelectPchReceive.dbgArrearageDtlDblClick(Sender: TObject);
begin
  RzBitBtn1Click(niL);
end;

procedure TFrmSelectPchReceive.CdsSelectPchReceiveBeforeGetRecords(
  Sender: TObject; var OwnerData: OleVariant);
Var sProvNo : string;
  A: Variant;
begin
  If edProvNo.Text='' Then
    sProvNo := '%'
  else
    sProvNo := edProvNo.Text;
  A:= VarArrayCreate([0,1],VarVariant);
  A[0]:= iClientID;
  A[1] := sProvNo;
  OwnerData := A;
end;

end.