Dataport check of reeds regels zijn

Red-Eagle

Ik ben een bestaande dataport aan het uitbreiden met een extra check

In dit dataport staat nu in de code:


IF FirstLineBln THEN
CheckDataPresent('EAO');
Daarmee gaat hij naar dit stukje

CheckDataPresent(CommCde : Code[20])
CommentRec.SETRANGE("Table Name",CommentRec."Table Name"::Job);
CommentRec.SETRANGE("No.",A);
CommentRec.SETFILTER("Comment Code",'%1','E*O');
CommentRec.SETFILTER(Comment,'%1',L+'*');
IF CommentRec.FINDFIRST THEN BEGIN
IF NOT CONFIRM(STRSUBSTNO('Deze lijst is al eerder ingelezen (%1 %2), doorgaan?',CommentRec."Comment Code",
CommentRec.Comment)) THEN
ERROR('Inlezen afgebroken')
ELSE
FirstLineBln := FALSE;
END ELSE BEGIN
IF OrderNo <> '' THEN
ConvMgt.FillComment(CommentRec."Table Name"::Job,A,CommCde,STRSUBSTNO('%1-%2',L,OrderNo))
ELSE
ConvMgt.FillComment(CommentRec."Table Name"::Job,A,CommCde,L);
FirstLineBln := FALSE;
END;

Nu wil ik dat hij via

CheckAdvieshistory(''); (wat nu na end staat hierboven)

dat hij naar het stuk checkAdvieshistory

Ik heb hiervoor de volgende nog niet werkende code gebruikt:


CheckAdvieshistory(CommCde2 : Code[20])

AdvOrderLineRec2.SETFILTER("Project No.",A);
AdvOrderLineRec2.SETFILTER(Element,B);
IF AdvOrderLineRec2.FIND('-') THEN BEGIN
IF TRUE THEN CONFIRM('Er zijn reeds artikelen aanwezig voor deze kast, doorgaan?')THEN
ERROR('Inlezen afgebroken')
ELSE
FirstLineBln := FALSE;
END;
De bedoeling is dat er wordt gekeken oh bij het betreffende project (A) en element (B) reeds regels aanwezig zijn in de AdvOrderLineRec2. Zo ja wil ik graag de melding krijgen in mijn scherm, waarbij je als je Ja zegt dat het wordt afgebroken. En kies je voor Nee dat hij gewoon weer verder gaat met de dataport. Nu is mijn vraag hoe ik de code moet aanpassen om dit voor mekaar te krijgen.

Red-Eagle

Ik heb de oplossing gevonden:


AdvOrderLineRec2.SETFILTER("Project No.",A);
AdvOrderLineRec2.SETFILTER(Element,B);
IF AdvOrderLineRec2.FIND('-') THEN BEGIN
IF NOT CONFIRM('Er zijn reeds artikelen aanwezig voor deze kast, doorgaan?', TRUE)THEN
ERROR('Inlezen afgebroken')
ELSE
FirstLineBln := FALSE;
END;