Delete; {query1}
            Database.Commit;
          except
            if Database.InTransaction then Database.RollBack;
            if errMsg = '' then
              raise
            else
              raise exception.Create(errMsg);
          end;
        end;
    bnEdit:
      begin
        if qryFHDPP.IsEmpty then
          exit;
        SetState(dtEdit);
      end;
    bnSave:
      Save;
    bnCancel:
      if CHQMsgBox('取消編輯, 確定嗎?', 2) = IDYES then
      begin
        qryFHD.CancelUpdates;
        qryFHDPP.CancelUpdates;
        SetState(dtBrowse);
      end;
    bnPrint: {print}
      ;
    bnClose: Close;
  end;
end;

procedure Tfrm_YPFHDCK.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
  if (FDtstate in [dtInsert, dtEdit]) then
    case CHQMsgBox(MSG_EXITSAVE, 3) of
      IDYES:
        if not Save then Action := caNone;
      IDCANCEL: Action := caNone;
    end;
end;

procedure Tfrm_YPFHDCK.FormCreate(Sender: TObject);
const
  CKJHH_SQL = 'Select YJDH From TKS_YPFHD Group by yjdh ORDER BY YJDH';
begin
  inherited;
  DWMC.Caption := '使用單位：' + VG_UNITNAME;
  InitData;
  qryFHDPP.open;
  SetState(dtBrowse);
end;

procedure Tfrm_YPFHDCK.InitData;
begin
  qryFHD.Close;
  qryFHD.MacroByName('CON').AsString := ' HDR is null ';
  qryFHD.MacroByName('YGDM').AsString := '''' + VG_UserID + '''';
  qryFHD.Open;
end;

procedure Tfrm_YPFHDCK.qryBHBHAfterInsert(DataSet: TDataSet);
begin
  inherited;
end;

{
1 集郵品總帳表
2 *集郵品總分戶帳表
3/*集郵品明細分類帳*/
4/*集郵品進發存明細帳表*/
5/*集郵品明細分類帳(庫管員)*/
}
procedure Tfrm_YPFHDCK.BitBtn5Click(Sender: TObject);
var
  v_s_yjr: string;
begin
  if qryFHD.IsEmpty then
    exit;
  if DBDateEdit1.Date = 0 then
  begin
    CHQMsgBox('請先確定出庫日期！');
    exit;
  end;
  if not CheckINYJRQ(io_yp, qryFHD.FieldByName('FHDH').AsString, v_s_yjr) then
  begin
    CHQMsgBox('該入庫單不在月結范圍（' + format('%s年%s月', [copy(v_s_yjr, 1, 4), copy(v_s_yjr, 5, 2)]) + '）內，不能復核！');
    exit;
  end;
  if check(qryFHD.FieldByName('FHDH').Asstring) then
    CHQMsgBox('復核記帳成功!');
  qryFHDAfterScroll(nil);
end;

function Tfrm_YPFHDCK.Check(id: string): boolean;
begin
  Result := false;
  data.dm.StartTransaction;
  try
    with StoredProc1 do
    begin
      ParamByName('PC_FHDH').Asstring := id;
      ParamByName('PC_USERID').Asstring := VG_USERName;
      ExecProc;
      result := Params[0].asInteger = 0;
      if Params[0].asInteger = 0 then
      begin
        qryFHD.Edit;
        qryFHD.FieldByName('HDR').Asstring := VG_USERNAME;
        qryFHD.FieldByName('ZTZT').Asstring := '1';
        qryFHD.ApplyUpdates;
      end;
    end;
    data.dm.commit;
  except
    if data.dm.inTransaction then data.dm.rollback;
    raise;
  end;
  qryFHD.CommitUpdates;

  case StoredProc1.Params[0].asInteger of
    0: ;
    1: CHQMsgBox('復核記帳失敗! 沒有初始化或結轉 [集郵品總帳表] 數據.');
    2: CHQMsgBox('復核記帳失敗! 沒有初始化或結轉 [集郵品總分戶帳表] 數據.');
    3: CHQMsgBox('復核記帳失敗! 沒有初始化或結轉 [集郵品明細分類帳] 數據.');
    4: CHQMsgBox('復核記帳失敗! 沒有初始化或結轉 [集郵品進發存明細帳表] 數據.');
    5: CHQMsgBox('復核記帳失敗! 沒有初始化或結轉 [集郵品明細分類帳(庫管員)] 數據.');
    10: CHQMsgBox('復核記帳失敗! 沒有初始化或結轉 [集郵品待銷存總帳表] 數據.');
    11: CHQMsgBox('復核記帳失敗! 沒有初始化或結轉 [集郵品待銷存明細分類帳] 數據.');
    12: CHQMsgBox('復核記帳失敗! 沒有初始化或結轉 [集郵品待銷存明細分類帳(庫管員)] 數據] 數據.');
    - 1: CHQMsgBox('找不到相應的發貨單!');
    - 2: CHQMsgBox('錯誤：此發貨單已復核過!');
    - 3: CHQMsgBox('錯誤：此發貨單的出庫性質沒找到或不需記帳!');
  else
    CHQMsgBox('復核記帳失敗! ');
  end;

end;

procedure Tfrm_YPFHDCK.qryFHDUpdateError(DataSet: TDataSet;
  E: EDatabaseError; UpdateKind: TUpdateKind;
  var UpdateAction: TUpdateAction);
begin
  inherited;
  case GetErrCode(DataSet, E, ErrMsg) of
    Err_NoMasterRec: errMsg := errMsg + '&_&' + Format(MST_NOREC, ['', '', '']);
    Err_HasDetailRec: errMsg := errMsg + '&_&' + Format(DTL_EXSTREC, ['']);
    Err_RecDouble: errMsg := errMsg + '&_&' + Format(DBL_REC, ['']);
    Err_NotNull: errMsg := errMsg + '&_&' + Format(NOTNULL, ['']);
  else
    errMsg := errMsg + '&_&' + OTHERERROR;
  end;
