Hej,
Følgende kode (se nedenfor) printer en liste ud med firmanavn og tilhørende kontakpersoner,
der ikke hører til i den markedsgruppe som brugeren har valgt.
Hvordan skal koden ændres, så rapporten viser dem der er med i markedsgruppen?
På forhånd tak for hjælpen.
Documentation()
Contact - OnPreDataItem()
Contact - OnAfterGetRecord()
IF CheckForGruppe(Contact, Gruppe) THEN
CurrReport.SKIP;
KontCtr := 0;
Contact - OnPostDataItem()
CheckForGruppe(Emne : Record Contact;Gruppe : Code[10]) Ans : Boolean
IF NOT Contact."Exclude from Segment" THEN
BEGIN
Kontakt.SETFILTER(Kontakt."Company No.",Contact."No.");
Antal := Kontakt.COUNT;
IF Antal = 0 THEN
Ans := FALSE
ELSE
BEGIN
MkGrupOK := FALSE;
IF Kontakt.FIND('-') THEN
REPEAT
IF Markedsgruppetilknytning.GET(Kontakt."No.", Gruppe) THEN
BEGIN
Ans := TRUE;
MkGrupOK := TRUE;
EXIT;
END
ELSE
Ans := FALSE;
UNTIL Kontakt.NEXT = 0;
Ans := FALSE
END;
END
ELSE
Ans := FALSE;
KontaktiGruppe(Kontaktpers : Record Contact;Gruppe : Code[10]) Ans : Boolean
IF NOT Kontakt."Exclude from Segment" THEN
BEGIN
IF Markedsgruppetilknytning.GET(Kontaktpers."No.", Gruppe) THEN
Ans := TRUE
ELSE
Ans := FALSE;
END
ELSE
Ans := FALSE;
Med venlig hilsen
Agnethef
