?? sy_ckjhdcx.pas

?? 省級集郵品管理ERP
?? PAS
字號:
{*******************************************************}
{                                                       }
{                     出庫計劃單查詢                    }
{                                                       }
{            中軟金馬公司版權(quán)所有。2002.12前            }
{                                                       }
{            編制：中軟金馬郵資票品項目開發(fā)組           }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模塊在省級集郵品系統(tǒng)管理模塊里面調(diào)用。
修改記錄
修改用于銷價進價結(jié)算價結(jié)算金額的顯示小數(shù)點后擴到3位 將Qry_JJNFPJH進價銷價結(jié)算價結(jié)算金額顯示調(diào)用的CurrGetText替換為CurrGetText3；結(jié)算價顯示調(diào)用CurrGetText jhshao 2003.05.08

*)
unit SY_CKJHDCX;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, ComCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, Spin,
  Mask, ToolEdit, CurrEdit, ActnList, RXCtrls, Menus, DBGridExport;

type
  TFrmY_CKJHDCX = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    BBt_Quit: TBitBtn;
    Ldwmc: TLabel;
    Label3: TLabel;
    BBt_Find: TBitBtn;
    BBt_Print: TBitBtn;
    ND: TSpinEdit;
    Panel5: TPanel;
    ALi_Edit: TActionList;
    Act_AddDW: TAction;
    Act_DeleteDW: TAction;
    Act_AddFPJH: TAction;
    Act_DeleteFPJH: TAction;
    Act_ModifyFPJH: TAction;
    Act_Find: TAction;
    Act_Print: TAction;
    Act_Save: TAction;
    Act_Cancel: TAction;
    Qry_JJNFPJH: TQuery;
    DataSource3: TDataSource;
    Qry_GXDWSJB: TQuery;
    Act_Send: TAction;
    Qry_Static: TQuery;
    BBt_Hide: TBitBtn;
    Panel4: TPanel;
    RG_PX: TRadioGroup;
    GroupBox1: TGroupBox;
    Label11: TLabel;
    CB_ZBR: TComboBox;
    CB_DWMC: TComboBox;
    CB_JHH: TComboBox;
    CB_PPMC: TComboBox;
    CBB_DWMC: TCheckBox;
    CBB_PPMC: TCheckBox;
    CBB_JHH: TCheckBox;
    DP_FROM: TDateTimePicker;
    DP_TO: TDateTimePicker;
    CBB_PZR: TCheckBox;
    CB_PZR: TComboBox;
    CBB_ZBR: TCheckBox;
    CBB_ZDRQ: TCheckBox;
    RG_ZT: TRadioGroup;
    Act_Hide: TAction;
    Query1: TQuery;
    Panel6: TPanel;
    DBGrid2: TDBGrid;
    CBo_CKXZ: TCheckBox;
    CB_CKXZ: TComboBox;
    XttxTitle: TRxLabel;
    Qry_JJNFPJHCKJHDH: TStringField;
    Qry_JJNFPJHCKXZ: TStringField;
    Qry_JJNFPJHZBR: TStringField;
    Qry_JJNFPJHPZR: TStringField;
    Qry_JJNFPJHZDRQ: TDateTimeField;
    Qry_JJNFPJHBZ: TStringField;
    Qry_JJNFPJHZT: TStringField;
    Qry_JJNFPJHKFDM: TStringField;
    Qry_JJNFPJHDWDM: TStringField;
    Qry_JJNFPJHPPDM: TStringField;
    Qry_JJNFPJHJJ: TFloatField;
    Qry_JJNFPJHDWMC: TStringField;
    Qry_JJNFPJHKWH: TStringField;
    Qry_JJNFPJHPPMC: TStringField;
    Qry_JJNFPJHYJ: TFloatField;
    Qry_JJNFPJHXJ: TFloatField;
    Qry_JJNFPJHZK: TFloatField;
    Qry_JJNFPJHJSJ: TFloatField;
    Qry_JJNFPJHFPSL: TFloatField;
    Bevel1: TBevel;
    Qry_JJNFPJHJSJE: TFloatField;
    procedure FormCreate(Sender: TObject);
    procedure DBG_JJNFPJHTitleClick(Column: TColumn);
    procedure NDChange(Sender: TObject);
    procedure Act_FindExecute(Sender: TObject);
    procedure Act_HideExecute(Sender: TObject);
    procedure Act_PrintExecute(Sender: TObject);
    procedure Qry_JJNFPJHJJGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure Qry_JJNFPJHJJSetText(Sender: TField; const Text: string);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmY_CKJHDCX: TFrmY_CKJHDCX;

implementation
uses
  pub, SY_CKJHDCX_RPT, SY_CKJHDOne_More_RPT, SY_CKJHDMore_More_RPT, SJ_RICHEDIT;

