Foutmelding genereren bij minder tekens

semm

Beste mibusoleden,

Ik heb in de inkooporder regel een code veld toegevoegd die ingevoerd moet worden bij het binnenboeken van de goederen. Deze code moet altijd 8 cijfers bevatten. Wanneer men bijvorbeeld 1234567 invoert in het veld moet NAV met de foutmelding komen ' code moet 8 cijfers bevatten'. Hoe kan ik dit programmeren?

Alvast bedankt voor de reacties.

Luc_VanDyck

Voeg deze 2 regels toe in codeunit 90:

  IF PurchLine.FINDSET THEN
    REPEAT
      JobPurchLine := PurchLine;
      ItemJnlRollRndg := FALSE;
      LineCount := LineCount + 1;
      IF GUIALLOWED THEN
        Window.UPDATE(2,LineCount);

      //*** BEGIN
      IF STRLEN(PurchLine.YourNewField) <> 8 THEN
        ERROR('Code moet 8 cijfers bevatten');
      //*** END

      IF Invoice THEN
        TestPrepmtAmount;
      IF PurchLine.Type = PurchLine.Type::"Charge (Item)" THEN BEGIN

Deze aanpassing gaat er van uit dat je voor het veld "YourNewField" (in de "Purchase Line" tabel) de property Numeric op Yes hebt staan.