?? yp_rkfh.pas
字號:
qryRKD.CommitUpdates;
qryRKDPP.CommitUpdates;
SetState(dtBrowse);
end;
procedure TFrm_YP_RKFH.ModiPanel1BtnClick(Index: TBtnVisible);
begin
inherited;
case index of
bnAdd: SetState(dtInsert);
bnDelete:
if CHQMsgBox(MSG_DELETE, 2) = IDYES then
with qryRKD do {query}
begin
Database.StartTransaction;
try
Delete; {query1}
Database.Commit;
if Database.InTransaction then
Database.RollBack;
if errMsg = '' then
raise
else
raise exception.Create(errMsg);
end;
end;
bnEdit:
begin
if qryRKDPP.IsEmpty then
begin
CHQMsgBox('無效的入庫單！');
exit;
end;
SetState(dtEdit);
end;
bnSave:
Save;
bnCancel:
if CHQMsgBox('取消編輯, 確定嗎?', 2) = IDYES then
begin
qryRKD.CancelUpdates;
qryRKDPP.CancelUpdates;
SetState(dtBrowse);
end;
bnPrint: {print}
;
bnClose:
Close;
end;
end;
procedure TFrm_YP_RKFH.FormClose(Sender: TObject; var Action: TCloseAction);
begin
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;
SaveAllColWidth(Self);
end;
procedure TFrm_YP_RKFH.FormCreate(Sender: TObject);
const
CKJHH_SQL = 'SELECT YJDH FROM TKS_YPRKD GROUP BY YJDH ORDER BY YJDH';
begin
inherited;
DWMC.Caption := '使用單位：' + VG_UNITNAME;
qryRKDPP.open;
SetState(dtBrowse);
GetAllColWidth(Self);
end;
procedure TFrm_YP_RKFH.InitData;
begin
qryRKD.Close;
qryRKD.MacroByName('CON').AsString := 'JZY is null';
qryRKD.MacroByName('YGDM').AsString := '''' + VG_USERID + '''';
qryRKD.Open;
end;
procedure TFrm_YP_RKFH.BitBtn5Click(Sender: TObject);
var
v_s_yjr: string;
begin
if qryRKD.IsEmpty then
exit;
if qryRKD.FieldByName('RKRQ').AsDateTime = 0 then
begin
CHQMsgBox('請先確定入庫日期！');
exit;
end;
if not CheckINYJRQ(io_yp, qryRKD.FieldByName('RKDH').AsString, v_s_yjr) then
begin
CHQMsgBox('該入庫單不在月結(jié)范圍（' + format('%s年%s月', [copy(v_s_yjr, 1, 4), copy(v_s_yjr, 5, 2)]) + '）內(nèi)，不能復(fù)核！');
exit;
end;
if check(qryRKD.FieldByName('RKDH').Asstring) then
CHQMsgBox('復(fù)核記帳成功! ');
end;
function TFrm_YP_RKFH.Check(id: string): boolean;
begin
with StoredProc1 do
begin
ParamByName('PC_RKDH').Asstring := id;
ParamByName('PC_USERID').Asstring := VG_USERName;
data.dm.StartTransaction;
try
ExecProc;
data.dm.commit;
qryRKD.Edit;
qryRKD.FieldByName('JZY').Asstring := VG_USERNAME;
qryRKD.Post;
except
if data.dm.inTransaction then
data.dm.rollback;
raise;
end;
result := Params[0].asInteger = 0;
case Params[0].asInteger of
0: ;
1: CHQMsgBox('復(fù)核記帳失敗! 沒有初始化或結(jié)轉(zhuǎn) [集郵票總帳表] 數(shù)據(jù).');
2: CHQMsgBox('復(fù)核記帳失敗! 沒有初始化或結(jié)轉(zhuǎn) [集郵票總分戶帳表] 數(shù)據(jù).');
3: CHQMsgBox('復(fù)核記帳失敗! 沒有初始化或結(jié)轉(zhuǎn) [集郵票明細(xì)分類帳] 數(shù)據(jù).');
4: CHQMsgBox('復(fù)核記帳失敗! 沒有初始化或結(jié)轉(zhuǎn) [集郵票進(jìn)發(fā)存明細(xì)帳表] 數(shù)據(jù).');
5: CHQMsgBox('復(fù)核記帳失敗! 沒有初始化或結(jié)轉(zhuǎn) [集郵票明細(xì)分類帳(庫管員)] 數(shù)據(jù).');
10: CHQMsgBox('復(fù)核記帳失敗! 沒有初始化或結(jié)轉(zhuǎn) [集郵票待銷存總帳表] 數(shù)據(jù).');
11: CHQMsgBox('復(fù)核記帳失敗! 沒有初始化或結(jié)轉(zhuǎn) [集郵票待銷存明細(xì)分類帳] 數(shù)據(jù).');
12: CHQMsgBox('復(fù)核記帳失敗! 沒有初始化或結(jié)轉(zhuǎn) [集郵票待銷存明細(xì)分類帳(庫管員)] 數(shù)據(jù)] 數(shù)據(jù).');
-1: CHQMsgBox('找不到相應(yīng)的入庫單!');
-2: CHQMsgBox('錯誤：此入庫單已復(fù)核過!');
-3: CHQMsgBox('錯誤：此入庫單的入庫性質(zhì)沒找到或不需記帳!');
else
CHQMsgBox('復(fù)核記帳失敗! ');
end;
end;
end;
procedure TFrm_YP_RKFH.qryRKDUpdateError(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_YP_RKFH.qryRKDPPUpdateError(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_YP_RKFH.DBGrid2DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
inherited;
DrawCheckedGrid(not qryRKD.FieldByName('JZY').IsNull, Sender, Rect, DataCol, Column);
end;
procedure TFrm_YP_RKFH.BitBtn6Click(Sender: TObject);
var
i: integer;
v_b_skip: boolean;
v_s_yjr: string;
begin
inherited;
if qryRKD.IsEmpty then
exit;
i := 0;
with qryRKD do
begin
DisableControls;
First;
while not Eof do
begin
v_b_skip := false;
if qryRKD.FieldByName('JZY').IsNull and (not qryRKD.FieldByName('RKRQ').IsNull) then
begin
if not CheckINYJRQ(io_yp, qryRKD.FieldByName('RKDH').AsString, v_s_yjr) then
begin
v_b_skip := true;
// CHQMsgBox('該入庫單不在月結(jié)范圍（' + format('%s年%s月', [copy(v_s_yjr, 1, 4), copy(v_s_yjr, 5, 2)]) + '）內(nèi)，不能復(fù)核！');
end;
if not v_b_skip then
if Check(FieldByName('RKDH').Asstring) then
i := i + 1;
end;
Next;
end;
EnableControls;
if i > 0 then
CHQMsgBox('共完成' + inttostr(i) + '筆入庫復(fù)核!');
end;
end;
procedure TFrm_YP_RKFH.BitBtn7Click(Sender: TObject);
begin
inherited;
qryRKD.Close;
qryRKD.MacroByName('CON').AsString := ' TO_CHAR(KDRQ, ''YYYYMMDD'') >= ''' + FormatDateTime('YYYYMMDD', DateEdit1.Date) + '''';
qryRKD.MacroByName('YGDM').AsString := '''' + VG_USERID + '''';
qryRKD.Open;
end;
procedure TFrm_YP_RKFH.qryRKDPPJJGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
inherited;
nDisplay.GetText(Sender, Text, DisplayText);
end;
procedure TFrm_YP_RKFH.qryRKDPPJJSetText(Sender: TField;
const Text: string);
begin
inherited;
nDisplay.SetText(Sender, Text);
end;
procedure TFrm_YP_RKFH.qryRKDAfterScroll(DataSet: TDataSet);
begin
Modipanel1.FButtons[bnEdit].Enabled := qryRKD.FieldByName('JZY').IsNull;
BitBtn5.Enabled := qryRKD.FieldByName('JZY').IsNull;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -