From 8468755cdfe3ffc7f30cf5457e72c61b4450f832 Mon Sep 17 00:00:00 2001 From: Ernest Litvinenko Date: Fri, 28 Jun 2024 11:59:22 +0300 Subject: [PATCH] ADD base exec block --- 32_7.sql | 44 ++++++++++++++++++++++++++++++++++++++++++-- 1 file changed, 42 insertions(+), 2 deletions(-) diff --git a/32_7.sql b/32_7.sql index cc779c5..a7c3363 100644 --- a/32_7.sql +++ b/32_7.sql @@ -97,13 +97,53 @@ begin E.APP_EVENT_IMP, E.APP_EVENT_CR, E.APP_EVENT_WCR, E.APP_EVENT_CH, E.APP_EVENT_WCH, E.APP_EVENT_SEANS, E.APP_EVENT_OWNERMST, E.APP_EVENT_FIMP, E.APP_EVENT_MPOST from APP_EVENT E - where E.APP_EVENT_ID_REC = :F_APP_EVENT_ID_REC order by E.APP_EVENT_DT + where E.APP_EVENT_ID_REC = :F_APP_EVENT_ID_REC and E.APP_EVENT_DEL = 0 order by E.APP_EVENT_DT into :F_ID_APP_EVENT, :F_APP_EVENT_ID_SOTR, :F_APP_EVENT_ID_REC, :F_APP_EVENT_VID, :F_APP_EVENT_TIP, :F_APP_EVENT_DT, :F_APP_EVENT_TEXT, :F_APP_EVENT_PARAM, :F_APP_EVENT_DATA, :F_APP_EVENT_DEL, :F_APP_EVENT_IMP, :F_APP_EVENT_CR, :F_APP_EVENT_WCR, :F_APP_EVENT_CH, :F_APP_EVENT_WCH, :F_APP_EVENT_SEANS, :F_APP_EVENT_OWNERMST, :F_APP_EVENT_FIMP, :F_APP_EVENT_MPOST DO begin -/*TODO COMPLETE*/ + + + if (:F_APP_EVENT_VID = 8795) then + begin + NEW_ID_APP_NOTE = :F_APP_EVENT_ID_REC; + NEW_APP_NOTE_ID_SOTR = :F_APP_EVENT_ID_SOTR; + NEW_APP_NOTE_ID_APP_TASK = 0; + NEW_APP_NOTE_STATUS = 0; + NEW_APP_NOTE_TIP = F_APP_EVENT_TIP; + NEW_APP_NOTE_TEXT = F_APP_EVENT_TEXT; + NEW_APP_NOTE_DEL = F_APP_EVENT_DATA; + NEW_APP_NOTE_CR = F_APP_EVENT_CR; + NEW_APP_NOTE_WCR = F_APP_EVENT_WCR; + NEW_APP_NOTE_CH = F_APP_EVENT_CH; + NEW_APP_NOTE_WCH = F_APP_EVENT_WCH; end; + + end; + +update or insert APP_NOTE (ID_APP_NOTE, +APP_NOTE_ID_SOTR, +APP_NOTE_ID_APP_TASK, +APP_NOTE_STATUS, +APP_NOTE_TIP, +APP_NOTE_TEXT, +APP_NOTE_DEL, +APP_NOTE_CR, +APP_NOTE_WCR, +APP_NOTE_CH, +APP_NOTE_WCH) values ( +NEW_ID_APP_NOTE, +NEW_APP_NOTE_ID_SOTR, +NEW_APP_NOTE_ID_APP_TASK, +NEW_APP_NOTE_STATUS, +NEW_APP_NOTE_TIP, +NEW_APP_NOTE_TEXT, +NEW_APP_NOTE_DEL, +NEW_APP_NOTE_CR, +NEW_APP_NOTE_WCR, +NEW_APP_NOTE_CH, +NEW_APP_NOTE_WCH +) matching (ID_APP_NOTE) end \ No newline at end of file