23. Oktober 2015 18:10
IF Item.GET("Warehouse Activity Line"."Item No.") THEN BEGIN
  ItemUnitMeasure.RESET;
  ItemUnitMeasure.SETRANGE("Item No.",Item."No.");
  ItemUnitMeasure.SETFILTER(Code,'<> %1',"Warehouse Activity Line"."Unit of Measure Code");
  IF ItemUnitMeasure.FINDSET THEN BEGIN
    REPEAT
      IF DescriptionVPEText <> '' THEN
        DescriptionVPEText += '\n'; // Macht einen Zeilenumbruch innerhalb einer Textbox
      DescriptionVPEText += ItemUnitMeasure.Code + ' ' + FORMAT(ItemUnitMeasure."Qty. per Unit of Measure");
    UNTIL ItemUnitMeasure.NEXT = 0;
  END;
END;
23. Oktober 2015 21:19
26. Oktober 2015 09:28
26. Oktober 2015 09:48
IF Item.GET("Item No.") THEN BEGIN
  ItemUnitMeasure.RESET;
  ItemUnitMeasure.SETRANGE("Item No.",Item."No.");
  ItemUnitMeasure.SETFILTER(Code,'<>%1',"Unit of Measure Code");
  IF ItemUnitMeasure.FINDSET THEN BEGIN
    REPEAT
      IF DescriptionVPEText <> '' THEN
        DescriptionVPEText += '\n'; // Macht einen Zeilenumbruch innerhalb einer Textbox
      DescriptionVPEText += ItemUnitMeasure.Code + ' ' + FORMAT(ItemUnitMeasure."Qty. per Unit of Measure");
    UNTIL ItemUnitMeasure.NEXT = 0;
  END;
END;26. Oktober 2015 09:57