{*******************************************************}
{                                                       }
{                   批量出庫計(jì)劃單制定                  }
{                                                       }
{            中軟金馬公司版權(quán)所有。2002.12前            }
{                                                       }
{            編制：中軟金馬郵資票品項(xiàng)目開發(fā)組           }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模塊在省級集郵品系統(tǒng)管理模塊里面的單品種多去向和單去向多品種調(diào)用。
修改記錄
修改用于銷價進(jìn)價結(jié)算價的顯示小數(shù)點(diǎn)后擴(kuò)到3位 將Qry_Main進(jìn)價銷價結(jié)算價顯示調(diào)用的CurrGetText替換為CurrGetText3 jhshao 2003.05.08

*)
unit SY_CKJHDZD;

interface

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

type
  TFrmY_CKJHDZD = class(TForm)
    Panel1: TPanel;
    Label3: TLabel;
    ND: TSpinEdit;
    Panel3: TPanel;
    BBt_Modify: TBitBtn;
    BBt_Save: TBitBtn;
    BBt_Cancel: TBitBtn;
    BBt_Quit: TBitBtn;
    BBt_AddFPJH: TBitBtn;
    BBt_DeleteFPJH: TBitBtn;
    Panel2: TPanel;
    Panel5: TPanel;
    USQL_Main: TUpdateSQL;
    Qry_Main: TQuery;
    DS_Main: TDataSource;
    Qry_Third: TQuery;
    USQL_Third: TUpdateSQL;
    DS_Third: TDataSource;
    Qry_Static: TQuery;
    Qry_MainCKJHDH: TStringField;
    Qry_MainKFDM: TStringField;
    Qry_MainDWDM: TStringField;
    Qry_MainJJ: TFloatField;
    Qry_MainKWH: TStringField;
    Qry_MainPPMC: TStringField;
    Qry_MainYJ: TFloatField;
    Qry_MainXJ: TFloatField;
    Qry_MainJSJ: TFloatField;
    Qry_MainFPSL: TFloatField;
    Qry_MainSDATE: TDateTimeField;
    Qry_MainDWMC: TStringField;
    Qry_MainZK: TFloatField;
    Panel6: TPanel;
    Qry_KFB: TQuery;
    Qry_KFBKFDM: TStringField;
    Qry_KFBKFMC: TStringField;
    Qry_MainKFMC: TStringField;
    XttxTitle: TRxLabel;
    BBt_Print: TBitBtn;
    BBt_DG: TBitBtn;
    Panel8: TPanel;
    L_CKJHDH: TLabel;
    Label4: TLabel;
    CB_CKJHDH: TComboBox;
    BBt_AddDW: TBitBtn;
    BBt_DeleteDW: TBitBtn;
    DBG_Main: TRxDBGrid;
    Panel4: TPanel;
    Label5: TLabel;
    Label8: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBE_PZR: TDBEdit;
    DBE_ZBR: TDBEdit;
    DBE_ZDRQ: TDBEdit;
    CE_KC: TCurrencyEdit;
    CB_PPMC: TFieldComboBox;
    Label1: TLabel;
    E_CKXZ: TEdit;
    Qry_ThirdCKJHDH: TStringField;
    Qry_ThirdCKXZ: TStringField;
    Qry_ThirdZK: TFloatField;
    Qry_ThirdZBR: TStringField;
    Qry_ThirdPZR: TStringField;
    Qry_ThirdZDRQ: TDateTimeField;
    Qry_ThirdBZ: TStringField;
    Qry_ThirdZT: TStringField;
    Qry_ThirdSDATE: TDateTimeField;
    Qry_MainDW: TStringField;
    Qry_MainPPDM: TStringField;
    PM_Main: TPopupMenu;
    N_SDL: TMenuItem;
    N_JSL: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Act_QuitExecute(Sender: TObject);
    procedure BBt_AddFPJHClick(Sender: TObject);
    procedure CB_CKJHDHChange(Sender: TObject);
    procedure NDChange(Sender: TObject);
    procedure BBt_SaveClick(Sender: TObject);
    procedure BBt_DeleteFPJHClick(Sender: TObject);
    procedure BBt_ModifyClick(Sender: TObject);
    procedure BBt_DGClick(Sender: TObject);
    procedure BBt_CancelClick(Sender: TObject);
    procedure BBt_DeleteDWClick(Sender: TObject);
    procedure BBt_AddDWClick(Sender: TObject);
    procedure Qry_MainXJSetText(Sender: TField; const Text: string);
    procedure Qry_MainZKSetText(Sender: TField; const Text: string);
    procedure Qry_MainFPSLSetText(Sender: TField; const Text: string);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Qry_MainJSJSetText(Sender: TField; const Text: string);
    procedure L_CKJHDHDblClick(Sender: TObject);
    procedure BBt_PrintClick(Sender: TObject);
    procedure Qry_MainJJGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure DBG_MainKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CB_PPMCChange(Sender: TObject);
    procedure Qry_MainBeforeInsert(DataSet: TDataSet);
    procedure Qry_MainJSJChange(Sender: TField);
    procedure CE_KCEnter(Sender: TObject);
    procedure CE_KCDblClick(Sender: TObject);
    procedure N_SDLClick(Sender: TObject);
    procedure N_JSLClick(Sender: TObject);
  private
    V_CKJHDH, V_CKXZ, V_KFDM, V_PPDM, V_PPMC, V_DWDM, V_DWMC, V_KWH: string;
    V_JJ, V_XJ, V_ZK, V_JSJ: Double;
    V_FPSL, V_State: Integer;
    procedure PS_SetStatus(Value: Integer = 0);
    function SumField(Dataset: TDataSet; Field: TField): Double;
    procedure ps_AddRec();
    function GetExistField(FQuery: TQuery; FieldName: string;
      SnapStr: string = ','): string; //取數(shù)據(jù)集中字段的記錄的字符串流
    { Private declarations }

  public
    { Public declarations }
  end;

