{*******************************************************}
{                                                       }
{                     集郵品發貨審核                    }
{                                                       }
{            中軟金馬公司版權所有。2002.12前            }
{                                                       }
{               編制：中軟金馬項目開發組                }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模塊在省級庫房管理模塊  集郵品部分的發貨審核菜單調用。
*)
{
[與零枚票對照]
  表對照
    A 零枚票發貨單         -> 集郵品品發貨單
    B 零枚出庫票品         -> 集郵出庫票品
    C 袋數重量表           -> 集郵袋數重量表
    D 包號版號表（出庫單)  -> 集郵包號版號(出庫單)
  字段對照
    B
     圖代碼 -> 票品代碼
     售價   -> 銷價
     面值   -
     原價   +
     進價   +
    D
     進價   +

有關表：
  集郵品品發貨單、集郵出庫票品、集郵袋數重量表、集郵包號版號(出庫單)
數據來源：
  出庫單計劃號：集郵品品發貨單依據單號的GROUP BY
  發貨單號：  集郵品品發貨單的發貨單號
  發貨單主信息：集郵品品發貨單
  發貨單詳細信息：集郵出庫票品
  包袋：集郵袋數重量表
  包號版本號：集郵包號版號(出庫單)
功能:
算法：
  1.輸入的庫房號必須在庫房表中存在
  2.對起始版號、終止版本號數據修改時要較驗，即不能重復
  3.當修改完成保存數據時，需要作如下操作：
    A. 裝票日期、封裝袋數、出庫日期、庫管員、備注保存到集郵品品發貨單中
       修改集郵品品發貨單的在途狀態為'1'
    B. 記錄庫存數據
      零枚票品庫存
        票品代碼：集郵出庫票品.票品代碼
        庫房代碼：集郵出庫票品.庫房號
        原價:集郵出庫票品.原價
        進價:集郵出庫票品.進價
        銷價：集郵出庫票品.銷價
        庫位號：集郵出庫票品.庫位號
        票品類別：通過票品代碼判斷(?)
        IF 出庫性質 = '待銷毀出庫' THEN
          待銷毀庫存 = 待銷毀庫存 - 集郵出庫票品.數量
        ELSE IF 出庫性質 = '預付出庫' THEN
          預付庫存 = 預付庫存 - 集郵出庫票品.數量
        ELSE 庫存總枚數 = 庫存總枚數 + 集郵出庫票品.數量
        變更標志：NULL(?)
        備注：NULL
      包號版號表（庫存）
        起始版號：包號版號表（出庫單）.起始版本號
        終止版號: 包號版號表（出庫單）.終止版本號
    C. 記帳
        集郵品總帳表
        集郵品總分戶帳表  (集郵品總分戶帳明細表)
        集郵品明細分類帳
        集郵品進發存明細帳表
        集郵品明細分類帳(庫管員)
        集郵品品庫存(庫管)
        集郵品品庫存(業務部)
更新有關表：
  集郵品品發貨單、集郵出庫票品、集郵袋數重量表、集郵包號版號(出庫單)
備注：
  對操作員要較驗權限，不能瀏覽其它庫房的入庫單
}
unit SJ_YPFHDCK;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  FORMBASE, ExtCtrls, ModiPanel, StdCtrls, Mask, DBCtrls, Grids, DBGrids,
  CurrEdit, RXDBCtrl, ToolEdit, ComCtrls, Buttons, DBTables, Db,
  RxQuery, sqlstrings, RXCtrls;

