Erro em campo NotNull

[samuca.ti@hotmail.com]

Testado, funcionando, obrigado

[samuca.ti@hotmail.com]

oque voce acha isaque de colocar para mostrar o ConstraintErrorMessage ?

nessa alteração iria mostrar uma mensagem mais bonitinha para o usuario "Descrição da Mesa" ao inves de "DESCRICAO"

[Dictionary('DESCRICAO', 'Descrição da Mesa', '', '', '', taLeftJustify)]

function TRttiSingleton.RunValidade(AObject: TObject): Boolean;
var
LColumn: TColumnMapping;
LColumns: TColumnMappingList;
LAttribute: TCustomAttribute;
begin
Result := False;
LColumns := TMappingExplorer.GetInstance.GetMappingColumn(AObject.ClassType);
for LColumn in LColumns do
begin
/// <summary> Valida se o valor é NULO </summary>
LAttribute := LColumn.PropertyRtti.GetNotNullConstraint;
if LAttribute <> nil then
NotNullConstraint(LAttribute)
.Validate(Dictionary(LColumn.PropertyRtti.GetDictionary).ConstraintErrorMessage,//alterado
LColumn.PropertyRtti.GetNullableValue(AObject));
/// <summary> Valida se o valor é menor que ZERO </summary>
LAttribute := LColumn.PropertyRtti.GetHighestConstraint;
if LAttribute <> nil then
HighestConstraint(LAttribute)
.Validate(Dictionary(LColumn.PropertyRtti.GetDictionary).ConstraintErrorMessage,//alterado
LColumn.PropertyRtti.GetNullableValue(AObject));
end;
Result := True;
end;

[Isaque Pinheiro]

oque voce acha isaque de colocar para mostrar o ConstraintErrorMessage ?

nessa alteração iria mostrar uma mensagem mais bonitinha para o usuario "Descrição da Mesa" ao inves de "DESCRICAO"

[Dictionary('DESCRICAO', 'Descrição da Mesa', '', '', '', taLeftJustify)]

function TRttiSingleton.RunValidade(AObject: TObject): Boolean;
var
 LColumn: TColumnMapping;
 LColumns: TColumnMappingList;
 LAttribute: TCustomAttribute;
begin
 Result := False;
 LColumns := TMappingExplorer.GetInstance.GetMappingColumn(AObject.ClassType);
 for LColumn in LColumns do
 begin
    /// <summary> Valida se o valor é NULO </summary>
    LAttribute := LColumn.PropertyRtti.GetNotNullConstraint;
    if LAttribute <> nil then
      NotNullConstraint(LAttribute)
        .Validate(Dictionary(LColumn.PropertyRtti.GetDictionary).ConstraintErrorMessage,//alterado
        LColumn.PropertyRtti.GetNullableValue(AObject));
    /// <summary> Valida se o valor é menor que ZERO </summary>
    LAttribute := LColumn.PropertyRtti.GetHighestConstraint;
    if LAttribute <> nil then
       HighestConstraint(LAttribute)
         .Validate(Dictionary(LColumn.PropertyRtti.GetDictionary).ConstraintErrorMessage,//alterado
         LColumn.PropertyRtti.GetNullableValue(AObject));
 end;
 Result := True;
end;

Boa, assim que conseguir vou olhar com calma e subo esse recurso

[samuca.ti@hotmail.com]

Um próximo recurso que quero alterar nessa validação é que:
1 - tem mensagem que deve gerar uma exception ('campos invisíveis para o usuario'), pq seria vaza de programação
2 - Campos visíveis para o usuário, que deve gerar um informativo, por exemplo 'Descrição'

[samuca.ti@hotmail.com]

enviado codigo alterado para analise