30. Dezember 2009 09:30
LEDRec.RESET;
LEDRec.SETCURRENTKEY(LEDRec."Table ID",LEDRec."Entry No.",LEDRec."Dimension Code");
LEDRec.SETFILTER(LEDRec."Table ID",TabIDTEXT);
LEDRec.SETFILTER(LEDRec."Entry No.",LfdTEXT);
LEDRec.SETFILTER(LEDRec."Dimension Code",DimCodeTEXT);
LEDRec.SETFILTER(LEDRec."Dimension Value Code",DimCodeValTEXT);
IF NOT LEDRec.FIND('-') THEN
  ERROR('Bla Lfd %1',LfdTEXT)
ELSE
  BEGIN
    IF (TabIDTEXT = '5802') AND (DimCodeTEXT = 'VERKÄUFER') THEN
      BEGIN
        IF (LEDRec."Dimension Value Code" = DimCodeValTEXT) AND (DimCodeNewTEXT <>'') THEN
          BEGIN
            LEDRec.INIT;
            EVALUATE(LEDRec."Table ID",TabIDTEXT);
            LEDRec.VALIDATE(LEDRec."Table ID");
            EVALUATE(LEDRec."Entry No.",LfdTEXT);
            LEDRec.VALIDATE(LEDRec."Entry No.");
            EVALUATE(LEDRec."Dimension Code",DimCodeTEXT);
            LEDRec.VALIDATE(LEDRec."Dimension Code");
            EVALUATE(LEDRec."Dimension Value Code",DimCodeNewTEXT);
            LEDRec.VALIDATE(LEDRec."Dimension Value Code");
            LEDRec.MODIFY;
          END;
      END;
  END;
30. Dezember 2009 10:06
30. Dezember 2009 11:33