CONCORDE XAL/C5 Overbygningsmodul til XAL2LN - Intoint
CONCORDE XAL/C5 Overbygningsmodul til XAL2LN - Intoint
CONCORDE XAL/C5 Overbygningsmodul til XAL2LN - Intoint
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
⎡ ⎤<br />
Appendix 2. Opbygning af <strong>XAL</strong> kørsel<br />
Som angivet tidligere, danner overbygningsmodulet en <strong>XAL</strong>-kørsel<br />
udfra de angivne parametre. I dette appendix beskrives opbygningen<br />
af denne <strong>XAL</strong>-kørsel.<br />
Nedenfor er vist et eksempel på en integrationskørsel der foretager<br />
en overførsel af data fra afdelingskartoteket I <strong>CONCORDE</strong>.<br />
<strong>XAL</strong>-kørslen er her opbygget med linienumre.<br />
1 #MacroLoad(NOTES)<br />
2 #MacroLoad(TMP_FILE)<br />
3<br />
4 STR 255 &S<br />
5 STR 255 &S2<br />
6 STR 255 &ID<br />
7 INT &Inserted<br />
8 INT &Updated<br />
9 INT &Deleted<br />
10 INT &StartTid<br />
11 INT &Action<br />
12 INT &OK<br />
13<br />
14<br />
15 #LocalMacro.Update<br />
16 SET &S = Nummer<br />
17 #NotesSetFieldValue('Nummer',&S)<br />
18 SET &S = Navn<br />
19 #NotesSetFieldValue('Navn',&S)<br />
20 { Pre Field Code for Ansvarlig }<br />
21 SET &S = Ansvarlig<br />
22 #NotesSetFieldValue('Ansvarlig',&S)<br />
23 { Post Field Code for Ansvarlig }<br />
24<br />
25 #EndMacro<br />
26<br />
27 #LocalMacro.PrepareQuery<br />
28 SET &S2=NotesKart.NotesKeyField+'="'+Nummer+'"'<br />
29 #EndMacro<br />
30<br />
31 #LocalMacro.Query<br />
32 { Returns doc-ID in &NotesTxt, … }<br />
33 { Pre Query Code }<br />
34<br />
35 #PrepareQuery<br />
36 #NotesQueryUnique(&S2)<br />
37 #EndMacro<br />
38<br />
39 #LocalMacro.Newer<br />
40 #PrepareQuery<br />
41 SET &S2 = &S2 + ' &<br />
@Modified>@TextToTime("'+<br />
Date2Str(SidstRettet,123,2,3,2,3,2)+'"))'<br />
49