{$R *.DFM}

procedure TFrmY_CKJHDCX.FormCreate(Sender: TObject);
begin
  DP_FROM.DateTime := GetSysDate;
  DP_TO.DateTime := DP_FROM.DateTime;
  ND.Value := VG_Year;
  Ldwmc.Caption := '使用單位：' + VG_UnitName;
  with Qry_Static do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select CKJHDH,ZBR,PZR from TYS_YPCKJHDB ');
    SQL.Add('where TO_CHAR(ZDRQ,''YYYY'') =''' + ND.Text + ''' ');
    SQL.Add('order by CKJHDH DESC ');
    Open;
    while not Eof do
    begin

      if CB_JHH.Items.IndexOf(Fields[0].AsString) = -1 then
        CB_JHH.Items.Add(Fields[0].AsString);

      if length(Fields[1].AsString) > 0 then
        if CB_ZBR.Items.IndexOf(Fields[1].AsString) = -1 then
          CB_ZBR.Items.Add(Fields[1].AsString);

      if length(Fields[2].AsString) > 0 then
        if CB_PZR.Items.IndexOf(Fields[2].AsString) = -1 then
          CB_PZR.Items.Add(Fields[2].AsString);
      Next;
    end;
    Close;
    SQL.Clear;
    SQL.Add('select Distinct PPMC from TYS_YPCKJHDPPB');
    Open;
    while not Eof do
    begin
      if CB_PPMC.Items.IndexOf(Fields[0].AsString) = -1 then
        CB_PPMC.Items.Add(Fields[0].AsString);
      Next;
    end;
    Close;
    SQL.Clear;
    SQL.Add('select Distinct b.DWJC, PXM from TYS_YPCKJHDPPB a, TGS_GXDWSJB b where a.DWDM=b.DWDM order by PXM');
    Open;
    while not Eof do
    begin
      if CB_DWMC.Items.IndexOf(Fields[0].AsString) = -1 then
        CB_DWMC.Items.Add(Fields[0].AsString);
      Next;
    end;
    Close;
    SQL.Clear;
    SQL.Add('select RCKXZMC from TGS_JRCKXZDM where RCKXZDM like ''1%''');
    Open;
    while not Eof do
    begin
      if CB_CKXZ.Items.IndexOf(Fields[0].AsString) = -1 then
        CB_CKXZ.Items.Add(Fields[0].AsString);
      Next;
    end;
  end;
  GetAllColWidth(self);
end;

procedure TFrmY_CKJHDCX.DBG_JJNFPJHTitleClick(Column: TColumn);
begin
  if Qry_JJNFPJH.SQL.Count < 0 then Exit;
  if Qry_JJNFPJH.SQL.Count > 2 then
    with Qry_JJNFPJH do
    begin
      Close;
      if Column.FieldName = 'DWMC' then
        SQL[SQl.Count - 1] := 'order by DWDM'
      else
        SQL[SQl.Count - 1] := 'order by ' + Column.FieldName;
      if RG_PX.ItemIndex = 1 then
        SQL[SQl.Count - 1] := SQL[SQl.Count - 1] + ' DESC';
      Open;
    end;
  if RG_PX.ItemIndex = 1 then
    RG_PX.ItemIndex := 0
  else
    RG_PX.ItemIndex := 1;
end;

procedure TFrmY_CKJHDCX.NDChange(Sender: TObject);
begin
  Act_FindExecute(nil);
end;

