11. März 2010 18:07
11. März 2010 19:44
15. März 2010 18:11
CLEAR(PartnersListLoc);
PartnersListLoc.EDITABLE := FALSE;
PartnersListLoc.SETTABLEVIEW(PartnersLoc);
PartnersListLoc.LOOKUPMODE := TRUE;
IF PartnersListLoc.RUNMODAL = ACTION::LookupOK THEN BEGIN
31. März 2010 16:05
1. April 2010 08:42
IF Cust.FINDSET THEN BEGIN
REPEAT
IF Cust.CALCFIELDS("Balance (LCY)") THEN
IF Cust."Balance (LCY)" >= 1000 THEN
Cust.MARK(TRUE);
UNTIL Cust.NEXT = 0;
Cust.MARKEDONLY(TRUE);
END;
1. April 2010 10:03
AlliancesListLoc.SETTABLEVIEW(AlliancesLoc);
AlliancesListLoc.LOOKUPMODE := TRUE;
IF AlliancesListLoc.RUNMODAL = ACTION::LookupOK THEN BEGIN
AlliancesListLoc.GETRECORD(AlliancesLoc);
END;
1. April 2010 12:45