1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
| int Am_835(char cArzt, CSPEC_STRUCT_KSE_EXCEPTION *pstKse)
{
static BOOL bLoadMask = NO;
if ((pstKse == NULL) || (pstKse->__sizeanspruch <= 0) ||
(pstKse->anspruch == NULL))
{
return -1;
}
pstGlobKse = pstKse;
sGlobArzt[0] = cArzt;
if (bLoadMask == NO)
{
bLoadMask = YES;
Aw835_win = Ldwin ("Aw835");
Al835_msk = Ldform ("Al835", Aw835_win);
}
Rsfkey ();
// Window oeffnen und Liste erzeugen
WxOpenwinModal (Aw835_win, "Auswahl der Anspr}che");
WxSetProperty (0, 0, WMS_PROP_SHOW_RESPONSE, 0, NULL);
WxMsg (WMSM_LVC_CREATE, 0, Al835_msk, Aw835_win,
"anslist","4, 8, 710, 58,"
"KV-Tr{ger,150,,"
"Svnr,40,,"
"Name,385,,"
"Titel,106,"
,NULL, 0, Am_008_GetLVCFlag(cArzt,YES));
WxMsg (WMSM_LVC_SETCOUNT, 0,
Al835_msk, Aw835_win, "anslist", NULL, NULL, 0,
AC835_LIST_LOADCOUNT);
WxCnfield(Al835_msk, "anslist", Al835_ListCtrlCallback,
WMS_EVENT_ITEMCHANGED, 0, NULL, 0);
WxConfkeySetButton(WMS_BUTTON_KEY_OK, Aw835_win, 70, 647, 70, 11, "",
"Best{tigen (F12)", WMS_BMP_OK, 0);
Ptform (Al835_msk, 0, 0); //changed
updateListCtrl(); // Liste aktualisieren
Clstruct (Al835_msk, &Al835);
WxMsg (WMSM_FLUSH, 1, 0, 0, NULL, NULL, NULL, 0, 0);
iGlobSelection = 0;
if (Rdform (Al835_msk, "anslist", &Al835, 0) == WMS_QUIT) //changed
{
fprintf(stderr, "ok 1\n");
Closewin (Aw835_win);
Rsfkey();
return -1;
}
fprintf(stderr, "ok 2\n");
Closewin (Aw835_win);
Rsfkey();
return iGlobSelection;
} |