Otra modificación esta vez en SbNuevoClick
Código Delphi
[-]procedure TFXPAF.SbNuevoClick(Sender: TObject);
begin
...
NDBSENumeroProteccionDatos.Field.Value:=1; DBNNumeroDocumento.Field.value:=VerNumeroDocumento(VarSTipoDocumento,DBNSerie.Text);
DBNSerie.SetFocus;
end;