CONCORDE XAL/C5 Overbygningsmodul til XAL2LN - Intoint
CONCORDE XAL/C5 Overbygningsmodul til XAL2LN - Intoint
CONCORDE XAL/C5 Overbygningsmodul til XAL2LN - Intoint
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
⎡ ⎤<br />
&Action sættes derfor <strong>til</strong> 1, som betyder at et nyt dokument skal oprettes.<br />
Hvis et dokument er fundet indeholder &ID DocId på dette dokument.<br />
Et DocId i Lotus Notes er altid mere end 2 tegn langt. Derfor<br />
testes på, om returkoden er større end 2. Er dette <strong>til</strong>fældet er dokumentet<br />
fundet og det skal opdateres (&Action = 2). Alle andre returkoder<br />
opfattes som indikation af en fejlsituation.<br />
Læg mærke <strong>til</strong> placering af e.v.t. ”Pre Integration Formula” kode og<br />
”Pre Record Formula” kode.<br />
Opret nyt dokument (79-84)<br />
79 IF &Action == 1 THEN {Ny}<br />
80 #NotesCreateNew<br />
81 #Update<br />
82 #NotesCommit<br />
83 #ADD(&Inserted,1)<br />
84 ENDIF<br />
Hvis &action er sat <strong>til</strong> 1, skal der oprettes et nyt dokument i Lotus<br />
Notes.<br />
Dette gøres i linie 80 og i linie 81 overføres data fra de udvalgte felter.<br />
Herefter gemmes oplysninger med #NotesCommit.<br />
Opret nyt dokument (85-97)<br />
85 IF &Action == 2 THEN {Opdater}<br />
86 SET &OK = 1<br />
87 IF &ID=='0' THEN {Opret først}<br />
88 #NotesCreateNew<br />
89 SET &ID=&NotesText<br />
90 ENDIF<br />
91 #NotesSelectID(&ID)<br />
92 IF &OK THEN<br />
93 #Update<br />
94 #NotesCommit<br />
95 #ADD(&Updated,1)<br />
96 ENDIF<br />
97 ENDIF<br />
Denne kode opdaterer et eksisterende dokument. Koden er forberedt<br />
for de diverse kombinationer de forskellige opdateringsvalg kan<br />
medføre. Derfor kan koden se lidt omstændelig ud i dette eksempel.<br />
Her er det linierne 91 <strong>til</strong> 94 der foretager den egentlige opdatering.<br />
55