Dataport check of reeds regels zijn

Red-EagleRed-Eagle Member Posts: 107
edited 2012-07-19 in NAV Dutch speaking only
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.

Answers

  • Red-EagleRed-Eagle Member Posts: 107
    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;
Sign In or Register to comment.