procedure TFrmY_CKJHDCX.Act_FindExecute(Sender: TObject);
begin
//------------------------------------------------------------------------------
  VG_SQLWhere := '';
  if CBB_JHH.Checked and (CB_JHH.Text <> '') then //1計劃號
    VG_SQLWhere := ' and A.CKJHDH = ''' + CB_JHH.Text + ''' ';
  if CBB_DWMC.Checked and (CB_DWMC.Text <> '') then //2單位名稱
    VG_SQLWhere := VG_SQLWhere + ' and DWJC = ''' + CB_DWMC.Text + '''';
  if CBB_PPMC.Checked and (CB_PPMC.Text <> '') then //2票品名稱
    VG_SQLWhere := VG_SQLWhere + ' and PPMC = ''' + CB_PPMC.Text + '''';
  if CBB_PZR.Checked and (CB_PZR.Text <> '') then //3批準人
    VG_SQLWhere := VG_SQLWhere + ' and PZR = ''' + CB_PZR.Text + ''' ';
  if CBB_ZBR.Checked and (CB_ZBR.Text <> '') then //4制表人
    VG_SQLWhere := VG_SQLWhere + ' and ZBR = ''' + CB_ZBR.Text + ''' ';
  if CBo_CKXZ.Checked and (CB_CKXZ.Text <> '') then
    VG_SQLWhere := VG_SQLWhere + ' and RCKXZMC = ''' + CB_CKXZ.Text + ''' ';
  case RG_ZT.ItemIndex of //5狀態(tài)
    0: VG_SQLWhere := VG_SQLWhere + ' and ZT =''' + CG_WCL + '''  ';
    1: VG_SQLWhere := VG_SQLWhere + ' and ZT =''' + CG_DG + '''  ';
    2: VG_SQLWhere := VG_SQLWhere + ' and ZT =''' + CG_YCL + '''  ';
  end;
  if CBB_ZDRQ.Checked then //6制單日期
  begin
    VG_SQLWhere := VG_SQLWhere + ' and ZDRQ >=TO_DATE(''' + FormatDateTime('YYYY-DD-MM', DP_FROM.DateTime) + ''',''YYYY-DD-MM'') ';
    VG_SQLWhere := VG_SQLWhere + ' and ZDRQ <=TO_DATE(''' + FormatDateTime('YYYY-DD-MM', DP_TO.DateTime) + ''',''YYYY-DD-MM'') ';
  end;
//------------------------------------------------------------------------------
  with Qry_JJNFPJH do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select A.CKJHDH, C.RCKXZMC CKXZ, A.ZBR, A.PZR,A.ZDRQ, A.BZ , A.ZT, ');
    SQL.Add('B.KFDM, B.DWDM, B.PPDM, B.JJ, D.DWJC DWMC, B.KWH, B.PPMC, B.YJ, B.XJ, B.ZK, B.JSJ, B.FPSL, B.FPSL * (B.XJ * nvl(B.ZK, 0) / 100 + nvl(B.JSJ, 0)) JSJE ');
    SQL.Add('FROM TYS_YPCKJHDB A,TYS_YPCKJHDPPB B, TGS_JRCKXZDM C, TGS_GXDWSJB D ');
    SQL.Add('where A.CKJHDH = B.CKJHDH and A.CKXZ = C.RCKXZDM and b.DWDM=D.DWDM ');
    SQL.Add('and TO_CHAR(ZDRQ,''YYYY'') =''' + IntToStr(ND.Value) + ''' ');
    SQL.Add(VG_SQLWhere);
    SQL.Add('order by CKJHDH, PXM');
    Open;
  end;
end;

procedure TFrmY_CKJHDCX.Act_HideExecute(Sender: TObject);
begin
  Panel4.Visible := not Panel4.Visible;
  if panel4.Visible then
  begin
    BBt_Hide.Caption := '隱藏(&H)';
    BBt_Hide.Hint := '隱藏所有的查詢條件。';
  end
  else
  begin
    BBt_Hide.Caption := '顯示(&X)';
    BBt_Hide.Hint := '顯示所有的查詢條件。'
  end;

end;

procedure TFrmY_CKJHDCX.Act_PrintExecute(Sender: TObject);
var
  StrSQL: string;
  Qry_SumDw: TQuery;
  Count_DW, Count_PP: Integer;
begin
  if CB_JHH.Text = '' then
  begin
    CHQMsgBox('請選擇分配單號！');
    Exit;
  end;
  if Qry_JJNFPJH.IsEmpty then Exit;
  Qry_SumDw := TQuery.Create(nil);
  try
    with Qry_SumDw do
    begin
      Close;
      DatabaseName := 'yzpp';
      SQL.Clear;
      SQl.Add('select sum(fpsl),dwmc from tys_ypckjhdppb where CKJHDH =''' + CB_JHH.Text + ''' group by dwmc');
      Open;
    end;
    Count_DW := Qry_SumDw.RecordCount;
    with Qry_SumDw do
    begin
      Close;
      DatabaseName := 'yzpp';
      SQL.Clear;
      SQl.Add('select sum(fpsl),ppdm from tys_ypckjhdppb where CKJHDH =''' + CB_JHH.Text + ''' group by ppdm');
      Open;
    end;
    Count_PP := Qry_SumDw.RecordCount;
  finally
    Qry_SumDw.Free;
    Qry_SumDw := nil;
  end;
  if (Count_DW >= 1) and (Count_PP = 1) then //單品種多去向
  begin
    Frm_One_More_RPT := TFrm_One_More_RPT.Create(nil);
    with Frm_One_More_RPT do
    try
      Qry_Print.Close;
      StrSQL := 'select ROWNUM, A.CKJHDH, A.CKXZ, A.ZBR, A.PZR, A.ZDRQ, A.BZ, B.DWMC, B.PPMC, B.XJ/100 XJ,B.JJ/100 JJ, B.ZK, B.JSJ/100 JSJ, ';
      StrSQL := StrSQL + ' B.FPSL, decode(JSJ,0,B.ZK*B.XJ*B.FPSL/10000, B.JSJ*B.FPSL/100) JE,C.ZH FROM TYS_YPCKJHDB A,TYS_YPCKJHDPPB B,TB_YZPPXXB C where A.CKJHDH = B.CKJHDH AND B.PPDM=C.TDM and A.CKJHDH =' + '''' + CB_JHH.Text + '''';
      Qry_Print.SQL.Text := StrSQL;
      Qry_Print.Open;

      QRLabel2.Caption := '集郵品';
      QRLabel4.Caption := Qry_Print.fieldByName('ckjhdh').AsString;
      QRlabel14.Caption := FormatDateTime('YYYY"年"MM"月"DD"日"', StrToDate(Qry_Print.FieldByName('zdrq').AsString));
      QRLabel6.Caption := Qry_Print.fieldbyname('zh').AsString;
      QRLabel8.Caption := Qry_Print.FieldByName('ppmc').AsString;
      QRLabel12.Caption := FormatFloat('#,##0.00', QRy_Print.FieldByName('xj').AsFloat);
      QRLabel10.Caption := FormatFloat('#,##0.00', Qry_Print.fieldbyName('jj').AsFloat);

      Prepare;
      QRLabel24.Caption := IntToStr(QRPrinter.PageCount);
      if CHQMsgBox('是否采用套打？', 2) = IDYES then
        Tao_Print_Flag := True
      else
        Tao_Print_Flag := False;

      DetailLines := 0;
      Qry_Print.First;
      Preview;
      Destroy;
    except
      Free;
    end;
  end;
  if (Count_Dw >= 1) and (Count_PP > 1) then
  begin //多品種多去向
    Frm_RichEdit := TFrm_RichEdit.Create(nil);
    Frm_More_More_RPT := TFrm_More_More_RPT.Create(nil);
    with Frm_More_More_RPT, Frm_RichEdit do
    try
      Qry_Print.Close;
      StrSQL := 'select ROWNUM, A.CKJHDH, A.CKXZ, A.ZBR, A.PZR, A.ZDRQ, A.BZ, B.DWMC, B.PPMC, B.XJ/100 XJ,B.JJ/100 JJ, B.ZK, Decode(B.JSJ,0,b.zk,B.JSJ/100) JSJ, ';
      StrSQL := StrSQL + ' B.FPSL, decode(JSJ,0,B.ZK*B.XJ*B.FPSL/10000, B.JSJ*B.FPSL/100) JE,C.ZH FROM TYS_YpCKJHDB A,TYS_YpCKJHDPPB B,TB_YZPPXXB C where A.CKJHDH = B.CKJHDH AND B.PPDM=C.TDM and A.CKJHDH =' + '''' + CB_JHH.Text + ''' order by dwmc';
      Qry_Print.SQL.Text := StrSQL;
      Qry_Print.Open;
      QRLabel1.Caption := '集郵品';
      QRLabel4.Caption := Qry_Print.fieldByName('ckjhdh').AsString;
      QRlabel5.Caption := FormatDateTime('YYYY"年"MM"月"DD"日"', StrToDate(Qry_Print.FieldByName('zdrq').AsString));
    {QRLabel6.Caption :=Qry_Print.fieldbyname('zh').AsString;
    QRLabel8.Caption :=Qry_Print.FieldByName('ppmc').AsString;
    QRLabel12.Caption :=FormatFloat('#,##0.00',QRy_Print.FieldByName('xj').AsFloat);
    QRLabel10.Caption :=FormatFloat('#,##0.00',Qry_Print.fieldbyName('jj').AsFloat);}

      Prepare;
      QRLabel21.Caption := IntToStr(QRPrinter.PageCount);
      if CHQMsgBox('是否采用套打？', 2) = IDYES then
        Tao_Print_Flag := True
      else
        Tao_Print_Flag := False;

      DetailLines := 0;
      Qry_Print.First;
      Preview;
    finally
      Frm_More_More_RPT.Free;
      Frm_RichEdit.Free;
      Frm_More_More_RPT := nil;
      Frm_RichEdit := nil;

    end;
  end;

end;

procedure TFrmY_CKJHDCX.Qry_JJNFPJHJJGetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
begin
{修改，銷價進價結(jié)算價結(jié)算金額顯示小數(shù)點后3位 原來調(diào)用的CurrGetText替換為CurrGetText3 jhshao 2003.05.08}
  CurrGetText3(Sender, Text, DisplayText);
end;

procedure TFrmY_CKJHDCX.Qry_JJNFPJHJJSetText(Sender: TField;
  const Text: string);
begin
  CurrSetText(Sender, Text);
end;

procedure TFrmY_CKJHDCX.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  SaveAllColWidth(self);
end;

end.
?? 文件大小 4913 K
?? 上傳用戶 ljw128
?? 所屬分類企業(yè)管理
??? 相關(guān)標簽

#ERP
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? sy_ckjhdcx.pas

?? 快捷鍵說明
