Resp
Código Delphi [-]
Procedure Forma.DataBeforePost(Dataset: Tdataset)
Var
I: Integer;
Begin
For I := 0 To DataSet.FielCount-1 Do
If DataSet.Fiel[i].Isrequired And DataSet.Fiel[i].IsNull Then
Raise exception.create(format('Mira pendejo no estas viendo que el campo "%s" es requerido. Ponle algun dato y continua luego.', [DataSet.Fiel[i].FielName]));
End.
Espero esto te ayude.
__________________
Todo se puede, que no exista la tecnología aun, es otra cosa.
Última edición por rastafarey fecha: 10-12-2007 a las 18:14:30.
Razón: Me falto algo
|