type
  Tfrm_YPFHDCK = class(TFFormBase)
    ModiPanel1: TModiPanel;
    Panel1: TPanel;
    DBGrid2: TDBGrid;
    Panel2: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label9: TLabel;
    DBEdit8: TDBEdit;
    DBDateEdit1: TDBDateEdit;
    Label10: TLabel;
    Label11: TLabel;
    DBDateEdit2: TDBDateEdit;
    Label12: TLabel;
    RxDBCalcEdit1: TRxDBCalcEdit;
    UpdateSQL1: TUpdateSQL;
    DataSource2: TDataSource;
    qryFHDPP: TQuery;
    DataSource3: TDataSource;
    DBGrid3: TDBGrid;
    qryFHD: TRxQuery;
    BitBtn5: TBitBtn;
    StoredProc1: TStoredProc;
    UpdateSQL2: TUpdateSQL;
    Panel3: TPanel;
    XttxTitle: TRxLabel;
    DWMC: TLabel;
    Label8: TLabel;
    BitBtn7: TBitBtn;
    DateEdit1: TDateEdit;
    BitBtn6: TBitBtn;
    qryFHDPPFHDH: TStringField;
    qryFHDPPPPDM: TStringField;
    qryFHDPPJJ: TFloatField;
    qryFHDPPKFDM: TStringField;
    qryFHDPPKWH: TStringField;
    qryFHDPPSL: TFloatField;
    qryFHDPPYJ: TFloatField;
    qryFHDPPXJ: TFloatField;
    qryFHDPPZH: TStringField;
    qryFHDPPMC: TStringField;
    qryFHDPPKFMC: TStringField;
    qryFHDPPPPDW: TStringField;
    BBt_Send: TBitBtn;
    procedure ModiPanel1BtnClick(Index: TBtnVisible);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure qryBHBHAfterInsert(DataSet: TDataSet);
    procedure BitBtn5Click(Sender: TObject);
    procedure qryFHDUpdateError(DataSet: TDataSet; E: EDatabaseError;
      UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
    procedure qryFHDPPUpdateError(DataSet: TDataSet; E: EDatabaseError;
      UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
    procedure DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure qryFHDPPJJGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure qryFHDPPJJSetText(Sender: TField; const Text: string);
    procedure qryFHDAfterScroll(DataSet: TDataSet);
    procedure BBt_SendClick(Sender: TObject);
  private
    { Private declarations }
    FDtState: TDataState;
    function Save: Boolean;
    procedure SetState(Value: TdataState);
    procedure InitData;
    function check(id: string): boolean;
  public
    { Public declarations }
  end;

function Show_YPFHDCK: Boolean;
var
  frm_YPFHDCK: Tfrm_YPFHDCK;

implementation

uses datas, Pub, SJ_FHDFS;
{$R *.DFM}

function Show_YPFHDCK: Boolean;
begin
  Result := false;
  Application.CreateForm(Tfrm_YPFHDCK, frm_YPFHDCK); {TFFormBase1, FFormBase1}
  with frm_YPFHDCK do {FFormBase1}
  try
    if CheckRight(frm_YPFHDCK, [ModiPanel1, BitBtn5, BitBtn6]) then
      result := ShowModal = MB_OK;
  finally
    Free;
  end;
end;

procedure Tfrm_YPFHDCK.SetState(Value: TdataState);
  procedure SetControls(Value: Boolean);
  begin
    Panel1.Enabled := Value;
    DBEdit7.ReadOnly := Value;
    DBDateEdit1.ReadOnly := Value;
    DBDateEdit2.ReadOnly := Value;
    RxDBCalcEdit1.ReadOnly := Value;
    DBGrid3.ReadOnly := Value;
    BitBtn5.Enabled := Value and not (qryFHD.IsEmpty or qryFHDPP.isempty);
    ;
    BitBtn6.Enabled := Value and not (qryFHD.IsEmpty or qryFHDPP.isempty);
    ;
  end;
begin
  if not qryFHD.Active then
  begin
    FDtState := dtBrowse;
    ModiPanel1.ChangeMode(FDtState = dtBrowse);
    SetControls(FDtState = dtBrowse);
    exit;
  end;

  if (Value in [dtEdit, dtInsert]) and
    isChecked(io_yp, True, qryFHD.FieldbyName('fhdh').Asstring) then
  begin
    CHQMsgBox('該入庫單已經復核，不能修改！');
    exit;
  end;

  FDtState := Value;
  ModiPanel1.ChangeMode(FDtState = dtBrowse);
  SetControls(FDtState = dtBrowse);
  with qryFHD do
    case FDtstate of
      dtBrowse:
        begin
//          qryFHDPP.Datasource := DataSource2;
        end;
      dtinsert:
        begin
          Append; {append}
//          qryFHDPP.Datasource := nil;
        end;
      dtedit:
        begin
//          qryFHDPP.Datasource := nil;
          Edit;
          if FieldByName('CKRQ').AsString = '' then
            FieldByName('CKRQ').AsDateTime := GetsysDate;
          if FieldByName('ZPRQ').AsString = '' then
            FieldByName('ZPRQ').AsDateTime := GetsysDate;
        end;
    end;
end;

function Tfrm_YPFHDCK.Save: Boolean;
begin
  result := True;
  with qryFHD do {query}
  begin
    Database.StartTransaction;
    try
      qryFHD.ApplyUpdates;
      qryFHDPP.ApplyUpdates;
      Database.Commit;
    except
      if Database.InTransaction then Database.RollBack;
      if errMsg = '' then
        raise
      else
        raise exception.Create(errMsg);
    end;
  end;
  qryFHD.CommitUpdates;
  qryFHDPP.CommitUpdates;

  SetState(dtBrowse);
end;

procedure Tfrm_YPFHDCK.ModiPanel1BtnClick(Index: TBtnVisible);
begin
  inherited;
  case index of
    bnAdd: SetState(dtInsert);
    bnDelete:
      if CHQMsgBox(MSG_DELETE, 2) = IDYES then
        with qryFHD do {query}
        begin
          Database.StartTransaction;
          try