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