{*******************************************************}
{                                                       }
{                   批量出庫計劃單制定                  }
{                                                       }
{            中軟金馬公司版權所有。2002.12前            }
{                                                       }
{            編制：中軟金馬郵資票品項目開發組           }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模塊在省級集郵品系統管理模塊里面的單品種多去向和單去向多品種調用。
修改記錄
修改用于銷價進價結算價的顯示小數點后擴到3位 將Qry_Main進價銷價結算價顯示調用的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; //取數據集中字段的記錄的字符串流
    { 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
  //判斷權限（取消簽批）
//  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：默認初始化
 1：添加
 3：修改
}
begin
  V_State := Value;
  if V_State = 0 then //默認
  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('票品的折扣和結算價都為0！');
      Exit;
    end;

    //取得臨時處庫計劃單
    V_CKJHDH := CG_CKJHDH;

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

    //插入主表數據
    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
          //取得臨時數據
          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;

  //刷新出庫性質名稱
  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;
    //出庫計劃單號
    FieldByName('CKJHDH').AsString := V_CKJHDH;
    //庫房代碼
    FieldByName('KFDM').AsString := V_KFDM;
    //單位代碼
    FieldByName('DWDM').AsString := V_DWDM;
    //票品代碼
    FieldByName('PPDM').AsString := V_PPDM;
    //進價分
    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;
    //結算價
    FieldByName('JSJ').AsFloat := V_JSJ;
    //分配數量
    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 + '''  ');