var
  FrmY_CKJHDZD: TFrmY_CKJHDZD;

implementation

uses
 datas, pub, SY_CKJHDZD_XD, SY_CKJHDZD_XZDW, {SY_CKJHDCX_RPT, }SY_KC, SY_CKJHDOne_More_RPT, SY_CKJHDMore_More_RPT ;

{$R *.DFM}


procedure TFrmY_CKJHDZD.FormCreate(Sender: TObject);
begin
  //判斷權(quán)限（取消簽批）
//  CheckRight(self);
  if not CheckRight_Bool(CG_YPQP) then
  begin
    BBt_DG.Visible := False;
    BBt_Print.Left := (BBt_Cancel.Left + BBt_Cancel.Width)
      + (BBt_Quit.Left - BBt_Cancel.Width - BBt_Cancel.Left) div 2 - BBt_DG.Width div 2;
    L_CKJHDH.OnDblClick := nil;
  end;
  //刷新年度
  ND.Value := VG_Year;
  PS_SetStatus();

  //保存DBGrid的寬度
  GetAllColWidth(self);
end;

procedure TFrmY_CKJHDZD.Act_QuitExecute(Sender: TObject);
begin
  Close;
end;

procedure TFrmY_CKJHDZD.PS_SetStatus(Value: Integer = 0);
{
 0：默認(rèn)初始化
 1：添加
 3：修改
}
begin
  V_State := Value;
  if V_State = 0 then //默認(rèn)
  begin
    BBt_AddDW.Enabled := not True;
    BBt_DeleteDW.Enabled := not True;

    BBt_AddFPJH.Enabled := True;
    BBt_DeleteFPJH.Enabled := True;
    BBt_Modify.Enabled := True;

    BBt_DG.Enabled := True;

    BBt_Save.Enabled := not True;
    BBt_Cancel.Enabled := not True;

    CB_CKJHDH.Enabled := True;
    ND.Enabled := True;
    DBG_Main.ReadOnly := True;

    E_CKXZ.Enabled := True;
    CB_PPMC.Enabled := True;

  end
  else if (V_State = 1) or (V_State = 3) then //增加 //修改
  begin
    BBt_AddDW.Enabled := True;
    BBt_DeleteDW.Enabled := True;

    BBt_AddFPJH.Enabled := not True;
    BBt_DeleteFPJH.Enabled := not True;
    BBt_Modify.Enabled := not True;

    BBt_DG.Enabled := not True;

    BBt_Save.Enabled := True;
    BBt_Cancel.Enabled := True;

    CB_CKJHDH.Enabled := not True;
    ND.Enabled := not True;
    DBG_Main.ReadOnly := not True;

    E_CKXZ.Enabled := not True;
    CB_PPMC.Enabled := not True;
  end;
  BBt_Print.Enabled := BBt_AddFPJH.Enabled;
end;

