RE: Customer Name validation AL
You can try the below code
[EventSubscriber(ObjectType::Table, Database::Customer, 'OnAfterValidateEvent', 'Name', false, false)]
local procedure OnAfterValidateEventName(var Rec: Record Customer; var xRec: Record Customer; CurrFieldNo: Integer)
var
SpacePos: Integer;
begin
SpacePos := StrPos(Rec.Name, ' ');
if SpacePos > 0 then
if CopyStr(Rec.Name, SpacePos + 1, MaxStrLen(Rec.Name)) <> '' then
exit;
Error('Please enter name with a space.');
