CONCORDE XAL/C5 Overbygningsmodul til XAL2LN - Intoint

54
Initialisering (46-62)
46 { Init Formula Code goes here }
47 FLUSH Afdeling
48 #NotesInit
49 INTRODUCE NotesKart[FileIDIdx,66]
50 #NotesOpenServer(NotesKart.NotesServer)
51 #NotesLogon(NotesKart.NotesDatabase)
52 #NotesForm(NotesKart.NotesForm)
53 #NotesView(NotesKart.NotesView)
54
55 IF &NotesText>'' THEN
56 RETURN 0
57 ENDIF
58
59 WINDOW 30,2 AT 8,8
60
61
62 { Pre Integration Code goes here }
I denne sektion, som indleder den egentlige kode, etableres forbindelsen
til Lotus Notes.
Gennemløb og opslag (64-78)
64 SEARCH Afdeling
65 USING NumIdx
66
67 { Returns doc-ID in … }
68 { Pre Query Code }
69
70 PRINT Nummer,' ' AT 1,1
71 SET &S=NotesKart.NotesKeyField+'=\''+Nummer+'\''
72 #NotesQueryUnique(&S)
73 SET &ID = &NotesText
74 IF &ID == '0' THEN SET &Action=1 {New} ELSE
75 IF StrLen(&ID)>2 THEN SET &Action=2 {Update}ELSE
76 SET &Action = 0
77 ENDIF ENDIF
78 { Pre Record Code }
Efter initialisering gennemløbes alle selekterede records i
CONCORDE. I dette tilfælde er der ikke angivet nogen selektionsformel.
Denne ville have været placeret umiddelbart efter linie 65.
I linie 71 og 72 laves et opslag i Lotus Notes efter et matchende dokument.
Returkoden fra dette opslag overføres til variablen &ID. Er
returkoden ”0” betyder det, at dokumentet ikke findes i Lotus Notes.