end;

procedure Tfrm_YPFHDCK.qryFHDPPUpdateError(DataSet: TDataSet;
  E: EDatabaseError; UpdateKind: TUpdateKind;
  var UpdateAction: TUpdateAction);
begin
  inherited;
  case GetErrCode(DataSet, E, ErrMsg) of
    Err_NoMasterRec: errMsg := errMsg + '&_&' + Format(MST_NOREC, ['', '', '']);
    Err_HasDetailRec: errMsg := errMsg + '&_&' + Format(DTL_EXSTREC, ['']);
    Err_RecDouble: errMsg := errMsg + '&_&' + Format(DBL_REC, ['']);
    Err_NotNull: errMsg := errMsg + '&_&' + Format(NOTNULL, ['']);
  else
    errMsg := errMsg + '&_&' + OTHERERROR;
  end;
end;

procedure Tfrm_YPFHDCK.DBGrid2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  inherited;
  DrawCheckedGrid(not qryFHD.FieldByName('HDR').IsNull, Sender, Rect, DataCol, Column);
end;

procedure Tfrm_YPFHDCK.BitBtn6Click(Sender: TObject);
var
  i: integer;
  v_b_skip: boolean;
  v_s_yjr: string;
begin
  inherited;
  if qryFHD.IsEmpty then
    exit;
  i := 0;
  with qryFHD do
  begin
    DisableControls;
    First;
    while not Eof do
    begin
      v_b_skip := false;
      if qryFHD.FieldByName('HDR').IsNull and (not qryFHD.FieldByName('CKRQ').IsNull) then
      begin
        if not CheckINYJRQ(io_yp, qryFHD.FieldByName('FHDH').AsString, v_s_yjr) then
        begin
          v_b_skip := true;
//          CHQMsgBox('該入庫單不在月結范圍（' + format('%s年%s月', [copy(v_s_yjr, 1, 4), copy(v_s_yjr, 5, 2)]) + '）內，不能復核！');
        end;
        if not v_b_skip then
          if Check(FieldByName('FHDH').Asstring) then
            i := i + 1;
      end;
      Next;
    end;
    EnableControls;
    if i > 0 then
      CHQMsgBox('共完成' + inttostr(i) + '筆發貨復核!');
  end;
  qryFHDAfterScroll(nil);
end;

procedure Tfrm_YPFHDCK.BitBtn7Click(Sender: TObject);
begin
  inherited;
  qryFHD.Close;
  qryFHD.MacroByName('CON').AsString := ' TO_CHAR(KDRQ, ''YYYYMMDD'') >= ''' + FormatDateTime('YYYYMMDD', DateEdit1.Date) + '''';
  qryFHD.MacroByName('YGDM').AsString := '''' + VG_UserID + '''';
  qryFHD.Open;
end;

procedure Tfrm_YPFHDCK.qryFHDPPJJGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  inherited;
  nDisplay.GetText(Sender, Text, DisplayText);
end;

procedure Tfrm_YPFHDCK.qryFHDPPJJSetText(Sender: TField;
  const Text: string);
begin
  inherited;
  nDisplay.SetText(Sender, Text);
end;

procedure Tfrm_YPFHDCK.qryFHDAfterScroll(DataSet: TDataSet);
begin
  inherited;
  Modipanel1.FButtons[bnEdit].Enabled := qryFHD.FieldByName('HDR').IsNull;
  BitBtn5.Enabled := qryFHD.FieldByName('HDR').IsNull;
  BBt_send.Enabled := not BitBtn5.Enabled;

end;

procedure Tfrm_YPFHDCK.BBt_SendClick(Sender: TObject);
var
  vs_fhdh: string;
begin
  vs_fhdh := SelFHD(io_yp, DBEdit6.Text);
  if vs_fhdh <> '' then
  begin
    data.dm.StartTransaction;
    try
      with data.qrytmp do
      begin
        Close;
        SQL.Clear;
        SQL.Add('update TKS_YPFHD set SDATE=sysdate where FHDH in (' + vs_fhdh + ')');
        ExecSQL;
        Close;
        SQL.Clear;
        SQL.Add('insert into TKS_YPFHD_CACO(FHDH, YJDH, CKXZ, FHDW, QXDW, KDRQ, ZTZT, GHRQ, JSZT, ZPRQ, FZDS, CKRQ, DJRQ, ZGR, KGY, HDR, ZBR, BZ, SDATE, COMM_DEPT) ');
        SQL.Add('select FHDH, YJDH, CKXZ, FHDW, QXDW, KDRQ, ZTZT, GHRQ, JSZT, ZPRQ, FZDS, CKRQ, DJRQ, ZGR, KGY, HDR, ZBR, BZ, SDATE, QXDW from TKS_YPFHD where FHDH in (' + vs_fhdh + ')');
        ExecSQL;
        Close;
        SQL.Clear;
        SQL.Add('insert into TKS_YPCKPP_CACO(FHDH, PPDM, JJ, KFDM, KWH, DW, SL, YJ, XJ, JSJ, ZK, COMM_DEPT) ');
        SQL.Add('select a.FHDH, a.PPDM, a.JJ, a.KFDM, a.KWH, a.DW, a.SL, a.YJ, a.XJ, a.JSJ, a.ZK, b.QXDW from TKS_YPCKPP a, TKS_YPFHD b where a.FHDH=b.FHDH and a.FHDH in (' + vs_fhdh + ')');
        ExecSQL;
      end;
      data.dm.Commit;
    except
      data.dm.Rollback;
    end;
  end;   
end;

end.