ValidateShortcutDimCode(FieldNumber : Integer;VAR ShortcutDimCode : Code[20]) DimMgt.ValidateDimValueCode(FieldNumber,ShortcutDimCode); IF "Line No." <> 0 THEN BEGIN DimMgt.SaveDocDim( DATABASE::"Sales Line","Document Type","Document No.", "Line No.",FieldNumber,ShortcutDimCode); // MODIFY; <---------------------------------------------------------------- this line END ELSE DimMgt.SaveTempDim(FieldNumber,ShortcutDimCode);
Comments
RIS Plus, LLC
MVP - Business Apps