17,081
社区成员
发帖
与我相关
我的任务
分享
UPDATE rz_fp_hy_input t SET t.rzjg_dm=:rzjgdm_,t.rzjg_sm=:rzjgsm_,t.RZSJ=sysdate where t.fprzsqid=:fprzsqid_
{检查是否重复认证}
recount := 0;
Form1.mmo_info.Lines.Add('检查是否重复认证');
OraQuery2_:= initQuery(data2Conn);
OraQuery2_.Close;
OraQuery2_.SQL.Clear;
OraQuery2_.SQL.Add('select count(a.fprzsqid) co from skskj.SM_SKSKJDK_JG_ZB a where');
OraQuery2_.SQL.Add(' a.fphm=:fphm_');
OraQuery2_.SQL.Add(' and a.fp_dm=:fpDm_');
OraQuery2_.SQL.Add(' and a.rzjg_dm=:rzjgDm_');
OraQuery2_.Params.ParamByName('fphm_').Value:=tmphyfp.GetFp_hm;
OraQuery2_.Params.ParamByName('fpDm_').Value:=tmphyfp.GetFp_dm;
OraQuery2_.Params.ParamByName('rzjgDm_').Value:=tmprzjgdm;
OraQuery2_.Open;
if not OraQuery2_.Eof then
begin
recount := OraQuery2_.FieldValues['co'];
end;
if recount > 0 then
begin
//tmprzjgdm := '2';
Form1.mmo_info.Lines.Add('重复认证:'+ IntToStr(recount));
end;
Form1.mmo_info.Lines.Add('检查是否重复认证结束');
end;
OraQuery_ := initQuery(dataConn);
dataConn.StartTransaction;
{跟新数据库发票认证信息}
OraQuery_.Close;
OraQuery_.SQL.Clear; //fprz_hwys_fpmx
OraQuery_.SQL.Text:='UPDATE rz_fp_hy_input t SET t.rzjg_dm=:rzjgdm_,t.rzjg_sm=:rzjgsm_,t.RZSJ=sysdate where t.fprzsqid=:fprzsqid_';
OraQuery_.Params.ParamByName('rzjgdm_').Value:=tmprzjgdm;
OraQuery_.Params.ParamByName('rzjgsm_').Value:=tmprzjgsm;
OraQuery_.Params.ParamByName('fprzsqid_').Value:=tmphyfp.GetFprzssqid;
OraQuery_.Execute;
dataConn.Commit;
except
on E:Exception do
begin
form1.mmo_info.Lines.Add('数据库异常,更新数据失败');
form1.mmo_info.Lines.Add(e.Message);
data2Conn.Rollback;
dataConn.Rollback;
end;
end;
EXEC SQL UPDATE rz_fp_hy_input t SET t.rzjg_dm=:rzjgdm_,t.rzjg_sm=:rzjgsm_,t.RZSJ=sysdate where t.fprzsqid=:fprzsqid;
if (SQLCODE != 0 && SQLCODE != 1403) {
printf("更新 rz_fp_hy_input 错误 [%d]\n",SQLCODE);
printf("SQLERRMSG = [%s]\n",SQLERRMSG);
}