procedure TFrmY_CKJHDZD.BBt_AddFPJHClick(Sender: TObject);
begin
  //取得要分配單票品
  FrmY_CKJHDZD_XD := TFrmY_CKJHDZD_XD.Create(nil);
  with FrmY_CKJHDZD_XD do
  begin
    ShowModal;
    if ModalResult <> MrOK then
    begin
      Free;
      Exit;
    end;

    //取得票品信息
    V_KFDM := Qry_YZPPTXXBKFDM.AsString;
    V_PPDM := Qry_YZPPTXXBPPDM.AsString;
    V_PPMC := Qry_YZPPTXXBPPMC.AsString;
    V_KWH := Qry_YZPPTXXBKWH.AsString;
    V_JJ := Qry_YZPPTXXBJJ.AsFloat;
    V_XJ := Qry_YZPPTXXBXJ.AsFloat;
    V_ZK := Qry_YZPPTXXBZK.AsFloat;
    V_JSJ := Qry_YZPPTXXBJSJ.AsFloat;
    V_CKXZ := '10';
    if (V_PPDM = '') or (V_JJ < 0) then
    begin
      Free;
      CHQMsgBox('票品信息不全！');
      Exit;
    end;
    if (V_ZK <= 0) and (V_JSJ <= 0) then
    begin
      Free;
      CHQMsgBox('票品的折扣和結(jié)算價都為0！');
      Exit;
    end;

    //取得臨時處庫計(jì)劃單
    V_CKJHDH := CG_CKJHDH;

    //打開空的主表
    with Qry_Third do
    begin
      Close;
      Prepare;
      Params[0].AsString := V_CKJHDH;
      Open;
    end;

    //插入主表數(shù)據(jù)
    with Qry_Third do
    begin
      Append;
      FieldByName('CKJHDH').AsString := V_CKJHDH;
      FieldByName('CKXZ').AsString := V_CKXZ;
      FieldByName('ZT').Asstring := CG_WCL;
      FieldByName('ZBR').Asstring := VG_UserName;
      FieldByName('ZDRQ').AsString := FormatDateTime('yyyy-mm-dd', GetSysDate);
      FieldByName('BZ').AsString := '';
    end;

    //打開空的從表
    with Qry_Main do
    begin
      Close;
      Prepare;
      Params[0].AsString := V_CKJHDH;
      Open;
    end;
    try
      with Qry_JJNFPJH do
      begin
        First;
        Qry_Main.DisableControls;
        while not Eof do
        begin
          //取得臨時數(shù)據(jù)
          V_DWDM := Qry_JJNFPJHDWDM.AsString;
          V_DWMC := Qry_JJNFPJHDWMC.AsString;
          V_FPSL := Qry_JJNFPJHDATA.AsInteger;

          //添加票品表
          ps_AddRec();
          Next;
        end;
        Qry_Main.EnableControls;
      end;
    except
      Free;
    end;
  end;

  //刷新票品名稱
  CB_PPMC.Text := V_PPMC;
  CB_CKJHDH.Text := '';
  L_CKJHDH.Font.Color := ClBlack;

  //刷新出庫性質(zhì)名稱
  E_CKXZ.Text := PY_XZDMTOMC(V_CKXZ);

  //刷新庫存
  CE_KC.Value := PS_GetSYTS(V_KFDM, V_PPDM, V_JJ) - sumField(Qry_Main, Qry_Main.FieldByName('FPSL'));
  if CE_KC.Value < 0 then
    CE_KC.Font.Color := ClRed
  else
    CE_KC.Font.Color := ClBlue;

  DBG_Main.SetFocus;
  PS_SetStatus(1);
end;

procedure TFrmY_CKJHDZD.ps_AddRec();
begin
  with Qry_Main do
  begin
    Qry_Main.BeforeInsert := nil;
    Append;
    //出庫計(jì)劃單號
    FieldByName('CKJHDH').AsString := V_CKJHDH;
    //庫房代碼
    FieldByName('KFDM').AsString := V_KFDM;
    //單位代碼
    FieldByName('DWDM').AsString := V_DWDM;
    //票品代碼
    FieldByName('PPDM').AsString := V_PPDM;
    //進(jìn)價分
    FieldByName('JJ').AsFloat := V_JJ;
    //銷售分
    FieldByName('XJ').AsFloat := V_XJ;
    //庫位號
    FieldByName('KWH').AsString := V_KWH;
    //票品名稱
    FieldByName('PPMC').Asstring := V_PPMC;
    //單位名稱
    FieldByName('DWMC').Asstring := V_DWMC;
    //折扣
    FieldByName('ZK').AsFloat := V_ZK;
    //結(jié)算價
    FieldByName('JSJ').AsFloat := V_JSJ;
    //分配數(shù)量
    FieldByName('FPSL').AsInteger := V_FPSL;
    Post;
    Qry_Main.BeforeInsert := Qry_MainBeforeInsert;
  end;
end;
procedure TFrmY_CKJHDZD.NDChange(Sender: TObject);
begin
  //刷新票品名稱
  CB_PPMC.Text := '';
  CB_PPMC.ClearAll;
  CB_PPMC.OnChange := nil;
  with Qry_Static do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select distinct B.PPMC,B.PPDM from TYS_YPCKJHDB A,TYS_YPCKJHDPPB B, TGS_KFRYDZB C');
    SQL.Add('where A.CKJHDH=B.CKJHDH and B.KFDM=C.KFDM and  A.CKJHDH LIKE ''PN%''');
    SQL.Add('and TO_CHAR(A.ZDRQ,''YYYY'') = ''' + ND.Text + '''  ');